diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-18 22:36:21 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-01-18 22:36:21 -0500 |
| commit | dc173a71fc447c40c38426817a5fb81c95063d4e (patch) | |
| tree | 09aec694a5f0b926d78312f612891d5acd3b99e9 | |
| parent | 6e3d890b9f44ae850925679af3e2074a08fbc23a (diff) | |
| download | GradeBook-dc173a71fc447c40c38426817a5fb81c95063d4e.tar.gz GradeBook-dc173a71fc447c40c38426817a5fb81c95063d4e.zip | |
grade table column type switched to text
Ignore-this: 440ca7ba0700b0a2f83afabfcb51b61d
darcs-hash:20110119033621-067c0-a9ff56aa1afbaa396b8350cec7698cda62e87957.gz
| -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 |