[PATCH 67/78] check errors (not new_acq related)

[Paul Poulain]

---
 reports/guided_reports.pl |   27 +++++++++++++++++++++++++++
 1 files changed, 27 insertions(+), 0 deletions(-)

diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
index e9a31bf..aa5c14f 100755
--- a/reports/guided_reports.pl
+++ b/reports/guided_reports.pl
@@ -475,3 +475,30 @@ $template->param(   'referer' => $input->referer(),
                 );
 
 output_html_with_http_headers $input, $cookie, $template->output;
+	my ($mastertables,$subtables) = create_compound($master,$subreport);
+	$template->param( 'save_compound' => 1,
+		master=>$mastertables,
+		subsql=>$subtables
+	);
+}
+
+# pass $sth, get back an array of names for the column headers
+sub header_cell_values {
+    my $sth = shift or return ();
+    return @{$sth->{NAME}};
+}
+
+# pass $sth, get back a TMPL_LOOP-able set of names for the column headers
+sub header_cell_loop {
+    my @headers = map { +{ cell => $_ } } header_cell_values (shift);
+    return \@headers;
+}
+
+foreach (1..6) {
+    $template->param('build' . $_) and $template->param(buildx => $_) and last;
+}
+$template->param(   'referer' => $input->referer(),
+                    'DHTMLcalendar_dateformat' => C4::Dates->DHTMLcalendar(),
+                );
+
+output_html_with_http_headers $input, $cookie, $template->output;
-- 
1.6.0.4


--------------040707080604020206060201--