Lines 1-6
Link Here
|
1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
2 |
|
2 |
|
3 |
#wrriten 11/1/2000 by chris@katipo.oc.nz |
3 |
#written 11/1/2000 by chris@katipo.oc.nz |
4 |
#script to display borrowers account details |
4 |
#script to display borrowers account details |
5 |
|
5 |
|
6 |
|
6 |
|
Lines 22-27
Link Here
|
22 |
# Suite 330, Boston, MA 02111-1307 USA |
22 |
# Suite 330, Boston, MA 02111-1307 USA |
23 |
|
23 |
|
24 |
use strict; |
24 |
use strict; |
|
|
25 |
use warnings; |
26 |
|
25 |
use C4::Auth; |
27 |
use C4::Auth; |
26 |
use C4::Output; |
28 |
use C4::Output; |
27 |
use CGI; |
29 |
use CGI; |
Lines 43-49
if ($add){
Link Here
|
43 |
my $barcode=$input->param('barcode'); |
45 |
my $barcode=$input->param('barcode'); |
44 |
my $itemnum = GetItemnumberFromBarcode($barcode) if $barcode; |
46 |
my $itemnum = GetItemnumberFromBarcode($barcode) if $barcode; |
45 |
my $desc=$input->param('desc'); |
47 |
my $desc=$input->param('desc'); |
46 |
my $amount=$input->param('amount'); |
48 |
my $amount=$input->param('amount') || 0; |
47 |
$amount = -$amount; |
49 |
$amount = -$amount; |
48 |
my $type=$input->param('type'); |
50 |
my $type=$input->param('type'); |
49 |
manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount); |
51 |
manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount); |