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

(-)a/offline_circ/process_koc.pl (-13 / +23 lines)
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
- 

Return to bug 15902