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.12 -r1.13
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	17 May 2003 10:20:50 -0000	1.12
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	21 Jul 2003 19:21:36 -0000	1.13
@@ -313,7 +313,7 @@
 }
 
 #------------------------------------------------
-# find out the name of a calendar < roll into pl/sql >
+# find out the name of a calendar 
 # NOTE: calendar.name()
 
 ad_proc calendar_get_name { calendar_id } {
@@ -339,18 +339,6 @@
     and 'f' if it is not 
 
 } {
-  
-#    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" } {