version 1.7, 2005/04/11 13:14:00
|
version 1.8, 2005/04/11 15:33:46
|
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); |