From 7c819f7082d9f3363c15fb390659e4fa8e33ce85 Mon Sep 17 00:00:00 2001 From: Eugeniy Mikhailov Date: Sat, 22 Jan 2011 20:53:00 -0500 Subject: none ->unset category Ignore-this: 7e407d49c1358fa0e4fc40badcbb3ae5 darcs-hash:20110123015300-067c0-60bc66b687af0299c11023c918bca02d83a658cf.gz --- GradeBook.tcl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'GradeBook.tcl') diff --git a/GradeBook.tcl b/GradeBook.tcl index 6aa7963..d81bc4e 100755 --- a/GradeBook.tcl +++ b/GradeBook.tcl @@ -398,7 +398,7 @@ proc UserUnHideColumn { permission_list user } { proc ChangeColumn { permission_list user } { set columnname [::ncgi::value columnname {}] - set category "none" + set category "unset" set category [SelectColValue4User $columnname _Col_Category_] set maxpoints [SelectColValue4User $columnname _Max_Points_] @@ -412,7 +412,7 @@ proc ChangeColumn { permission_list user } { puts $out_str # opt list has option name and corresponding text pairs set opt_list [list \ - none --Select--\ + unset --Select--\ Quiz Quiz\ HomeWork HomeWork\ LabReport LabReport\ @@ -682,7 +682,7 @@ proc AddColumnRequest { permission_list user } { puts "
" puts {Column Name:
} puts {Category: