Index: openacs-4/packages/calendar/sql/oracle/calendar-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/sql/oracle/calendar-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/calendar/sql/oracle/calendar-drop.sql	17 Sep 2001 13:40:18 -0000	1.1
+++ openacs-4/packages/calendar/sql/oracle/calendar-drop.sql	17 Aug 2002 18:21:30 -0000	1.2
@@ -93,7 +93,7 @@
 	        'calendar_read', 
          	'calendar_write', 
          	'calendar_delete',
-         	'calendar_admin'
+         	'calendar_admin',
 	       	'calendar_on',
 	       	'calendar_show'
 	);
Index: openacs-4/packages/calendar/www/calendar-choose.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/calendar-choose.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/calendar-choose.adp	17 Aug 2002 18:21:30 -0000	1.1
@@ -0,0 +1,22 @@
+<master src="master">
+<property name="title">Calendar: Choose Calendar</property>
+<property name="context_bar">Choose</property>
+
+<table width="95%">
+
+  <tr>
+    <td valign=top width=150>
+      <p>
+      @cal_nav@
+      <p>
+	<include src="cal-options">	
+    </td>	
+
+    <td valign=top> 
+    
+    <formtemplate id="cals"></formtemplate>
+
+    </td>
+  </tr>
+</table>
+</if>
Index: openacs-4/packages/calendar/www/calendar-choose.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/calendar-choose.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/calendar-choose.tcl	17 Aug 2002 18:21:30 -0000	1.1
@@ -0,0 +1,54 @@
+
+ad_page_contract {
+    
+    Choose a Calendar
+    
+    @author Brad Duell (bduell@ncacasi.org)
+    @creation-date 2002-08-06
+    @cvs-id $Id: calendar-choose.tcl,v 1.1 2002/08/17 18:21:30 vinodk Exp $
+} {
+    {return_url ""}
+    {date ""}
+    {julian_date ""}
+    {start_time ""}
+    {end_time ""}
+}
+
+set package_id [ad_conn package_id]
+
+set date [calendar::adjust_date -date $date -julian_date $julian_date]
+
+set calendar_list [calendar::calendar_list]
+
+set calendar_id [lindex $calendar_list 0]
+
+set cals_calendar_list [list]
+for { set i 0 } { $i < [llength $calendar_list] } { incr i } {
+    db_1row select_name "select calendar_name from calendars where calendar_id=[lindex $calendar_list $i]"
+    lappend cals_calendar_list [list $calendar_name [lindex $calendar_list $i]]
+}
+
+# Create the form
+form create cals
+
+element create cals return_url \
+    -label "return_url" \
+    -datatype text -widget hidden -value $return_url
+
+element create cals calendar_id \
+    -label "Calendar" -datatype text -widget select \
+    -options $cals_calendar_list
+
+# Process the form
+if {[form is_valid cals]} {
+    template::form get_values cals return_url calendar_id
+
+    ad_returnredirect "$return_url&calendar_id=$calendar_id"
+    
+    # Stop here
+    ad_script_abort
+}
+
+set cal_nav [dt_widget_calendar_navigation "view" day $date "calendar_id=$calendar_id"]
+
+ad_return_template