From d898f992c9fc9def2c0cc6f106b7889f95e65226 Mon Sep 17 00:00:00 2001 From: Garry Collum Date: Thu, 24 Sep 2009 13:16:30 -0400 Subject: [PATCH] Bug 2505: Enables warnings in members/mancredit.pl and maninvoice.pl Content-Type: text/plain; charset="utf-8" Fixes resulting warnings. Also corrects a couple of minor typos. --- members/mancredit.pl | 6 ++++-- members/maninvoice.pl | 4 +++- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/members/mancredit.pl b/members/mancredit.pl index c2b49bd..f122ea8 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -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); diff --git a/members/maninvoice.pl b/members/maninvoice.pl index ff0b9ff..34c2349 100755 --- a/members/maninvoice.pl +++ b/members/maninvoice.pl @@ -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; -- 1.5.6.5