Index: openacs-4/packages/lars-blogger/www/calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/calendar.tcl,v
diff -u -r1.5 -r1.5.6.1
--- openacs-4/packages/lars-blogger/www/calendar.tcl	29 Sep 2003 08:05:42 -0000	1.5
+++ openacs-4/packages/lars-blogger/www/calendar.tcl	17 Mar 2004 16:50:07 -0000	1.5.6.1
@@ -1,10 +1,9 @@
-#
-# Expects:
-# date:onevalue,optional
-#
-
-if { ![info exist date] } {
-    set date [dt_sysdate]
+ad_page_element_contract {
+    Display the mini-calendar for a blog
+} {
+    {package_id:optional {[ad_conn package_id]}}
+    {date:optional {[dt_sysdate]}}
+    {screen_name {}}
 }
 
 dt_get_info $date
@@ -14,11 +13,9 @@
 
 set calendar_details [ns_set create calendar_details]
 
-set package_url [lars_blog_public_package_url]
+set package_url [lars_blog_public_package_url -package_id $package_id]
 set month_number [clock format [clock scan $date] -format %m]
 
-set package_id [ad_conn package_id]
-
 if {[empty_string_p $screen_name]} {
     db_foreach all_entry_dates { * SQL * } {
 	ns_set put $calendar_details $entry_date_julian "1"