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
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-delete-2.tcl	25 Nov 2005 14:45:23 -0000	1.1
@@ -0,0 +1,31 @@
+# /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
Index: openacs-4/packages/imsld/www/admin/imsld-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/Attic/imsld-delete.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-delete.adp	25 Nov 2005 14:45:23 -0000	1.1
@@ -0,0 +1,11 @@
+<master>
+<property name="context">@context;noquote@</property>
+<property name="title">Delete IMS LD</property>
+
+Are you sure you want to delete the IMS LD <strong>@imsld_title@</strong>?
+
+<p>
+
+<center>
+<include src="../../lib/confirm-delete-form" action="imsld-delete-2" export_vars="@export_vars;noquote@" no_button="No, I want to cancel now" yes_button="Yes, I'm sure">
+</center>
Index: openacs-4/packages/imsld/www/admin/imsld-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/admin/imsld-delete.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/imsld/www/admin/imsld-delete.tcl	25 Nov 2005 14:45:23 -0000	1.1
@@ -0,0 +1,30 @@
+# /packages/imsld/www/admin/imsld-delete.tcl
+
+ad_page_contract {
+
+	Deletes a imsld after confirmation
+
+    @author jopez@inv.it.uc3m.es
+    @creation-date Nov 2005
+    @cvs-id $Id: imsld-delete.tcl,v 1.1 2005/11/25 14:45:23 josee Exp $
+
+} {
+	imsld_id:integer,notnull
+	{return_url "index"}
+}
+
+set user_id [ad_conn user_id]
+
+set page_title "Delete IMS LD"
+
+set context [list [list "index" "Admin IMS LD"] "Delete IMS LD"]
+
+db_1row get_grade_info {
+    select title as imsld_title
+    from imsld_imsldsi
+	where imsld_id = :imsld_id
+}
+
+set export_vars [export_form_vars imsld_id return_url]
+
+ad_return_template