1 package ILS::Transaction::FeePayment;
6 # Copyright 2011 PTFS-Europe Ltd.
8 # This file is part of Koha.
10 # Koha is free software; you can redistribute it and/or modify it under the
11 # terms of the GNU General Public License as published by the Free Software
12 # Foundation; either version 2 of the License, or (at your option) any later
15 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
16 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
17 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
19 # You should have received a copy of the GNU General Public License along
20 # with Koha; if not, write to the Free Software Foundation, Inc.,
21 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23 use C4::Accounts qw(recordpayment);
25 use parent qw(ILS::Transaction);
29 our $VERSION = 3.07.00.049;
35 my $self = $class->SUPER::new();
37 foreach ( keys %fields ) {
38 $self->{_permitted}->{$_} = $fields{$_}; # overlaying _permitted
41 @{$self}{ keys %fields } = values %fields; # copying defaults into object
42 return bless $self, $class;
47 my $borrowernumber = shift;
49 warn("RECORD:$borrowernumber::$amt");
50 recordpayment( $borrowernumber, $amt );