Index: openacs-4/packages/calendar/www/cal-item-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/calendar/www/cal-item-view.tcl	26 Apr 2002 19:51:07 -0000	1.3
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	29 Apr 2002 15:21:59 -0000	1.4
@@ -27,7 +27,7 @@
 set admin_p [ad_permission_p $cal_item_id calendar_admin]
 
 # 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,
@@ -49,6 +49,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