[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 and 1.57

version 1.55, 2002/11/26 18:02:38 version 1.57, 2003/01/12 23:31:22
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>Analysis Reports:</b></td>'."\n";      $Str .= '<td align="center"><b>Select a Report</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";
Removed from v.1.55  
changed lines
  Added in v.1.57

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