|
version 1.376, 2005/06/15 13:06:41
|
version 1.377, 2005/06/17 17:51:15
|
|
Line 1065 sub parstring {
|
Line 1065 sub parstring {
|
| |
|
| sub writeallows { |
sub writeallows { |
| unless ($#extlinks>=0) { return; } |
unless ($#extlinks>=0) { return; } |
| my $thisurl = &Apache::lonnet::declutter(shift); |
my $thisurl = &Apache::lonnet::clutter(shift); |
| if ($thisurl =~ /^uploaded/) { |
|
| $thisurl = '/'.$thisurl; |
|
| } else { |
|
| $thisurl='/res/'.$thisurl; |
|
| } |
|
| if ($env{'httpref.'.$thisurl}) { |
if ($env{'httpref.'.$thisurl}) { |
| $thisurl=$env{'httpref.'.$thisurl}; |
$thisurl=$env{'httpref.'.$thisurl}; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml