--- loncom/interface/lonnavmaps.pm 2003/01/10 18:45:30 1.124 +++ loncom/interface/lonnavmaps.pm 2003/01/10 19:03:06 1.125 @@ -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 @@ sub DESTROY { $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 @@ sub hasDiscussion { $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 @@ sub getFeedback { 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 hasDiscussion { 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); }