version 1.21, 2004/06/08 15:55:38
|
version 1.25, 2006/04/06 16:43:49
|
Line 228 sub excel_rows {
|
Line 228 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; |
my $self = shift; |
my $self = shift; |
my ($connection,$worksheet,$cols_output,$rows_output) = @_; |
my ($connection,$worksheet,$cols_output,$rows_output,$format) = @_; |
# |
# |
# Write a header row |
# Write a header row |
$cols_output = 0; |
$cols_output = 0; |
foreach my $value ('Fullname','Username','Domain','Section','Status','ID') { |
foreach my $value ('Fullname','Username','Domain','Section','Status','ID') { |
$worksheet->write($rows_output,$cols_output++,&mt($value)); |
$worksheet->write($rows_output,$cols_output++,&mt($value),$format->{'h4'}); |
} |
} |
$rows_output++; |
$rows_output++; |
# |
# |
Line 285 sub output_options {
|
Line 285 sub output_options {
|
my $self = shift(); |
my $self = shift(); |
return ({value => 'htmlclasslist', |
return ({value => 'htmlclasslist', |
description => 'Student Sheet Links'}, |
description => 'Student Sheet Links'}, |
|
{value => 'source', |
|
description => 'Show Source'}, |
{value => 'html', |
{value => 'html', |
description => 'HTML'}, |
description => 'HTML'}, |
{value => 'excel', |
{value => 'excel', |
Line 307 sub outsheet_htmlclasslist {
|
Line 309 sub outsheet_htmlclasslist {
|
# |
# |
# Determine if we should output expire caches links... |
# Determine if we should output expire caches links... |
my $show_expire_link = 0; |
my $show_expire_link = 0; |
if (exists($ENV{'user.role.dc./'.$ENV{'request.role.domain'}.'/'})){ |
if (exists($env{'user.role.dc./'.$env{'request.role.domain'}.'/'})){ |
$show_expire_link = 1; |
$show_expire_link = 1; |
} |
} |
# |
# |
Line 404 sub compute {
|
Line 406 sub compute {
|
if ($connection->aborted()) { $self->cleanup(); return; } |
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,undef, |
|
$student->{'section'} ); |
if ($connection->aborted()) { $self->cleanup(); return; } |
if ($connection->aborted()) { $self->cleanup(); return; } |
my @exportdata = $studentsheet->export_data($r); |
my @exportdata = $studentsheet->export_data($r); |
if ($studentsheet->badcalc()) { |
if ($studentsheet->badcalc()) { |