version 1.21, 2004/06/08 15:55:38
|
version 1.24, 2006/02/27 00:56:47
|
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; |
} |
} |
# |
# |