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.10 -r1.11
--- openacs-4/packages/calendar/www/cal-item-view.tcl	26 May 2003 10:00:10 -0000	1.10
+++ openacs-4/packages/calendar/www/cal-item-view.tcl	21 Jul 2003 19:21:36 -0000	1.11
@@ -1,32 +1,21 @@
-# /packages/calendar/www/index.tcl
-
 ad_page_contract {
     View one event
     
     @author Ben Adida (ben@openforce.net)
     @creation-date April 09, 2002
     @cvs-id $Id$
 } {
-    cal_item_id
+    cal_item_id:integer
     {return_url ""}
-    {show_cal_nav 1}
 }
 
-# find out the user_id 
 set user_id [ad_verify_and_get_user_id]
-
 set package_id [ad_conn package_id]
 
-# Require read permission (FIXME)
-# ad_require_permission $cal_item_id read
+ad_require_permission $cal_item_id read
 
-# write permission
 set edit_p [ad_permission_p $cal_item_id cal_item_write]
-
-# delete permission
 set delete_p [ad_permission_p $cal_item_id cal_item_delete] 
-
-# admin permission
 set admin_p [ad_permission_p $cal_item_id calendar_admin]
 
 calendar::item::get -cal_item_id $cal_item_id -array cal_item
@@ -48,8 +37,7 @@
     set attachment_options {} 
 }
 
-# cal nav
-set cal_nav [dt_widget_calendar_navigation "view" day $cal_item(start_date) "calendar_id="]
+set date $cal_item(start_date)
 
 ad_return_template