version 1.37, 2005/12/15 00:53:29
|
version 1.38, 2005/12/15 13:38:58
|
Line 635 sub get_discussions {
|
Line 635 sub get_discussions {
|
$hidden = $$discussiondata{$id.':'.$ressymb.':hidden'}; |
$hidden = $$discussiondata{$id.':'.$ressymb.':hidden'}; |
$hiddenflag = 1; |
$hiddenflag = 1; |
} |
} |
} |
} elsif (grep/^deleted$/,@keys) { |
if (grep/^deleted$/,@keys) { |
|
unless ($deletedflag) { |
unless ($deletedflag) { |
$deleted = $$discussiondata{$id.':'.$ressymb.':deleted'}; |
$deleted = $$discussiondata{$id.':'.$ressymb.':deleted'}; |
$deletedflag = 1; |
$deletedflag = 1; |
} |
} |
} |
} else { |
if ($deletedflag && $hiddenflag) { |
unless (($hidden =~/\.$id\./) || ($deleted =~/\.$id\./)) { |
last; |
if ($prevread <$$discussiondata{$id.':'.$ressymb.':timestamp'}) { |
} |
|
} |
|
for (my $id=$version; $id>0; $id--) { |
|
unless (($hidden =~/\.$id\./) || ($deleted =~/\.$id\./)) { |
|
if ($prevread <$$discussiondata{$id.':'.$ressymb.':timestamp'}) { |
|
unless((exists($$discussiondata{$id.':'.$ressymb.':hidden'})) || |
|
(exists($$discussiondata{$id.':'.$ressymb.':deleted'}))) { |
|
|
|
$unreadcount ++; |
$unreadcount ++; |
$$unread{$ressymb}{$unreadcount} = $id.': '. |
$$unread{$ressymb}{$unreadcount} = $id.': '. |
$$discussiondata{$id.':'.$ressymb.':subject'}; |
$$discussiondata{$id.':'.$ressymb.':subject'}; |