loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.322, 2005/04/11 15:28:55	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 {