Index: openacs-4/packages/calendar/tcl/calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/calendar/tcl/calendar-2-procs.tcl	11 Jul 2002 00:39:09 -0000	1.6
+++ openacs-4/packages/calendar/tcl/calendar-2-procs.tcl	31 Jul 2002 21:12:07 -0000	1.7
@@ -190,4 +190,13 @@
         ]
     }
 
+    ad_proc -public rename {
+        {-calendar_id:required}
+        {-name:required}
+    } {
+        rename a calendar
+    } {
+        db_dml rename_calendar {}
+    }
+
 }
Index: openacs-4/packages/calendar/tcl/calendar-2-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-2-procs.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/calendar/tcl/calendar-2-procs.xql	3 Jun 2002 07:20:02 -0000	1.3
+++ openacs-4/packages/calendar/tcl/calendar-2-procs.xql	31 Jul 2002 21:12:07 -0000	1.4
@@ -42,4 +42,12 @@
 </querytext>
 </fullquery>
 
+    <fullquery name="calendar::rename.rename_calendar">
+        <querytext>
+            update calendars
+            set calendar_name = :name
+            where calendar_id = :calendar_id
+        </querytext>
+    </fullquery>
+
 </queryset>