Index: openacs-4/packages/assessment/www/admin/checks-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/checks-delete.tcl,v
diff -u -N
--- openacs-4/packages/assessment/www/admin/checks-delete.tcl	24 Jan 2005 17:45:56 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-ad_page_contract {
-    This page deletes checks
-    @author Anny Flores (annyflores@viaro.net) Viaro Networks
-    @date 2005-01-17
-} {
-    inter_item_check_id:multiple
-    section_id
-    assessment_id
-  }
-set count [llength $inter_item_check_id]
-
-for { set i 0} { $i< $count } {incr i} {
-    set check_id [lindex $inter_item_check_id $i]
-    db_transaction {
-	db_exec_plsql delete_check {}
-    }
-}
-ad_returnredirect "checks-admin?assessment_id=$assessment_id&section_id=$section_id"
\ No newline at end of file