[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2009-12-27 1:31:05
Message-ID: cvsraeburn1261877465 () cvsserver
[Download RAW message or body]

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


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]