loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2005/04/11 13:14:00	version 1.9, 2005/04/11 15:52:40
Line 395 sub getitems {	Line 395 sub getitems {
%{$$bombed{$symb}} = ();	%{$$bombed{$symb}} = ();
%{$$ungraded{$symb}} = ();	%{$$ungraded{$symb}} = ();
my $title = $resource->compTitle();	my $title = $resource->compTitle();
my $ressymb = $symb;	my $ressymb = $resource->wrap_symb();
if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) {
$ressymb = $resource->wrap_symb();
}
# Check for unread discussion postings	# Check for unread discussion postings
if (defined($discussiontime{$ressymb})) {	if (defined($discussiontime{$ressymb})) {
push(@discussions,$ressymb);	push(@discussions,$ressymb);
Line 419 sub getitems {	Line 416 sub getitems {
if ($prevread <$contrib{$id.':timestamp'}) {	if ($prevread <$contrib{$id.':timestamp'}) {
$$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'};	$$unread{$ressymb}{$unreadcount} = $id.': '.$contrib{$id.':subject'};
$unreadcount ++;	$unreadcount ++;
push(@{$newdiscussions}, $ressymb);
}	}
}	}
}	}
}	}
}	if ($unreadcount) { push(@{$newdiscussions}, $ressymb); }
	}

# Check for ungraded problems	# Check for ungraded problems
if ($resource->is_problem()) {	if ($resource->is_problem()) {