diff options
Diffstat (limited to 'blackboard2gradebook.tcl')
| -rwxr-xr-x | blackboard2gradebook.tcl | 10 |
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] |