loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.120, 2002/12/02 14:20:24	version 1.123, 2003/01/10 17:46:46
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.
Line 488 sub real_handler {	Line 486 sub real_handler {
'"';	'"';

my $title = $curRes->compTitle();	my $title = $curRes->compTitle();
	if ($src=~/^\/uploaded\//) {
	$nonLinkedText=$title;
	$title='';
	}
my $partLabel = "";	my $partLabel = "";
my $newBranchText = "";	my $newBranchText = "";

Line 983 sub new {	Line 985 sub new {
return undef;	return undef;
}	}

# Now copy the hashes for speed (?)	$self->{NAV_HASH} = \%navmaphash;
my %realnav; my %realparm;	$self->{PARM_HASH} = \%parmhash;
foreach (%navmaphash) { $realnav{$_} = $navmaphash{$_}; }
foreach (%parmhash) { $realparm{$_} = $navmaphash{$_}; }
$self->{NAV_HASH} = \%realnav;
$self->{PARM_HASH} = \%realparm;

bless($self);	bless($self);
$self->untieHashes();	$self->untieHashes();