Annotation of loncom/interface/lonquickgrades.pm, revision 1.49.6.6.2.2

1.1       bowersj2    1: # The LearningOnline Network with CAPA
                      2: # Quick Student Grades Display
                      3: #
1.49.6.6.2.2! raeburn     4: # $Id: lonquickgrades.pm,v 1.49.6.6.2.1 2020/09/08 04:24:18 raeburn Exp $
1.1       bowersj2    5: #
                      6: # Copyright Michigan State University Board of Trustees
                      7: #
                      8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
                      9: #
                     10: # LON-CAPA is free software; you can redistribute it and/or modify
                     11: # it under the terms of the GNU General Public License as published by
                     12: # the Free Software Foundation; either version 2 of the License, or
                     13: # (at your option) any later version.
                     14: #
                     15: # LON-CAPA is distributed in the hope that it will be useful,
                     16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
                     17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     18: # GNU General Public License for more details.
                     19: #
                     20: # You should have received a copy of the GNU General Public License
                     21: # along with LON-CAPA; if not, write to the Free Software
                     22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
                     23: #
                     24: # /home/httpd/html/adm/gpl.txt
                     25: #
                     26: # http://www.lon-capa.org/
                     27: #
                     28: 
                     29: package Apache::lonquickgrades;
                     30: 
                     31: use strict;
1.49.6.1  raeburn    32: use Apache::Constants qw(:common :http REDIRECT);
1.5       bowersj2   33: use POSIX;
1.25      www        34: use Apache::loncommon;
                     35: use Apache::lonlocal;
1.36      albertel   36: use Apache::lonnet;
1.38      bowersj2   37: use Apache::grades;
1.49.6.3  raeburn    38: use Apache::lonuserstate;
1.1       bowersj2   39: 
                     40: sub handler {
                     41:     my $r = shift;
1.5       bowersj2   42:     return real_handler($r);
                     43: }
                     44: 
                     45: sub real_handler {
                     46:     my $r = shift;
1.1       bowersj2   47: 
                     48:     &Apache::loncommon::get_unprocessed_cgi($ENV{QUERY_STRING});
                     49: 
                     50:     # Handle header-only request
1.40      albertel   51:     if ($env{'browser.mathml'}) {
                     52: 	&Apache::loncommon::content_type($r,'text/xml');
                     53:     } else {
                     54: 	&Apache::loncommon::content_type($r,'text/html');
                     55:     }
1.1       bowersj2   56:     if ($r->header_only) {
1.40      albertel   57: 	$r->send_http_header;
1.1       bowersj2   58:         return OK;
                     59:     }
                     60: 
1.49.6.6  raeburn    61:     my $cangrade=&Apache::lonnet::allowed('mgr');
1.49.6.4  raeburn    62:     my $showPoints =
                     63:         $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'standard';
                     64: 
                     65:     my $reinitresult;
                     66: 
1.49.6.6.2.1  raeburn    67:     if ($env{'request.course.id'}) {
                     68:         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                     69:         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                     70:         my ($blocked,$blocktext) =
                     71:             &Apache::loncommon::blocking_status('grades',$cnum,$cdom);
                     72:         if ($blocked) {
                     73:             my $checkrole = "cm./$cdom/$cnum";
                     74:             if ($env{'request.course.sec'} ne '') {
                     75:                 $checkrole .= "/$env{'request.course.sec'}";
                     76:             }
                     77:             unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
                     78:                     ($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
                     79:                 &grades_blocked($r,$blocktext,$showPoints);
                     80:                 return OK;
                     81:             }
                     82:         }
                     83:     }
                     84: 
1.49.6.6  raeburn    85:     unless ($cangrade) {
1.49.6.2  raeburn    86:         # Check for critical messages and redirect if present.
1.49.6.6.2.1  raeburn    87:         my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'grades');
1.49.6.2  raeburn    88:         if ($redirect) {
                     89:             &Apache::loncommon::content_type($r,'text/html');
                     90:             $r->header_out(Location => $url);
                     91:             return REDIRECT;
                     92:         }
                     93: 
                     94:         # Check if course needs to be re-initialized
                     95:         my $loncaparev = $r->dir_config('lonVersion');
1.49.6.4  raeburn    96:         ($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
1.49.6.2  raeburn    97: 
1.49.6.4  raeburn    98:         if ($reinitresult eq 'switch') {
1.49.6.2  raeburn    99:             &Apache::loncommon::content_type($r,'text/html');
                    100:             $r->send_http_header;
                    101:             $r->print(&Apache::loncommon::check_release_result(@reinit));
                    102:             return OK;
1.49.6.4  raeburn   103:         } elsif ($reinitresult eq 'update') {
                    104:             my $cid = $env{'request.course.id'};
                    105:             my $cnum = $env{'course.'.$cid.'.num'};
                    106:             my $cdom = $env{'course.'.$cid.'.domain'};
                    107:             &Apache::loncommon::content_type($r,'text/html');
                    108:             $r->send_http_header;
                    109:             &startpage($r,$showPoints);
                    110:             my $preamble = '<div id="LC_update_'.$cid.'" class="LC_info">'.
                    111:                            '<br />'.
                    112:                            &mt('Your course session is being updated because of recent changes by course personnel.').
1.49.6.6.2.2! raeburn   113:                            ' '.&mt('Please be patient').'.<br /></div>'.
1.49.6.4  raeburn   114:                            '<div style="padding:0;clear:both;margin:0;border:0"></div>';
1.49.6.5  raeburn   115:             my %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
1.49.6.4  raeburn   116:             &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));
                    117:             $r->rflush();
1.49.6.2  raeburn   118:             my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
1.49.6.6.2.2! raeburn   119:             &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished!'));
1.49.6.4  raeburn   120:             &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                    121:             my $closure = <<ENDCLOSE;
                    122: <script type="text/javascript">
                    123: // <![CDATA[
                    124: \$("#LC_update_$cid").hide('slow');
                    125: // ]]>
                    126: </script>
                    127: ENDCLOSE
1.49.6.2  raeburn   128:             if ($ferr) {
1.49.6.4  raeburn   129:                 $r->print($closure.&Apache::loncommon::end_page());
1.49.6.2  raeburn   130:                 my $requrl = $r->uri;
                    131:                 $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
                    132:                 $env{'user.reinit'} = 1;
                    133:                 return HTTP_NOT_ACCEPTABLE;
1.49.6.4  raeburn   134:             } else {
                    135:                $r->print($closure);
1.49.6.2  raeburn   136:             }
                    137:         }
                    138:     }
                    139: 
