From 27234fcd1f13cfe4381ea9071458ad7104e6255e Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 26 Oct 2010 13:59:30 +0000 Subject: [PATCH] include more information in the debugging dump; correct the "back to index" link git-svn-id: svn://svn.open-ils.org/ILS/trunk@18469 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/reporter/clark-kent.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl index 12f8d569a1..cf2d8628fd 100755 --- a/Open-ILS/src/reporter/clark-kent.pl +++ b/Open-ILS/src/reporter/clark-kent.pl @@ -478,10 +478,10 @@ sub build_html { { no warnings; print $debug '

Generated SQL

' . $r->{resultset}->toSQL() . "
Back to output index
"; - print $debug '

Template

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template}->{data} ) ) . "
Back to output index
"; - print $debug '

Report Parameter

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{data} ) ) . "
Back to output index
"; + print $debug '

Template

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template} ) ) . "
Back to output index
"; + print $debug '

Report Parameter

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report} ) ) . "
Back to output index
"; print $debug '

Report Run Time

' . $r->{resultset}->relative_time . "
Back to output index
"; - print $debug '

OpenILS::Reporter::SQLBuilder::ResultSet Object

' . Dumper( $r->{resultset} ) . "
Back to output index"; + print $debug '

OpenILS::Reporter::SQLBuilder::ResultSet Object

' . Dumper( $r->{resultset} ) . "
Back to output index"; } print $debug ''; -- 2.11.0