Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.375, 2005/06/09 02:12:26 | 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='/res/'.&Apache::lonnet::declutter(shift); | my $thisurl = &Apache::lonnet::clutter(shift); |
if ($env{'httpref.'.$thisurl}) { | if ($env{'httpref.'.$thisurl}) { |
$thisurl=$env{'httpref.'.$thisurl}; | $thisurl=$env{'httpref.'.$thisurl}; |
} | } |