loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'};