From 87380c44abe8c0053c32fa5f38e065327a5414bc Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Tue, 22 Sep 2009 19:20:29 -0400 Subject: [PATCH] Bug 2505: Enabled warnings in members/patronimage.pl and setdebar.pl. Content-Type: text/plain; charset="utf-8" Fixed resulting warnings after warnings was enabled. --- members/patronimage.pl | 4 +++- members/setdebar.pl | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/members/patronimage.pl b/members/patronimage.pl index 92b8612..62deb20 100755 --- a/members/patronimage.pl +++ b/members/patronimage.pl @@ -21,6 +21,8 @@ # use strict; +use warnings; + use CGI; #qw(:standard escapeHTML); use C4::Context; use C4::Members; @@ -33,7 +35,7 @@ my $cardnumber; =head1 NAME -patronimage.pl - Script for retrieving and formating Koha patron images for display +patronimage.pl - Script for retrieving and formatting Koha patron images for display =head1 SYNOPSIS diff --git a/members/setdebar.pl b/members/setdebar.pl index 905e17f..55a35ee 100755 --- a/members/setdebar.pl +++ b/members/setdebar.pl @@ -27,6 +27,7 @@ by oleonard@athenscounty.lib.oh.us =cut use strict; +use warnings; use CGI; use C4::Context; @@ -39,7 +40,7 @@ $flagsrequired->{borrowers} = 1; my ( $loggedinuser, $cookie, $sessionID ) = checkauth( $input, 0, $flagsrequired ); -my $destination = $input->param("destination"); +my $destination = $input->param("destination") || ''; my $cardnumber = $input->param("cardnumber"); my $borrowernumber = $input->param('borrowernumber'); my $status = $input->param('status'); -- 1.5.6.5