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.21 -r1.22
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	21 Jan 2007 18:00:00 -0000	1.21
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	25 Jan 2007 10:02:26 -0000	1.22
@@ -56,7 +56,7 @@
     }
     set cnames "[join $or_names { or }]"
     set extra_where_clause "and ([join $ors { or }])"
-    my log "--cnames $category_spec -> $cnames"
+    #my log "--cnames $category_spec -> $cnames"
     return [list $cnames $extra_where_clause]
   }
   
@@ -193,7 +193,8 @@
 		and ci.content_type not in ('::xowiki::PageTemplate') \
 		and category_id in ([join $categories ,]) \
 		and r.revision_id = ci.live_revision \
-		and p.page_id = r.revision_id"
+		and p.page_id = r.revision_id \
+                and ci.publish_status <> 'production'"
 
       if {$except_category_ids ne ""} {
         append sql \