Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	17 Sep 2001 06:49:49 -0000	1.3
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	15 Oct 2001 18:46:59 -0000	1.4
@@ -83,12 +83,7 @@
    
 } {
 
-    set sql "
-    select    calendar_id,
-    from      calendars
-    where     owner_id = :party_id
-    "
-    return [db_0or1row get_calendar_info $sql]
+    return [db_0or1row get_calendar_info ""]
     
 }
 
@@ -104,15 +99,7 @@
 
 } {
 
-
-    # query to figure out the existence of the private calendar
-    set sql "
-    select    calendar_id
-    from      calendars
-    where     owner_id = :party_id
-    and       private_p = 't'
-    "
-    set result [db_string get_calendar_info $sql -default 0]
+    set result [db_string get_calendar_info "" -default 0]
     
     if { ![string equal $result "0"] } {