version 1.2, 2003/05/19 14:30:31
|
version 1.3, 2003/05/23 19:36:04
|
Line 58 use Time::HiRes;
|
Line 58 use Time::HiRes;
|
|
|
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
@Apache::classcalc::ISA = ('Apache::Spreadsheet'); |
|
|
|
sub html_header { |
|
my $self = shift; |
|
my ($toprow,$bottomrow); |
|
foreach (['Sections','Section selector goes here'], |
|
['Enrollment Status',&Apache::lonhtmlcommon::StatusOptions(undef,undef,3)], |
|
['Output Format',&Apache::Spreadsheet::output_selector()]) { |
|
my ($name,$selector) = @{$_}; |
|
$toprow .= '<th align="center"><b>'.$name.'</b></th>'; |
|
$bottomrow .= '<td>'.$selector.'</td>'; |
|
} |
|
return "<p>\n<table>\n". |
|
"<tr>".$toprow."</tr>\n". |
|
"<tr>".$bottomrow."</tr>\n". |
|
"</table>\n</p>"; |
|
} |
|
|
sub get_classlist { |
sub get_classlist { |
my $self = shift; |
my $self = shift; |
# Retrieve the classlist |
# Retrieve the classlist |
Line 80 sub get_classlist {
|
Line 96 sub get_classlist {
|
|
|
sub get_title { |
sub get_title { |
my $self = shift; |
my $self = shift; |
my $title = '<h1>'.$self->{'coursedesc'}."</h1>\n"; |
|
# Section info should be included |
# Section info should be included |
|
my @title = ($self->{'coursedesc'}, scalar(localtime(time)) ); |
|
return @title; |
|
} |
|
|
|
sub get_html_title { |
|
my $self = shift; |
|
my ($classcalc_title,$time) = $self->get_title(); |
|
my $title = '<h1>'.$classcalc_title."</h1>\n".'<h3>'.$time."</h3>\n"; |
return $title; |
return $title; |
} |
} |
|
|
Line 172 END
|
Line 195 END
|
sub outsheet_csv { |
sub outsheet_csv { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
|
$r->print('<h1>csv output is not supported yet</h1>'); |
} |
} |
|
|
sub outsheet_excel { |
|
|
sub excel_rows { |
|
# writes the meat of the spreadsheet to an excel worksheet. Called |
|
# by Spreadsheet::outsheet_excel; |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($worksheet,$cols_output,$rows_output) = @_; |
|
# |
|
# Write a header row |
|
$cols_output = 0; |
|
foreach my $value ('fullname','username','domain','section','status') { |
|
$worksheet->write($rows_output,$cols_output++,$value); |
|
} |
|
$rows_output++; |
|
# |
|
# Write each students row |
|
foreach my $student ($self->get_classlist()) { |
|
$cols_output = 0; |
|
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->excel_output_row($worksheet,$rownum,$rows_output++, |
|
@studentdata); |
|
} |
|
return; |
} |
} |
|
|
|
|
sub outsheet_recursive_excel { |
sub outsheet_recursive_excel { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
} |
} |
|
|
sub display { |
|
my $self = shift; |
|
my ($r) = @_; |
|
$self->compute($r); |
|
# display as html/csv/excel/etc.... |
|
$self->outsheet_html($r); |
|
return; |
|
} |
|
|
|
sub compute { |
sub compute { |
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |