aboutsummaryrefslogtreecommitdiff
path: root/csv2GradeBook.tcl
diff options
context:
space:
mode:
authorEugeniy Mikhailov <evgmik@gmail.com>2012-01-21 20:49:07 -0500
committerEugeniy Mikhailov <evgmik@gmail.com>2012-01-21 21:20:36 -0500
commit45deaf194d3e010277b11cb1d203b2fec4e10426 (patch)
tree04acef46956b022e3b711b285eaa03f5aa7943e6 /csv2GradeBook.tcl
parent10549d3ef4d24e6059840ff6ed3c52bbe2f3add1 (diff)
downloadGradeBook-45deaf194d3e010277b11cb1d203b2fec4e10426.tar.gz
GradeBook-45deaf194d3e010277b11cb1d203b2fec4e10426.zip
Password hash is not required to create databases offline
Diffstat (limited to 'csv2GradeBook.tcl')
-rwxr-xr-xcsv2GradeBook.tcl6
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
}