loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2005/06/07 22:05:11	version 1.21, 2005/06/09 18:41:08
Line 386 END	Line 386 END
} else {	} else {
$rowColor = $rowColor2;	$rowColor = $rowColor2;
}	}
$r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'.  <small></td><td valign="top"><small><a href="/adm/mail?">'.$msg->{'shortsub'}.'</a>   </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>');	$r->print('<tr bgcolor="'.$rowColor.'"><td valign="top"><small>'.$mailcount.'.  <small></td><td valign="top"><small><a href="/adm/communicate">'.$msg->{'shortsub'}.'</a>   </small></td><td valign="top"><small> '.$msg->{'from'}.'@'.$msg->{'fromdom'}.' </small></td><td valign="top"><small>'.$msg->{'sendtime'}.'</small></td></tr>');
$rowNum ++;	$rowNum ++;
$mailcount ++;	$mailcount ++;
}	}
Line 532 sub getitems {	Line 532 sub getitems {
$$res_title{$symb} = $title;	$$res_title{$symb} = $title;
my $ressymb = $resource->wrap_symb();	my $ressymb = $resource->wrap_symb();
# Check for unread discussion postings	# Check for unread discussion postings
if (defined($discussiontime{$ressymb})) {	if ($resource->hasDiscussion()) {
push(@discussions,$ressymb);	push(@discussions,$ressymb);
my $prevread = 0;	my $prevread = 0;
my $unreadcount = 0;	my $unreadcount = 0;