diff options
| author | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-12 18:25:44 -0400 |
|---|---|---|
| committer | Eugeniy E. Mikhailov <evgmik@gmail.com> | 2021-05-12 18:25:44 -0400 |
| commit | 4406bcb1623be8046b54fed9bf0742156a5671fc (patch) | |
| tree | 77f8038c67c05ddd6078f6423f42462cb21ddb0d | |
| parent | 9b97a80105f893c1c96dc46748354e69fe2379de (diff) | |
| download | GradeBook-4406bcb1623be8046b54fed9bf0742156a5671fc.tar.gz GradeBook-4406bcb1623be8046b54fed9bf0742156a5671fc.zip | |
capitalize DRYRUN
| -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" |