loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.105, 2012/03/16 21:16:38	version 1.105.2.1, 2012/05/10 19:01:40
Line 1474 sub display_handgrade {	Line 1474 sub display_handgrade {
foreach my $res (@{$tograde}) {	foreach my $res (@{$tograde}) {
$rowNum ++;	$rowNum ++;
my $css_class = $rowNum%2?' class="LC_odd_row"':'';	my $css_class = $rowNum%2?' class="LC_odd_row"':'';
my $linkurl='/adm/grades';	my ($map,$id,$url)=&Apache::lonnet::decode_symb($res);
	my $linkurl=&Apache::lonnet::clutter($url);
	$linkurl .= '?symb='.&escape($res);
if ($$ungraded{$res}{'enclink'}) {	if ($$ungraded{$res}{'enclink'}) {
$linkurl.='?symb='.$$ungraded{$res}{'encsymb'};	$linkurl =
} else {	$$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};
$linkurl.='?symb='.&escape($res);
}	}
$linkurl.='&command=ungraded';
$r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>');	$r->print('<tr'.$css_class.'><td><a href="'.$linkurl.'">'.$$ungraded{$res}{title}.'</a></td><td class="LC_right_item">'.$$ungraded{$res}{count}.'</td></tr>');
}	}
} elsif ($itemserror) {	} elsif ($itemserror) {