--- loncom/interface/lonnavmaps.pm 2002/12/12 18:24:05 1.122 +++ loncom/interface/lonnavmaps.pm 2003/01/10 17:46:46 1.123 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.122 2002/12/12 18:24:05 www Exp $ +# $Id: lonnavmaps.pm,v 1.123 2003/01/10 17:46:46 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -985,12 +985,8 @@ sub new { return undef; } - # Now copy the hashes for speed (?) - my %realnav; my %realparm; - foreach (%navmaphash) { $realnav{$_} = $navmaphash{$_}; } - foreach (%parmhash) { $realparm{$_} = $navmaphash{$_}; } - $self->{NAV_HASH} = \%realnav; - $self->{PARM_HASH} = \%realparm; + $self->{NAV_HASH} = \%navmaphash; + $self->{PARM_HASH} = \%parmhash; bless($self); $self->untieHashes();