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

Diff for /loncom/interface/spreadsheet/classcalc.pm between versions 1.14 and 1.15

version 1.14, 2003/10/14 18:36:54 version 1.15, 2003/11/17 19:55:41
Line 117  sub parent_link { Line 117  sub parent_link {
 sub outsheet_html {  sub outsheet_html {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
       ####################################
       # Report any calculation errors    #
       ####################################
       $r->print($self->html_report_error());
     ###################################      ###################################
     # Determine table structure      # Determine table structure
     ###################################      ###################################
Line 247  sub csv_rows { Line 251  sub csv_rows {
     my ($connection,$filehandle) = @_;      my ($connection,$filehandle) = @_;
     #      #
     # Write a header row      # Write a header row
   
     $self->csv_output_row($filehandle,undef,      $self->csv_output_row($filehandle,undef,
                    (&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Status'),&mt('ID')));                     (&mt('Fullname'),&mt('Username'),&mt('Domain'),&mt('Section'),&mt('Status'),&mt('ID')));
     #      #
Line 270  sub csv_rows { Line 273  sub csv_rows {
 sub outsheet_recursive_excel {  sub outsheet_recursive_excel {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
 }   }
   
 sub compute {  sub compute {
     my $self = shift;      my $self = shift;
Line 295  sub compute { Line 298  sub compute {
     ($student->{'username'},$student->{'domain'},undef);      ($student->{'username'},$student->{'domain'},undef);
         if ($connection->aborted()) { $self->cleanup(); return; }          if ($connection->aborted()) { $self->cleanup(); return; }
  my @exportdata = $studentsheet->export_data($r);   my @exportdata = $studentsheet->export_data($r);
           if ($studentsheet->badcalc()) {
               $self->set_calcerror($sname.' : '.
                                    $studentsheet->calcerror());
           }
         if ($connection->aborted()) { $self->cleanup(); return; }          if ($connection->aborted()) { $self->cleanup(); return; }
  my $rownum = $self->get_row_number_from_key($sname);   my $rownum = $self->get_row_number_from_key($sname);
         $f{'A'.$rownum} = $sname;          $f{'A'.$rownum} = $sname;
Removed from v.1.14  
changed lines
  Added in v.1.15

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