version 1.383, 2005/09/26 21:39:53
|
version 1.384, 2005/10/18 21:46:19
|
Line 1109 sub parstring {
|
Line 1109 sub parstring {
|
return $temp; |
return $temp; |
} |
} |
|
|
|
sub extlink { |
|
my ($res,$exact)=@_; |
|
if (!$exact) { |
|
$res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res); |
|
} |
|
push(@Apache::lonxml::extlinks,$res) |
|
} |
|
|
sub writeallows { |
sub writeallows { |
unless ($#extlinks>=0) { return; } |
unless ($#extlinks>=0) { return; } |
my $thisurl = &Apache::lonnet::clutter(shift); |
my $thisurl = &Apache::lonnet::clutter(shift); |