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.3 -r1.4
--- openacs-4/packages/lars-blogger/www/blog-months.tcl	14 Sep 2002 18:37:58 -0000	1.3
+++ openacs-4/packages/lars-blogger/www/blog-months.tcl	28 Aug 2003 09:41:55 -0000	1.4
@@ -1,7 +1,13 @@
 set package_id [ad_conn package_id]
 
-db_multirow -extend { url } months months { *SQL* } {
-    set url "[ad_conn package_url]archive/$month_url_stub"
+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"
+    }
+} else {
+    db_multirow -extend { url } months one_blog_months { *SQL* } {
+	set url "[ad_conn package_url]user/$screen_name/archive/$month_url_stub"
+    }
 }
 
-ad_return_template
\ No newline at end of file
+ad_return_template