loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.122, 2002/12/12 18:24:05	version 1.123, 2003/01/10 17:46:46
Line 985 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();