Index: openacs-4/packages/news/www/admin/process.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/process.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news/www/admin/process.tcl	29 Oct 2002 08:01:15 -0000	1.4
+++ openacs-4/packages/news/www/admin/process.tcl	18 Nov 2002 17:59:12 -0000	1.5
@@ -55,54 +55,20 @@
 # 'archive' or 'making permanent' only after release possible 
 if {[regexp -nocase {archive|permanent} $action ]} {             
  
-
-    db_multirow unapproved unapproved_list "
-    select    
-        item_id,
-        publish_title,
-        creation_date,
-        item_creator
-    from 
-        news_items_unapproved
-    where 
-        item_id in ([join $bind_id_list ","])"
-
+    db_multirow unapproved unapproved_list {}
     set halt_p [array size unapproved]
 
 } 
 
 # proceed if no errors
 if { ![info exist halt_p] || $halt_p==0 } {
 
-    db_multirow news_items item_list "
-    select
-        item_id,
-        content_item.get_best_revision(item_id) as revision_id,
-        package_id,
-        publish_title,
-        creation_date,
-        item_creator
-    from 
-        news_items_live_or_submitted
-    where
-        item_id in ([join  $bind_id_list ","])" 
+    db_multirow news_items item_list {} {
+        set creation_date [lc_time_fmt $creation_date "%x"]
+    }
 	
 }
 
 set hidden_vars [export_form_vars action n_items item_id]
 
 ad_return_template
-
-
-
-
-
-
-
-
-
-
-
-
-
-