Index: openacs-4/packages/lars-blogger/www/entry-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lars-blogger/www/entry-edit.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	13 Jun 2003 09:15:01 -0000	1.1.2.1
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	1 Jul 2003 13:28:26 -0000	1.1.2.2
@@ -5,11 +5,9 @@
     {content:allhtml ""}
 }
 
-set package_id [ad_conn package_id]
+permission::require_permission -object_id [ad_conn package_id] -privilege write
 
-ad_maybe_redirect_for_registration
-ad_require_permission $package_id write
-
+set package_id [ad_conn package_id]
 set today [db_string today { *SQL* }]
 set today_html [ad_quotehtml $today]
 
@@ -45,6 +43,8 @@
     } else {
         set insert_or_update update
         
+        lars_blogger::entry::require_write_permission -entry_id $entry_id
+
         db_1row entry { *SQL* }
         
         element set_value entry title $title
@@ -88,6 +88,8 @@
                 -entry_date $entry_date \
                 -draft_p "$draft_p"
     } else {
+        lars_blogger::entry::require_write_permission -entry_id $entry_id
+
         set set_clauses { 
             "title = :title" 
             "title_url = :title_url"