From: Michael Peters Date: Wed, 28 Sep 2011 15:02:41 +0000 (-0400) Subject: Fix improper href's in Clark Kent "back" links on debug report page X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fmrpeters-isl%2Fclark_kent_back_links;p=working%2FEvergreen.git 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 --- 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 "';

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