--- 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' %]
@@ -147,6 +148,14 @@ function moneyFormat(textObj) {
+
+
+
+
@@ -206,15 +215,23 @@ function moneyFormat(textObj) {
Total amount outstanding: [% total | format('%.2f') %]
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
-
+
--- a/members/paycollect.pl
+++ a/members/paycollect.pl
@@ -64,6 +64,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');
@@ -123,7 +124,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(
@@ -135,7 +137,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,
@@ -154,13 +155,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(
--