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.4 -r1.5
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	15 Oct 2001 18:46:59 -0000	1.4
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	12 Jan 2002 02:43:49 -0000	1.5
@@ -315,16 +315,25 @@
 
 } {
   
-    return [db_string check_calendar_permission {
-              select   acs_permission.permission_p(
-                         :calendar_id, 
-                         acs.magic_object_id('the_public'),
-                         'calendar_read'
-                       ) 
-              from     dual
+#    return [db_string check_calendar_permission {
+#              select   acs_permission.permission_p(
+#                         :calendar_id, 
+#                         acs.magic_object_id('the_public'),
+#                         'calendar_read'
+#                       ) 
+#              from     dual
+#
+#            }]
+#
 
-            }]
+    set private_p [db_string check_calendar_p "select private_p from calendars where calendar_id = :calendar_id"]
 
+    if { $private_p == "t" } {
+        return "f"
+    } else {
+        return "t"
+    }
+
 }