![[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.832, 2007/02/16 01:04:19 | version 1.833, 2007/02/18 01:51:20 |
|---|---|
| Line 5134 sub is_locked { | Line 5134 sub is_locked { |
| sub declutter_portfile { | sub declutter_portfile { |
| my ($file) = @_; | my ($file) = @_; |
| &logthis("got $file"); | $file =~ s{^(/portfolio/|portfolio/)}{/}; |
| $file =~ s-^(/portfolio/|portfolio/)-/-; | |
| &logthis("ret $file"); | |
| return $file; | return $file; |
| } | } |