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.4.8.1
--- 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	7 Oct 2005 08:20:21 -0000	1.4.8.1
@@ -1,12 +1,15 @@
-set package_id [ad_conn package_id]
+if { ![info exists package_id] } {
+    set package_id [ad_conn package_id]
+}
+set package_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 
 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 "${package_url}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 "${package_url}user/$screen_name/archive/$month_url_stub"
     }
 }