Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/calendar/www/index.tcl	25 Sep 2003 09:06:16 -0000	1.13
+++ openacs-4/packages/calendar/www/index.tcl	18 Nov 2003 12:46:21 -0000	1.13.2.1
@@ -10,14 +10,8 @@
 }
 
 set package_id [ad_conn package_id]
-set user_id [ad_conn user_id]
+set user_id [auth::require_login]
 
-if {!$user_id} {
-    # user isn't logged in 
-    ad_redirect_for_registration
-    ad_script_abort
-}
-
 if { ![calendar_have_private_p $user_id] } {
     calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
 }