loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.18 and 1.21

version 1.18, 2005/06/06 22:39:59	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;
Line 561 sub getitems {	Line 561 sub getitems {
if ($resource->is_problem()) {	if ($resource->is_problem()) {
my $ctr = 0;	my $ctr = 0;
my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);	my ($map,$ind,$url)=&Apache::lonnet::decode_symb($symb);
my ($partlist,$handgrade,$responseType) = &Apache::grades::response_type($url,$symb);	my ($partlist,$handgrade,$responseType) =
	&Apache::grades::response_type($url,$symb);
	my $handgradeable;
	foreach my $value (values(%{$handgrade})) {
	if ($value eq 'yes') { $handgradeable=1; last; }
	}
	next if (!$handgradeable);

foreach my $student (keys(%$classlist)) {	foreach my $student (keys(%$classlist)) {
my ($uname,$udom) = split(/:/,$student);	my ($uname,$udom) = split(/:/,$student);
my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist);	my %status=&Apache::grades::student_gradeStatus($url,$symb,$udom,$uname,$partlist);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.18
changed lines
	Added in v.1.21