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 [email protected] +#written 11/1/2000 by [email protected] #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 [email protected] +#written 11/1/2000 by [email protected] #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 _______________________________________________ Koha-patches mailing list [email protected] http://lists.koha.org/mailman/listinfo/koha-patches
