![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.313, 2002/12/09 22:09:58 | version 1.314, 2003/01/09 22:45:51 |
|---|---|
| Line 1864 sub allowed { | Line 1864 sub allowed { |
| $thisallowed.=$1; | $thisallowed.=$1; |
| } | } |
| # URI is an uploaded document for this course | |
| if (($priv eq 'bre') && | |
| ($uri=~/^uploaded\/$ENV{'course.'.$ENV{'request.course.id'}.'.domain'}\/$ENV{'course.'.$ENV{'request.course.id'}.'.num'}/)) { | |
| return 'F'; | |
| } | |
| # Full access at system, domain or course-wide level? Exit. | # Full access at system, domain or course-wide level? Exit. |
| if ($thisallowed=~/F/) { | if ($thisallowed=~/F/) { |