Index: openacs-4/packages/assessment/www/admin/item-add.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-add.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/assessment/www/admin/item-add.tcl 14 Jan 2005 13:13:37 -0000 1.10 +++ openacs-4/packages/assessment/www/admin/item-add.tcl 18 Jan 2005 14:55:54 -0000 1.11 @@ -78,6 +78,9 @@ {name {[as::assessment::unique_name -name $name -new_p 1 -item_id $as_item_id]} "[_ assessment.name_used]"} } -on_submit { set category_ids [category::ad_form::get_categories -container_object_id $package_id] + if {[empty_string_p $points]} { + set points 0 + } } -new_data { db_transaction { if {![db_0or1row item_exists {}]} { Index: openacs-4/packages/assessment/www/admin/item-edit-general.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/item-edit-general.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/assessment/www/admin/item-edit-general.tcl 14 Jan 2005 13:13:37 -0000 1.7 +++ openacs-4/packages/assessment/www/admin/item-edit-general.tcl 18 Jan 2005 14:55:54 -0000 1.8 @@ -73,6 +73,9 @@ set display_type [string range [db_string get_display_type {}] end-1 end] } -on_submit { set category_ids [category::ad_form::get_categories -container_object_id $package_id] + if {[empty_string_p $points]} { + set points 0 + } } -edit_data { db_transaction { set old_display_type [string range [db_string get_display_type {}] end-1 end] Index: openacs-4/packages/assessment/www/admin/section-form.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/section-form.tcl,v diff -u -r1.8 -r1.9 --- openacs-4/packages/assessment/www/admin/section-form.tcl 14 Jan 2005 13:13:37 -0000 1.8 +++ openacs-4/packages/assessment/www/admin/section-form.tcl 18 Jan 2005 14:55:54 -0000 1.9 @@ -84,6 +84,9 @@ {name {[as::assessment::unique_name -name $name -new_p $__new_p]} "[_ assessment.name_used]"} } -on_submit { set category_ids [category::ad_form::get_categories -container_object_id $package_id] + if {[empty_string_p $points]} { + set points 0 + } } -new_data { db_transaction { set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]