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 -N -r1.7 -r1.8
--- openacs-4/packages/calendar/www/calendar-item-types.tcl	7 Aug 2017 23:48:05 -0000	1.7
+++ openacs-4/packages/calendar/www/calendar-item-types.tcl	24 Apr 2018 14:28:56 -0000	1.8
@@ -1,9 +1,9 @@
 ad_page_contract {
 
     Manage the calendar item types
-    
+
     @author Ben Adida (ben@openforce.net)
-    
+
     @creation-date Mar 16, 2002
     @cvs-id $Id$
 } {
@@ -22,7 +22,7 @@
     {calendar_id:text(hidden)
         {value $calendar_id}
     }
-    {type:text,nospell 
+    {type:text,nospell
         {label "[_ calendar.New_Type]"}
         {html {size 20}}
     }
@@ -49,8 +49,7 @@
 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]
+    lassign $item_type type item_type_id
     if {$item_type_id eq ""} {
         continue
     }