--- loncom/auth/lonacc.pm	2006/06/16 22:37:29	1.79
+++ loncom/auth/lonacc.pm	2006/06/16 22:54:30	1.80
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Cookie Based Access Handler
 #
-# $Id: lonacc.pm,v 1.79 2006/06/16 22:37:29 raeburn Exp $
+# $Id: lonacc.pm,v 1.80 2006/06/16 22:54:30 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -226,12 +226,12 @@ sub handler {
 
 # ---------------------------------------------------------------- Check access
             my $now = time;
-            if ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$#) {
+            if ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$|) {
                 my $result = &portfolio_access($1,$2,$3);
                 if ($result eq 'ok') {
                     return OK;
                 }
-            } elsif ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$#) {
+            } elsif ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$|) {
                 my $result = &portfolio_access($1,$2,$4.'/'.$3,$3);
                 if ($result eq 'ok') {
                     return OK;
@@ -350,12 +350,12 @@ sub handler {
 	return OK;
     }
 # ------------------------------------- See if this is a viewable portfolio file
-    if ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$#) {
+    if ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$|) {
         my $result = &portfolio_access($1,$2,$3);
         if ($result eq 'ok') {
             return OK;
         }
-    } elsif ($requrl =~ m#/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$#) {
+    } elsif ($requrl =~ m|/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$|) {
         my $result = &portfolio_access($1,$2,$4.'/'.$3,$3);
         if ($result eq 'ok') {
             return OK;