version 1.3, 2005/04/07 04:12:31
|
version 1.4, 2005/04/07 04:22:03
|
Line 251 END
|
Line 251 END
|
my $rowNum = 0; |
my $rowNum = 0; |
foreach my $ressymb (@newdiscussions) { |
foreach my $ressymb (@newdiscussions) { |
my $forum_title = $unread{$ressymb}{'title'}; |
my $forum_title = $unread{$ressymb}{'title'}; |
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($ressymb); |
my $feedurl=&Apache::lonfeedback::get_feedurl($ressymb); |
my $feedurl = &Apache::lonnet::clutter($url); |
|
# backward compatibility (bulletin boards used to be 'wrapped') |
|
if ($feedurl=~m|^/adm/wrapper/adm/.*/bulletinboard$|) { |
|
$feedurl=~s|^/adm/wrapper||; |
|
} |
|
my $unreadnum = keys(%{$unread{$ressymb}}); |
my $unreadnum = keys(%{$unread{$ressymb}}); |
$unreadnum = $unreadnum - 2; |
$unreadnum = $unreadnum - 2; |
if ($unreadnum > 0) { |
if ($unreadnum > 0) { |
Line 431 sub getitems {
|
Line 426 sub getitems {
|
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 = 'bulletin___'.$2.$1.'/'.$2.'/bulletinboard'; |
$ressymb = &Apache::lonfeedback::wrap_symb('bulletin___'.$2.$1.'/'. |
unless ($ressymb =~ m|bulletin___\d+___adm/wrapper|) { |
$2.'/bulletinboard'); |
$ressymb=~s|(bulletin___\d+___)|$1adm/wrapper/|; |
|
} |
|
} |
} |
|
|
# Check for unread discussion postings |
# Check for unread discussion postings |