Index: openacs-4/packages/lars-blogger/www/one-entry.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/one-entry.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/lars-blogger/www/one-entry.tcl	17 May 2004 13:02:17 -0000	1.15
+++ openacs-4/packages/lars-blogger/www/one-entry.tcl	5 Apr 2005 12:08:47 -0000	1.16
@@ -13,6 +13,14 @@
 
 set sw_category_multirow "__branimir__multirow__blog/$entry_id"
 
+set unpublish_p [expr ![parameter::get -parameter ImmediatePublishP -default 0]]
+
+# We say manageown if manageown set and not admin on the package.
+set manageown_p [parameter::get -parameter OnlyManageOwnPostsP -default 0]
+if {$manageown_p} {
+    set manageown_p [expr ![permission::permission_p -object_id $package_id -privilege admin]]
+}
+
 template::multirow create $sw_category_multirow sw_category_id \
   sw_category_name sw_category_url