version 1.371, 2006/03/16 20:48:30
|
version 1.372, 2006/03/17 21:33:17
|
Line 2355 sub unread_discussion {
|
Line 2355 sub unread_discussion {
|
my $symb = shift; |
my $symb = shift; |
|
|
$self->get_discussion_data(); |
$self->get_discussion_data(); |
|
|
my $ressymb = $self->wrap_symb($symb); |
|
|
|
my $version = $self->{DISCUSSION_DATA}{'version:'.$ressymb}; |
my $ressymb = $self->wrap_symb($symb); |
|
# keys used to store bulletinboard postings use 'unwrapped' symb. |
|
my $discsymb = $self->unwrap_symb($ressymb); |
|
my $version = $self->{DISCUSSION_DATA}{'version:'.$discsymb}; |
if (!$version) { return; } |
if (!$version) { return; } |
|
|
my $prevread = $self->{LAST_READ}{$ressymb}; |
my $prevread = $self->{LAST_READ}{$ressymb}; |
Line 2371 sub unread_discussion {
|
Line 2372 sub unread_discussion {
|
my %subjects; |
my %subjects; |
|
|
for (my $id=$version; $id>0; $id--) { |
for (my $id=$version; $id>0; $id--) { |
my $vkeys=$self->{DISCUSSION_DATA}{$id.':keys:'.$ressymb}; |
my $vkeys=$self->{DISCUSSION_DATA}{$id.':keys:'.$discsymb}; |
my @keys=split(/:/,$vkeys); |
my @keys=split(/:/,$vkeys); |
if (grep(/^hidden$/ ,@keys)) { |
if (grep(/^hidden$/ ,@keys)) { |
if (!$hiddenflag) { |
if (!$hiddenflag) { |
$hidden = $self->{DISCUSSION_DATA}{$id.':'.$ressymb.':hidden'}; |
$hidden = $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':hidden'}; |
$hiddenflag = 1; |
$hiddenflag = 1; |
} |
} |
} elsif (grep(/^deleted$/,@keys)) { |
} elsif (grep(/^deleted$/,@keys)) { |
if (!$deletedflag) { |
if (!$deletedflag) { |
$deleted = $self->{DISCUSSION_DATA}{$id.':'.$ressymb.':deleted'}; |
$deleted = $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':deleted'}; |
$deletedflag = 1; |
$deletedflag = 1; |
} |
} |
} else { |
} else { |
if (($hidden !~/\.$id\./) && ($deleted !~/\.$id\./) |
if (($hidden !~/\.$id\./) && ($deleted !~/\.$id\./) |
&& $prevread < $self->{DISCUSSION_DATA}{$id.':'.$ressymb.':timestamp'}) { |
&& $prevread < $self->{DISCUSSION_DATA}{$id.':'.$discsymb.':timestamp'}) { |
$unreadcount++; |
$unreadcount++; |
$subjects{$unreadcount}= |
$subjects{$unreadcount}= |
$id.': '.$self->{DISCUSSION_DATA}{$id.':'.$ressymb.':subject'}; |
$id.': '.$self->{DISCUSSION_DATA}{$id.':'.$discsymb.':subject'}; |
} |
} |
} |
} |
} |
} |
Line 2409 sub wrap_symb {
|
Line 2410 sub wrap_symb {
|
return $symb; |
return $symb; |
} |
} |
|
|
|
sub unwrap_symb { |
|
my $self = shift; |
|
my $ressymb = shift; |
|
my $discsymb = $ressymb; |
|
if ($ressymb =~ m-^(bulletin___\d+___)adm/wrapper/(adm/\w+/\w+/\d+/bulletinboard)$-) { |
|
$discsymb = $1.$2; |
|
} |
|
return $discsymb; |
|
} |
|
|
# Private method: Does the given resource (as a symb string) have |
# Private method: Does the given resource (as a symb string) have |
# current feedback? Returns the string in the feedback hash, which |
# current feedback? Returns the string in the feedback hash, which |
# will be false if it does not exist. |
# will be false if it does not exist. |