Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	29 Jun 2003 23:32:23 -0000	1.36
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	1 Jul 2003 23:37:51 -0000	1.37
@@ -607,11 +607,15 @@
 
     if { ![empty_string_p [ad_conn object_id]] } {
       ad_try {
-	if {[string match "admin/*" [ad_conn extra_url]]} {
-            permission::require_permission -object_id [ad_conn object_id] -privilege admin
-	} else {
-            permission::require_permission -object_id [ad_conn object_id] -privilege read
-	}
+        switch -glob [ad_conn extra_url] {
+            admin/* {
+              permission::require_permission -object_id [ad_conn object_id] -privilege admin
+            }
+            resources/* { }
+            default {
+              permission::require_permission -object_id [ad_conn object_id] -privilege read
+            }
+        }
       } ad_script_abort val {
 	rp_finish_serving_page
         rp_debug "rp_filter: return filter_return"