Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 2505: Enables warnings in members/mancredit.pl and maninvoice.pl

Browse source 
Fixes resulting warnings.

Also corrects a couple of minor typos.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
This commit is contained in:
Garry Collum 2009-09-24 13:18:49 -04:00 committed by Galen Charlton
parent 832e9abf64
commit e033a41f06
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
members/mancredit.pl
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
#wrriten 11/1/2000 by chris@katipo.oc.nz
#written 11/1/2000 by chris@katipo.oc.nz
#script to display borrowers account details
@ -22,6 +22,8 @@
# Suite 330, Boston, MA 02111-1307 USA
use strict;
use warnings;
use C4::Auth;
use C4::Output;
use CGI;
@ -43,7 +45,7 @@ if ($add){
my $barcode=$input->param('barcode');
my $itemnum = GetItemnumberFromBarcode($barcode) if $barcode;
my $desc=$input->param('desc');
my $amount=$input->param('amount');
my $amount=$input->param('amount') || 0;
$amount = -$amount;
my $type=$input->param('type');
manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount);

4
members/maninvoice.pl
View file

@ -1,6 +1,6 @@
#!/usr/bin/perl
#wrriten 11/1/2000 by chris@katipo.oc.nz
#written 11/1/2000 by chris@katipo.oc.nz
#script to display borrowers account details
@ -22,6 +22,8 @@
# Suite 330, Boston, MA 02111-1307 USA
use strict;
use warnings;
use C4::Auth;
use C4::Output;
use CGI;