@@ -, +, @@ --- members/patronimage.pl | 4 +++- members/setdebar.pl | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) --- a/members/patronimage.pl +++ a/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 --- a/members/setdebar.pl +++ a/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'); --