| Subject: | undefined value on line 291 |
Can't use an undefined value as an ARRAY reference at
/home/appworker/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/DBIx/Report/Excel.pm
line 291.
#!/usr/bin/env perl
use strict;
use warnings;
use DBI;
use DBIx::Report::Excel;
my $dbh = DBI->connect("dbi:Pg:dbname=tv-tests host=vipera", "forcan",
"forcat", {});
$dbh->do('set search_path=wrk_tv,public');
my $report = DBIx::Report::Excel->new(
"ReportTest.xls",
dbh => $dbh,
);
$report->sql(q{
/*---
Title: spot per uscita
---*/
SELECT
u.cod_uscita,u.clock_number,u.freephone,u.channel_name,u.length_sec,count(calendar.codice)
AS spot,from_date,to_date,from_time,to_time
FROM uscite as u left join calendar on u.cod_uscita=calendar.cod_uscita
GROUP BY
u.cod_uscita,u.clock_number,u.freephone,u.channel_name,u.length_sec,from_date,to_date,from_time,to_time
ORDER BY freephone,u.cod_uscita;
});
$report->write();
$report->close();
perl 5.12.3 on linux