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; |