1.49.6.4  raeburn   140:     unless ($reinitresult eq 'update') {
                    141:         # Send header, don't cache this page
                    142:         &Apache::loncommon::no_cache($r);
                    143:         $r->send_http_header;
                    144:         &startpage($r,$showPoints);
                    145:     }
                    146:     $r->rflush();
1.1       bowersj2  147: 
1.49.6.6  raeburn   148:     &startGradeScreen($r);
                    149: 
                    150: #
                    151: # Pick student
                    152: #
                    153:     my $uname;
                    154:     my $udom;
                    155:     my $stdid;
                    156:     if ($cangrade) {
                    157:         if ($env{'form.uname'}) { $uname=$env{'form.uname'}; }
                    158:         if ($env{'form.udom'}) { $udom=$env{'form.udom'}; }
                    159:         if ($env{'form.id'}) { $stdid=$env{'form.id'}; }
                    160:         if (($stdid) && ($udom)) {
                    161:             $uname=(&Apache::lonnet::idget($udom,[$stdid],'ids'))[1];
                    162:         }
                    163:         if (($stdid) && (!$uname)) {
                    164:             $r->print('<p><span class="LC_warning">'.&mt("Unknown Student/Employee ID: [_1]",$stdid).'</span></p>');
                    165:             $stdid='';
                    166:         }
                    167:         if (($uname eq '') && ($udom eq '')) {
                    168:             $uname = $env{'user.name'};
                    169:             $udom = $env{'user.domain'};
                    170:         }
                    171:         $r->print('<form method="post" name="quickform" action="/adm/quickgrades">');
                    172:         my $chooseopt=&Apache::loncommon::select_dom_form($udom,'udom').' '.
                    173:            &Apache::loncommon::selectstudent_link('quickform','uname','udom');
                    174:         $r->print("<p>\n".&Apache::loncommon::studentbrowser_javascript()."\n");
                    175:         $r->print(&mt('For User [_1] or Student/Employee ID [_2] at Domain [_3]'
                    176:                  ,'<input type="text" value="'.$uname.'" size="12" name="uname" />'
                    177:                  ,'<input type="text" value="'.$stdid.'" size="12" name="id" /> '
                    178:                  ,$chooseopt).
                    179:                  '&nbsp;&nbsp;<input type="submit" name="display" value="'.&mt('Display Individual Student').'" /></p>');
                    180:         if (($uname) && ($udom)) {
                    181:             $r->print('<p>'.&mt('Full Name: [_1]',&Apache::loncommon::plainname($uname,$udom)).'</p>');
                    182:         }
                    183:     } else {
                    184:         $r->print('<p class="LC_info">'.&mt('This may take a few moments to display.').'</p>');
                    185:     }
                    186:     $r->rflush();
                    187: 
