diff options
Diffstat (limited to 'AddDummyUsers2db.tcl')
| -rwxr-xr-x | AddDummyUsers2db.tcl | 23 |
1 files changed, 1 insertions, 22 deletions
diff --git a/AddDummyUsers2db.tcl b/AddDummyUsers2db.tcl index 3eaeef2..2861b45 100755 --- a/AddDummyUsers2db.tcl +++ b/AddDummyUsers2db.tcl @@ -5,6 +5,7 @@ exec tclsh "$0" "$@" package require sqlite3 package require md5 +source ./GradeBook_lib.tcl set class [lindex $argv 0] if { $class eq "" } { @@ -15,28 +16,6 @@ set dbfile $class sqlite3 db $dbfile -proc dbg {msg {level 1}} { - if { $level <=2 } { - set fid [open log a+] - puts $fid $msg - close $fid - } -} - -proc htmlErrorMsg { msg } { - puts "<div class=\"errormsg\">error: $msg</div>" -} - -proc AddUserNonWeb { first_name last_name user_name password_hash {group_name {guest}} {id_number {}} {section_num {} } } { - set eval_str [concat INSERT INTO GradesTable (FirstName, LastName, UserName, PasswordHash, GroupName, IdNum, SectionNum) VALUES('$first_name', '$last_name', '$user_name', '$password_hash', '$group_name', '$id_number', '$section_num')] - set err [catch {db eval $eval_str } errStat] - if { $err } { - htmlErrorMsg $errStat - dbg "the following error happen: $errStat" 3 - } -} - - #AddUserNonWeb first_name last_name user_name password_hash group_name id_number section_num i # dummy users #AddUserNonWeb Ins "Instruch I" instructor [::md5::md5 -hex qwerty] instructor |