From 95e571df609367ba3b0fa9eff2898f6d21d69f83 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 28 Apr 2009 23:26:30 +0200 Subject: [PATCH] check errors (not new_acq related) --- reports/guided_reports.pl | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl index e86c72ae2a..a0974e6be1 100755 --- a/reports/guided_reports.pl +++ b/reports/guided_reports.pl @@ -469,6 +469,33 @@ sub header_cell_loop { 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; + 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; } -- 2.39.5