Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	12 Jan 2002 02:43:49 -0000	1.5
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	23 Jan 2002 09:20:45 -0000	1.6
@@ -133,8 +133,12 @@
     set package_id [ad_conn package_id]
     set creation_ip [ad_conn "peeraddr"]
     set creation_user [ad_conn "user_id"]
+    
+    # BMA:FIXME: this needs to be fixed a LOT more, but for now we patch the obvious
+    if {$creation_user == 0}{
+        set creation_user $owner_id
+    }
 
-
     set calendar_id [db_exec_plsql create_new_calendar {
 	begin
 	:1 := calendar.new(