loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

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