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"