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 { |