better name for DB related commnads

1 files changed, 5 insertions, 5 deletions

diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl
index 4a8adff..9ac1be6 100755
--- a/blackboard2gradebook.tcl
+++ b/blackboard2gradebook.tcl
@@ -114,8 +114,8 @@ proc trimColName { col } {
 }
 
 set wasDryRunAnounced false
-proc veval {script} { 
-	# verbose eval
+proc dbRequest {script} { 
+	# verbose evaluation of dbRequest with dry run capability
 	global dryrun
 	global wasDryRunAnounced
 	set cmd ""
@@ -152,7 +152,7 @@ proc addStudentsFromDB { db } {
 	set err [catch {
 		$db eval $eval_str v {
 			set email $v(Username)@email.wm.edu
-			veval [list AddUserNonWeb $v($fname) $v($lname) $email student $id $section]
+			dbRequest [list AddUserNonWeb $v($fname) $v($lname) $email student $id $section]
 			}
 		} errStat ]
 	iferror $err $errStat
@@ -175,7 +175,7 @@ proc updateGrade { col locUname grade } {
 	if { $oldGrade != $grade } {
 		#puts "$locUname: $col oldGrade \{$oldGrade\} --> \{$grade\}"
 		puts [list $locUname  $col $oldGrade "-->" $grade]
-		veval [list UpdateColValue4UserNameNonWeb $col $locUname $grade]
+		dbRequest [list UpdateColValue4UserNameNonWeb $col $locUname $grade]
 	}
 }
 
@@ -206,7 +206,7 @@ foreach col [getColListFromAnyTable bdb export_table] {
 		#continue
 	#}
 	if { ![doesColumnExists $shortCol GradesTable] } {
-		veval [list AddColumnNonWeb $shortCol $category $maxScore]
+		dbRequest [list AddColumnNonWeb $shortCol $category $maxScore]
 	}
 	foreach uname $username_list {
 		set locUname [foreignUsername2local $uname]