Index: openacs-4/packages/datamanager/www/one-object-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/Attic/one-object-delete.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/datamanager/www/one-object-delete.tcl	20 Jul 2005 13:49:46 -0000	1.1.2.1
+++ openacs-4/packages/datamanager/www/one-object-delete.tcl	10 Oct 2005 12:59:34 -0000	1.1.2.2
@@ -4,8 +4,23 @@
     @creation_date 2005-07-05
     
 } -query {
+    object_id:integer,notnull    
 } -properties {
 }
 
 
 set context [list [_ datamanager.Object_Delete]]
+set title "Delete confirmation"
+
+#only administrator must be allowed to enter this page
+dotlrn::require_admin 
+
+set object_type [datamanager::get_object_type -object_id $object_id]
+set object_data [datamanager::get_object_data -object_type $object_type -object_id $object_id]
+
+set object_name [lindex $object_data 0]
+set object_url [lindex $object_data 1]
+set object_type [lindex $object_data 2]
+
+set action "delete_NOT_IMPLEMENTED_PROPERLY"
+