![[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.463, 2004/01/15 19:41:00 | version 1.464, 2004/01/26 21:58:34 |
|---|---|
| Line 4459 sub filelocation { | Line 4459 sub filelocation { |
| $location=$file; | $location=$file; |
| } else { | } else { |
| $file=~s/^$perlvar{'lonDocRoot'}//; | $file=~s/^$perlvar{'lonDocRoot'}//; |
| $file=~s:^/*res::; | $file=~s:^/res/:/:; |
| if ( !( $file =~ m:^/:) ) { | if ( !( $file =~ m:^/:) ) { |
| $location = $dir. '/'.$file; | $location = $dir. '/'.$file; |
| } else { | } else { |