libnspr4-dev\
libole-storage-lite-perl\
libparent-perl\
- libspreadsheet-writeexcel-perl\
libssh2-1-dev\
libtest-warn-perl\
libtest-output-perl\
deflate
export CPAN_MODULES = \
+ Excel::Writer::XLSX \
Business::OnlinePayment::PayPal \
Library::CallNumber::LC \
Net::Z3950::Simple2ZOOM \
use DateTime::Format::ISO8601;
use Data::Dumper;
use Text::CSV_XS;
-use Spreadsheet::WriteExcel::Big;
+use Excel::Writer::XLSX;
use OpenSRF::EX qw/:try/;
use OpenSRF::Utils qw/:daemon/;
use OpenSRF::Utils::JSON;
}
if ( $r->{excel_format} ) {
- build_excel("$output_dir/report-data.xls", $r);
+ build_excel("$output_dir/report-data.xlsx", $r);
}
build_html("$output_dir/report-data.html", $r);
sub build_excel {
my $file = shift;
my $r = shift;
- my $xls = Spreadsheet::WriteExcel::Big->new($file);
+ my $xls = Excel::Writer::XLSX->new($file);
my $sheetname = substr($r->{report}->{name},0,30);
$sheetname =~ s/\W/_/gos;
push @links, "<a href='report-data.html.raw.html'>Tabular Output</a>" if ($r->{html_format});
# add a link to the CSV output
- push @links, "<a href='report-data.xls'>Excel Output</a>" if ($r->{excel_format});
+ push @links, "<a href='report-data.xlsx'>Excel Output</a>" if ($r->{excel_format});
# add a link to the CSV output
push @links, "<a href='report-data.csv'>CSV Output</a>" if ($r->{csv_format});