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

[bowersj2]

bowersj2		Fri Jan 10 14:03:06 2003 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Fixes feedback. Almost had it last time.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.124 loncom/interface/lonnavmaps.pm:1.125
--- loncom/interface/lonnavmaps.pm:1.124	Fri Jan 10 13:45:30 2003
+++ loncom/interface/lonnavmaps.pm	Fri Jan 10 14:03:06 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.124 2003/01/10 18:45:30 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.125 2003/01/10 19:03:06 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1155,7 +1155,7 @@
     $self->untieHashes();
 }
 
-# Does the given resource (as a symb string) have
+# Private method: Does the given resource (as a symb string) have
 # current discussion? Returns 0 if chat/mail data not extracted.
 sub hasDiscussion {
     my $self = shift;
@@ -1167,7 +1167,7 @@
            $self->{LAST_CHECK};
 }
 
-# Does the given resource (as a symb string) have
+# Private method: Does the given resource (as a symb string) have
 # current feedback? Returns the string in the feedback hash, which
 # will be false if it does not exist.
 sub getFeedback { 
@@ -1179,6 +1179,7 @@
     return $self->{FEEDBACK}->{$symb};
 }
 
+# Private method: Get the errors for that resource (by source).
 sub getErrors { 
     my $self = shift;
     my $src = shift;
@@ -2253,7 +2254,7 @@
 sub getFeedback {
     my $self = shift;
     my $source = $self->src();
-    if ($source !~ /^\/res\//) { $source = substr $source, 5; }
+    if ($source =~ /^\/res\//) { $source = substr $source, 5; }
     return $self->{NAV_MAP}->getFeedback($source);
 }