[BACK]Return to lonstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.55.2.1 and 1.56

version 1.55.2.1, 2003/01/13 20:34:24 version 1.56, 2003/01/10 22:26:29
Line 74  sub ProcessFormData{ Line 74  sub ProcessFormData{
                                              'reportSelected',                                               'reportSelected',
                                              'StudentAssessmentStudent',                                               'StudentAssessmentStudent',
                                              'ProblemStatisticsSort']);                                               'ProblemStatisticsSort']);
       &CheckFormElement($cache, 'DownloadAll', 'DownloadAll', 'false');
       if ($cache->{'DownloadAll'} ne 'false') {
           # Clean the hell out of that cache!
           # We cannot untie the hash at this scope (stupid libgd :( )
           # So, remove every single key.  What a waste of time....
           # Of course, if you are doing this you are probably resigned
           # to waiting a while.
           &Apache::lonnet::logthis("Cleaning out the cache file");
           while (my ($key,undef)=each(%$cache)) {
               next if ($key eq 'DownloadAll');
               delete($cache->{$key});
           }
       }
     &CheckFormElement($cache, 'Status', 'Status', 'Active');      &CheckFormElement($cache, 'Status', 'Status', 'Active');
     &CheckFormElement($cache, 'postdata', 'reportSelected', 'Class list');      &CheckFormElement($cache, 'postdata', 'reportSelected', 'Class list');
     &CheckFormElement($cache, 'reportSelected', 'reportSelected',       &CheckFormElement($cache, 'reportSelected', 'reportSelected', 
                       'Class list');                        'Class list');
     $cache->{'reportSelected'} =       $cache->{'reportSelected'} = 
         &Apache::lonnet::unescape($cache->{'reportSelected'});          &Apache::lonnet::unescape($cache->{'reportSelected'});
     &CheckFormElement($cache, 'DownloadAll', 'DownloadAll', 'false');  
     &CheckFormElement($cache, 'sort', 'sort', 'fullname');      &CheckFormElement($cache, 'sort', 'sort', 'fullname');
     &CheckFormElement($cache, 'download', 'download', 'false');      &CheckFormElement($cache, 'download', 'download', 'false');
     &CheckFormElement($cache, 'StatisticsMaps',       &CheckFormElement($cache, 'StatisticsMaps', 
Line 490  sub CreateMainMenu { Line 502  sub CreateMainMenu {
   
     $Str .= '<table border="0"><tbody><tr>'."\n";      $Str .= '<table border="0"><tbody><tr>'."\n";
     $Str .= '<td></td><td></td>'."\n";      $Str .= '<td></td><td></td>'."\n";
     $Str .= '<td align="center"><b>Select a Report</b></td>'."\n";      $Str .= '<td align="center"><b>Analysis Reports:</b></td>'."\n";
     $Str .= '<td align="center"><b>Student Status</b></td></tr>'."\n";      $Str .= '<td align="center"><b>Student Status:</b></td></tr>'."\n";
     $Str .= '<tr>'."\n";      $Str .= '<tr>'."\n";
     $Str .= '<td align="center"><input type="submit" name="Refresh" ';      $Str .= '<td align="center"><input type="submit" name="Refresh" ';
     $Str .= 'value="Refresh" /></td>'."\n";      $Str .= 'value="Refresh" /></td>'."\n";
Line 534  sub BuildStatistics { Line 546  sub BuildStatistics {
     my %reports = ('classlist'          => 'Class list',      my %reports = ('classlist'          => 'Class list',
                    'problem_statistics' => 'Problem Statistics',                     'problem_statistics' => 'Problem Statistics',
                    'student_assessment' => 'Student Assessment',                     'student_assessment' => 'Student Assessment',
    'percentage'         => 'Correct-problems Plot',     'percentage'         => 'Percentage Graphs',
 #                   'activitylog'        => 'Activity Log',  #                   'activitylog'        => 'Activity Log',
                    'reportSelected'     => 'Class list');                     'reportSelected'     => 'Class list');
   
Line 614  sub BuildStatistics { Line 626  sub BuildStatistics {
     } elsif($GoToPage eq 'Class list') {      } elsif($GoToPage eq 'Class list') {
         &BuildClasslist($cacheDB, $students, \@studentInformation,          &BuildClasslist($cacheDB, $students, \@studentInformation,
                         \@headings, $r);                          \@headings, $r);
     } elsif($GoToPage eq 'Correct-problems Plot') {      } elsif($GoToPage eq 'Percentage Graphs') {
  &Apache::lonpercentage::BuildPercentageGraph($cacheDB, $students,   &Apache::lonpercentage::BuildPercentageGraph($cacheDB, $students,
      $courseID, $c, $r);       $courseID, $c, $r);
     }      }
Removed from v.1.55.2.1  
changed lines
  Added in v.1.56

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