Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	25 Jul 2007 23:59:24 -0000	1.78
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	30 Jul 2007 10:58:06 -0000	1.79
@@ -2147,6 +2147,7 @@
           {-form_item_id:integer}
           {-form}
           {-orderby "_last_modified,desc"}
+          {-all:boolean false}
           {-field_names}
         }}
       }
@@ -2253,13 +2254,14 @@
     # build SQL query and iterate over the results
     # maybe this could be slightly faster by using instantiate_objects
     # 
+    set publish_status_clause [expr {$all ? "" : " and ci.publish_status <> 'production' "}]
     set items [::xowiki::FormPage instantiate_all \
                    -select_attributes $sql_atts \
                    -from_clause ", xowiki_form_pagex p" \
                    -with_subtypes false \
                    -where_clause " p.page_template = $form_item_id \
 			and p.xowiki_form_page_id = cr.revision_id \
-                        and ci.publish_status <> 'production' " \
+                        $publish_status_clause" \
                    -folder_id [$package_id folder_id]]
     $items destroy_on_cleanup