1.49      www       188:     my $notshowTotals=
                    189:         $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals';
1.17      bowersj2  190: 
1.49.6.6  raeburn   191:     my ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,$topLevelParts,
                    192:         $topLevelRight,$topLevelAttempted) = &getData($showPoints,$uname,$udom);
1.1       bowersj2  193: 
1.49.6.6  raeburn   194:     if (ref($navmap)) {
                    195:         &outputTable($r,$showPoints,$notshowTotals,$navmap,$totalParts,$totalPossible,
                    196:                      $totalRight,$totalAttempted,$topLevelParts,$topLevelRight,
                    197:                      $topLevelAttempted);
                    198:     } else {
                    199:         if ($cangrade) { $r->print("\n</form>\n"); }
1.7       bowersj2  200:         my $requrl = $r->uri;
1.49.6.6  raeburn   201:         $env{'user.error.msg'} = "$requrl:bre:0:0:Navmap initialization failed.";
1.7       bowersj2  202:         return HTTP_NOT_ACCEPTABLE;
                    203:     }
1.49.6.6  raeburn   204:     if ($cangrade) { $r->print("\n</form>\n"); }
                    205:     &endGradeScreen($r);
                    206:     return OK;
                    207: }
1.7       bowersj2  208: 
1.49.6.6.2.1  raeburn   209: sub grades_blocked {
                    210:     my ($r,$blocktext,$caller) = @_;
                    211:     my $title = 'Points Display';
                    212:     if ($caller eq 'spreadsheet') {
                    213:         $title = 'Spreadsheet';
                    214:     } elsif ($env{'course.'.$env{'request.course.id'}.'.grading'} ne 'standard') {
                    215:         $title = 'Completed Problems Display';
                    216:     }
                    217:     my $brcrum = [{href=>"/adm/quickgrades",text => $title}];
                    218:     &Apache::lonhtmlcommon::clear_breadcrumbs();
                    219:     &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/quickgrades',
                    220:                                             text=> $title});
                    221:     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs($title);
                    222:     &Apache::loncommon::content_type($r,'text/html');
                    223:     &Apache::loncommon::no_cache($r);
                    224:     $r->send_http_header;
                    225:     $r->print(&Apache::loncommon::start_page($title).
                    226:               $breadcrumbs.
                    227:               $blocktext.
                    228:               &Apache::loncommon::end_page());
                    229:     return;
                    230: }
                    231: 
1.49.6.6  raeburn   232: #
                    233: # Go through the complete course and collect data
                    234: #
1.17      bowersj2  235: 
1.49.6.6  raeburn   236: sub getData {
1.17      bowersj2  237: 
1.49.6.6  raeburn   238:     my ($showPoints,$uname,$udom)=@_;
1.2       bowersj2  239: 
1.49.6.6  raeburn   240:     # Create the nav map
                    241:     my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom);
                    242: 
                    243:     if (!defined($navmap)) {
                    244:         return ();
                    245:     }
                    246: 
                    247:     my $res = $navmap->firstResource(); # temp resource to access constants
1.1       bowersj2  248: 
                    249:     my $iterator = $navmap->getIterator(undef, undef, undef, 1);
                    250:     my $depth = 1;
                    251:     $iterator->next(); # ignore first BEGIN_MAP
                    252:     my $curRes = $iterator->next();
1.49.6.6  raeburn   253: 
1.5       bowersj2  254:     # General overview of the following: Walk along the course resources.
                    255:     # For every problem in the resource, tell its parent maps how many
                    256:     # parts and how many parts correct it has. After that, each map will
                    257:     # have a count of the total parts underneath it, correct and otherwise.
                    258:     # After that, we will walk through the course again and read off
                    259:     # maps in order, with their data. 
                    260:     # (If in the future people decide not to be cumulative, only add
                    261:     #  the counts to the parent map.)
