version 1.5, 2005/04/07 06:56:23
|
version 1.6, 2005/04/11 12:20:23
|
Line 425 sub getitems {
|
Line 425 sub getitems {
|
%{$$ungraded{$symb}} = (); |
%{$$ungraded{$symb}} = (); |
my $title = $resource->compTitle(); |
my $title = $resource->compTitle(); |
my $ressymb = $symb; |
my $ressymb = $symb; |
if ($ressymb =~ m-(___adm/\w+/\w+)/(\d+)/bulletinboard$-) { |
if ($ressymb =~ m-___adm/\w+/\w+/\d+/bulletinboard$-) { |
$ressymb = &Apache::lonfeedback::wrap_symb('bulletin___'.$2.$1.'/'. |
$ressymb = $resource->wrap_symb(); |
$2.'/bulletinboard'); |
|
} |
} |
|
|
# Check for unread discussion postings |
# Check for unread discussion postings |