Index: openacs-4/packages/calendar/www/cal-item-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item-create.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/calendar/www/cal-item-create.tcl	14 Mar 2002 04:58:29 -0000	1.10
+++ openacs-4/packages/calendar/www/cal-item-create.tcl	16 Mar 2002 21:06:44 -0000	1.11
@@ -20,6 +20,7 @@
     {calendar_id "-1"}
     {return_url ""}
     {recurrence_p 0}
+    {item_type_id ""}
 } 
 
 if { $date == "now" } {
@@ -85,7 +86,7 @@
 	# no private calendar detected. 
 	# we need to create the private calendar
 
-	set calender_id [calendar_create_private $user_id ]
+	set calendar_id [calendar_create_private $user_id ]
 
     } 
     set calendar_id [calendar_have_private_p -return_id 1 $user_id]
@@ -108,14 +109,17 @@
 }
 
 
-# create new cal_item
-set cal_item_id [cal_item_create $start_datetime \
+db_transaction {
+    # create new cal_item
+    set cal_item_id [cal_item_create $start_datetime \
 	                         $end_datetime \
                                  $name \
 				 $description \
                                  $calendar_id \
 				 $creation_ip \
-                                 $creation_user]
+                                 $creation_user \
+                                 $item_type_id]
+}
 
 if {$recurrence_p} {
     # We must ask for recurrence information