diff options
Diffstat (limited to 'blackboard2gradebook.tcl')
| -rwxr-xr-x | blackboard2gradebook.tcl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl index c0a88c6..02dc901 100755 --- a/blackboard2gradebook.tcl +++ b/blackboard2gradebook.tcl @@ -113,16 +113,22 @@ proc trimColName { col } { return [list $shortCol $category $maxScore $type] } +set wasDryRunAnounced false proc veval {script} { # verbose eval global dryrun + global wasDryRunAnounced set cmd "" foreach line [split $script \n] { if {$line eq ""} {continue} append cmd $line\n if { [info complete $cmd] } { if { [info exists dryrun] && $dryrun} { - puts -nonewline "DRYRUN: $cmd" + if { ! $wasDryRunAnounced } { + set wasDryRunAnounced true + puts "DRYRUN: DB will not be modified" + } + #puts -nonewline "DRYRUN: $cmd" } else { puts -nonewline "Executing: $cmd" uplevel 1 $cmd @@ -205,7 +211,7 @@ foreach col [getColListFromAnyTable bdb export_table] { if { $oldGrade != $grade } { puts "TESTING: skipping grades which change" puts "$locUname: $shortCol oldGrade \{$oldGrade\} --> $grade" - continue + #continue } veval [list UpdateColValue4UserNameNonWeb $shortCol $locUname $grade] } |