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

(-)a/Koha/Account.pm (-2 / +8 lines)
Lines 86-92 sub pay { Link Here
86
86
87
    my $userenv = C4::Context->userenv;
87
    my $userenv = C4::Context->userenv;
88
88
89
90
    my $manager_id = $userenv ? $userenv->{number} : undef;
89
    my $manager_id = $userenv ? $userenv->{number} : undef;
91
    my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface;
90
    my $interface = $params ? ( $params->{interface} || C4::Context->interface ) : C4::Context->interface;
92
    my $payment = $self->payin_amount(
91
    my $payment = $self->payin_amount(
Lines 105-110 sub pay { Link Here
105
        }
104
        }
106
    );
105
    );
107
106
107
    # NOTE: Pay historically always applied as much credit as it could to all
108
    # existing outstanding debits, whether passed specific debits or otherwise.
109
    if ( $payment->amountoutstanding ) {
110
        $payment =
111
          $payment->apply(
112
            { debits => [ $self->outstanding_debits->as_list ] } );
113
    }
114
108
    my $patron = Koha::Patrons->find( $self->{patron_id} );
115
    my $patron = Koha::Patrons->find( $self->{patron_id} );
109
    my @account_offsets = $payment->debit_offsets;
116
    my @account_offsets = $payment->debit_offsets;
110
    if ( C4::Context->preference('UseEmailReceipts') ) {
117
    if ( C4::Context->preference('UseEmailReceipts') ) {
111
- 

Return to bug 27636