loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.161, 2005/04/11 15:29:38	version 1.162, 2005/04/11 15:33:46
Line 2866 sub has_discussion {	Line 2866 sub has_discussion {
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();	my $ressymb = $resource->wrap_symb();
if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) {
$ressymb = $resource->wrap_symb();
}
push @{$resourcesref}, $ressymb;	push @{$resourcesref}, $ressymb;
}	}
}	}