diff options
Diffstat (limited to 'GradeBook.tcl')
| -rwxr-xr-x | GradeBook.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/GradeBook.tcl b/GradeBook.tcl index 3351150..2552168 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -487,7 +487,7 @@ proc AddColumn { permission_list user } { set maxpointpossible [::ncgi::value maxpointpossible {}] if { $columnname2add != "" } { - set eval_str [concat ALTER TABLE GradesTable ADD \"$columnname2add\" real] + set eval_str [concat ALTER TABLE GradesTable ADD \"$columnname2add\" text] set err [catch {db eval $eval_str } errStat] if { $err } { htmlErrorMsg $errStat |