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 -N -r1.23 -r1.24
--- openacs-4/packages/calendar/www/cal-item-view.tcl	6 Dec 2008 12:00:44 -0000	1.23
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	6 Mar 2009 23:28:05 -0000	1.24
@@ -16,6 +16,14 @@
 
 calendar::item::get -cal_item_id $cal_item_id -array cal_item
 
+# Honor the related link redirection facility long implemented in acs-events, but
+# ignored by calendar.
+if { $cal_item(redirect_to_rel_link_p) eq "t" &&
+     $cal_item(related_link_url) ne "" } {
+    ad_returnredirect $cal_item(related_link_url)
+    ad_script_abort
+}
+
 set write_p [permission::write_permission_p -object_id $cal_item_id -creation_user $cal_item(creation_user)]
 
 # Attachments?