Index: openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl	17 Aug 2006 01:44:26 -0000	1.3
+++ openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl	12 Mar 2007 08:03:39 -0000	1.4
@@ -3,7 +3,7 @@
 set including_item_id [$__including_page set item_id]
 
 if {![exists_and_not_null base_url]} {
-  set base_url [ad_conn url]
+  set base_url [expr {[info exists page] ? "[[::xo::cc package_id] package_url]$page" : [::xo::cc url]}]
 }
 
 set date [ns_queryget date]
@@ -64,6 +64,7 @@
         and ci.item_id = p.item_id and  ci.live_revision = p.page_id \
         and ci.content_type not in ('::xowiki::PageTemplate') \
         and ci.item_id != $including_item_id \
+        and ci.publish_status <> 'production' \
         and date_trunc('month', p.publish_date) = '$year-$month-01' \
         group by d" {
           set entries([lindex $d 0]) $count