version 1.31, 2003/11/21 21:51:28
|
version 1.32, 2003/12/08 19:43:03
|
Line 1437 sub outsheet_excel {
|
Line 1437 sub outsheet_excel {
|
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
my $connection = $r->connection(); |
my $connection = $r->connection(); |
|
# |
|
$r->print($self->html_report_error()); |
|
$r->rflush(); |
|
# |
$r->print("<h2>".&mt('Preparing Excel Spreadsheet')."</h2>"); |
$r->print("<h2>".&mt('Preparing Excel Spreadsheet')."</h2>"); |
# |
# |
# Create excel worksheet |
# Create excel worksheet |
Line 1479 sub outsheet_csv {
|
Line 1483 sub outsheet_csv {
|
my $self = shift; |
my $self = shift; |
my ($r) = @_; |
my ($r) = @_; |
my $connection = $r->connection(); |
my $connection = $r->connection(); |
|
# |
|
$r->print($self->html_report_error()); |
|
$r->rflush(); |
|
# |
my $csvdata = ''; |
my $csvdata = ''; |
my @Values; |
my @Values; |
# |
# |