Index: openacs-4/packages/assessment/tcl/as-checks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/assessment/tcl/as-checks-procs.tcl	14 Feb 2005 17:20:34 -0000	1.15
+++ openacs-4/packages/assessment/tcl/as-checks-procs.tcl	18 Feb 2005 17:07:33 -0000	1.16
@@ -446,7 +446,7 @@
     }
     
     set action ""
-    
+    set parameter_list ""
     if { $action_p=="t"} {
 	set info [db_0or1row get_check_info_a {}]
 	
@@ -542,4 +542,21 @@
     foreach check_id $checks {
 	set delete_p [db_exec_plsql delete_checks {}]
     }
+}
+ad_proc -public as::assessment::check::delete_item_checks {
+    {-assessment_id:required}
+    {-section_id}
+    {-as_item_id}
+} {
+    
+} {
+    set checks [db_list_of_lists related_checks {}]
+    foreach check $checks {
+	set cond_list  [split [lindex $check 1] "="]
+	set item_id [lindex [split [lindex $cond_list 2] " "] 0]
+	if {$item_id == $as_item_id} {
+	    set check_id [lindex $check 0]
+	    db_exec_plsql delete_check {}
+	}
+    }
 }
\ No newline at end of file