@@ -, +, @@
guided_reports.pl
---
.../prog/en/modules/reports/guided_reports_start.tt | 8 +++++++-
reports/guided_reports.pl | 17 ++++++-----------
2 files changed, 13 insertions(+), 12 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt
@@ -783,7 +783,13 @@ canned reports and writing custom SQL reports.
[% ELSIF ( sql_param.input == 'text' ) %]
[% ELSE %]
- [% sql_param.input %]
+
+
+
[% END %]
[% END %]
--- a/reports/guided_reports.pl
+++ a/reports/guided_reports.pl
@@ -722,17 +722,12 @@ elsif ($phase eq 'Run this report'){
}
$labelid = $text;
$labelid =~ s/\W//g;
- $input =CGI::scrolling_list( # FIXME: factor out scrolling_list
- -name => "sql_params",
- -id => "sql_params_".$labelid,
- -values => \@authorised_values,
-# -default => $value,
- -labels => \%authorised_lib,
- -override => 1,
- -size => 1,
- -multiple => 0,
- -tabindex => 1,
- );
+ $input = {
+ name => "sql_params",
+ id => "sql_params_".$labelid,
+ values => \@authorised_values,
+ labels => \%authorised_lib,
+ };
}
push @tmpl_parameters, {'entry' => $text, 'input' => $input, 'labelid' => $labelid };
--