Index: openacs-4/contrib/packages/resource-list/www/approve-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/resource-list/www/approve-delete-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/resource-list/www/approve-delete-2.tcl	30 Nov 2003 02:15:48 -0000	1.1
+++ openacs-4/contrib/packages/resource-list/www/approve-delete-2.tcl	9 Jan 2004 01:11:09 -0000	1.2
@@ -34,21 +34,6 @@
 # root CR folder
 set root_folder [db_string get_root "select rl_resource__get_root_folder (:package_id, 'f')"]
 
-if {[llength $approve] > 0} {
-
-    foreach app [db_list get_item_id_app { }] {
-        db_dml approve_item { }
-    }
-}
-
-if {[llength $delete] > 0} {
-
-    foreach del [db_list get_item_id_del { }] {        
-        db_exec_plsql delete_item { }
-    }
-
-}
-
 set peeraddr [ad_conn peeraddr]
 
 set i 0
@@ -58,7 +43,6 @@
     set resource_item_id [db_string get_item_id { } -default "-1"]
 
     set desc [lindex $description $i]
-    set desc [ad_html_to_text $desc]
     set titl [lindex $resource_name $i]
 
     if {![string equal $resource_item_id -1]} {
@@ -68,6 +52,21 @@
     incr i
 }
 
+if {[llength $approve] > 0} {
+
+    foreach app [db_list get_item_id_app { }] {
+        db_dml approve_item { }
+    }
+}
+
+if {[llength $delete] > 0} {
+
+    foreach del [db_list get_item_id_del { }] {        
+        db_exec_plsql delete_item { }
+    }
+
+}
+
 ad_returnredirect index
 
 # ------------------------- END OF FILE ------------------------- #