@@ -, +, @@ --- C4/Reserves.pm | 1 - C4/SIP/ILS/Transaction/FeePayment.pm | 20 +++++++++---------- Koha/Account.pm | 14 +++---------- .../prog/en/includes/accounts.inc | 3 --- .../bootstrap/en/includes/account-table.inc | 3 --- 5 files changed, 13 insertions(+), 28 deletions(-) --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -577,7 +577,6 @@ sub ChargeReserveFee { user_id => C4::Context->userenv ? C4::Context->userenv->{'number'} : undef, library_id => C4::Context->userenv ? C4::Context->userenv->{'branch'} : undef, interface => C4::Context->interface, - sip => undef, invoice_type => undef, type => 'reserve', item_id => undef --- a/C4/SIP/ILS/Transaction/FeePayment.pm +++ a/C4/SIP/ILS/Transaction/FeePayment.pm @@ -50,7 +50,7 @@ sub pay { my $is_writeoff = shift; my $disallow_overpayment = shift; - my $type = $is_writeoff ? 'writeoff' : undef; + my $type = $is_writeoff ? 'writeoff' : 'payment'; warn("RECORD:$borrowernumber::$amt"); @@ -65,11 +65,11 @@ sub pay { if ( $fee ) { $account->pay( { - amount => $amt, - sip => $sip_type, - type => $type, - lines => [$fee], - interface => C4::Context->interface + amount => $amt, + type => $type, + payment_type => 'SIP' . $sip_type, + lines => [$fee], + interface => C4::Context->interface } ); return 1; @@ -81,10 +81,10 @@ sub pay { else { $account->pay( { - amount => $amt, - sip => $sip_type, - type => $type, - interface => C4::Context->interface + amount => $amt, + type => $type, + payment_type => 'SIP' . $sip_type, + interface => C4::Context->interface } ); return 1; --- a/Koha/Account.pm +++ a/Koha/Account.pm @@ -56,7 +56,6 @@ This method allows payments to be made against fees/fines Koha::Account->new( { patron_id => $borrowernumber } )->pay( { amount => $amount, - sip => $sipmode, note => $note, description => $description, library_id => $branchcode, @@ -72,7 +71,6 @@ sub pay { my ( $self, $params ) = @_; my $amount = $params->{amount}; - my $sip = $params->{sip}; my $description = $params->{description}; my $note = $params->{note} || q{}; my $library_id = $params->{library_id}; @@ -211,9 +209,9 @@ sub pay { } $account_type ||= - $type eq 'writeoff' ? 'W' - : defined($sip) ? "Pay$sip" - : 'Pay'; + $type eq 'writeoff' + ? 'W' + : 'Pay'; $description ||= $type eq 'writeoff' ? 'Writeoff' : q{}; @@ -309,7 +307,6 @@ my $credit_line = Koha::Account->new({ patron_id => $patron_id })->add_credit( user_id => $user_id, interface => $interface, library_id => $library_id, - sip => $sip, payment_type => $payment_type, type => $credit_type, item_id => $item_id @@ -336,7 +333,6 @@ sub add_credit { my $user_id = $params->{user_id}; my $interface = $params->{interface}; my $library_id = $params->{library_id}; - my $sip = $params->{sip}; my $payment_type = $params->{payment_type}; my $type = $params->{type} || 'payment'; my $item_id = $params->{item_id}; @@ -350,10 +346,6 @@ sub add_credit { my $schema = Koha::Database->new->schema; my $account_type = $Koha::Account::account_type_credit->{$type}; - $account_type .= $sip - if defined $sip && - $type eq 'payment'; - my $line; $schema->txn_do( --- a/koha-tmpl/intranet-tmpl/prog/en/includes/accounts.inc +++ a/koha-tmpl/intranet-tmpl/prog/en/includes/accounts.inc @@ -1,9 +1,6 @@ [%- BLOCK account_type_description -%] [%- SWITCH account.accounttype -%] [%- CASE 'Pay' -%]Payment - [%- CASE 'Pay00' -%]Payment (cash via SIP2) - [%- CASE 'Pay01' -%]Payment (VISA via SIP2) - [%- CASE 'Pay02' -%]Payment (credit card via SIP2) [%- CASE 'N' -%]New card [%- CASE 'OVERDUE' -%]Fine [%- CASE 'A' -%]Account management fee --- a/koha-tmpl/opac-tmpl/bootstrap/en/includes/account-table.inc +++ a/koha-tmpl/opac-tmpl/bootstrap/en/includes/account-table.inc @@ -119,9 +119,6 @@ [%- BLOCK account_type_description -%] [%- SWITCH account.accounttype -%] [%- CASE 'Pay' -%]Payment - [%- CASE 'Pay00' -%]Payment (cash via SIP2) - [%- CASE 'Pay01' -%]Payment (VISA via SIP2) - [%- CASE 'Pay02' -%]Payment (credit card via SIP2) [%- CASE 'N' -%]New card [%- CASE 'OVERDUE' -%]Fine [%- CASE 'A' -%]Account management fee --