|
version 1.86, 2007/09/26 00:32:55
|
version 1.87.2.1, 2008/12/21 04:29:47
|
|
Line 78 sub tracetable {
|
Line 78 sub tracetable {
|
| my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
| $sofar= |
$sofar= |
| &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
| '&'.$frid.'&'); |
'&'.$frid.$beenhere); |
| $sofar++; |
$sofar++; |
| if ($hash{'src_'.$frid}) { |
if ($hash{'src_'.$frid}) { |
| my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid}); |
|
Line 339 sub handler {
|
Line 339 sub handler {
|
| } |
} |
| $thisdir=~s/\/[^\/]*$//; |
$thisdir=~s/\/[^\/]*$//; |
| foreach (@rlinks) { |
foreach (@rlinks) { |
| unless (($_=~/^http:\/\//i) || |
unless (($_=~/^https?\:\/\//i) || |
| ($_=~/^\//) || |
($_=~/^\//) || |
| ($_=~/^javascript:/i) || |
($_=~/^javascript:/i) || |
| ($_=~/^mailto:/i) || |
($_=~/^mailto:/i) || |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpage.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat