--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/paycollect.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/paycollect.tt
@@ -1,5 +1,6 @@
[% USE Koha %]
[% USE Branches %]
+[% USE AuthorisedValues %]
[% INCLUDE 'doc-head-open.inc' %]
Koha › Patrons › Collect fine payment for [% borrower.firstname %] [% borrower.surname %]
[% INCLUDE 'doc-head-close.inc' %]
@@ -148,6 +149,15 @@ function moneyFormat(textObj) {
+
+
+
+
+
@@ -213,6 +223,15 @@ function moneyFormat(textObj) {
+
+
+
+
+
--- a/members/paycollect.pl
+++ a/members/paycollect.pl
@@ -55,6 +55,7 @@ my $branch = C4::Context->userenv->{'branch'};
my ( $total_due, $accts, $numaccts ) = GetMemberAccountRecords($borrowernumber);
my $total_paid = $input->param('paid');
+my $paymentmode = $input->param('paymentmode');
my $individual = $input->param('pay_individual');
my $writeoff = $input->param('writeoff_individual');
@@ -117,7 +118,8 @@ if ( $total_paid and $total_paid ne '0.00' ) {
lines => [$line],
amount => $total_paid,
library_id => $branch,
- note => $payment_note
+ note => $payment_note,
+ paymentmode => $paymentmode,
}
);
print $input->redirect(
@@ -129,7 +131,6 @@ if ( $total_paid and $total_paid ne '0.00' ) {
}
my @acc = split /,/, $select;
my $note = $input->param('selected_accts_notes');
-
my @lines = Koha::Account::Lines->search(
{
borrowernumber => $borrowernumber,
@@ -148,13 +149,14 @@ if ( $total_paid and $total_paid ne '0.00' ) {
amount => $total_paid,
lines => \@lines,
note => $note,
+ paymentmode => $paymentmode,
}
);
}
else {
my $note = $input->param('selected_accts_notes');
Koha::Account->new( { patron_id => $borrowernumber } )
- ->pay( { amount => $total_paid, note => $note } );
+ ->pay( { amount => $total_paid, note => $note, paymentmode => $paymentmode } );
}
print $input->redirect(
--