version 1.375, 2005/06/09 02:12:26
|
version 1.376, 2005/06/15 13:06:41
|
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::declutter(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}; |
} |
} |