diff options
| -rwxr-xr-x | blackboard2gradebook.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl index be34eeb..dd49c80 100755 --- a/blackboard2gradebook.tcl +++ b/blackboard2gradebook.tcl @@ -128,7 +128,7 @@ set err [catch { bdb eval $eval_str v { set email $v(Username)@email.wm.edu puts [list AddUserNonWeb $v($fname) $v($lname) $email student $v($idnum) 1] - #AddUserNonWeb $v($fname) $v($lname) $email student $v($idnum) 1 + AddUserNonWeb $v($fname) $v($lname) $email student $v($idnum) 1 } } errStat ] iferror $err $errStat @@ -150,8 +150,8 @@ foreach col [getColListFromAnyTable bdb export_table] { continue } if { ![doesColumnExists $shortCol GradesTable] } { - #AddColumnNonWeb $shortCol $category $maxScore - puts [list AddColumnNonWeb $shortCol $category $maxScore] + AddColumnNonWeb $shortCol $category $maxScore + #puts [list AddColumnNonWeb $shortCol $category $maxScore] } foreach uname $username_list { set locUname $uname@email.wm.edu @@ -161,8 +161,8 @@ foreach col [getColListFromAnyTable bdb export_table] { # change percentage to score set grade [ expr {$grade/100*$maxScore} ] } - #UpdateColValue4UserNameNonWeb $shortCol $locUname $grade - puts [list UpdateColValue4UserNameNonWeb $shortCol $locUname $grade] + UpdateColValue4UserNameNonWeb $shortCol $locUname $grade + #puts [list UpdateColValue4UserNameNonWeb $shortCol $locUname $grade] } } } |