--- loncom/interface/lonnavmaps.pm 2003/03/28 18:14:59 1.168 +++ loncom/interface/lonnavmaps.pm 2003/04/01 19:28:05 1.170 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.168 2003/03/28 18:14:59 bowersj2 Exp $ +# $Id: lonnavmaps.pm,v 1.170 2003/04/01 19:28:05 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -199,6 +199,7 @@ sub real_handler { # renderer call my $render = render({ 'cols' => [0,1,2,3], 'url' => '/adm/navmaps', + 'navmap' => $navmap, 'suppressNavmap' => 1, 'r' => $r}); @@ -1282,7 +1283,7 @@ sub new { if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, &GDBM_READER(), 0640))) { - untie $self->{PARM_HASH}; + untie %{$self->{PARM_HASH}}; return undef; } @@ -1433,8 +1434,8 @@ sub getIterator { # unties the hash when done sub untieHashes { my $self = shift; - untie $self->{NAV_HASH}; - untie $self->{PARM_HASH}; + untie %{$self->{NAV_HASH}}; + untie %{$self->{PARM_HASH}}; } # Private method: Does the given resource (as a symb string) have