fix crash when recording payment for lost item

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2008-03-13 17:18:18 -05:00 committed by Joshua Ferraro
parent 79c0fd029c
commit ba82ae3a95
1 changed files with 11 additions and 10 deletions

View File

@ -39,6 +39,17 @@ use C4::Branch; # GetBranches
my $input = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "members/pay.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { borrowers => 1 },
debug => 1,
}
);
my $borrowernumber = $input->param('borrowernumber');
if ( $borrowernumber eq '' ) {
$borrowernumber = $input->param('borrowernumber0');
@ -73,16 +84,6 @@ for ( my $i = 0 ; $i < @names ; $i++ ) {
}
my $total = $input->param('total');
if ( $check == 0 ) {
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
template_name => "members/pay.tmpl",
query => $input,
type => "intranet",
authnotrequired => 0,
flagsrequired => { borrowers => 1 },
debug => 1,
}
);
if ( $total ne '' ) {
recordpayment( $borrowernumber, $total );
}