Diff for /loncom/interface/spreadsheet/classcalc.pm between versions 1.11 and 1.12

version 1.11, 2003/09/05 01:06:45 version 1.12, 2003/09/05 01:57:54
Line 73  sub initialize { Line 73  sub initialize {
     return;      return;
 }  }
   
   sub clear_package {
       undef(@Students);
       &Apache::studentcalc::clear_package();
   }
   
 sub html_header {  sub html_header {
     my $self = shift;      my $self = shift;
     my ($toprow,$bottomrow);      my ($toprow,$bottomrow);
Line 257  sub outsheet_recursive_excel { Line 262  sub outsheet_recursive_excel {
 sub compute {  sub compute {
     my $self = shift;      my $self = shift;
     my ($r) = @_;      my ($r) = @_;
       my $connection = $r->connection();
       if ($connection->aborted()) { $self->cleanup(); return; }
     $self->initialize_safe_space();      $self->initialize_safe_space();
     my %c = $self->constants();      my %c = $self->constants();
     my %f = $self->formulas();      my %f = $self->formulas();
Line 269  sub compute { Line 276  sub compute {
     &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,      &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,
                                           'Processing first student');                                            'Processing first student');
     foreach my $student (@Students) {      foreach my $student (@Students) {
           if ($connection->aborted()) { $self->cleanup(); return; }
         my $sname = $student->{'username'}.':'.$student->{'domain'};          my $sname = $student->{'username'}.':'.$student->{'domain'};
  my $studentsheet = Apache::studentcalc->new   my $studentsheet = Apache::studentcalc->new
     ($student->{'username'},$student->{'domain'},undef);      ($student->{'username'},$student->{'domain'},undef);
  my @exportdata = $studentsheet->export_data();          if ($connection->aborted()) { $self->cleanup(); return; }
    my @exportdata = $studentsheet->export_data($r);
           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;
         $self->{'row_source'}->{$rownum} = $sname;          $self->{'row_source'}->{$rownum} = $sname;

Removed from v.1.11  
changed lines
  Added in v.1.12


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