Index: openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl	28 Apr 2002 21:03:43 -0000	1.1
+++ openacs-4/packages/calendar/www/cal-item-delete-confirm.tcl	29 Apr 2002 15:21:59 -0000	1.2
@@ -16,7 +16,7 @@
 }
 
 # Select information about the calendar item
-db_1row get_item_data { 
+if {![db_0or1row get_item_data { 
     select   to_char(start_date,'HH:MIpm')as start_time,
     start_date as raw_start_date,
     to_char(start_date, 'MM/DD/YYYY') as start_date,
@@ -38,6 +38,9 @@
     and      e.event_id = :cal_item_id
     and      cal_items.cal_item_id= :cal_item_id
     and      cal_item_types.item_type_id(+)= cal_items.item_type_id
+}]} {
+    ad_returnredirect "./"
+    return
 }
 
 set item_data(start_time) $start_time