From 45deaf194d3e010277b11cb1d203b2fec4e10426 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Sat, 21 Jan 2012 20:49:07 -0500 Subject: Password hash is not required to create databases offline --- csv2GradeBook.tcl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'csv2GradeBook.tcl') 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 "
error: $msg
" } -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 } -- cgit v1.2.3