loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.125, 2003/01/10 19:03:06	version 1.129, 2003/01/14 17:19:27
Line 686 sub real_handler {	Line 686 sub real_handler {
$r->print('<script>location += "#curloc";</script>');	$r->print('<script>location += "#curloc";</script>');
}	}

$r->print("</body></html>");

$navmap->untieHashes();	$navmap->untieHashes();

	$r->print("</body></html>");

return OK;	return OK;
}	}

Line 999 sub new {	Line 999 sub new {
return undef;	return undef;
}	}

	$self->{HASH_TIED} = 1;
$self->{NAV_HASH} = \%navmaphash;	$self->{NAV_HASH} = \%navmaphash;
$self->{PARM_HASH} = \%parmhash;	$self->{PARM_HASH} = \%parmhash;

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

return $self;	return $self;
}	}