|
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); |