Index: openacs-4/packages/calendar/sql/postgresql/calendar-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/sql/postgresql/calendar-create.sql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/calendar/sql/postgresql/calendar-create.sql	16 Apr 2002 05:16:42 -0000	1.8
+++ openacs-4/packages/calendar/sql/postgresql/calendar-create.sql	18 Jun 2002 20:09:23 -0000	1.9
@@ -274,6 +274,8 @@
 -- create package calendar
 -------------------------------------------------------------
 
+select define_function_args ('calendar__new', 'calendar_id,calendar_name,object_type;calendar,owner_id,private_p,package_id,context_id,creation_date,creation_user,creation_ip');
+
 CREATE FUNCTION calendar__new (
        integer,            -- calendar.calendar_id%TYPE
        varchar(200),            -- calendar.calendar_name%TYPE
@@ -325,6 +327,8 @@
     end;'
 LANGUAGE 'plpgsql';   
 
+select define_function_args('calendar__delete','calendar_id');
+
 CREATE FUNCTION calendar__delete(
        integer            -- calendar.calendar_id%TYPE
 )
Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/calendar/www/index.tcl	3 Jun 2002 04:08:17 -0000	1.7
+++ openacs-4/packages/calendar/www/index.tcl	18 Jun 2002 20:09:23 -0000	1.8
@@ -11,4 +11,16 @@
 } {
 }
 
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+
+# If there are no calendars at all, we should create a personal one
+set calendar_list [calendar::adjust_calendar_list -calendar_list {} -package_id $package_id -user_id $user_id]
+
+# If no calendars, we need at least a personal one!
+if {[llength $calendar_list] == 0} {
+    # Create a personal calendar for the user
+    calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
+}
+
 ad_returnredirect "view"