Index: openacs-4/packages/calendar/www/calendar-item-types.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/calendar-item-types.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/calendar-item-types.adp	18 Mar 2002 18:15:22 -0000	1.1
@@ -0,0 +1,19 @@
+<master src="../master">
+<property name="title">Calendar Item Types</property>
+<property name="context_bar">@context_bar@</property>
+
+<ul>
+<%
+foreach item_type $item_types {
+        set item_type_id [lindex $item_type 0]
+        set type [lindex $item_type 1]
+
+        template::adp_puts "<li> \[ <a href=\"item-type-delete?calendar_id=$calendar_id&item_type_id=$item_type_id\">delete</a> \]  &nbsp; $type\n"
+}
+%>
+<form method=POST action=item-type-new>
+<INPUT TYPE=hidden name=calendar_id value=@calendar_id@>
+New Type: <INPUT TYPE=text name=type size=40>
+<INPUT TYPE=submit value=add>
+</FORM>
+</ul>
Index: openacs-4/packages/calendar/www/calendar-item-types.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/calendar-item-types.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/calendar-item-types.tcl	18 Mar 2002 18:15:22 -0000	1.1
@@ -0,0 +1,23 @@
+
+ad_page_contract {
+
+    Manage the calendar item types
+    
+    @author Ben Adida (ben@openforce)
+    
+    @creation-date Mar 16, 2002
+    @cvs-id $Id: calendar-item-types.tcl,v 1.1 2002/03/18 18:15:22 ben Exp $
+} {
+    calendar_id:notnull
+}
+
+# Permission check
+ad_require_permission $calendar_id calendar_admin
+
+# List the item types and allow addition of a new one
+set item_types [calendar::get_item_types -calendar_id $calendar_id]
+set context_bar {{Item Types}}
+
+ad_return_template
+
+
Index: openacs-4/packages/calendar/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/index.adp,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/calendar/www/index.adp	14 Mar 2002 04:58:29 -0000	1.6
+++ openacs-4/packages/calendar/www/index.adp	18 Mar 2002 18:15:22 -0000	1.7
@@ -9,7 +9,7 @@
 
 <master src="master">
 <property name="title">Calendars for @name@: @action@</property>
-<property name="context_bar"></property>
+<property name="context_bar">@action@</property>
 
 <table>
 
Index: openacs-4/packages/calendar/www/item-type-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/item-type-delete.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/item-type-delete.tcl	18 Mar 2002 18:15:22 -0000	1.1
@@ -0,0 +1,23 @@
+
+ad_page_contract {
+
+    Delete an item type
+    
+    @author Ben Adida (ben@openforce)
+    
+    @creation-date Mar 16, 2002
+    @cvs-id $Id: item-type-delete.tcl,v 1.1 2002/03/18 18:15:22 ben Exp $
+} {
+    calendar_id:notnull
+    item_type_id:notnull
+}
+
+# Permission check
+ad_require_permission $calendar_id calendar_admin
+
+# Delete the type
+calendar::item_type_delete -calendar_id $calendar_id -item_type_id $item_type_id
+
+ad_returnredirect "calendar-item-types?calendar_id=$calendar_id"
+
+
Index: openacs-4/packages/calendar/www/item-type-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/item-type-new.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/www/item-type-new.tcl	18 Mar 2002 18:15:22 -0000	1.1
@@ -0,0 +1,23 @@
+
+ad_page_contract {
+
+    Add an item type
+    
+    @author Ben Adida (ben@openforce)
+    
+    @creation-date Mar 16, 2002
+    @cvs-id $Id: item-type-new.tcl,v 1.1 2002/03/18 18:15:22 ben Exp $
+} {
+    calendar_id:notnull
+    type:notnull
+}
+
+# Permission check
+ad_require_permission $calendar_id calendar_admin
+
+# Add the type
+calendar::item_type_new -calendar_id $calendar_id -type $type
+
+ad_returnredirect "calendar-item-types?calendar_id=$calendar_id"
+
+
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/calendar/www/admin/calendar-item-types.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/calendar/www/admin/calendar-item-types.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/calendar/www/admin/item-type-delete.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/calendar/www/admin/item-type-new.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?