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 -N -r1.5 -r1.6
--- openacs-4/packages/xowiki/www/admin/list.tcl	17 Aug 2006 11:21:20 -0000	1.5
+++ openacs-4/packages/xowiki/www/admin/list.tcl	17 Nov 2006 21:26:24 -0000	1.6
@@ -48,6 +48,7 @@
 }
 
 set ::individual_permissions [expr {[$package_id set policy] eq "::xowiki::policy3"}]
+set ::with_publish_status 1
 
 TableWidget t1 -volatile \
     -actions $actions \
@@ -58,6 +59,11 @@
             -height 16 -border 0 -title "Manage Individual Permssions for this Item" \
             -alt permsissions -label "" -html {style "padding: 2px;"}
       }
+      if {$::with_publish_status} {
+	ImageField publish_status -src "" -width 8 \
+            -height 8 -border 0 -title "Toggle Publish Status" \
+            -alt "publish status" -label [_ xowiki.publish_status] -html {style "padding: 2px;"}
+      }
       AnchorField name -label [_ xowiki.name] -orderby name
       Field object_type -label [_ xowiki.page_type] -orderby object_type 
       Field size -label "Size" -orderby size -html {align right}
@@ -77,7 +83,7 @@
     [$object_type instance_select_query \
          -folder_id [::$package_id folder_id] \
          -with_subtypes $with_subtypes \
-         -select_attributes [list content_length creation_user \
+         -select_attributes [list revision_id content_length creation_user \
                   "to_char(last_modified,'YYYY-MM-DD HH24:MI:SS') as last_modified"] \
          -order_clause $order_clause \
         ] {
@@ -97,6 +103,20 @@
             [lindex [t1 set __children] end] set permissions.href \
                 [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 image active.png
+	      set state "production"
+	    } else {
+	      set image inactive.png
+	      set state "ready"
+	    }
+            [lindex [t1 set __children] end] set publish_status.src /resources/xowiki/$image
+	    [lindex [t1 set __children] end] set publish_status.href \
+		[export_vars -base [$package_id package_url]admin/set-publish-state \
+		     {state revision_id return_url}]
+          }
         }
 
 set t1 [t1 asHTML]