loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.399, 2009/03/31 10:12:45
+version 1.400, 2009/04/11 01:11:02
  Line 1612  sub start_a {
  	my $href=&Apache::lonxml::get_param('href',$parstack,$safeeval,
  					    undef,1);
  	$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;
  }