Index: openacs-4/packages/evaluation/www/admin/grades/grades-add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/grades/grades-add-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/evaluation/www/admin/grades/grades-add-edit.tcl 28 Apr 2004 11:06:42 -0000 1.1 +++ openacs-4/packages/evaluation/www/admin/grades/grades-add-edit.tcl 7 Jun 2004 16:05:11 -0000 1.2 @@ -30,8 +30,13 @@ {label "Assignment Type Name"} {html {size 30}} } + + {grade_plural_name:text + {label "Assignment Plural Type Name"} + {html {size 30}} + } - {weight:text + {weight:float {label "Weight"} {html {size 5}} } @@ -48,9 +53,8 @@ set grade_id $item_id } -validate { - {weight - { [ad_var_type_check_number_p $weight] && ($weight >= 0) && ($weight <= 100) } + { ($weight >= 0) && ($weight <= 100) } {Weight must be a real number and between 0 and 100} } @@ -59,7 +63,7 @@ db_transaction { set revision_id [evaluation::new_grade -new_item_p [ad_form_new_p -key grade_id] -item_id $grade_id -content_type evaluation_grades \ - -content_table evaluation_grades -content_id grade_id -name $grade_name -description $comments -weight $weight] + -content_table evaluation_grades -content_id grade_id -name $grade_name -plural_name $grade_plural_name -description $comments -weight $weight] evaluation::set_live -revision_id $revision_id