1.17      bowersj2  262:     # For convenience, "totalParts" is also "totalPoints" when we're looking
                    263:     #  at points; I can't come up with a variable name that makes sense
                    264:     #  equally for both cases.
1.5       bowersj2  265: 
                    266:     my $totalParts = 0; my $totalPossible = 0; my $totalRight = 0;
1.28      bowersj2  267:     my $totalAttempted = 0;
1.14      bowersj2  268:     my $now = time();
1.28      bowersj2  269:     my $topLevelParts = 0; my $topLevelRight = 0; my $topLevelAttempted = 0;
1.5       bowersj2  270: 
                    271:     # Pre-run: Count parts correct
1.1       bowersj2  272:     while ( $depth > 0 ) {
                    273:         if ($curRes == $iterator->BEGIN_MAP()) {$depth++;}
                    274:         if ($curRes == $iterator->END_MAP()) { $depth--; }
                    275: 
1.7       bowersj2  276:         if (ref($curRes) && $curRes->is_problem() && !$curRes->randomout)
1.5       bowersj2  277:         {
                    278:             # Get number of correct, incorrect parts
                    279:             my $parts = $curRes->parts();
                    280:             my $partsRight = 0;
1.17      bowersj2  281: 	    my $partsCount = 0;
1.28      bowersj2  282: 	    my $partsAttempted = 0;
1.5       bowersj2  283:             my $stack = $iterator->getStack();
                    284:             
                    285:             for my $part (@{$parts}) {
1.28      bowersj2  286: 		my $dateStatus = $curRes->getDateStatus($part);
1.49.6.6  raeburn   287:                 my $weight = $curRes->weight($part);
                    288:                 my $problemstatus = $curRes->problemstatus($part);
                    289: 
                    290:                 if ($curRes->solved($part) eq 'excused') {
1.21      matthew   291:                     next;
                    292:                 }
1.17      bowersj2  293: 		if ($showPoints) {
1.28      bowersj2  294: 		    my $score = 0;
                    295: 		    # If we're not telling status and the answer date isn't passed yet, 
                    296: 		    # it's an "attempted" point
1.49.6.6  raeburn   297: 		    if ((($problemstatus eq 'no') ||
                    298:                          ($problemstatus eq 'no_feedback_ever')) &&
1.28      bowersj2  299: 			($dateStatus != $curRes->ANSWER_OPEN)) {
1.31      albertel  300: 			my $status = $curRes->simpleStatus($part);
                    301: 			if ($status == $curRes->ATTEMPTED) {
1.49.6.6  raeburn   302: 			    $partsAttempted += $weight;
1.31      albertel  303: 			    $totalAttempted += $partsAttempted;
                    304: 			}
1.28      bowersj2  305: 		    } else {
1.49.6.6  raeburn   306: 			$score = &Apache::grades::compute_points($weight, $curRes->awarded($part));
1.28      bowersj2  307: 		    }
1.17      bowersj2  308: 		    $partsRight += $score;
                    309: 		    $totalRight += $score;
1.49.6.6  raeburn   310: 		    $partsCount += $weight;
1.18      bowersj2  311: 
1.17      bowersj2  312: 		    if ($curRes->opendate($part) < $now) {
1.49.6.6  raeburn   313: 			$totalPossible += $weight;
1.17      bowersj2  314: 		    }
1.49.6.6  raeburn   315: 		    $totalParts += $weight;
1.17      bowersj2  316: 		} else {
1.27      bowersj2  317: 		    my $status = $curRes->simpleStatus($part);
1.17      bowersj2  318: 		    my $thisright = 0;
                    319: 		    $partsCount++;
1.37      albertel  320: 		    if ($status == $curRes->CORRECT ||
                    321: 			$status == $curRes->PARTIALLY_CORRECT ) {
1.17      bowersj2  322: 			$partsRight++;
                    323: 			$totalRight++;
                    324: 			$thisright = 1;
                    325: 		    }
1.28      bowersj2  326: 
                    327: 		    if ($status == $curRes->ATTEMPTED) {
                    328: 			$partsAttempted++;
                    329: 			$totalAttempted++;
                    330: 		    }
1.17      bowersj2  331: 		    
1.19      bowersj2  332: 		    $totalParts++;
1.17      bowersj2  333: 		    if ($curRes->opendate($part) < $now) {
                    334: 			$totalPossible++;
                    335: 		    }
                    336: 		}
1.5       bowersj2  337:             }
1.15      bowersj2  338: 
                    339:             if ($depth == 1) { # in top-level only
1.19      bowersj2  340: 		$topLevelParts += $partsCount;
1.15      bowersj2  341: 		$topLevelRight += $partsRight;
1.28      bowersj2  342: 		$topLevelAttempted += $partsAttempted;
1.15      bowersj2  343: 	    }
                    344: 
1.5       bowersj2  345:             # Crawl down stack and record parts correct and total
                    346:             for my $res (@{$stack}) {
                    347:                 if (ref($res) && $res->is_map()) {
                    348:                     if (!defined($res->{DATA}->{CHILD_PARTS})) {
                    349:                         $res->{DATA}->{CHILD_PARTS} = 0;
                    350:                         $res->{DATA}->{CHILD_CORRECT} = 0;
1.28      bowersj2  351: 			$res->{DATA}->{CHILD_ATTEMPTED} = 0;
1.5       bowersj2  352:                     }
                    353:                     
1.17      bowersj2  354:                     $res->{DATA}->{CHILD_PARTS} += $partsCount;
1.5       bowersj2  355:                     $res->{DATA}->{CHILD_CORRECT} += $partsRight;
1.28      bowersj2  356: 		    $res->{DATA}->{CHILD_ATTEMPTED} += $partsAttempted;
1.5       bowersj2  357:                 }
                    358:             }
                    359:         }
                    360:         $curRes = $iterator->next();
                    361:     }
