version 1.5, 2003/05/27 14:52:45
|
version 1.6, 2003/05/29 13:39:38
|
Line 59 use Time::HiRes;
|
Line 59 use Time::HiRes;
|
|
|
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
|
|
|
## |
|
## Package variable |
|
## |
|
|
|
my @Students; |
|
|
|
sub initialize { |
|
&Apache::lonstatistics::clear_classlist_variables(); |
|
@Students = &Apache::lonstatistics::get_students(); |
|
return; |
|
} |
|
|
sub html_header { |
sub html_header { |
my $self = shift; |
my $self = shift; |
my ($toprow,$bottomrow); |
my ($toprow,$bottomrow); |
Line 76 sub html_header {
|
Line 88 sub html_header {
|
"</table>\n</p>"; |
"</table>\n</p>"; |
} |
} |
|
|
sub get_classlist { |
|
my $self = shift; |
|
# Retrieve the classlist and return it |
|
return &Apache::lonstatistics::get_students(); |
|
} |
|
|
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
# Section info should be included |
# Section info should be included |
Line 159 END
|
Line 165 END
|
} |
} |
# |
# |
my $num_output = 0; |
my $num_output = 0; |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
if ($num_output++ % 50 == 0) { |
if ($num_output++ % 50 == 0) { |
$r->print("</table>\n".$tableheader); |
$r->print("</table>\n".$tableheader); |
} |
} |
Line 194 sub excel_rows {
|
Line 200 sub excel_rows {
|
$rows_output++; |
$rows_output++; |
# |
# |
# Write each students row |
# Write each students row |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
$cols_output = 0; |
$cols_output = 0; |
my $rownum = $self->get_row_number_from_key |
my $rownum = $self->get_row_number_from_key |
($student->{'username'}.':'.$student->{'domain'}); |
($student->{'username'}.':'.$student->{'domain'}); |
Line 222 sub csv_rows {
|
Line 228 sub csv_rows {
|
('fullname','username','domain','section','status')); |
('fullname','username','domain','section','status')); |
# |
# |
# Write each students row |
# Write each students row |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
my $rownum = $self->get_row_number_from_key |
my $rownum = $self->get_row_number_from_key |
($student->{'username'}.':'.$student->{'domain'}); |
($student->{'username'}.':'.$student->{'domain'}); |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
Line 247 sub compute {
|
Line 253 sub compute {
|
$self->initialize_safe_space(); |
$self->initialize_safe_space(); |
my %c = $self->constants(); |
my %c = $self->constants(); |
my %f = $self->formulas(); |
my %f = $self->formulas(); |
my @Students = $self->get_classlist(); |
|
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
($r,'Spreadsheet Computation Status', |
($r,'Spreadsheet Computation Status', |
'Spreadsheet Computation', scalar(@Students)); |
'Spreadsheet Computation', scalar(@Students)); |
&Apache::studentcalc::initialize_package(); |
&Apache::studentcalc::initialize_package(); |
foreach my $student ($self->get_classlist()) { |
foreach my $student (@Students) { |
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); |