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.5 -r1.6
--- openacs-4/packages/lars-blogger/www/entry-edit.tcl	13 Oct 2003 07:41:13 -0000	1.5
+++ openacs-4/packages/lars-blogger/www/entry-edit.tcl	16 Oct 2003 23:10:45 -0000	1.6
@@ -6,10 +6,10 @@
 }
 
 # Must be logged in
-ad_maybe_redirect_for_registration
+auth::require_login
 
-# Must have write privilege
-permission::require_permission -object_id [ad_conn package_id] -privilege write
+# Must have create on the package
+permission::require_permission -object_id [ad_conn package_id] -privilege create
 
 # If we're in DisplayUserP mode, the user must have a screen name setup
 if { [parameter::get -parameter "DisplayUsersP" -default 0] } {
@@ -28,7 +28,7 @@
 
 
 set package_id [ad_conn package_id]
-set today [db_string today { *SQL* }]
+set today [clock format [clock seconds] -format "%Y-%m-%d"]
 
 form create entry -cancel_url [ad_decode $return_url "" "." $return_url]
 
@@ -73,9 +73,9 @@
     } else {
         set insert_or_update update
         
-        lars_blogger::entry::require_write_permission -entry_id $entry_id
+        permission::require_write_permission -object_id $entry_id
 
-        db_1row entry { *SQL* }
+        db_1row entry {}
         
         element set_value entry title $title
         element set_value entry title_url $title_url
@@ -121,7 +121,7 @@
                 -entry_date $entry_date \
                 -draft_p "$draft_p"
     } else {
-        lars_blogger::entry::require_write_permission -entry_id $entry_id
+        permission::require_write_permission -object_id $entry_id
 
         set set_clauses { 
             "title = :title"