Index: openacs-4/packages/lars-blogger/www/blog-months.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog-months.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lars-blogger/www/blog-months.tcl	28 Aug 2003 09:41:55 -0000	1.4
+++ openacs-4/packages/lars-blogger/www/blog-months.tcl	3 Jul 2006 13:35:58 -0000	1.5
@@ -1,12 +1,14 @@
-set package_id [ad_conn package_id]
+if {![exists_and_not_null package_id]} {
+    set package_id [ad_conn package_id]
+}
 
 if [empty_string_p $screen_name] {
     db_multirow -extend { url } months all_blog_months { *SQL* } {
-	set url "[ad_conn package_url]archive/$month_url_stub"
+	set url "[apm_package_url_from_id $package_id]archive/$month_url_stub"
     }
 } else {
     db_multirow -extend { url } months one_blog_months { *SQL* } {
-	set url "[ad_conn package_url]user/$screen_name/archive/$month_url_stub"
+	set url "[apm_package_url_from_id $package_id]user/$screen_name/archive/$month_url_stub"
     }
 }
 
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.6
--- 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	3 Jul 2006 13:35:58 -0000	1.6
@@ -17,8 +17,13 @@
 set package_url [lars_blog_public_package_url]
 set month_number [clock format [clock scan $date] -format %m]
 
-set package_id [ad_conn package_id]
+if {![exists_and_not_null package_id]} {
+    set package_id [ad_conn package_id]
+} else {
+    set package_url [apm_package_url_from_id $package_id]
+}
 
+
 if {[empty_string_p $screen_name]} {
     db_foreach all_entry_dates { * SQL * } {
 	ns_set put $calendar_details $entry_date_julian "1"