1.49.6.6  raeburn   362:     return ($navmap,$totalParts,$totalPossible,$totalRight,$totalAttempted,
                    363:             $topLevelParts,$topLevelRight,$topLevelAttempted);
                    364: }
1.5       bowersj2  365: 
1.49.6.6  raeburn   366: #
                    367: # Outputting everything.
                    368: #
                    369: 
                    370: sub outputTable {
                    371: 
                    372:     my ($r,$showPoints,$notshowTotals,$navmap,$totalParts,$totalPossible,$totalRight,
                    373:         $totalAttempted,$topLevelParts,$topLevelRight,$topLevelAttempted)=@_;
1.5       bowersj2  374: 
1.7       bowersj2  375:     my @start = (255, 255, 192);
1.5       bowersj2  376:     my @end   = (0, 192, 0);
                    377: 
                    378:     my $indentString = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
                    379: 
                    380:     # Second pass: Print the maps.
1.43      bisitz    381:     $r->print(&Apache::loncommon::start_data_table()
                    382:              .&Apache::loncommon::start_data_table_header_row()
                    383:              .'<th>'.&mt('Folder').'</th>');
1.49.6.5  raeburn   384:     my $title = &mt($showPoints ? "Points Scored" : "Done");
1.28      bowersj2  385:     if ($totalAttempted) {
1.49.6.6  raeburn   386:         $title .= " / " . &mt("Attempted");
1.28      bowersj2  387:     }
1.49      www       388:     $r->print("<th>$title".($notshowTotals?'':" / ".&mt('Total')).'</th>'
1.43      bisitz    389:              .&Apache::loncommon::end_data_table_header_row());
1.49.6.6  raeburn   390: #
                    391: # Output of folder scores
                    392: #
                    393: 
                    394:     my $iterator = $navmap->getIterator(undef, undef, undef, 1);
                    395:     my $depth = 1;
                    396:     $iterator->next(); # ignore first BEGIN_MAP
                    397:     my $curRes = $iterator->next();
                    398: 
1.5       bowersj2  399:     while ($depth > 0) {
                    400:         if ($curRes == $iterator->BEGIN_MAP()) {$depth++;}
                    401:         if ($curRes == $iterator->END_MAP()) { $depth--; }
                    402: 
                    403:         if (ref($curRes) && $curRes->is_map()) {
                    404:             my $title = $curRes->compTitle();
                    405:             
                    406:             my $correct = $curRes->{DATA}->{CHILD_CORRECT};
                    407:             my $total = $curRes->{DATA}->{CHILD_PARTS};
1.28      bowersj2  408: 	    my $attempted = $curRes->{DATA}->{CHILD_ATTEMPTED};
1.5       bowersj2  409: 
1.6       bowersj2  410:             if ($total > 0) {
                    411:                 my $ratio;
                    412:                 $ratio = $correct / $total;
1.49.6.4  raeburn   413:                 my $color = &mixColors(\@start, \@end, $ratio);
1.43      bisitz    414:                 $r->print(&Apache::loncommon::start_data_table_row()
                    415:                          .'<td style="background-color:'.$color.';">');
1.6       bowersj2  416:                 
1.15      bowersj2  417: 		my $thisIndent = '';
                    418:                 for (my $i = 1; $i < $depth; $i++) { $thisIndent .= $indentString; }
1.6       bowersj2  419:                 
1.15      bowersj2  420:                 $r->print("$thisIndent$title</td>");
1.28      bowersj2  421: 		if ($totalAttempted) {
1.45      bisitz    422: 		    $r->print('<td valign="top">'
                    423:                              .$thisIndent
                    424:                              .'<span class="LC_nobreak">'
1.49      www       425:                              .$correct.' / '.$attempted.($notshowTotals?'':' / '.$total)
1.45      bisitz    426:                              .'</span></td>'
                    427:                              .&Apache::loncommon::end_data_table_row()
                    428:                     );
1.28      bowersj2  429: 		} else {
1.45      bisitz    430: 		    $r->print('<td valign="top">'
                    431:                              .$thisIndent
                    432:                              .'<span class="LC_nobreak">'
1.49      www       433:                              .$correct.($notshowTotals?'':' / '.$total)
1.45      bisitz    434:                              .'</span></td>'
1.43      bisitz    435:                              .&Apache::loncommon::end_data_table_row());
1.28      bowersj2  436: 		}
1.6       bowersj2  437:             }
1.5       bowersj2  438:         }
1.4       bowersj2  439: 
1.5       bowersj2  440:         $curRes = $iterator->next();
                    441:     }
1.4       bowersj2  442: 
1.6       bowersj2  443:     # If there were any problems at the top level, print an extra "catchall"
1.15      bowersj2  444:     if ($topLevelParts > 0) {
                    445:         my $ratio = $topLevelRight / $topLevelParts;
1.49.6.4  raeburn   446:         my $color = &mixColors(\@start, \@end, $ratio);
1.43      bisitz    447:         $r->print(&Apache::loncommon::start_data_table_row()
                    448:                  .'<td style="background-color:'.$color.';">');
1.25      www       449:         $r->print(&mt("Problems Not Contained In A Folder")."</td><td>");
1.43      bisitz    450:         $r->print("$topLevelRight / $topLevelParts</td>"
                    451:                  .&Apache::loncommon::end_data_table_row());
1.6       bowersj2  452:     }
1.4       bowersj2  453: 
1.49.6.6  raeburn   454: #
                    455: # show totals (if applicable), close table
                    456: #
1.35      albertel  457:     if ($showPoints) {
1.49.6.4  raeburn   458: 	my $maxHelpLink = &Apache::loncommon::help_open_topic("Quick_Grades_Possibly_Correct");
1.2       bowersj2  459: 
1.34      www       460: 	$title = $showPoints ? "Points" : "Parts Done";
1.41      bisitz    461: 	my $totaltitle = $showPoints ? &mt("Awarded Total Points") : &mt("Total Parts Done");
1.43      bisitz    462: 	$r->print(&Apache::loncommon::start_data_table_row()
1.48      bisitz    463:                  .'<td colspan="2" align="right">'.$totaltitle.': <b>'.$totalRight.'</b><br />');
                    464: 	$r->print(&mt('Max Possible To Date')." $maxHelpLink: <b>$totalPossible</b><br />");
1.34      www       465: 	$title = $showPoints ? "Points" : "Parts";
1.43      bisitz    466: 	$r->print(&mt("Total $title In Course").': <b>'.$totalParts.'</b></td>'
                    467:                  .&Apache::loncommon::end_data_table_row());
1.34      www       468:     }
1.1       bowersj2  469: 
1.49.6.6  raeburn   470:     $r->print(&Apache::loncommon::end_data_table());
                    471:     return;
1.5       bowersj2  472: }
                    473: 
