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

[bowersj2]

bowersj2		Tue Jun 10 11:45:16 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Commit of a speedup, some debug code.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.194 loncom/interface/lonnavmaps.pm:1.195
--- loncom/interface/lonnavmaps.pm:1.194	Thu May 29 13:39:41 2003
+++ loncom/interface/lonnavmaps.pm	Tue Jun 10 11:45:16 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.194 2003/05/29 17:39:41 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.195 2003/06/10 15:45:16 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1021,7 +1021,7 @@
         $result .= '(randomly select ' . $resource->randompick() .')';
     }
     
-    $result .= "&nbsp;</td>\n";
+    $result .= " - $part &nbsp;</td>\n";
     
     return $result;
 }
@@ -1588,7 +1588,14 @@
         return undef;
     }
 
-    $self->{NAV_HASH} = \%navmaphash;
+    # try copying into memory
+    my %tmpnavhash;
+    while (my ($k, $v) = each(%navmaphash)) {
+	$tmpnavhash{$k} = $v;
+    }
+    untie %navmaphash;
+
+    $self->{NAV_HASH} = \%tmpnavhash;
     $self->{PARM_HASH} = \%parmhash;
     $self->{INITED} = 0;