version 1.396.2.1, 2008/12/11 23:57:04
|
version 1.396.2.2, 2009/04/11 01:12:58
|
Line 1650 sub start_a {
|
Line 1650 sub start_a {
|
my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval, |
my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval, |
undef,1); |
undef,1); |
$currentstring=&Apache::lonenc::encrypt_ref($token,{'href'=>$href}); |
$currentstring=&Apache::lonenc::encrypt_ref($token,{'href'=>$href}); |
|
if ($href =~ /\S/) { |
|
if ($href !~ m{^https?://}) { |
|
my $url=&Apache::lonnet::hreflocation('',$env{'request.filename'}); |
|
my $linkurl; |
|
if ($href =~ m{^/uploaded/}) { |
|
$linkurl = $href; |
|
} elsif ($href =~ m{^[^/]}) { |
|
my $path = $url; |
|
$path =~ s{[^/]*$}{}; |
|
$linkurl = $path.$href; |
|
} |
|
if ($linkurl =~ m{^/uploaded/}) { |
|
if (!&Apache::lonnet::allowed('bre',$linkurl)) { |
|
if (&Apache::lonnet::is_on_map($url)) { |
|
&Apache::lonxml::extlink($linkurl); |
|
} |
|
} |
|
} |
|
} |
|
} |
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |