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

Diff for /loncom/interface/statistics/lonstudentassessment.pm between versions 1.119 and 1.120

version 1.119, 2005/03/14 20:28:22 version 1.120, 2005/03/21 19:47:54
Line 353  sub CreateInterface { Line 353  sub CreateInterface {
         &mt('Clear Caches').'" />';          &mt('Clear Caches').'" />';
     $Str .= ' 'x5;      $Str .= ' 'x5;
     $Str .=       $Str .= 
         &mt('Status[_1]',          &mt('Status [_1]',
             '<input type="text" name="stats_status" size="60" value="" />');              '<input type="text" name="stats_status" size="60" value="" />');
     $Str .= '<br />';      $Str .= '<br />';
     return $Str;      return $Str;
Line 1052  sub excel_initialize { Line 1052  sub excel_initialize {
     # Put a description of the sections listed      # Put a description of the sections listed
     my $sectionstring = '';      my $sectionstring = '';
     my @Sections = &Apache::lonstatistics::get_selected_sections();      my @Sections = &Apache::lonstatistics::get_selected_sections();
     if (scalar(@Sections) > 1) {      $excel_sheet->write($header_row,$cols_output++,
         if (scalar(@Sections) > 2) {                          &Apache::lonstatistics::section_and_enrollment_description('plain text'),
             my $last = pop(@Sections);  
             $sectionstring = "Sections ".join(', ',@Sections).', and '.$last;  
         } else {  
             $sectionstring = "Sections ".join(' and ',@Sections);  
         }  
     } else {  
         if ($Sections[0] eq 'all') {  
             $sectionstring = "All sections";  
         } else {  
             $sectionstring = "Section ".$Sections[0];  
         }  
     }  
     $excel_sheet->write($header_row,$cols_output++,$sectionstring,  
                         $format->{'h3'});                          $format->{'h3'});
     $cols_output += scalar(@Sections);  
     #      #
     # Put the date in there too      # Put the date in there too
     $excel_sheet->write($header_row,$cols_output++,      $excel_sheet->write($header_row,$cols_output++,
Line 1559  END Line 1545  END
          'inline',undef,'Statistics','stats_status');           'inline',undef,'Statistics','stats_status');
     #      #
     # Open a file      # Open a file
     $filename = '/prtspool/'.      ($outputfile,$filename) = &Apache::loncommon::create_text_file($r,'csv');
         $ENV{'user.name'}.'_'.$ENV{'user.domain'}.'_'.      if (! defined($outputfile)) { return ''; }
             time.'_'.rand(1000000000).'.csv';  
     unless ($outputfile = Apache::File->new('>/home/httpd'.$filename)) {  
         $r->log_error("Couldn't open $filename for output $!");  
         $r->print("Problems occured in writing the csv file.  ".  
                   "This error has been logged.  ".  
                   "Please alert your LON-CAPA administrator.");  
         $outputfile = undef;  
     }  
     #      #
     # Datestamp      # Datestamp
     my $description = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};      my $description = $ENV{'course.'.$ENV{'request.course.id'}.'.description'};
     print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.      print $outputfile '"'.&Apache::loncommon::csv_translate($description).'",'.
         '"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'.          '"'.&Apache::loncommon::csv_translate(scalar(localtime(time))).'"'.
             "\n";              "\n";
       print $outputfile '"'.
           &Apache::loncommon::csv_translate
           (&Apache::lonstatistics::section_and_enrollment_description()).
           '"'."\n";
     foreach my $item ('shortdesc','non_html_notes') {      foreach my $item ('shortdesc','non_html_notes') {
         next if (! exists($chosen_output->{$item}));          next if (! exists($chosen_output->{$item}));
         print $outputfile           print $outputfile 
Removed from v.1.119  
changed lines
  Added in v.1.120

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