Index: openacs-4/packages/news/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/index.tcl,v
diff -u -r1.11.2.3 -r1.11.2.4
--- openacs-4/packages/news/www/admin/index.tcl	7 Dec 2020 12:41:20 -0000	1.11.2.3
+++ openacs-4/packages/news/www/admin/index.tcl	7 Aug 2023 15:01:27 -0000	1.11.2.4
@@ -15,7 +15,6 @@
     context:onevalue
     view_link:onevalue
     hidden_vars:onevalue
-    select_actions:onevalue
     item_list:multirow
 }
 
@@ -36,32 +35,124 @@
 set view_link [ad_dimensional $view_slider]
 set view_option [ad_dimensional_sql $view_slider]
 
+set bulk_actions [list]
+
 # define action on selected views, unapproved, archived, approved need restriction
 switch -- $view {
+    "all" {
+    }
     "unapproved" {
-        set select_actions "<option value=\"publish\">[_ news.Publish]"
+        lappend bulk_actions \
+            [_ news.Publish] \
+            [export_vars -base process {{action publish}}] \
+            ""
     }
     "archived"   {
-        set select_actions "<option value=\"publish\">[_ news.Publish]"
+        lappend bulk_actions \
+            [_ news.Publish] \
+            [export_vars -base process {{action publish}}] \
+            ""
     }
     "approved"   {
-        set select_actions "<option value=\"make permanent\">[_ news.Make_Permanent]"
+        lappend bulk_actions \
+            [_ news.Make_Permanent] \
+            [export_vars -base process {{action "make permanent"}}] \
+            ""
     }
-    default      {
-        set select_actions "
-            <option value=\"archive now\" selected>[_ news.Archive_Now]</option>
-            <option value=\"archive next week\">[_ news.lt_Archive_as_of_Next_We]</option>
-            <option value=\"archive next month\">[_ news.lt_Archive_as_of_Next_Mo]</option>
-            <option value=\"make permanent\">[_ news.Make_Permanent]"
+    default {
+        lappend bulk_actions \
+            [_ news.Archive_Now] \
+            [export_vars -base process {{action "archive now"}}] \
+            "" \
+            \
+            [_ news.lt_Archive_as_of_Next_We] \
+            [export_vars -base process {{action "archive next week"}}] \
+            "" \
+            \
+            [_ news.lt_Archive_as_of_Next_Mo] \
+            [export_vars -base process {{action "archive next month"}}] \
+            "" \
+            \
+            [_ news.Make_Permanent] \
+            [export_vars -base process {{action "make permanent"}}] \
+            ""
     }
 }
 
 set title "[_ news.Administration]"
 set context {}
 
+# Check if RSS generation is active and a subscription exists
+set rss_gen_active_p [parameter::get_global_value -package_key rss-support -parameter RssGenActiveP -default 1]
+if {$rss_gen_active_p} {
+    set rss_exists_p [rss_support::subscription_exists \
+                        -summary_context_id $package_id \
+                        -impl_name news]
+    set rss_feed_url [news_util_get_url $package_id]rss/rss.xml
+}
 
+set actions [list \
+                 "#news.Create_a_news_item#" ../item-create "" \
+                ]
+if { $rss_gen_active_p } {
+    if { $rss_exists_p} {
+        lappend actions \
+            "#rss-support.Rss_feed_active# \[ #rss-support.Remove_feed# \]" rss ""
+    } else {
+        lappend actions \
+            "#rss-support.Rss_feed_inactive# \[ #rss-support.Create_feed# \]" rss ""
+    }
+}
+
+template::list::create \
+    -name news_items \
+    -multirow news_items \
+    -key n_items \
+    -actions $actions \
+    -bulk_actions $bulk_actions \
+    -elements {
+        item_id {
+            label "ID#"
+            link_url_col item_url
+        }
+        publish_title {
+            label "[_ news.Title]"
+            display_template {
+                @news_items.publish_title@ (#news.rev# @news_items.revision_no@) <a href="@news_items.revise_url@">#news.revise#
+            }
+        }
+        item_creator {
+            label "[_ news.Author]"
+            link_url_col creator_url
+        }
+        publish_date {
+            label "[_ news.Release_Date]"
+            display_col publish_date_pretty
+        }
+        archive_date {
+            label "[_ news.Archive_Date]"
+            display_col archive_date_pretty
+        }
+        status {
+            label "[_ news.Status]"
+            display_col pretty_status
+        }
+    }
+
 # administrator sees all news items
-db_multirow -extend { publish_date_pretty archive_date_pretty pretty_status } news_items itemlist {} {
+db_multirow -extend {
+    publish_date_pretty
+    archive_date_pretty
+    pretty_status
+    n_items
+    item_url
+    revise_url
+    creator_url
+} news_items itemlist {} {
+    set n_items $item_id
+    set item_url [export_vars -base item {item_id}]
+    set revise_url [export_vars -base revision_add {item_id}]
+    set creator_url [acs_community_member_url -user_id $creation_user]
     set publish_date_pretty [lc_time_fmt $publish_date_ansi "%x"]
     set archive_date_pretty [lc_time_fmt $archive_date_ansi "%x"]
     set pretty_status [news_pretty_status \
@@ -70,15 +161,6 @@
                            -status $status]
 }
 
-# Check if RSS generation is active and a subscription exists
-set rss_gen_active_p [parameter::get_global_value -package_key rss-support -parameter RssGenActiveP -default 1]
-if {$rss_gen_active_p} {
-    set rss_exists_p [rss_support::subscription_exists \
-                        -summary_context_id $package_id \
-                        -impl_name news]
-    set rss_feed_url [news_util_get_url $package_id]rss/rss.xml
-}
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4