@@ -, +, @@
---
.../intranet-tmpl/prog/en/modules/members/paycollect.tt | 5 +++++
members/paycollect.pl | 8 +++++++-
2 files changed, 12 insertions(+), 1 deletion(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/members/paycollect.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/members/paycollect.tt
@@ -65,6 +65,11 @@
You must pay a value less than or equal to [% total_due | format('%.2f') %].
[% END %]
+[% IF ( error_under ) %]
+
+ You must collect a value greater than or equal to [% total_paid | format('%.2f') %].
+
+[% END %]
[% IF ( pay_individual ) %]
[% IF ( error_registers ) %]
--- a/members/paycollect.pl
+++ a/members/paycollect.pl
@@ -67,7 +67,8 @@ my $user = $input->remote_user;
my $library_id = C4::Context->userenv->{'branch'};
my $total_due = $account->outstanding_debits->total_outstanding;
-my $total_paid = $input->param('paid');
+my $total_paid = $input->param('paid');
+my $total_collected = $input->param('collected');
my $selected_lines = $input->param('selected'); # comes from pay.pl
my $pay_individual = $input->param('pay_individual');
@@ -164,6 +165,11 @@ if ( $total_paid and $total_paid ne '0.00' ) {
error_over => 1,
total_due => $total_due
);
+ } elsif ( $total_collected < $total_paid && !( $writeoff_individual || $type eq 'writeoff') ) {
+ $template->param(
+ error_under => 1,
+ total_paid => $total_paid
+ );
} else {
output_and_exit( $input, $cookie, $template, 'wrong_csrf_token' )
unless Koha::Token->new->check_csrf( {
--