Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

Removed GDBM_File dependencies, &CheckFormElement, &ProcessFormData,
&SortStudents,  &SpaceColumns, &PrepareData, &BuildClasslist, and
&BuildStatistics.
&handler now works at a relatively high level to determine which statistics/*
routines to call.

    1: # The LearningOnline Network with CAPA
    2: #
    3: # $Id: lonstatistics.pm,v 1.65 2003/03/25 22:20:25 matthew Exp $
    4: #
    5: # Copyright Michigan State University Board of Trustees
    6: #
    7: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    8: #
    9: # LON-CAPA is free software; you can redistribute it and/or modify
   10: # it under the terms of the GNU General Public License as published by
   11: # the Free Software Foundation; either version 2 of the License, or
   12: # (at your option) any later version.
   13: #
   14: # LON-CAPA is distributed in the hope that it will be useful,
   15: # but WITHOUT ANY WARRANTY; without even the implied warranty of
   16: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   17: # GNU General Public License for more details.
   18: #
   19: # You should have received a copy of the GNU General Public License
   20: # along with LON-CAPA; if not, write to the Free Software
   21: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   22: #
   23: # /home/httpd/html/adm/gpl.txt
   24: #
   25: # http://www.lon-capa.org/
   26: #
   27: # (Navigate problems for statistical reports
   28: #
   29: ###
   30: 
   31: =pod
   32: 
   33: =head1 NAME
   34: 
   35: lonstatistics
   36: 
   37: =head1 SYNOPSIS
   38: 
   39: Main handler for statistics and chart.
   40: 
   41: =head1 PACKAGES USED
   42: 
   43:     use strict;
   44:     use Apache::Constants qw(:common :http);
   45:     use Apache::lonnet();
   46:     use Apache::lonhomework;
   47:     use Apache::loncommon;
   48:     use Apache::loncoursedata;
   49:     use Apache::lonhtmlcommon;
   50:     use Apache::lonproblemanalysis;
   51:     use Apache::lonproblemstatistics;
   52:     use Apache::lonstudentassessment;
   53:     use Apache::lonpercentage;
   54: 
   55: =over 4
   56: 
   57: =cut
   58: 
   59: package Apache::lonstatistics;
   60: 
   61: use strict;
   62: use Apache::Constants qw(:common :http);
   63: use vars qw(
   64:     @FullClasslist 
   65:     @Students
   66:     @Sections 
   67:     @SelectedSections
   68:     %StudentData
   69:     @StudentDataOrder
   70:     @SelectedStudentData
   71:     $top_map 
   72:     @Sequences 
   73:     @SelectedMaps
   74:     @Assessments);
   75: 
   76: use Apache::lonnet();
   77: use Apache::lonhomework;
   78: use Apache::loncommon;
   79: use Apache::loncoursedata;
   80: use Apache::lonhtmlcommon;
   81: use Apache::lonproblemanalysis();
   82: use Apache::lonproblemstatistics();
   83: use Apache::lonstudentassessment();
   84: use Apache::lonpercentage;
   85: use Time::HiRes;
   86: 
   87: #######################################################
   88: #######################################################
   89: 
   90: =pod
   91: 
   92: =item Package Variables
   93: 
   94: =item @FullClasslist The full classlist
   95: 
   96: =item @Students The students we are concerned with for this invocation
   97: 
   98: =item @Sections The sections available in this class
   99: 
  100: =item $curr_student The student currently being examined
  101: 
  102: =item $prev_student The student previous in the classlist
  103: 
  104: =item $next_student The student next in the classlist
  105: 
  106: =over
  107: 
  108: =cut 
  109: 
  110: #######################################################
  111: #######################################################
  112: #
  113: # Classlist variables
  114: #
  115: my $curr_student;
  116: my $prev_student;
  117: my $next_student;
  118: 
  119: #######################################################
  120: #######################################################
  121: 
  122: =pod
  123: 
  124: =item &clear_classlist_variables()
  125: 
  126: undef the following package variables:
  127: 
  128: =over
  129: 
  130: =item @FullClasslist
  131: 
  132: =item @Students
  133: 
  134: =item @Sections
  135: 
  136: =item @SelectedSections
  137: 
  138: =item %StudentData
  139: 
  140: =item @StudentDataOrder
  141: 
  142: =item @SelectedStudentData
  143: 
  144: =item $curr_student
  145: 
  146: =item $prev_student
  147: 
  148: =item $next_student
  149: 
  150: =back
  151: 
  152: =cut
  153: 
  154: #######################################################
  155: #######################################################
  156: sub clear_classlist_variables {
  157:     undef(@FullClasslist);
  158:     undef(@Students);
  159:     undef(@Sections);
  160:     undef(@SelectedSections);
  161:     undef(%StudentData);
  162:     undef(@SelectedStudentData);
  163:     undef($curr_student);
  164:     undef($prev_student);
  165:     undef($next_student);
  166: }
  167: 
  168: #######################################################
  169: #######################################################
  170: 
  171: =pod
  172: 
  173: =item &PrepareClasslist()
  174: 
  175: Build up the classlist information.  The classlist information is kept in
  176: the following package variables:
  177: 
  178: =over
  179: 
  180: =item @FullClasslist
  181: 
  182: =item @Students
  183: 
  184: =item @Sections
  185: 
  186: =item @SelectedSections
  187: 
  188: =item %StudentData
  189: 
  190: =item @SelectedStudentData
  191: 
  192: =item $curr_student
  193: 
  194: =item $prev_student
  195: 
  196: =item $next_student
  197: 
  198: =back
  199: 
  200: $curr_student, $prev_student, and $next_student may not be defined, depending
  201: upon the calling context.
  202: 
  203: =cut
  204: 
  205: #######################################################
  206: #######################################################
  207: sub PrepareClasslist {
  208:     my $r = shift;
  209:     my %Sections;
  210:     &clear_classlist_variables();
  211:     #
  212:     # Retrieve the classlist
  213:     my $cid  = $ENV{'request.course.id'};
  214:     my $cdom = $ENV{'course.'.$cid.'.domain'};
  215:     my $cnum = $ENV{'course.'.$cid.'.num'};
  216:     my ($classlist,$field_names) = &Apache::loncoursedata::get_classlist($cid,
  217:                                                                   $cdom,$cnum);
  218:     if (exists($ENV{'form.Section'})) {
  219:         if (ref($ENV{'form.Section'})) {
  220:             @SelectedSections = @{$ENV{'form.Section'}};
  221:         } elsif ($ENV{'form.Section'} !~ /^\s*$/) {
  222:             @SelectedSections = ($ENV{'form.Section'});
  223:         }
  224:     }
  225:     @SelectedSections = ('all') if (! @SelectedSections);
  226:     foreach (@SelectedSections) {
  227:         if ($_ eq 'all') {
  228:             @SelectedSections = ('all');
  229:         }
  230:     }
  231:     #
  232:     # Set up %StudentData
  233:     @StudentDataOrder = qw/fullname username domain id section status/;
  234:     foreach my $field (@StudentDataOrder) {
  235:         $StudentData{$field}->{'title'} = $field;
  236:         $StudentData{$field}->{'base_width'} = length($field);
  237:         $StudentData{$field}->{'width'} = 
  238:                                $StudentData{$field}->{'base_width'};
  239:     }
  240: 
  241:     #
  242:     # Process the classlist
  243:     while (my ($student,$student_data) = each (%$classlist)) {
  244:         my $studenthash = ();
  245:         for (my $i=0; $i< scalar(@$field_names);$i++) {
  246:             my $field = $field_names->[$i];
  247:             # Store the data
  248:             $studenthash->{$field}=$student_data->[$i];
  249:             # Keep track of the width of the fields
  250:             next if (! exists($StudentData{$field}));
  251:             my $length = length($student_data->[$i]);
  252:             if ($StudentData{$field}->{'width'} < $length) {
  253:                 $StudentData{$field}->{'width'} = $length; 
  254:             }
  255:         }
  256:         push (@FullClasslist,$studenthash);
  257:         #
  258:         # Build up a list of sections
  259:         my $section = $studenthash->{'section'};
  260:         if (! defined($section) || $section =~/^\s*$/ || $section == -1) {
  261:             $studenthash->{'section'} = 'none';
  262:             $section = $studenthash->{'section'};
  263:         }
  264:         $Sections{$section}++;
  265:         #
  266:         # Only put in the list those students we are interested in
  267:         foreach my $sect (@SelectedSections) {
  268:             if (($sect eq 'all') || ($section eq $sect)) {
  269:                 push (@Students,$studenthash);
  270:                 last;
  271:             }
  272:         }
  273:     }
  274:     #
  275:     # Put the consolidated section data in the right place
  276:     @Sections = sort {$a cmp $b} keys(%Sections);
  277:     unshift(@Sections,'all'); # Put 'all' at the front of the list
  278:     #
  279:     # Sort the Students
  280:     my $sortby = 'fullname';
  281:     $sortby = $ENV{'form.sort'} if (exists($ENV{'form.sort'}));
  282:     my @TmpStudents = sort { $a->{$sortby} cmp $b->{$sortby} ||
  283:                              $a->{'fullname'} cmp $b->{'fullname'} } @Students;
  284:     @Students = @TmpStudents;
  285:     # 
  286:     # Now deal with that current student thing....
  287:     if (exists($ENV{'form.StudentAssessmentStudent'})) {
  288:         my ($current_uname,$current_dom) = 
  289:             split(':',$ENV{'form.StudentAssessmentStudent'});
  290:         my $i;
  291:         for ($i = 0; $i<=$#Students; $i++) {
  292:             next if (($Students[$i]->{'username'} ne $current_uname) || 
  293:                      ($Students[$i]->{'domain'}   ne $current_dom));
  294:             $curr_student = $Students[$i];
  295:             last; # If we get here, we have our student.
  296:         }
  297:         if ($i == 0) {
  298:             $prev_student = 'none';
  299:         } else {
  300:             $prev_student = $Students[$i-1];
  301:         }
  302:         if ($i == $#Students) {
  303:             $next_student = 'none';
  304:         } else {
  305:             $next_student = $Students[$i+1];
  306:         }
  307:     }
  308:     #
  309:     if (exists($ENV{'form.StudentData'})) {
  310:         if (ref($ENV{'form.StudentData'}) eq 'ARRAY') {
  311:             @SelectedStudentData = @{$ENV{'form.StudentData'}};
  312:         } else {
  313:             @SelectedStudentData = ($ENV{'form.StudentData'});
  314:         }
  315:     } else {
  316:         @SelectedStudentData = ('fullname');
  317:     }
  318:     foreach (@SelectedStudentData) {
  319:         if ($_ eq 'all') {
  320:             @SelectedStudentData = ('all');
  321:             last;
  322:         }
  323:     }
  324:     #
  325:     return;
  326: }
  327: 
  328: #######################################################
  329: #######################################################
  330: 
  331: =pod
  332: 
  333: =item &current_student()
  334: 
  335: Returns a pointer to a hash containing data about the currently
  336: selected student.
  337: 
  338: =cut
  339: 
  340: #######################################################
  341: #######################################################
  342: sub current_student { 
  343:     if (defined($curr_student)) {
  344:         return $curr_student;
  345:     } else {
  346:         return 'All Students';
  347:     }
  348: }
  349: 
  350: #######################################################
  351: #######################################################
  352: 
  353: =pod
  354: 
  355: =item &previous_student()
  356: 
  357: Returns a pointer to a hash containing data about the student prior
  358: in the list of students.  Or something.  
  359: 
  360: =cut
  361: 
  362: #######################################################
  363: #######################################################
  364: sub previous_student { 
  365:     if (defined($prev_student)) {
  366:         return $prev_student;
  367:     } else {
  368:         return 'No Student Selected';
  369:     }
  370: }
  371: 
  372: #######################################################
  373: #######################################################
  374: 
  375: =pod
  376: 
  377: =item &next_student()
  378: 
  379: Returns a pointer to a hash containing data about the next student
  380: to be viewed.
  381: 
  382: =cut
  383: 
  384: #######################################################
  385: #######################################################
  386: sub next_student { 
  387:     if (defined($next_student)) {
  388:         return $next_student;
  389:     } else {
  390:         return 'No Student Selected';
  391:     }
  392: }
  393: 
  394: #######################################################
  395: #######################################################
  396: 
  397: =pod
  398: 
  399: =item &clear_sequence_variables()
  400: 
  401: =cut
  402: 
  403: #######################################################
  404: #######################################################
  405: sub clear_sequence_variables {
  406:     undef($top_map);
  407:     undef(@Sequences);
  408:     undef(@Assessments);
  409: }
  410: 
  411: #######################################################
  412: #######################################################
  413: 
  414: =pod
  415: 
  416: =item &SetSelectedMaps($elementname)
  417: 
  418: Sets the @SelectedMaps array from $ENV{'form.'.$elementname};
  419: 
  420: =cut
  421: 
  422: #######################################################
  423: #######################################################
  424: sub SetSelectedMaps {
  425:     my $elementname = shift;
  426:     if (exists($ENV{'form.'.$elementname})) {
  427:         if (ref($ENV{'form.'.$elementname})) {
  428:             @SelectedMaps = @{$ENV{'form.'.$elementname}};
  429:         } else {
  430:             @SelectedMaps = ($ENV{'form.'.$elementname});
  431:         }
  432:     } else {
  433:         @SelectedMaps = ('all');
  434:     }
  435: }
  436: 
  437: 
  438: #######################################################
  439: #######################################################
  440: 
  441: =pod
  442: 
  443: =item &Sequences_with_Assess()
  444: 
  445: Returns an array containing the subset of @Sequences which contain
  446: assessments.
  447: 
  448: =cut
  449: 
  450: #######################################################
  451: #######################################################
  452: sub Sequences_with_Assess {
  453:     my @Sequences_to_Show;
  454:     foreach my $map_symb (@SelectedMaps) {
  455:         foreach my $sequence (@Sequences) {
  456:             next if ($sequence->{'symb'} ne $map_symb && $map_symb ne 'all');
  457:             next if ($sequence->{'num_assess'} < 1);
  458:             push (@Sequences_to_Show,$sequence);
  459:         }
  460:     }
  461:     return @Sequences_to_Show;
  462: }
  463: 
  464: #######################################################
  465: #######################################################
  466: 
  467: =pod
  468: 
  469: =item &PrepareCourseData($r)
  470: 
  471: =cut
  472: 
  473: #######################################################
  474: #######################################################
  475: sub PrepareCourseData {
  476:     my ($r) = @_;
  477:     &clear_sequence_variables();
  478:     my ($top,$sequences,$assessments) = 
  479:         &Apache::loncoursedata::get_sequence_assessment_data();
  480:     if (! defined($top) || ! ref($top)) {
  481:         # There has been an error, better report it
  482:         &Apache::lonnet::logthis('top is undefined');
  483:         return;
  484:     }
  485:     $top_map = $top if (ref($top));
  486:     @Sequences = @{$sequences} if (ref($sequences) eq 'ARRAY');
  487:     @Assessments = @{$assessments} if (ref($assessments) eq 'ARRAY');
  488:     #
  489:     # Compute column widths
  490:     foreach my $seq (@Sequences) {
  491:         my $name_length = length($seq->{'title'});
  492:         my $num_parts = $seq->{'num_assess_parts'};
  493:         #
  494:         # The number of columns needed for the summation text: 
  495:         #    " 1/5" = 1+3 columns, " 10/99" = 1+5 columns
  496:         my $sum_length = 1+1+2*(length($num_parts));
  497:         my $num_col = $num_parts+$sum_length;
  498:         if ($num_col < $name_length) {
  499:             $num_col = $name_length;
  500:         }
  501:         $seq->{'base_width'} = $name_length;
  502:         $seq->{'width'} = $num_col;
  503:     }
  504:     return;
  505: }
  506: 
  507: #######################################################
  508: #######################################################
  509: 
  510: =pod
  511: 
  512: =item &log_sequence($sequence,$recursive,$padding)
  513: 
  514: Write data about the sequence to a logfile.  If $recursive is not
  515: undef the data is written recursively.  $padding is used for recursive
  516: calls.
  517: 
  518: =cut
  519: 
  520: #######################################################
  521: #######################################################
  522: sub log_sequence {
  523:     my ($seq,$recursive,$padding) = @_;
  524:     $padding = '' if (! defined($padding));
  525:     if (ref($seq) ne 'HASH') {
  526:         &Apache::lonnet::logthis('log_sequence passed bad sequnce');
  527:         return;
  528:     }
  529:     &Apache::lonnet::logthis($padding.'sequence '.$seq->{'title'});
  530:     while (my($key,$value) = each(%$seq)) {
  531:         next if ($key eq 'contents');
  532:         if (ref($value) eq 'ARRAY') {
  533:             for (my $i=0;$i< scalar(@$value);$i++) {
  534:                 &Apache::lonnet::logthis($padding.$key.'['.$i.']='.
  535:                                          $value->[$i]);
  536:             }
  537:         } else {
  538:             &Apache::lonnet::logthis($padding.$key.'='.$value);
  539:         }
  540:     }
  541:     if (defined($recursive)) {
  542:         &Apache::lonnet::logthis($padding.'-'x20);
  543:         &Apache::lonnet::logthis($padding.'contains:');
  544:         foreach my $item (@{$seq->{'contents'}}) {
  545:             if ($item->{'type'} eq 'container') {
  546:                 &log_sequence($item,$recursive,$padding.'    ');
  547:             } else {
  548:                 &Apache::lonnet::logthis($padding.'title = '.$item->{'title'});
  549:                 while (my($key,$value) = each(%$item)) {
  550:                     next if ($key eq 'title');
  551:                     if (ref($value) eq 'ARRAY') {
  552:                         for (my $i=0;$i< scalar(@$value);$i++) {
  553:                             &Apache::lonnet::logthis($padding.$key.'['.$i.']='.
  554:                                                      $value->[$i]);
  555:                         }
  556:                     } else {
  557:                         &Apache::lonnet::logthis($padding.$key.'='.$value);
  558:                     }
  559:                 }
  560:             }
  561:         }
  562:         &Apache::lonnet::logthis($padding.'end contents of '.$seq->{'title'});
  563:         &Apache::lonnet::logthis($padding.'-'x20);
  564:     }
  565:     return;
  566: }
  567: 
  568: ##############################################
  569: ##############################################
  570: 
  571: =pod 
  572: 
  573: =item &StudentDataSelect($elementname,$status,$numvisible,$selected)
  574: 
  575: Returns html for a selection box allowing the user to choose one (or more) 
  576: of the fields of student data available (fullname, username, id, section, etc)
  577: 
  578: =over 4
  579: 
  580: =item $elementname The name of the HTML form element
  581: 
  582: =item $status 'multiple' or 'single' selection box
  583: 
  584: =item $numvisible The number of options to be visible
  585: 
  586: =back
  587: 
  588: =cut
  589: 
  590: ##############################################
  591: ##############################################
  592: sub StudentDataSelect {
  593:     my ($elementname,$status,$numvisible)=@_;
  594:     if ($numvisible < 1) {
  595:         return;
  596:     }
  597:     #
  598:     # Build the form element
  599:     my $Str = "\n";
  600:     $Str .= '<select name="'.$elementname.'" ';
  601:     if ($status ne 'single') {
  602:         $Str .= 'multiple="true" ';
  603:     }
  604:     $Str .= 'size="'.$numvisible.'" >'."\n";
  605:     #
  606:     # Deal with 'all'
  607:     $Str .= '    <option value="all" ';
  608:     foreach (@SelectedStudentData) {
  609:         if ($_ eq 'all') {
  610:             $Str .= 'selected ';
  611:             last;
  612:         }
  613:     }
  614:     $Str .= ">all</option>\n";
  615:     #
  616:     # Loop through the student data fields
  617:     foreach my $item (@StudentDataOrder) {
  618:         $Str .= '    <option value="'.$item.'" ';
  619:         foreach (@SelectedStudentData) {
  620:             if ($item eq $_ ) {
  621:                 $Str .= 'selected ';
  622:                 last;
  623:             }
  624:         }
  625:         $Str .= '>'.$item."</option>\n";
  626:     }
  627:     $Str .= "</select>\n";
  628:     return $Str;
  629: }
  630: 
  631: ##############################################
  632: ##############################################
  633: 
  634: =pod 
  635: 
  636: =item &MapSelect($elementname,$status,$numvisible,$restriction) 
  637: 
  638: Returns html for a selection box allowing the user to choose one (or more) 
  639: of the sequences in the course.  The values of the sequences are the symbs.
  640: If the top sequence is selected, the value 'top' will result.
  641: 
  642: =over 4
  643: 
  644: =item $elementname The name of the HTML form element
  645: 
  646: =item $status 'multiple' or 'single' selection box
  647: 
  648: =item $numvisible The number of options to be visible
  649: 
  650: =item $restriction Code reference to subroutine which returns true or 
  651: false.  The code must expect a reference to a sequence data structure.
  652: 
  653: =back
  654: 
  655: =cut
  656: 
  657: ##############################################
  658: ##############################################
  659: sub MapSelect {
  660:     my ($elementname,$status,$numvisible,$restriction)=@_;
  661:     if ($numvisible < 1) {
  662:         return;
  663:     }
  664:     #
  665:     # Set up array of selected items
  666:     &SetSelectedMaps($elementname);
  667:     #
  668:     # Set up the restriction call
  669:     if (! defined($restriction)) {
  670:         $restriction = sub { 1; };
  671:     }
  672:     #
  673:     # Build the form element
  674:     my $Str = "\n";
  675:     $Str .= '<select name="'.$elementname.'" ';
  676:     if ($status ne 'single') {
  677:         $Str .= 'multiple="true" ';
  678:     }
  679:     $Str .= 'size="'.$numvisible.'" >'."\n";
  680:     #
  681:     # Deal with 'all'
  682:     foreach (@SelectedMaps) {
  683:         if ($_ eq 'all') {
  684:             @SelectedMaps = ('all');
  685:             last;
  686:         }
  687:     }
  688:     #
  689:     # Put in option for 'all'
  690:     $Str .= '    <option value="all" ';
  691:     foreach (@SelectedMaps) {
  692:         if ($_ eq 'all') {
  693:             $Str .= 'selected ';
  694:             last;
  695:         }
  696:     }
  697:     $Str .= ">all</option>\n";
  698:     #
  699:     # Loop through the sequences
  700:     foreach my $seq (@Sequences) {
  701:         next if (! $restriction->($seq));
  702:         $Str .= '    <option value="'.$seq->{'symb'}.'" ';
  703:         foreach (@SelectedMaps) {
  704:             if ($seq->{'symb'} eq $_) {
  705:                 $Str .= 'selected ';
  706:                 last;
  707:             }
  708:         }
  709:         $Str .= '>'.$seq->{'title'}."</option>\n";
  710:     }
  711:     $Str .= "</select>\n";
  712:     return $Str;
  713: }
  714: 
  715: ##############################################
  716: ##############################################
  717: 
  718: =pod 
  719: 
  720: =item &SectionSelect($elementname,$status,$numvisible) 
  721: 
  722: Returns html for a selection box allowing the user to choose one (or more) 
  723: of the sections in the course.  
  724: 
  725: =over 4
  726: 
  727: =item $elementname The name of the HTML form element
  728: 
  729: =item $status 'multiple' or 'single' selection box
  730: 
  731: =item $numvisible The number of options to be visible
  732: 
  733: =item $selected Array ref to the names of the already selected sections.
  734: If undef, $ENV{'form.'.$elementname} is used.  
  735: If $ENV{'form.'.$elementname} is also empty, none will be selected.
  736: 
  737: =item $restriction Code reference to subroutine which returns true or 
  738: false.  The code must expect a reference to a sequence data structure.
  739: 
  740: =back
  741: 
  742: =cut
  743: 
  744: ##############################################
  745: ##############################################
  746: sub SectionSelect {
  747:     my ($elementname,$status,$numvisible)=@_;
  748:     if ($numvisible < 1) {
  749:         return;
  750:     }
  751:     #
  752:     # Build the form element
  753:     my $Str = "\n";
  754:     $Str .= '<select name="'.$elementname.'" ';
  755:     if ($status ne 'single') {
  756:         $Str .= 'multiple="true" ';
  757:     }
  758:     $Str .= 'size="'.$numvisible.'" >'."\n";
  759:     #
  760:     # Loop through the sequences
  761:     foreach my $s (@Sections) {
  762:         $Str .= '    <option value="'.$s.'" ';
  763:         foreach (@SelectedSections) {
  764:             if ($s eq $_) {
  765:                 $Str .= 'selected ';
  766:                 last;
  767:             }
  768:         }
  769:         $Str .= '>'.$s."</option>\n";
  770:     }
  771:     $Str .= "</select>\n";
  772:     return $Str;
  773: }
  774: 
  775: ##################################################
  776: ##################################################
  777: sub DisplayClasslist {
  778:     my ($r)=@_;
  779:     #
  780:     my @Fields = ('fullname','username','domain','id','section');
  781:     #
  782:     my $Str='';
  783:     $Str .= '<table border="0"><tr><td bgcolor="#777777">'."\n";
  784:     $Str .= '<table border="0" cellpadding="3"><tr bgcolor="#e6ffff">'."\n";
  785:     foreach my $field (@Fields) {
  786:         $Str .= '<th><a href="/adm/statistics?reportSelected=classlist&sort='.$field.'">'.$field.
  787:             '</a></th>';
  788:     }
  789:     $Str .= '</tr>'."\n";
  790:     #
  791:     my $alternate = 0;
  792:     foreach my $student (@Students) { # @Students is a package variable
  793:         my $sname = $student->{'username'}.':'.$student->{'domain'};
  794:         if($alternate) {
  795:             $Str .= '<tr bgcolor="#ffffe6">';
  796:         } else {
  797:             $Str .= '<tr bgcolor="#ffffc6">';
  798:         }
  799:         $alternate = ($alternate + 1) % 2;
  800:         #
  801:         foreach my $field (@Fields) {
  802:             $Str .= '<td>';
  803:             if ($field eq 'fullname') {
  804:                 $Str .= '<a href="/adm/statistics?reportSelected=';
  805:                 $Str .= &Apache::lonnet::escape('student_assessment');
  806:                 $Str .= '&StudentAssessmentStudent=';
  807:                 $Str .= &Apache::lonnet::escape($sname).'">';
  808:                 $Str .= $student->{$field}.'&nbsp';
  809:                 $Str .= '</a>';
  810:             } else {
  811:                 $Str .= $student->{$field};
  812:             }
  813:             $Str .= '</td>';
  814:         }
  815:         $Str .= "</tr>\n";
  816:     }
  817:     $Str .= '</table></td></tr></table>'."\n";
  818:     #
  819:     $r->print($Str);
  820:     $r->rflush();
  821:     #
  822:     return;
  823: }
  824: 
  825: ##############################################
  826: ##############################################
  827: sub CreateMainMenu {
  828:     my ($status,$reports,$current)=@_;
  829:     #
  830:     my $Str = '';
  831:     #
  832:     $Str .= '<table border="0"><tbody><tr>'."\n";
  833:     $Str .= '<td></td>'."\n";
  834:     $Str .= '<td align="center"><b>Select a Report</b></td>'."\n";
  835:     $Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n";
  836:     $Str .= '<tr>'."\n";
  837:     #
  838:     $Str .= '<td align="center"><input type="submit" name="Refresh" ';
  839:     $Str .= 'value="Update Display" /></td>'."\n";
  840:     #
  841:     $Str .= '<td align="center">';
  842:     $Str .= '<select name="reportSelected" >'."\n";
  843:     foreach (sort(keys(%$reports))) {
  844:         $Str .= '<option value="'.$_.'"';
  845:         if($current eq $_) {
  846:             $Str .= ' selected';
  847:         }
  848:         $Str .= '>'.$reports->{$_}.'</option>'."\n";
  849:     }
  850:     $Str .= '</select></td>'."\n";
  851:     #
  852:     $Str .= '<td align="center">';
  853:     $Str .= &Apache::lonhtmlcommon::StatusOptions($status, 'Statistics');
  854:     $Str .= '</td>'."\n";
  855:     #
  856:     $Str .= '</tr></tbody></table>'."\n";
  857:     $Str .= '<hr>'."\n";
  858:     #
  859:     return $Str;
  860: }
  861: 
  862: ##############################################
  863: ##############################################
  864: sub handler {
  865:     my $r=shift;
  866:     my $c = $r->connection();
  867:     #
  868:     # Check for overloading
  869:     my $loaderror=&Apache::lonnet::overloaderror($r);
  870:     if ($loaderror) { return $loaderror; }
  871:     $loaderror=
  872:        &Apache::lonnet::overloaderror($r,
  873:          $ENV{'course.'.$ENV{'request.course.id'}.'.home'});
  874:     if ($loaderror) { return $loaderror; }
  875:     #
  876:     # Check for access
  877:     unless(&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) {
  878:         $ENV{'user.error.msg'}=
  879:         $r->uri.":vgr:0:0:Cannot view grades for complete course";
  880:         return HTTP_NOT_ACCEPTABLE;
  881:     }
  882:     #
  883:     # Set document type for header only
  884:     if($r->header_only) {
  885:         if ($ENV{'browser.mathml'}) {
  886:             $r->content_type('text/xml');
  887:         } else {
  888:             $r->content_type('text/html');
  889:         }
  890:         &Apache::loncommon::no_cache($r);
  891:         $r->send_http_header;
  892:         return OK;
  893:     }
  894:     #
  895:     # Send the header
  896:     $r->content_type('text/html');
  897:     $r->send_http_header;
  898:     #
  899:     # Extract form elements from query string
  900:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
  901:                                             ['sort','reportSelected',
  902:                                              'StudentAssessmentStudent']);
  903:     if (! exists($ENV{'form.reportSelected'})) {
  904:         $ENV{'form.reportSelected'} = 'student_assessment';
  905:     }
  906:     #
  907:     # Give the LON-CAPA page header
  908:     $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));
  909:     $r->rflush();
  910:     #
  911:     # Set up the statistics and chart environment
  912:     &PrepareClasslist($r);
  913:     &PrepareCourseData($r);
  914:     #
  915:     # Begin form output
  916:     $r->print('<form name="Statistics" ');
  917:     $r->print('method="post" action="/adm/statistics">');
  918:     #
  919:     # Print main menu
  920:     my %reports = ('classlist'          => 'Class list',
  921:                    'problem_statistics' => 'Problem Statistics',
  922:                    'student_assessment' => 'Student Assessment',
  923:                    'percentage'         => 'Correct-problems Plot',
  924:                    'option_response'    => 'Option Response Analysis',
  925: #                   'activitylog'        => 'Activity Log',
  926:                    );
  927:     $r->print(&CreateMainMenu($ENV{'form.status'},
  928:                               \%reports,$ENV{'form.reportSelected'}));
  929:     $r->rflush();
  930:     #
  931:     my $GoToPage = $ENV{'form.reportSelected'};
  932:     if($GoToPage eq 'activitylog') {
  933: #        &Apache::lonproblemstatistics::Activity();
  934:     } elsif($GoToPage eq 'problem_statistics') {
  935:         &Apache::lonproblemstatistics::BuildProblemStatisticsPage($r,$c);
  936:     } elsif($GoToPage eq 'option_response') {
  937: #        &Apache::lonproblemanalysis::BuildProblemAnalysisPage($r,$c);
  938:     } elsif($GoToPage eq 'student_assessment') {
  939:         &Apache::lonstudentassessment::BuildStudentAssessmentPage($r,$c);
  940:     } elsif($GoToPage eq 'DoDiffGraph' || $GoToPage eq 'PercentWrongGraph') {
  941: #        &Apache::lonproblemstatistics::BuildGraphicChart($r,$c);
  942:     } elsif($GoToPage eq 'classlist') {
  943:         &DisplayClasslist($r);
  944:     } elsif($GoToPage eq 'Correct-problems Plot') {
  945: #	&Apache::lonpercentage::BuildPercentageGraph($r,$c);
  946:     }
  947:     #
  948:     $r->print("</form>\n");
  949:     $r->print("</body>\n</html>\n");
  950:     $r->rflush();
  951:     #
  952:     return OK;
  953: }
  954: 
  955: 1;
  956: 
  957: #######################################################
  958: #######################################################
  959: 
  960: =pod
  961: 
  962: =back
  963: 
  964: =cut
  965: 
  966: #######################################################
  967: #######################################################
  968: 
  969: __END__
  970: