Index: openacs-4/packages/lars-blogger/www/blog.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/blog.tcl,v
diff -u -r1.8.2.5 -r1.8.2.6
--- openacs-4/packages/lars-blogger/www/blog.tcl	13 Jun 2003 09:15:01 -0000	1.8.2.5
+++ openacs-4/packages/lars-blogger/www/blog.tcl	1 Jul 2003 13:28:26 -0000	1.8.2.6
@@ -4,7 +4,9 @@
 #  type:optional (current, archive)
 #  archive_interval:optional
 #  archive_date:optional
+#  screen_name:optional
 
+
 # If the caller specified a URL, then we gather the package_id from that URL
 if { [info exists url] } {
     array set blog_site_node [site_node $url]
@@ -16,6 +18,12 @@
     set package_id [ad_conn package_id]
 }
 
+set write_p [permission::permission_p -object_id $package_id -privilege write]
+
+if { ![info exists screen_name] } {
+    set screen_name ""
+}
+
 if { ![info exists type] } {
     set type "current"
 }
@@ -43,7 +51,7 @@
 
 set count 0
 
-if [empty_string_p $screen_name] {
+if { ![exists_and_not_null screen_name] } {
     
     db_multirow blog all_blogs { *SQL* } 
     set archive_url "${package_url}archive/"