Lines 22-27
use strict;
Link Here
|
22 |
use warnings; |
22 |
use warnings; |
23 |
|
23 |
|
24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
|
|
25 |
use Carp; |
26 |
|
25 |
use C4::Output; |
27 |
use C4::Output; |
26 |
use C4::Auth; |
28 |
use C4::Auth; |
27 |
use C4::Koha; |
29 |
use C4::Koha; |
Lines 32-39
use C4::Circulation;
Link Here
|
32 |
use C4::Items; |
34 |
use C4::Items; |
33 |
use C4::Members; |
35 |
use C4::Members; |
34 |
use C4::Stats; |
36 |
use C4::Stats; |
35 |
use Koha::Upload; |
|
|
36 |
use C4::BackgroundJob; |
37 |
use C4::BackgroundJob; |
|
|
38 |
use Koha::Upload; |
39 |
use Koha::Account; |
37 |
|
40 |
|
38 |
use Date::Calc qw( Add_Delta_Days Date_to_Days ); |
41 |
use Date::Calc qw( Add_Delta_Days Date_to_Days ); |
39 |
|
42 |
|
Lines 356-372
sub kocReturnItem {
Link Here
|
356 |
} |
359 |
} |
357 |
|
360 |
|
358 |
sub kocMakePayment { |
361 |
sub kocMakePayment { |
359 |
my ( $circ ) = @_; |
362 |
my ($circ) = @_; |
360 |
my $borrower = GetMember( 'cardnumber'=>$circ->{ 'cardnumber' } ); |
363 |
|
361 |
recordpayment( $borrower->{'borrowernumber'}, $circ->{'amount'} ); |
364 |
my $cardnumber = $circ->{cardnumber}; |
362 |
push @output, { |
365 |
my $amount = $circ->{amount}; |
363 |
payment => 1, |
366 |
|
364 |
amount => $circ->{'amount'}, |
367 |
my $patron = Koha::Borrowers->find( { cardnumber => $cardnumber } ); |
365 |
firstname => $borrower->{'firstname'}, |
368 |
|
366 |
surname => $borrower->{'surname'}, |
369 |
Koha::Account->new( { patron_id => $patron->id } ) |
367 |
cardnumber => $circ->{'cardnumber'}, |
370 |
->pay( { amount => $amount } ); |
368 |
borrower => $borrower->{'borrowernumber'} |
371 |
|
369 |
}; |
372 |
push @output, |
|
|
373 |
{ |
374 |
payment => 1, |
375 |
amount => $circ->{'amount'}, |
376 |
firstname => $patron->firstname, |
377 |
surname => $patron->surname, |
378 |
cardnumber => $patron->cardnumber, |
379 |
borrower => $patron->id, |
380 |
}; |
370 |
} |
381 |
} |
371 |
|
382 |
|
372 |
=head2 _get_borrowernumber_from_barcode |
383 |
=head2 _get_borrowernumber_from_barcode |
373 |
- |
|
|