From 4406bcb1623be8046b54fed9bf0742156a5671fc Mon Sep 17 00:00:00 2001 From: "Eugeniy E. Mikhailov" Date: Wed, 12 May 2021 18:25:44 -0400 Subject: capitalize DRYRUN --- blackboard2gradebook.tcl | 16 ++++++++-------- 1 file 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" -- cgit v1.2.3