Return to lonnavmaps.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.198, 2003/06/10 20:07:58 | version 1.199, 2003/06/12 13:20:27 |
---|---|
Line 1595 sub new { | Line 1595 sub new { |
return undef; | return undef; |
} | } |
# try copying into memory | $self->{NAV_HASH} = \%navmaphash; |
my %tmpnavhash; | |
while (my ($k, $v) = each(%navmaphash)) { | |
$tmpnavhash{$k} = $v; | |
} | |
untie %navmaphash; | |
$self->{NAV_HASH} = \%tmpnavhash; | |
$self->{PARM_HASH} = \%parmhash; | $self->{PARM_HASH} = \%parmhash; |
$self->{INITED} = 0; | $self->{INITED} = 0; |