diff options
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 } |