Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.57.2.27 -r1.57.2.28
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	31 Dec 2021 11:26:31 -0000	1.57.2.27
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	5 Jan 2022 19:17:50 -0000	1.57.2.28
@@ -850,6 +850,25 @@
     return $renames
   }
 
+  ::xowiki::utility ad_proc publish_status_next_state {publish_status} {
+
+    Determine next publish status and return dict containing
+    CSSclassand next state.
+    
+  } {
+    if {$publish_status eq "ready"} {
+      set CSSclass green
+      set state "production"
+    } elseif {$publish_status eq "expired"} {
+      set CSSclass black
+      set state "production"
+    } else {
+      set CSSclass red
+      set state "ready"
+    }
+    return [list CSSclass $CSSclass state $state]
+  }
+
   ::xowiki::utility ad_proc formCSSclass {form_name} {
     Obtain CSS class name for a form from its name
   } {