--- loncom/interface/lonquickgrades.pm 2010/12/03 21:33:52 1.55 +++ loncom/interface/lonquickgrades.pm 2011/01/03 14:39:19 1.61 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.55 2010/12/03 21:33:52 www Exp $ +# $Id: lonquickgrades.pm,v 1.61 2011/01/03 14:39:19 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -121,24 +121,35 @@ sub startGradeScreen { my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'}); if ($allowed_to_view) { - $r->print(''); - if ($notshowTotals) { $r->print (''); } - if ($notshowSPRSlink){ $r->print (''); } - if ($showPoints) { $r->print (''); } - if ($showCategories) { $r->print (''); } - $r->print('
'.&mt('Students do not see total points.').''.&mt('Students do not see link to spreadsheet.').''.&mt('Students will see points based on problem weights.').''.&mt('Students will see points based on categories.').''.&Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading').'
'); + my @notes; + push(@notes,&mt('Students do not see total points.')) if ($notshowTotals); + push(@notes,&mt('Students do not see link to spreadsheet.')) if ($notshowSPRSlink); + push(@notes,&mt('Students will see points based on problem weights.')) if ($showPoints); + push(@notes,&mt('Students will see points based on categories.')) if ($showCategories); + push(@notes, &Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading')); + $r->print(&Apache::loncommon::head_subbox(join('  ',@notes))); } - $r->print(''."\n"); $r->print('
'); }