[open-ils-commits] r18472 - branches/rel_1_6_1/Open-ILS/src/reporter (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2010-10-26 10:01:34 -0400 (Tue, 26 Oct 2010)
New Revision: 18472

Modified:
   branches/rel_1_6_1/Open-ILS/src/reporter/clark-kent.pl
Log:
include more information in the debugging dump; correct the "back to index" link

Modified: branches/rel_1_6_1/Open-ILS/src/reporter/clark-kent.pl
===================================================================
--- branches/rel_1_6_1/Open-ILS/src/reporter/clark-kent.pl	2010-10-26 14:01:19 UTC (rev 18471)
+++ branches/rel_1_6_1/Open-ILS/src/reporter/clark-kent.pl	2010-10-26 14:01:34 UTC (rev 18472)
@@ -477,10 +477,10 @@
 
 	{	no warnings;
 		print $debug '<h1>Generated SQL</h1><pre>' . $r->{resultset}->toSQL() . "</pre><a href='$file'>Back to output index</a><hr/>";
-		print $debug '<h1>Template</h1><pre>' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template}->{data} ) ) . "</pre><a href='$file'>Back to output index</a><hr/>";
-		print $debug '<h1>Report Parameter</h1><pre>' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{data} ) ) . "</pre><a href='$file'>Back to output index</a><hr/>";
+		print $debug '<h1>Template</h1><pre>' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template} ) ) . "</pre><a href='$file'>Back to output index</a><hr/>";
+		print $debug '<h1>Report Parameter</h1><pre>' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report} ) ) . "</pre><a href='$file'>Back to output index</a><hr/>";
 		print $debug '<h1>Report Run Time</h1><pre>' . $r->{resultset}->relative_time . "</pre><a href='$file'>Back to output index</a><hr/>";
-		print $debug '<h1>OpenILS::Reporter::SQLBuilder::ResultSet Object</h1><pre>' . Dumper( $r->{resultset} ) . "</pre><a href='$file'>Back to output index</a>";
+		print $debug '<h1>OpenILS::Reporter::SQLBuilder::ResultSet Object</h1><pre>' . Dumper( $r->{resultset} ) . "</pre><a href='report-data.html'>Back to output index</a>";
 	}
 
 	print $debug '</body></html>';