check errors (not new_acq related)

diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
index e86c72a..a0974e6 100755 (executable)
--- a/reports/guided_reports.pl
+++ b/reports/guided_reports.pl
@@ -477,3 +477,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;