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