From b23faa217c9afc032af7097f3d7b613567ce0504 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 22 Apr 2008 18:32:12 +0000 Subject: [PATCH] added support for taking pivot info from the report def git-svn-id: svn://svn.open-ils.org/ILS/trunk@9430 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/reporter/clark-kent.pl | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl index 0be667691f..d7c3410d64 100755 --- a/Open-ILS/src/reporter/clark-kent.pl +++ b/Open-ILS/src/reporter/clark-kent.pl @@ -14,7 +14,7 @@ use Spreadsheet::WriteExcel::Big; use OpenSRF::EX qw/:try/; use OpenSRF::Utils qw/:daemon/; use OpenSRF::Utils::JSON; -#use OpenSRF::Utils::Logger qw/:level/; +use OpenSRF::Utils::Logger qw/$logger/; use OpenSRF::System; use OpenSRF::AppSession; use OpenSRF::Utils::SettingsClient; @@ -133,9 +133,13 @@ while (my $r = $sth->fetchrow_hashref) { $r->{report} = $s3; my $b = OpenILS::Reporter::SQLBuilder->new; - $b->register_params( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{data} ) ); + my $report_data = OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{data} ); + $b->register_params( $report_data ); $r->{resultset} = $b->parse_report( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template}->{data} ) ); + $r->{resultset}->set_pivot_data($report_data->{__pivot_data}) if $report_data->{__pivot_data}; + $r->{resultset}->set_pivot_label($report_data->{__pivot_label}) if $report_data->{__pivot_label}; + $r->{resultset}->set_pivot_default($report_data->{__pivot_default}) if $report_data->{__pivot_default}; $r->{resultset}->relative_time($r->{run_time}); push @reports, $r; } @@ -161,6 +165,7 @@ for my $r ( @reports ) { WHERE id = ?; SQL + $logger->debug('Report SQL: ' . $r->{resultset}->toSQL); $sth = $dbh->prepare($r->{resultset}->toSQL); $sth->execute; -- 2.11.0