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"
     }
 }