Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/calendar/www/index.tcl	21 Jul 2003 19:21:36 -0000	1.12
+++ openacs-4/packages/calendar/www/index.tcl	25 Sep 2003 09:06:16 -0000	1.13
@@ -18,9 +18,8 @@
     ad_script_abort
 }
 
-if {![db_string private_calendar_count_qry {}]} {
-    # Create a personal calendar for the user
+if { ![calendar_have_private_p $user_id] } {
     calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
-}
+} 
 
 ad_returnredirect "view"