diff options
| -rwxr-xr-x | blackboard2gradebook.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/blackboard2gradebook.tcl b/blackboard2gradebook.tcl index ddf20a5..81e2be4 100755 --- a/blackboard2gradebook.tcl +++ b/blackboard2gradebook.tcl @@ -10,8 +10,8 @@ package require md5 source ./GradeBook_lib.tcl ################# Config ############################################ -# if dryrun is true the database will not be modified -set dryrun true +# if DRYRUN is true the database will not be modified +set DRYRUN true #set categories2export [list FinalExam HomeWork LabReport] set categories2export [list FinalExam] @@ -126,19 +126,19 @@ proc trimColName { col } { return [list $shortCol $category $maxScore $type] } -set wasDryRunAnounced false +set wasDRYRUNAnounced false proc dbRequest {script} { # verbose evaluation of dbRequest with dry run capability - global dryrun - global wasDryRunAnounced + 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} { - if { ! $wasDryRunAnounced } { - set wasDryRunAnounced true + if { [info exists DRYRUN] && $DRYRUN} { + if { ! $wasDRYRUNAnounced } { + set wasDRYRUNAnounced true puts "DRYRUN: DB will not be modified" } #puts -nonewline "DRYRUN: $cmd" |