Index: openacs-4/packages/calendar/www/cal-item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item.tcl	15 Sep 2001 07:14:32 -0000	1.2
+++ openacs-4/packages/calendar/www/cal-item.tcl	9 Jan 2002 23:51:27 -0000	1.3
@@ -110,28 +110,9 @@
     if { [string equal $calendar_id 0] } {
 	set edit_p 1
     }
-    
-    db_multirow calendars list_calendars {
 
-	select    object_id as calendar_id,
-    	          calendar.name(object_id) as calendar_name
-	from      acs_permissions
-	where     privilege in ( 
-	            'calendar_write',
-	            'calendar_admin'
-	          )
-	and       grantee_id = :user_id
-        and       acs_object_util.object_type_p(
-                    object_id, 
-                    'calendar'
-                  ) = 't'
-        and       calendar.private_p(
-                    object_id
-                  ) = 'f'
-	          
+    db_multirow calendars list_calendars {}
 
-    }
-
 }
 
 ad_return_template