Bug 11944: use CGI( -utf8 ) everywhere

[srvgit] / C4 / SIP / ILS / Transaction / Checkout.pm

diff --git a/C4/SIP/ILS/Transaction/Checkout.pm b/C4/SIP/ILS/Transaction/Checkout.pm
index c61eca6..70fe9cc 100644 (file)
--- a/C4/SIP/ILS/Transaction/Checkout.pm
+++ b/C4/SIP/ILS/Transaction/Checkout.pm
@@ -10,7 +10,7 @@ use strict;
 use POSIX qw(strftime);
 use Sys::Syslog qw(syslog);
 use Data::Dumper;
-use CGI;
+use CGI qw ( -utf8 );
 
 use ILS;
 use ILS::Transaction;
@@ -85,7 +85,9 @@ sub do_checkout {
             } elsif ($confirmation eq 'ISSUED_TO_ANOTHER') {
                 $self->screen_msg("Item already checked out to another patron.  Please return item for check-in.");
                 $noerror = 0;
-            } elsif ($confirmation eq 'DEBT') {     # don't do anything, it's the minor debt, and alarms fire elsewhere
+            } elsif ($confirmation eq 'DEBT') {
+                $self->screen_msg('Outstanding Fines block issue');
+                $noerror = 0;
             } elsif ($confirmation eq 'HIGHHOLDS') {
                 $overridden_duedate = $needsconfirmation->{$confirmation}->{returndate};
                 $self->screen_msg('Loan period reduced for high-demand item');