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]