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 -r1.4 -r1.5
--- openacs-4/packages/calendar/www/calendar-item-types.tcl	15 May 2007 20:14:21 -0000	1.4
+++ openacs-4/packages/calendar/www/calendar-item-types.tcl	10 Oct 2009 22:38:09 -0000	1.5
@@ -15,45 +15,44 @@
 
 # List the item types and allow addition of a new one
 set item_types [calendar::get_item_types -calendar_id $calendar_id]
-set context [list "Item Types"]
+set doc(title) [_ calendar.Manage_Item_Types]
+set context [list $doc(title)]
 
 ad_form -name add-new-item-type -action item-type-new -has_submit 1 -form {
     {calendar_id:text(hidden)
-	{value $calendar_id}
+        {value $calendar_id}
     }
     {type:text,nospell 
-	{label "[_ calendar.New_Type]"}
-	{html {size 20}}
+        {label "[_ calendar.New_Type]"}
+        {html {size 20}}
     }
     {btn_ok:text(submit)
-	{label "[_ calendar.add]"}
+        {label "[_ calendar.add]"}
     }
 }
 
 
-    template::list::create \
-        -name item_types \
-        -multirow item_types \
+template::list::create \
+    -name item_types \
+    -multirow item_types \
     -no_data "" \
     -elements {
-	col1 {
-	    label "[_ calendar.Calendar_Item_Types]:"
-	}
+        col1 {
+            label "[_ calendar.Calendar_Item_Types]"
+        }
         col2 {
-            label ""
-	    display_template {
-		<a href="@item_types.col2_url@">@item_types.col2@</a>
-	    }
+            label "[_ acs-kernel.common_Actions]"
+            link_url_col col2_url
         }
     }
- 
-    multirow create item_types col1 col2 col2_url
 
+multirow create item_types col1 col2 col2_url
+
 foreach item_type $item_types {
     set item_type_id [lindex $item_type 1]
     set type [lindex $item_type 0]
     if {[empty_string_p $item_type_id]} {
-	continue
+        continue
     }
-    multirow append item_types "$type" "[_ acs-kernel.common_delete]" "item-type-delete?calendar_id=$calendar_id&item_type_id=$item_type_id"
-}
\ No newline at end of file
+    multirow append item_types "$type" "[_ acs-kernel.common_Delete]" [export_vars -base "item-type-delete" {calendar_id item_type_id}]
+}