From c5553546720fbace2cb24641e2d1956a3e709c68 Mon Sep 17 00:00:00 2001 From: Mike Rylander Date: Wed, 28 Sep 2011 15:45:36 -0400 Subject: [PATCH] Provide proper hrefs for links back from report debugging pages Reimplementation of a fix provided by Michael Peters. The originally submitted patch included several fixes provided by an unrelated patch, and a regression in build-time embedded tokens. Original branch at: http://git.evergreen-ils.org/?p=working/Evergreen.git;a=shortlog;h=refs/heads/user/mrpeters-isl/clark_kent_back_links Signed-off-by: Mike Rylander --- Open-ILS/src/reporter/clark-kent.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl index e8cf88d361..29b067dad4 100755 --- a/Open-ILS/src/reporter/clark-kent.pl +++ b/Open-ILS/src/reporter/clark-kent.pl @@ -478,13 +478,13 @@ sub build_html { print $debug "DEBUG: $$r{report}{name}"; { no warnings; - print $debug '

Generated SQL

' . $r->{resultset}->toSQL() . "

Back to output index

"; - print $debug '

Template

' . Dumper( $r->{report}->{template} ) . "

Back to output index

"; - print $debug '

Template Data

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template}->{data} ) ) . "

Back to output index

"; - print $debug '

Report Parameter

' . Dumper( $r->{report} ) . "

Back to output index

"; - print $debug '

Report Parameter Data

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{data} ) ) . "

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 '

Generated SQL

' . $r->{resultset}->toSQL() . "

Back to output index

"; + print $debug '

Template

' . Dumper( $r->{report}->{template} ) . "

Back to output index

"; + print $debug '

Template Data

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{template}->{data} ) ) . "

Back to output index

"; + print $debug '

Report Parameter

' . Dumper( $r->{report} ) . "

Back to output index

"; + print $debug '

Report Parameter Data

' . Dumper( OpenSRF::Utils::JSON->JSON2perl( $r->{report}->{data} ) ) . "

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 ''; -- 2.43.2