loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.60, 2011/01/03 14:19:39	version 1.61, 2011/01/03 14:39:19
Line 121 sub startGradeScreen {	Line 121 sub startGradeScreen {
my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});	my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});

if ($allowed_to_view) {	if ($allowed_to_view) {
$r->print('<div class="LC_head_subbox">');	my @notes;
if ($notshowTotals) { $r->print (' '.&mt('Students do not see total points.').' '); }	push(@notes,&mt('Students do not see total points.')) if ($notshowTotals);
if ($notshowSPRSlink){ $r->print (' '.&mt('Students do not see link to spreadsheet.').' '); }	push(@notes,&mt('Students do not see link to spreadsheet.')) if ($notshowSPRSlink);
if ($showPoints) { $r->print (' '.&mt('Students will see points based on problem weights.').' '); }	push(@notes,&mt('Students will see points based on problem weights.')) if ($showPoints);
if ($showCategories) { $r->print (' '.&mt('Students will see points based on categories.').' '); }	push(@notes,&mt('Students will see points based on categories.')) if ($showCategories);
$r->print(' '.&Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading').'</div>');	push(@notes, &Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading'));
	$r->print(&Apache::loncommon::head_subbox(join('  ',@notes)));
}	}