loncom/interface/lonwhatsnew.pm - diff

Return to lonwhatsnew.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.100, 2010/02/12 19:39:59	version 1.102, 2010/04/14 00:38:19
Line 974 sub check_thresholds {	Line 974 sub check_thresholds {
if ($resource->handgrade($part) eq 'yes') {	if ($resource->handgrade($part) eq 'yes') {
next;	next;
}	}
	if ($resource->is_anonsurvey($part)) {
	next;
	}
if ($resource->is_survey($part)) {	if ($resource->is_survey($part)) {
next;	next;
}	}
Line 1470 sub display_handgrade {	Line 1473 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 ($map,$id,$url)=&Apache::lonnet::decode_symb($res);	my $linkurl='/adm/grades';
my $linkurl=&Apache::lonnet::clutter($url);
$linkurl .= '?symb='.&escape($res);
if ($$ungraded{$res}{'enclink'}) {	if ($$ungraded{$res}{'enclink'}) {
$linkurl =	$linkurl.='?symb='.$$ungraded{$res}{'encsymb'};
$$ungraded{$res}{'enclink'}.'?symb='.$$ungraded{$res}{'encsymb'};	} else {
}	$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) {