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.13 -r1.14
--- openacs-4/packages/lars-blogger/www/blog.tcl	29 Sep 2003 11:03:31 -0000	1.13
+++ openacs-4/packages/lars-blogger/www/blog.tcl	16 Oct 2003 23:10:45 -0000	1.14
@@ -18,7 +18,7 @@
     set package_id [ad_conn package_id]
 }
 
-set write_p [permission::permission_p -object_id $package_id -privilege write]
+set create_p [permission::permission_p -object_id $package_id -privilege read]
 
 if { ![info exists category_id] } {
     set blog_category_id {}
@@ -115,21 +115,21 @@
 
 set arr_category_name(0) None
 set arr_category_short_name(0) none
-db_foreach categories { *SQL* } {
+db_foreach categories {} {
     set arr_category_name($category_id) $name
     set arr_category_short_name($category_id) $short_name
 }
 
 
 if { [empty_string_p $blog_user_id] } {
-    db_multirow -extend {category_name category_short_name} blog all_blogs { *SQL* } {
+    db_multirow -extend {category_name category_short_name} blog all_blogs {} {
         if { [string length $blog_category_id] && $category_id != $blog_category_id } {continue}
         set category_name "$arr_category_name($category_id)"
         set category_short_name $arr_category_short_name($category_id)
     }
     set archive_url "${package_url}archive/"
 } else {
-    db_multirow -extend {category_name category_short_name} blog blog { *SQL* } {
+    db_multirow -extend {category_name category_short_name} blog blog {} {
         if { [string length $blog_category_id] && $category_id != $blog_category_id } {continue}
         set category_name "$arr_category_name($category_id)"
         set category_short_name $arr_category_short_name($category_id)