[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.321 and 1.323

version 1.321, 2005/04/11 12:20:22 version 1.323, 2005/04/11 15:33:46
Line 1588  END Line 1588  END
     my @allres=$navmap->retrieveResources();      my @allres=$navmap->retrieveResources();
     foreach my $resource (@allres) {      foreach my $resource (@allres) {
  if ($resource->hasDiscussion()) {   if ($resource->hasDiscussion()) {
     my $ressymb = $resource->symb();      $haveDisc .= $resource->wrap_symb().':';
                     if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) {  
                         $ressymb = $resource->wrap_symb();  
     }  
     $haveDisc .= $ressymb.':';  
     $totdisc ++;      $totdisc ++;
  }   }
     }      }
Line 2285  sub hasDiscussion { Line 2281  sub hasDiscussion {
   
     #return defined($self->{DISCUSSION_TIME}->{$symb});      #return defined($self->{DISCUSSION_TIME}->{$symb});
   
 # backward compatibility (bulletin boards used to be 'wrapped')      # backward compatibility (bulletin boards used to be 'wrapped')
     my $ressymb = $symb;      my $ressymb = $self->wrap_symb($symb);
     if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) {  
         $ressymb = $self->wrap_symb($ressymb);  
     }  
     if ( defined ( $self->{LAST_READ}->{$ressymb} ) ) {      if ( defined ( $self->{LAST_READ}->{$ressymb} ) ) {
         return $self->{DISCUSSION_TIME}->{$ressymb} > $self->{LAST_READ}->{$ressymb};          return $self->{DISCUSSION_TIME}->{$ressymb} > $self->{LAST_READ}->{$ressymb};
     } else {      } else {
Line 2298  sub hasDiscussion { Line 2291  sub hasDiscussion {
     }      }
 }  }
   
 # 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 wrap_symb {  sub wrap_symb {
     my $self=shift;      my $self = shift;
     my $symb = shift;      my $symb = shift;
     my $ressymb = $symb;      if ($symb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {
     if ($ressymb =~ m-___(adm/\w+/\w+/)(\d+)(/bulletinboard)$-) {          unless ($symb =~ m|adm/wrapper/adm|) {
         unless ($ressymb =~ m|adm/wrapper/adm|) {              $symb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3;
             $ressymb = 'bulletin___'.$2.'___adm/wrapper/'.$1.$2.$3;  
         }          }
     }      }
     return $ressymb;      return $symb;
 }  }
   
   # 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 {   sub getFeedback { 
     my $self = shift;      my $self = shift;
     my $symb = shift;      my $symb = shift;
Removed from v.1.321  
changed lines
  Added in v.1.323

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>