Index: openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl 7 Aug 2017 23:48:30 -0000 1.7 +++ openacs-4/packages/xotcl-request-monitor/www/stat-details.tcl 4 Nov 2017 13:05:54 -0000 1.8 @@ -1,5 +1,5 @@ ad_page_contract { - Displays last requests of a user + Displays call statistics @author Gustaf Neumann @@ -16,6 +16,14 @@ } set title "Url Statistics" set context [list "Url Statistics"] + +set admin_p [acs_user::site_wide_admin_p] +if {!$admin_p} { + ad_return_warning "Insufficient Permissions" \ + "Only side wide admins are allowed to view this page!" + ad_script_abort +} + set hide_patterns [parameter::get -parameter hide-requests -default {*.css}] array set apps { calendar 1 acs-templating 1 forums 1 file-storage 1 one-community 1