Index: openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	12 Jul 2006 06:01:40 -0000	1.9
+++ openacs-4/packages/assessment/www/asm-admin/item-edit-general.tcl	14 Jul 2006 05:48:43 -0000	1.10
@@ -43,7 +43,7 @@
 }
 if { $type > 1} {
 	ad_form -extend -name item_edit_general -form {
-		{description:text(textarea),optional {label "[_ assessment.Description]"} {html {rows 5 cols 80}} {help_text "[_ assessment.item_Description_help]"}}
+		 {description:text(textarea),optional {label "[_ assessment.Description]"} {html {rows 5 cols 80}} {help_text "[_ assessment.item_Description_help]"}}
 	}
 
 	if {![empty_string_p [category_tree::get_mapped_trees $package_id]]} {
@@ -135,8 +135,9 @@
 	if {[exists_and_not_null category_ids]} {
 	    category::map_object -object_id $new_item_id $category_ids
 	}
-
+ns_log Notice "HAM : EDITING CONTENT"
 	if {![empty_string_p $content]} {
+ns_log Notice "HAM : content not empty"
 	    set filename [lindex $content 0]
 	    set tmp_filename [lindex $content 1]
 	    set file_mimetype [lindex $content 2]
@@ -160,7 +161,8 @@
 	    # when the question was originally created
 	    db_dml delete_item_content {}
 	    db_dml insert_item_content {}
-	} elseif {[info exists delete_content]} {
+	} elseif {[info exists delete_content] && $delete_content == "t" } {
+ns_log Notice "HAM : delete is checked"
 	    db_dml delete_item_content {}
 	}
 	set new_assessment_rev_id [as::assessment::new_revision -assessment_id $assessment_id]