Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/calendar/www/index.tcl	10 Sep 2002 22:22:31 -0000	1.9
+++ openacs-4/packages/calendar/www/index.tcl	30 Nov 2002 17:28:09 -0000	1.10
@@ -14,11 +14,17 @@
 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 {!$user_id} {
+    # user isn't logged in 
+    ad_redirect_for_registration
+    ad_script_abort
+}
 
-# If no calendars, we need at least a personal one!
-if {[llength $calendar_list] == 0} {
+# Check for a personal, private calendar, create if missing
+# FIXME BUG: this should be moved to new pages to allow users
+# to create/delete/modify/admin their calendars. 
+
+if {![db_string private_calendar_count_qry {}]} {
     # Create a personal calendar for the user
     calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
 }