version 1.3, 2003/05/23 19:36:04
|
version 1.4, 2003/05/23 21:03:29
|
Line 192 END
|
Line 192 END
|
return; |
return; |
} |
} |
|
|
sub outsheet_csv { |
|
my $self = shift; |
|
my ($r) = @_; |
|
$r->print('<h1>csv output is not supported yet</h1>'); |
|
} |
|
|
|
|
|
sub excel_rows { |
sub excel_rows { |
# writes the meat of the spreadsheet to an excel worksheet. Called |
# writes the meat of the spreadsheet to an excel worksheet. Called |
# by Spreadsheet::outsheet_excel; |
# by Spreadsheet::outsheet_excel; |
Line 229 sub excel_rows {
|
Line 222 sub excel_rows {
|
return; |
return; |
} |
} |
|
|
|
sub csv_rows { |
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
|
# by Spreadsheet::outsheet_excel; |
|
my $self = shift; |
|
my ($filehandle) = @_; |
|
# |
|
# Write a header row |
|
|
|
$self->csv_output_row($filehandle,undef, |
|
('fullname','username','domain','section','status')); |
|
# |
|
# Write each students row |
|
foreach my $student ($self->get_classlist()) { |
|
my $rownum = $self->get_row_number_from_key |
|
($student->{'username'}.':'.$student->{'domain'}); |
|
$student->{'section'} = 'none' if ($student->{'section'} eq '-1'); |
|
my @studentdata = ($student->{'fullname'}, |
|
$student->{'username'}, |
|
$student->{'domain'}, |
|
$student->{'section'}, |
|
$student->{'status'}); |
|
$self->csv_output_row($filehandle,$rownum,@studentdata); |
|
} |
|
return; |
|
} |
|
|
sub outsheet_recursive_excel { |
sub outsheet_recursive_excel { |
my $self = shift; |
my $self = shift; |