version 1.160, 2005/04/11 12:20:22
|
version 1.161, 2005/04/11 15:29:38
|
Line 2868 sub has_discussion {
|
Line 2868 sub has_discussion {
|
if ($resource->hasDiscussion()) { |
if ($resource->hasDiscussion()) { |
my $ressymb = $resource->symb(); |
my $ressymb = $resource->symb(); |
if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) { |
if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) { |
$ressymb = $resource->ressymb(); |
$ressymb = $resource->wrap_symb(); |
} |
} |
push @{$resourcesref}, $ressymb; |
push @{$resourcesref}, $ressymb; |
} |
} |