[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

[matthew]

matthew		Tue Apr  1 14:28:05 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Fixed unties that used hash references instead of hashes.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.169 loncom/interface/lonnavmaps.pm:1.170
--- loncom/interface/lonnavmaps.pm:1.169	Fri Mar 28 13:29:49 2003
+++ loncom/interface/lonnavmaps.pm	Tue Apr  1 14:28:05 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.169 2003/03/28 18:29:49 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.170 2003/04/01 19:28:05 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1283,7 +1283,7 @@
     if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE},
               &GDBM_READER(), 0640)))
     {
-        untie $self->{PARM_HASH};
+        untie %{$self->{PARM_HASH}};
         return undef;
     }
 
@@ -1434,8 +1434,8 @@
 # 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