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

[raeburn]

raeburn		Sun Dec 27 01:31:05 2009 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - Prevent ISE in call to private &navHash() function.
    - Check arg passed to retrieve value from %navmaphash is defined. 
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.440 loncom/interface/lonnavmaps.pm:1.441
--- loncom/interface/lonnavmaps.pm:1.440	Thu Dec  3 17:50:42 2009
+++ loncom/interface/lonnavmaps.pm	Sun Dec 27 01:31:05 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.440 2009/12/03 17:50:42 bisitz Exp $
+# $Id: lonnavmaps.pm,v 1.441 2009/12/27 01:31:05 raeburn Exp $
 
 #
 # Copyright Michigan State University Board of Trustees
@@ -3532,7 +3532,11 @@
     my $self = shift;
     my $param = shift;
     my $id = shift;
-    return $self->{NAV_MAP}->navhash($param . ($id?$self->{ID}:""));
+    my $arg = $param . ($id?$self->{ID}:"");
+    if (defined($arg)) {
+        return $self->{NAV_MAP}->navhash($arg);
+    }
+    return;
 }
 
 =pod