From f17e1117df1cdcd5e953d03bc32d5440bc6ace9d Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Tue, 6 Jan 2009 19:43:35 -0600 Subject: [PATCH] bug 2505: enable warnings for admin/authorized_values.pl Signed-off-by: Galen Charlton --- admin/authorised_values.pl | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl index eeff97a591..f30193e20e 100755 --- a/admin/authorised_values.pl +++ b/admin/authorised_values.pl @@ -18,7 +18,8 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; -# use warnings; #FIXME +use warnings; + use CGI; use C4::Auth; use C4::Context; @@ -43,22 +44,23 @@ sub AuthorizedValuesForCategory ($) { my $input = new CGI; my $id = $input->param('id'); -my $offset = $input->param('offset'); +my $offset = $input->param('offset') || 0; my $searchfield = $input->param('searchfield'); +$searchfield = '' unless defined $searchfield; $searchfield=~ s/\,//g; my $script_name = "/cgi-bin/koha/admin/authorised_values.pl"; my $dbh = C4::Context->dbh; my ($template, $borrowernumber, $cookie)= get_template_and_user({ - template_name => "admin/authorised_values.tmpl", + template_name => "admin/authorised_values.tmpl", authnotrequired => 0, - flagsrequired => {parameters => 1}, + flagsrequired => {parameters => 1}, query => $input, - type => "intranet", + type => "intranet", debug => 1, }); my $pagesize = 20; -my $op = $input->param('op'); +my $op = $input->param('op') || ''; $template->param( script_name => $script_name, ($op||'else') => 1 ); -- 2.39.5