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

[albertel]

albertel		Mon Sep 29 17:07:10 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - there are problems with now responses, of course they aren't very good problems, or really really old
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.234 loncom/interface/lonnavmaps.pm:1.235
--- loncom/interface/lonnavmaps.pm:1.234	Wed Sep 24 11:58:06 2003
+++ loncom/interface/lonnavmaps.pm	Mon Sep 29 17:07:10 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.234 2003/09/24 15:58:06 matthew Exp $
+# $Id: lonnavmaps.pm,v 1.235 2003/09/29 21:07:10 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3547,7 +3547,11 @@
     my $part = shift;
 
     $self->extractParts();
-    return @{$self->{RESPONSE_TYPES}->{$part}};
+    if (defined($self->{RESPONSE_TYPES}->{$part})) {
+	return @{$self->{RESPONSE_TYPES}->{$part}};
+    } else {
+	return undef;
+    }
 }
 
 sub responseIds {
@@ -3555,7 +3559,11 @@
     my $part = shift;
 
     $self->extractParts();
-    return @{$self->{RESPONSE_IDS}->{$part}};
+    if (defined($self->{RESPONSE_IDS}->{$part})) {
+	return @{$self->{RESPONSE_IDS}->{$part}};
+    } else {
+	return undef;
+    }
 }
 
 # Private function: Extracts the parts information, both part names and