[LON-CAPA-cvs] cvs: loncom /auth lonacc.pm

[albertel]

albertel		Fri Jun 16 18:54:30 2006 EDT

  Modified files:              
    /loncom/auth	lonacc.pm 
  Log:
  - elimintaing novel use of #
  
  
Index: loncom/auth/lonacc.pm
diff -u loncom/auth/lonacc.pm:1.79 loncom/auth/lonacc.pm:1.80
--- loncom/auth/lonacc.pm:1.79	Fri Jun 16 18:37:29 2006
+++ loncom/auth/lonacc.pm	Fri Jun 16 18:54:30 2006
@@ -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 @@
 
 # ---------------------------------------------------------------- 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 @@
 	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;