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

(-)a/C4/SIP/ILS/Transaction/FeePayment.pm (-3 / +2 lines)
Lines 20-26 use strict; Link Here
20
# You should have received a copy of the GNU General Public License
20
# You should have received a copy of the GNU General Public License
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use C4::Accounts qw(recordpayment);
23
use Koha::Account;
24
use parent qw(C4::SIP::ILS::Transaction);
24
use parent qw(C4::SIP::ILS::Transaction);
25
25
26
26
Lines 46-52 sub pay { Link Here
46
    my $amt            = shift;
46
    my $amt            = shift;
47
    my $type           = shift;
47
    my $type           = shift;
48
    warn("RECORD:$borrowernumber::$amt");
48
    warn("RECORD:$borrowernumber::$amt");
49
    recordpayment( $borrowernumber, $amt,$type );
49
    Koha::Account->new( { patron_id => $borrowernumber } )->pay( { amount => $amt, sip => $type } );
50
}
50
}
51
51
52
#sub DESTROY {
52
#sub DESTROY {
53
- 

Return to bug 15901