Index: openacs-4/packages/logger/tcl/entry-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/entry-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/logger/tcl/entry-procs.tcl	25 Apr 2003 09:47:11 -0000	1.1
+++ openacs-4/packages/logger/tcl/entry-procs.tcl	30 Apr 2003 12:20:48 -0000	1.2
@@ -42,6 +42,9 @@
     
     set entry_id [db_exec_plsql insert_entry {}]
 
+    # The creator can admin his own entry
+    permission::grant -party_id [ad_conn user_id] -object_id $entry_id -privilege admin
+
     return $entry_id
 }