Index: openacs-4/packages/xowiki/www/admin/list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/list.tcl,v
diff -u -r1.38.2.10 -r1.38.2.11
--- openacs-4/packages/xowiki/www/admin/list.tcl	5 Jan 2022 18:59:55 -0000	1.38.2.10
+++ openacs-4/packages/xowiki/www/admin/list.tcl	5 Jan 2022 19:17:50 -0000	1.38.2.11
@@ -167,16 +167,9 @@
                 [export_vars -base permissions {item_id return_url}]
           }
           if {$::with_publish_status} {
-            # TODO: this should get some architectural support
-            if {$publish_status eq "ready"} {
-              set CSSclass green
-              set state "production"
-            } else {
-              set CSSclass red
-              set state "ready"
-            }
-            $line set publish_status.CSSclass $CSSclass
-            $line set publish_status.title #xowiki.publish_status_make_$state#
+            set d [::xowiki::utility publish_status_next_state $publish_status]
+            $line set publish_status.CSSclass [dict get $d CSSclass]
+            $line set publish_status.title #xowiki.publish_status_make_[dict get $d state]#
             $line set publish_status.href [export_vars -base $page_link {{m toggle-publish-status} return_url}]
           }
           $line set page_order $page_order