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

Diff for /loncom/interface/lonstatistics.pm between versions 1.90 and 1.93

version 1.90, 2003/11/11 22:14:28 version 1.93, 2004/01/15 03:18:19
Line 225  sub PrepareClasslist { Line 225  sub PrepareClasslist {
             @SelectedSections = ($ENV{'form.Section'});              @SelectedSections = ($ENV{'form.Section'});
         }          }
     }      }
     &Apache::lonnet::logthis('@SelectedSections = '.join(',',@SelectedSections));  
     @SelectedSections = ('all') if (! @SelectedSections);      @SelectedSections = ('all') if (! @SelectedSections);
     foreach (@SelectedSections) {      foreach (@SelectedSections) {
         if ($_ eq 'all') {          if ($_ eq 'all') {
Line 1106  sub handler { Line 1105  sub handler {
         }          }
     }      }
     #      #
     # Set document type for header only  
     if($r->header_only) {  
         if ($ENV{'browser.mathml'}) {  
             $r->content_type('text/xml');  
         } else {  
             $r->content_type('text/html');  
         }  
         &Apache::loncommon::no_cache($r);  
         $r->send_http_header;  
         return OK;  
     }  
     #  
     # Send the header      # Send the header
     $r->content_type('text/html');      &Apache::loncommon::no_cache($r);
       &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
       if ($r->header_only) { return OK; }
     #      #
     # Extract form elements from query string      # Extract form elements from query string
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
Line 1128  sub handler { Line 1117  sub handler {
                                              'SelectedStudent']);                                               'SelectedStudent']);
     #      #
     # Give the LON-CAPA page header      # Give the LON-CAPA page header
     $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts'));      $r->print(&Apache::lonhtmlcommon::Title('Course Statistics and Charts').
         &Apache::loncommon::help_open_faq(139).
         &Apache::loncommon::help_open_bug('Statistics and Charts'));
     $r->rflush();      $r->rflush();
     #       # 
     # Either print out a menu for them or send them to a report      # Either print out a menu for them or send them to a report
Removed from v.1.90  
changed lines
  Added in v.1.93

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