--- loncom/interface/lonquickgrades.pm 2017/12/31 15:49:03 1.113
+++ loncom/interface/lonquickgrades.pm 2024/12/10 04:52:30 1.128
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Quick Student Grades Display
#
-# $Id: lonquickgrades.pm,v 1.113 2017/12/31 15:49:03 raeburn Exp $
+# $Id: lonquickgrades.pm,v 1.128 2024/12/10 04:52:30 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -83,6 +83,25 @@ sub real_handler {
my $reinitresult;
+ if ($env{'request.course.id'}) {
+ my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+ my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+ my $clientip = &Apache::lonnet::get_requestor_ip($r);
+ my ($blocked,$blocktext) =
+ &Apache::loncommon::blocking_status('grades',$clientip,$cnum,$cdom);
+ if ($blocked) {
+ my $checkrole = "cm./$cdom/$cnum";
+ if ($env{'request.course.sec'} ne '') {
+ $checkrole .= "/$env{'request.course.sec'}";
+ }
+ unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
+ ($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
+ &grades_blocked($r,$blocktext,$showPoints);
+ return OK;
+ }
+ }
+ }
+
unless ($cangrade) {
# Check for critical messages and redirect if present.
my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'grades');
@@ -101,23 +120,27 @@ sub real_handler {
$r->send_http_header;
$r->print(&Apache::loncommon::check_release_result(@reinit));
return OK;
- } elsif ($reinitresult eq 'update') {
- my $cid = $env{'request.course.id'};
- my $cnum = $env{'course.'.$cid.'.num'};
- my $cdom = $env{'course.'.$cid.'.domain'};
+ }
+ my ($cid,$cnum,$cdom);
+ if ($reinitresult) {
+ $cid = $env{'request.course.id'};
+ $cnum = $env{'course.'.$cid.'.num'};
+ $cdom = $env{'course.'.$cid.'.domain'};
+ }
+ if (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
&startpage($r,$showPoints);
my $preamble = '<div id="LC_update_'.$cid.'" class="LC_info">'.
'<br />'.
&mt('Your course session is being updated because of recent changes by course personnel.').
- ' '.&mt('Please be patient.').'<br /></div>'.
+ ' '.&mt('Please be patient').'.<br /></div>'.
'<div style="padding:0;clear:both;margin:0;border:0"></div>';
%prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
&Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));
$r->rflush();
my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
- &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished'));
+ &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!'));
&Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
my $closure = <<ENDCLOSE;
<script type="text/javascript">
@@ -142,9 +165,19 @@ ENDCLOSE
$r->header_out(Location => $furl);
return REDIRECT;
}
+ if (($reinitresult eq 'supp') || ($reinitresult eq 'both')) {
+ my $possdel;
+ if ($reinitresult eq 'supp') {
+ $possdel = 1;
+ }
+ my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel);
+ unless ($refs_updated) {
+ &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
+ }
+ }
}
- unless ($reinitresult eq 'update') {
+ unless (($reinitresult eq 'main') || ($reinitresult eq 'both')) {
# Send header, don't cache this page
&Apache::loncommon::no_cache($r);
$r->send_http_header;
@@ -204,6 +237,10 @@ ENDCLOSE
$r->print('<p><span class="LC_warning">'.&mt("Unknown Student/Employee ID: [_1]",$stdid).'</span></p>');
$stdid='';
}
+ if (($uname eq '') && ($udom eq '')) {
+ $uname = $env{'user.name'};
+ $udom = $env{'user.domain'};
+ }
$r->print('<form method="post" name="quickform" action="/adm/quickgrades">');
my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
&Apache::loncommon::selectstudent_link('quickform','uname','udom');
@@ -219,34 +256,90 @@ ENDCLOSE
}
$r->rflush();
- my $notshowSPRSlink =
- (($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'external')
- || ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals'));
my $notshowTotals=
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals';
my $showCategories=
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories';
- my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=
- &getData($showPoints,$uname,$udom);
+ my $usec;
+ if ($cangrade) {
+ if (($uname eq $env{'user.name'}) && ($udom eq $env{'user.domain'})) {
+ $usec = $env{'request.course.sec'};
+ } else {
+ $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'});
+ }
+ } else {
+ $usec = $env{'request.course.sec'};
+ }
+
+ my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,
+ $topLevelRight,$topLevelAttempted) = &getData($showPoints,$uname,$udom,$usec);
- if ($showCategories) {
- &outputCategories($r,$showPoints,$notshowTotals,
- $navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted);
+ if (ref($navmap)) {
+ if ($showCategories) {
+ &outputCategories($r,$showPoints,$notshowTotals,$navmap,$totalParts,$totalPossible,
+ $totalRight,$totalAttempted,$topLevelParts,$topLevelRight,
+ $topLevelAttempted);
+ } else {
+ my $nostdtotals;
+ if ($showPoints) {
+ if ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'standard') {
+ my $hidetotals = $env{'course.'.$env{'request.course.id'}.'.hidetotals'};
+ if ($hidetotals eq 'all') {
+ $nostdtotals = 1;
+ } elsif ($hidetotals ne '') {
+ if ($usec ne '') {
+ my %secnototals;
+ map { $secnototals{$_} = 1; } split(/,/,$hidetotals);
+ if ($secnototals{$usec}) {
+ $nostdtotals = 1;
+ }
+ }
+ }
+ }
+ }
+ &outputTable($r,$showPoints,$notshowTotals,$nostdtotals,$navmap,
+ $totalParts,$totalPossible,$totalRight,$totalAttempted,
+ $topLevelParts,$topLevelRight,$topLevelAttempted);
+ }
} else {
- &outputTable($r,$showPoints,$notshowTotals,
- $navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted);
+ if ($cangrade) { $r->print("\n</form>\n"); }
+ my $requrl = $r->uri;
+ $env{'user.error.msg'} = "$requrl:bre:0:0:Navmap initialization failed.";
+ return HTTP_NOT_ACCEPTABLE;
}
if ($cangrade) { $r->print("\n</form>\n"); }
&endGradeScreen($r);
return OK;
+}
+sub grades_blocked {
+ my ($r,$blocktext,$caller) = @_;
+ my $title = 'Points Display';
+ if ($caller eq 'spreadsheet') {
+ $title = 'Spreadsheet';
+ } elsif ($env{'course.'.$env{'request.course.id'}.'.grading'} ne 'standard') {
+ $title = 'Completed Problems Display';
+ }
+ my $brcrum = [{href=>"/adm/quickgrades",text => $title}];
+ &Apache::lonhtmlcommon::clear_breadcrumbs();
+ &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/quickgrades',
+ text=> $title});
+ my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs($title);
+ &Apache::loncommon::content_type($r,'text/html');
+ &Apache::loncommon::no_cache($r);
+ $r->send_http_header;
+ $r->print(&Apache::loncommon::start_page($title).
+ $breadcrumbs.
+ $blocktext.
+ &Apache::loncommon::end_page());
+ return;
}
sub getStudentCatGrade {
- my ($uname,$udom,%categories)=@_;
+ my ($uname,$udom,$usec,%categories)=@_;
my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=
- &getData(1,$uname,$udom);
+ &getData(1,$uname,$udom,$usec);
return &output_category_table(undef,0,$navmap,0,%categories);
}
@@ -262,11 +355,13 @@ sub getAllStudentData {
my $usernameidx = &Apache::loncoursedata::CL_SNAME();
my $domainidx = &Apache::loncoursedata::CL_SDOM();
my $fullnameidx = &Apache::loncoursedata::CL_FULLNAME();
+ my $sectionidx = &Apache::loncoursedata::CL_SECTION();
foreach my $key (keys(%{$classlist})) {
my $student = $classlist->{$key};
my $perc=&getStudentCatGrade($classlist->{$student}->[$usernameidx],
$classlist->{$student}->[$domainidx],
+ $classlist->{$student}->[$sectionidx],
%categories);
}
}
@@ -285,24 +380,52 @@ sub startGradeScreen {
my $showPoints =
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'standard';
+ my $hidetotals =
+ $env{'course.'.$env{'request.course.id'}.'.hidetotals'};
my $notshowSPRSlink =
(($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'external')
|| ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals')
|| ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories'));
- my $notshowTotals=
+ my $notshowTotals =
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals';
- my $showCategories=
+ my $showSPRSlink =
+ $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet';
+ my $showCategories =
$env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories';
+
+ my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
+ if ((!$allowed_to_view) && ($env{'request.course.sec'} ne '')) {
+ $allowed_to_view = &Apache::lonnet::allowed('vgr',
+ "$env{'request.course.id'}/$env{'request.course.sec'}");
+ }
- my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
- 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_edit) && ($env{'request.course.sec'} ne '')) {
+ $allowed_to_edit = &Apache::lonnet::allowed('mgr',
+ "$env{'request.course.id'}/$env{'request.course.sec'}");
+ }
if ($allowed_to_view) {
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);
+ if (($showPoints) && ($hidetotals ne '')) {
+ if ($hidetotals eq 'all') {
+ push(@notes,&mt('Students do not see course totals.'));
+ } else {
+ my @secs = split(/,/,$hidetotals);
+ if (@secs == 1) {
+ push(@notes,&mt('Students in section [_1] do not see course totals.',
+ $hidetotals));
+ } elsif (@secs > 1) {
+ push(@notes,&mt('Students in sections [_1] do not see course totals.',
+ join(', ',@secs)));
+ }
+ }
+ }
push(@notes,&mt('Students will see points based on categories.')) if ($showCategories);
+ push(@notes,&mt('Students will see link to spreadsheet.')) if ($showSPRSlink);
push(@notes, &Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading'));
$r->print(&Apache::loncommon::head_subbox(join(' ',@notes)));
}
@@ -341,8 +464,9 @@ sub startGradeScreen {
}
sub endGradeScreen {
- my ($r)=@_;
- $r->print('</div></div></div>'.&Apache::loncommon::end_page());
+ my ($r)=@_;
+ $r->print('</div></div></div>'.&Apache::loncommon::end_page());
+ return;
}
# -----------
@@ -410,18 +534,23 @@ sub excel_finish {
sub getData {
- my ($showPoints,$uname,$udom)=@_;
+ my ($showPoints,$uname,$udom,$usec)=@_;
# Create the nav map
- my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom);
+ my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom,$usec);
+
+ if (!defined($navmap)) {
+ return ();
+ }
my $res = $navmap->firstResource(); # temp resource to access constants
- my $iterator = $navmap->getIterator(undef, undef, undef, 1);
+ my $deeplinkcond = 1;
+ my $iterator = $navmap->getIterator(undef, undef, undef, 1, undef, undef, $deeplinkcond);
my $depth = 1;
$iterator->next(); # ignore first BEGIN_MAP
my $curRes = $iterator->next();
-
+
# General overview of the following: Walk along the course resources.
# For every problem in the resource, tell its parent maps how many
# parts and how many parts correct it has. After that, each map will
@@ -443,8 +572,17 @@ sub getData {
while ( $depth > 0 ) {
if ($curRes == $iterator->BEGIN_MAP()) {$depth++;}
if ($curRes == $iterator->END_MAP()) { $depth--; }
-
- if (ref($curRes) && $curRes->is_gradable() && !$curRes->randomout)
+ my ($deeplink,$nodeeplinkcheck,$symb);
+ $nodeeplinkcheck = 1;
+ if (ref($curRes)) {
+ $symb = $curRes->symb();
+ $deeplink = $curRes->deeplink('quickgrades');
+ if ($deeplink eq 'absent') {
+ $nodeeplinkcheck = 0;
+ }
+ }
+ if (ref($curRes) && $curRes->is_gradable() && !$curRes->randomout &&
+ ($nodeeplinkcheck))
{
# Get number of correct, incorrect parts
my $parts = $curRes->parts();
@@ -534,7 +672,8 @@ sub getData {
}
$curRes = $iterator->next();
}
- return ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted);
+ return ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,
+ $topLevelParts,$topLevelRight,$topLevelAttempted);
}
#
@@ -543,8 +682,8 @@ sub getData {
sub outputTable {
- my ($r,$showPoints,$notshowTotals,
- $navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_;
+ my ($r,$showPoints,$notshowTotals,$nostdtotals,$navmap,$totalParts,$totalPossible,
+ $totalRight,$totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_;
my @start = (255, 255, 192);
my @end = (0, 192, 0);
@@ -565,7 +704,8 @@ sub outputTable {
# Output of folder scores
#
- my $iterator = $navmap->getIterator(undef, undef, undef, 1);
+ my $deeplinkcond = 1;
+ my $iterator = $navmap->getIterator(undef, undef, undef, 1, undef, undef, $deeplinkcond);
my $depth = 1;
$iterator->next(); # ignore first BEGIN_MAP
my $curRes = $iterator->next();
@@ -629,19 +769,22 @@ sub outputTable {
# show totals (if applicable), close table
#
if ($showPoints) {
- my $maxHelpLink = &Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
+ unless ($nostdtotals) {
+ my $maxHelpLink = &Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
- $title = $showPoints ? "Points" : "Parts Done";
- my $totaltitle = $showPoints ? &mt("Awarded Total Points") : &mt("Total Parts Done");
- $r->print(&Apache::loncommon::start_data_table_row()
- .'<td colspan="2" align="right">'.$totaltitle.': <b>'.$totalRight.'</b><br />');
- $r->print(&mt('Max Possible To Date')." $maxHelpLink: <b>$totalPossible</b><br />");
- $title = $showPoints ? "Points" : "Parts";
- $r->print(&mt("Total $title In Course").': <b>'.$totalParts.'</b></td>'
- .&Apache::loncommon::end_data_table_row());
+ $title = $showPoints ? "Points" : "Parts Done";
+ my $totaltitle = $showPoints ? &mt("Awarded Total Points") : &mt("Total Parts Done");
+ $r->print(&Apache::loncommon::start_data_table_row()
+ .'<td colspan="2" align="right">'.$totaltitle.': <b>'.$totalRight.'</b><br />');
+ $r->print(&mt('Max Possible To Date')." $maxHelpLink: <b>$totalPossible</b><br />");
+ $title = $showPoints ? "Points" : "Parts";
+ $r->print(&mt("Total $title In Course").': <b>'.$totalParts.'</b></td>'
+ .&Apache::loncommon::end_data_table_row());
+ }
}
$r->print(&Apache::loncommon::end_data_table());
+ return;
}
#
@@ -695,7 +838,8 @@ sub dumpdata {
# Run through the map and get all data
- my $iterator = $navmap->getIterator(undef, undef, undef, 1);
+ my $deeplinkcond = 1;
+ my $iterator = $navmap->getIterator(undef, undef, undef, 1, undef, undef, $deeplinkcond);
my $depth = 1;
$iterator->next(); # ignore first BEGIN_MAP
my $curRes = $iterator->next();