diff options
author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-21 20:49:07 -0500 |
---|---|---|
committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-01-21 21:20:36 -0500 |
commit | 45deaf194d3e010277b11cb1d203b2fec4e10426 (patch) | |
tree | 04acef46956b022e3b711b285eaa03f5aa7943e6 /csv2GradeBook.tcl | |
parent | 10549d3ef4d24e6059840ff6ed3c52bbe2f3add1 (diff) | |
download | GradeBook-45deaf194d3e010277b11cb1d203b2fec4e10426.tar.gz GradeBook-45deaf194d3e010277b11cb1d203b2fec4e10426.zip |
Password hash is not required to create databases offline
Diffstat (limited to 'csv2GradeBook.tcl')
-rwxr-xr-x | csv2GradeBook.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/csv2GradeBook.tcl b/csv2GradeBook.tcl index e5bf814..01e2d17 100755 --- a/csv2GradeBook.tcl +++ b/csv2GradeBook.tcl @@ -30,8 +30,8 @@ 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')] +proc AddUserNonWeb { first_name last_name user_name {group_name {guest}} {id_number {}} {section_num {} } } { + set eval_str [concat INSERT INTO GradesTable (FirstName, LastName, UserName, GroupName, IdNum, SectionNum) VALUES('$first_name', '$last_name', '$user_name', '$group_name', '$id_number', '$section_num')] set err [catch {db eval $eval_str } errStat] if { $err } { htmlErrorMsg $errStat @@ -56,7 +56,7 @@ while {-1 != [gets $fp line]} { set sect [lindex $data 3] set email [lindex $data 4] #puts "$fname $lname $email {} student $id $sect" - AddUserNonWeb $fname $lname $email {} student $id $sect + AddUserNonWeb $fname $lname $email student $id $sect } |