1.49.6.4  raeburn   474: sub startpage {
                    475:     my ($r,$showPoints) = @_;
                    476:     my $title = "Grading and Statistics";#$showPoints ? "Points Display" : "Completed Problems Display";
                    477:     my $brcrum = [{href=>"/adm/quickgrades",text => "Points Display"}];
                    478:     $r->print(&Apache::loncommon::start_page($title,undef,
                    479:                                             {'bread_crumbs' => $brcrum})
                    480:              );
                    481: }
                    482: 
1.49.6.6  raeburn   483: sub startGradeScreen {
                    484:     my ($r)=@_;
                    485: 
                    486:     my $showPoints =
                    487:         $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'standard';
                    488:     my $notshowSPRSlink =
                    489:         (($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'external')
                    490:       || ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals'));
                    491:     my $notshowTotals =
                    492:         $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals';
                    493:     my $showSPRSlink =
                    494:         $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet';
                    495: 
                    496:     my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'});
                    497:     if ((!$allowed_to_view) && ($env{'request.course.sec'} ne '')) {
                    498:         $allowed_to_view = &Apache::lonnet::allowed('vgr',
                    499:                                "$env{'request.course.id'}/$env{'request.course.sec'}");
                    500:     }
                    501: 
                    502:     my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'});
                    503:     if ((!$allowed_to_edit) && ($env{'request.course.sec'} ne '')) {
                    504:         $allowed_to_edit = &Apache::lonnet::allowed('mgr',
                    505:                                "$env{'request.course.id'}/$env{'request.course.sec'}");
                    506:     }
                    507: 
                    508:     if ($allowed_to_view) {
                    509:         my @notes;
                    510:         push(@notes,&mt('Students do not see total points.')) if ($notshowTotals);
                    511:         push(@notes,&mt('Students do not see link to spreadsheet.')) if ($notshowSPRSlink);
                    512:         push(@notes,&mt('Students will see points based on problem weights.')) if ($showPoints);
                    513:         push(@notes,&mt('Students will see link to spreadsheet.')) if ($showSPRSlink);
                    514:         push(@notes,&Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),'grading'));
                    515:         $r->print(&Apache::loncommon::head_subbox(join('&nbsp;&nbsp;',@notes)));
                    516:     } elsif (!$allowed_to_edit) {
                    517:         if (!$showPoints && !$notshowSPRSlink ) {
                    518:             $r->print(&Apache::loncommon::head_subbox(
                    519:                       &mt('This screen shows how many problems (or problem parts) you have completed'
                    520:                      .', and how many you have not yet done.'
                    521:                      .' You can also look at [_1]a detailed score sheet[_2].'
                    522:                      ,'<a href="/adm/studentcalc">','</a>')));
                    523:         }
                    524:     }
                    525:     return;
                    526: }
                    527: 
                    528: sub endGradeScreen {
                    529:     my ($r)=@_;
                    530:     $r->print(&Apache::loncommon::end_page());
                    531:     return;
                    532: }
                    533: 
