Index: openacs-4/packages/wp-slim/www/serve-presentation-revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/serve-presentation-revision.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/wp-slim/www/serve-presentation-revision.tcl	6 Sep 2002 15:32:23 -0000	1.4
+++ openacs-4/packages/wp-slim/www/serve-presentation-revision.tcl	28 Aug 2003 09:42:00 -0000	1.5
@@ -25,6 +25,10 @@
     ad_return_error "Wimpy Point" "Could not get a pres_item_id and a pres_revision_id out of url=$url"
 }
 
+#added permission checking  roc@
+set user_id [ad_verify_and_get_user_id]
+permission::require_permission -party_id $user_id -object_id $pres_item_id -privilege wp_view_presentation
+
 set subsite_name [ad_conn package_url]
 regexp {^(.+)/$} $subsite_name match subsite_name