Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -N -r1.295 -r1.296
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	8 Oct 2008 10:54:56 -0000	1.295
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	8 Oct 2008 14:38:46 -0000	1.296
@@ -1934,6 +1934,14 @@
     next
   }
 
+  FormPage instproc condition=in_state {query_context value} {
+    # possible values can be or-ed together (e.g. initial|final)
+    foreach v [split $value |] {
+      if {[my state] eq $} {return 1}
+    }
+    return 0
+  }
+
   FormPage proc get_children {
        -base_item_id 
        -package_id