From 4fe0af468bf017a46ada8858ef6c0493f3c76321 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sat, 31 Mar 2012 00:19:24 +0200 Subject: [PATCH] Bug 7859 - members/pay.pl plack scoping Variable "$borrowernumber" is not available at /srv/koha/members/pay.pl line 112. Variable "$borrower" is not available at /srv/koha/members/pay.pl line 129. Variable "$input" is not available at /srv/koha/members/pay.pl line 142. Variable "$borrowernumber" is not available at /srv/koha/members/pay.pl line 157. Variable "$user" is not available at /srv/koha/members/pay.pl line 171. Variable "$input" is not available at /srv/koha/members/pay.pl line 172. Variable "$input" is not available at /srv/koha/members/pay.pl line 181. Variable "$borrowernumber" is not available at /srv/koha/members/pay.pl line 187. Variable "$branch" is not available at /srv/koha/members/pay.pl line 187. Variable "$borrowernumber" is not available at /srv/koha/members/pay.pl line 222. Variable "$input" is not available at /srv/koha/members/pay.pl line 239. Variable "$borrowernumber" is not available at /srv/koha/members/pay.pl line 246. Signed-off-by: Alex Arnaud Signed-off-by: Paul Poulain --- members/pay.pl | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/members/pay.pl b/members/pay.pl index fe1dc8c5d0..8f5233cbf5 100755 --- a/members/pay.pl +++ b/members/pay.pl @@ -41,7 +41,7 @@ use C4::Overdues; use C4::Branch; use C4::Members::Attributes qw(GetBorrowerAttributes); -my $input = CGI->new; +our $input = CGI->new; our ( $template, $loggedinuser, $cookie ) = get_template_and_user( { template_name => 'members/pay.tmpl', @@ -55,18 +55,18 @@ our ( $template, $loggedinuser, $cookie ) = get_template_and_user( my @names = $input->param; -my $borrowernumber = $input->param('borrowernumber'); +our $borrowernumber = $input->param('borrowernumber'); if ( !$borrowernumber ) { $borrowernumber = $input->param('borrowernumber0'); } # get borrower details -my $borrower = GetMember( borrowernumber => $borrowernumber ); -my $user = $input->remote_user; +our $borrower = GetMember( borrowernumber => $borrowernumber ); +our $user = $input->remote_user; $user ||= q{}; my $branches = GetBranches(); -my $branch = GetBranch( $input, $branches ); +our $branch = GetBranch( $input, $branches ); my $writeoff_item = $input->param('confirm_writeoff'); my $paycollect = $input->param('paycollect'); -- 2.39.5