View | Details | Raw Unified | Return to bug 2505
Collapse All | Expand All

(-)a/members/mancredit.pl (-2 / +4 lines)
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);
(-)a/members/maninvoice.pl (-2 / +3 lines)
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;
28
- 

Return to bug 2505