1.5       bowersj2  534: # Pass this two refs to arrays for the start and end color, and a number
                    535: # from 0 to 1 for how much of the latter you want to mix in. It will
                    536: # return a string ready to show ("#FFC309");
                    537: sub mixColors {
                    538:     my $start = shift;
                    539:     my $end = shift;
                    540:     my $ratio = shift;
                    541:     
1.9       matthew   542:     my ($a,$b);
1.5       bowersj2  543:     my $final = "";
1.9       matthew   544:     $a = $start->[0]; $b = $end->[0];
1.5       bowersj2  545:     my $mix1 = POSIX::floor((1-$ratio)*$a + $ratio*$b);
1.9       matthew   546:     $a = $start->[1]; $b = $end->[1];
1.5       bowersj2  547:     my $mix2 = POSIX::floor((1-$ratio)*$a + $ratio*$b);
1.9       matthew   548:     $a = $start->[2]; $b = $end->[2];
1.5       bowersj2  549:     my $mix3 = POSIX::floor((1-$ratio)*$a + $ratio*$b);
                    550: 
1.16      bowersj2  551:     $final = sprintf "%02x%02x%02x", $mix1, $mix2, $mix3;
1.5       bowersj2  552:     return "#" . $final;
1.1       bowersj2  553: }
                    554: 
                    555: 1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>