From 14b27470b0fbb8e2cd1e25a8b0b7c4a0a8f06854 Mon Sep 17 00:00:00 2001 From: Michael Peters Date: Wed, 28 Sep 2011 11:02:41 -0400 Subject: [PATCH] Fix improper href's in Clark Kent "back" links on debug report page This patch fixes the incorrect hrefs to filesystem paths in the reporter's debug outputs. Also adds a "Back to Report Index" link on the HTML output, where going back was previously impossible. Thanks to Thomas Berezansky for the inspiration. Signed-off-by: Michael Peters --- Open-ILS/src/reporter/clark-kent.pl | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Open-ILS/src/reporter/clark-kent.pl b/Open-ILS/src/reporter/clark-kent.pl index d61878252c..190539ab72 100755 --- a/Open-ILS/src/reporter/clark-kent.pl +++ b/Open-ILS/src/reporter/clark-kent.pl @@ -477,13 +477,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 ''; @@ -507,7 +507,7 @@ sub build_html { CSS - print $raw ""; + print $raw "Back to output index

"; { no warnings; print $raw "'; -- 2.11.0

".join('	',@{$r->{column_labels}}).'