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.73 -r1.74
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	22 Jul 2007 12:01:27 -0000	1.73
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	23 Jul 2007 11:05:09 -0000	1.74
@@ -2146,7 +2146,10 @@
                  -from_clause ", xowiki_page_instance p" \
                  -with_subtypes 0 \
                  -orderby "$att $order" \
-                 -where_clause " p.page_template = $form_item_id and p.page_instance_id = cr.revision_id " \
+                 -where_clause " p.page_template = $form_item_id \
+			and p.page_instance_id = cr.revision_id \
+                        and ci.publish_status <> 'production' \
+			" \
                  -folder_id [$package_id folder_id]]
 
     db_foreach [my qn get_pages] $sql {