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 -N -r1.6 -r1.7
--- openacs-4/packages/lars-blogger/www/calendar.tcl	3 Jul 2006 13:35:58 -0000	1.6
+++ openacs-4/packages/lars-blogger/www/calendar.tcl	8 Aug 2006 21:26:57 -0000	1.7
@@ -14,15 +14,12 @@
 
 set calendar_details [ns_set create calendar_details]
 
-set package_url [lars_blog_public_package_url]
-set month_number [clock format [clock scan $date] -format %m]
-
-if {![exists_and_not_null package_id]} {
+if { ![info exist package_id] } {
     set package_id [ad_conn package_id]
-} else {
-    set package_url [apm_package_url_from_id $package_id]
 }
 
+set package_url [lars_blog_public_package_url -package_id $package_id]
+set month_number [clock format [clock scan $date] -format %m]
 
 if {[empty_string_p $screen_name]} {
     db_foreach all_entry_dates { * SQL * } {