loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.118, 2002/12/02 14:04:52	version 1.119, 2002/12/02 14:19:38
Line 274 sub real_handler {	Line 274 sub real_handler {
my $foundJump = ($jumpType == $NOTHING); # look for jump point if we have one	my $foundJump = ($jumpType == $NOTHING); # look for jump point if we have one
my $looped = 0;	my $looped = 0;

	$r->print($hereType);

# We only need to do this if we need to open the maps to show the	# We only need to do this if we need to open the maps to show the
# current position. This will change the counter so we can't count	# current position. This will change the counter so we can't count
# for the jump marker with this loop.	# for the jump marker with this loop.
while ($depth > 0 && !$ENV{'form.alreadyHere'}) {	while ($depth > 0 && !$ENV{'form.alreadyHere'}) {
if ($curRes == $mapIterator->BEGIN_MAP()) { $depth++; }	if ($curRes == $mapIterator->BEGIN_MAP()) { $depth++; }
if ($curRes == $mapIterator->END_MAP()) { $depth--; }	if ($curRes == $mapIterator->END_MAP()) { $depth--; }
	$r->print($curRes . ' ');
if (ref($curRes) && !$ENV{'form.alreadyHere'} &&	if (ref($curRes) && !$ENV{'form.alreadyHere'} &&
($hereType == $SYMB && $curRes->symb() eq $here) \|\|	($hereType == $SYMB && $curRes->symb() eq $here) \|\|
($hereType == $URL && $curRes->src() eq $here)) {	(ref($curRes) && $hereType == $URL && $curRes->src() eq $here)) {
my $mapStack = $mapIterator->getStack();	my $mapStack = $mapIterator->getStack();

# Ensure the parent maps are open	# Ensure the parent maps are open