Index: openacs-4/packages/imsld/www/admin/imsld-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/Attic/imsld-delete-2.tcl,v
diff -u -N
--- openacs-4/packages/imsld/www/admin/imsld-delete-2.tcl	25 Nov 2005 14:45:23 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,31 +0,0 @@
-# /packages/imsld/www/admin/imsld-delete-2.tcl
-
-ad_page_contract {
-    Deletes imsld
-    
-    @author jopez@galileo.edu
-    @creation-date Nov 2005
-    @cvs-id $Id: imsld-delete-2.tcl,v 1.1 2005/11/25 14:45:23 josee Exp $
-} {
-    imsld_id:integer,notnull
-    return_url
-    operation
-} 
-
-if { [string eq $operation "Yes, I'm sure"] } {
-    db_transaction {
-
-        db_dml delete_imsld {
-            update cr_items 
-            set live_revision = NULL
-            where item_id = (select item_id from cr_items where live_revision = :imsld_id)
-        }
-    } on_error {
-        ad_return_error "Error deletin IMS LD" "There was an error deleting the IMS LD $imsld_id. This is the error: <pre>$errmsg</pre>"
-        ad_script_abort
-    }
-} 
-
-db_release_unused_handles
-
-ad_returnredirect $return_url