![[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.816.2.1, 2007/01/03 04:15:59 | version 1.816.2.2, 2007/01/03 04:19:31 |
|---|---|
| Line 3546 sub is_portfolio_url { | Line 3546 sub is_portfolio_url { |
| sub is_portfolio_file { | sub is_portfolio_file { |
| my ($file) = @_; | my ($file) = @_; |
| if (($file =~ /^portfolio/) || ($file =~ /^groups\/\w\/portfolio/)) { | if (($file =~ /^portfolio/) || ($file =~ /^groups\/\w+\/portfolio/)) { |
| return 1; | return 1; |
| } | } |
| return; | return; |