version 1.32, 2002/03/16 08:56:53
|
version 1.34, 2002/03/26 15:16:24
|
Line 338 sub followlinks () {
|
Line 338 sub followlinks () {
|
sub tracetable { |
sub tracetable { |
my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_; |
my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_; |
my $newshowtypes=$showtypes; |
my $newshowtypes=$showtypes; |
my $newlinkid=$linkid; |
|
my $further=$sofar; |
my $further=$sofar; |
#$Apache::lonxml::debug=1; |
#$Apache::lonxml::debug=1; |
&Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid}); |
&Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid}); |
Line 355 sub tracetable {
|
Line 354 sub tracetable {
|
eq 'page') { |
eq 'page') { |
$tprefix='j'; |
$tprefix='j'; |
if ($indent) { $tprefix='i'.$indent.','.$tprefix; } |
if ($indent) { $tprefix='i'.$indent.','.$tprefix; } |
|
if ($linkid) { $tprefix='l'.$linkid.','.$tprefix; } |
$newshowtypes='problems'; |
$newshowtypes='problems'; |
$indent++; |
$indent++; |
$newlinkid=$rid; |
#if in a .page continue to link the encompising .page |
|
if (!$linkid) { $linkid=$rid; } |
} |
} |
if (defined($rows[$sofar])) { |
if (defined($rows[$sofar])) { |
$rows[$sofar].='&'.$tprefix.$rid; |
$rows[$sofar].='&'.$tprefix.$rid; |
Line 368 sub tracetable {
|
Line 369 sub tracetable {
|
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
(defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) { |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}}; |
$sofar=&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
$sofar=&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}}, |
'&'.$frid.'&',$newshowtypes,$indent,$newlinkid); |
'&'.$frid.'&',$newshowtypes,$indent,$linkid); |
&addresource($hash{'src_'.$frid},\$sofar,$frid,$newshowtypes, |
&addresource($hash{'src_'.$frid},\$sofar,$frid,$newshowtypes, |
$indent,$newlinkid); |
$indent,$linkid); |
if ($tprefix =~ /j$/) { $indent--; } |
if ($tprefix =~ /j$/) { $indent--; $linkid=''; } |
} |
} |
} else { |
} else { |
&addresource($hash{'src_'.$rid},\$sofar,$rid,$showtypes, |
&addresource($hash{'src_'.$rid},\$sofar,$rid,$showtypes, |
Line 660 sub handler {
|
Line 661 sub handler {
|
$hwke='</b> ('.$ctext.')</font>'; |
$hwke='</b> ('.$ctext.')</font>'; |
} |
} |
} |
} |
if ($hash{'src_'.$rid} eq $currenturl) { |
if ($rid && $hash{'src_'.$rid} eq $currenturl) { |
$add=$add.'<a name="curloc"></a>'. |
$add=$add.'<a name="curloc"></a>'. |
'<font color=red size=+2><b>> </b></font>'; |
'<font color=red size=+2><b>> </b></font>'; |
$adde= |
$adde= |
Line 703 sub handler {
|
Line 704 sub handler {
|
for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; } |
for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; } |
} |
} |
if (!$linkid) { $linkid=$rid; } |
if (!$linkid) { $linkid=$rid; } |
$r->print($add.$indentstr. |
$r->print($add.$indentstr); |
'<a href="'.$hash{'src_'.$linkid}.'">'.$hwk. |
if ($rid) { |
$hash{'title_'.$rid}.$hwke.'</a>'.$adde); |
$r->print('<a href="'.$hash{'src_'.$linkid}. |
|
'?symb='.$symb.'">'. |
|
$hwk.$hash{'title_'.$rid}.$hwke.'</a>'); |
|
} |
|
$r->print($adde); |
} |
} |
$r->print('</tr>'); |
$r->print('</tr>'); |
} |
} |