version 1.160, 2005/04/11 12:20:22
|
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->ressymb(); |
|
} |
|
push @{$resourcesref}, $ressymb; |
push @{$resourcesref}, $ressymb; |
} |
} |
} |
} |