From c292afb7edd505a5e2381361f0f1be006f759852 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 16 Mar 2016 18:00:20 +0000
Subject: [PATCH] Bug 14577 [QA Followup]

---
 C4/Circulation.pm                                     |  6 +++---
 C4/Members.pm                                         |  2 +-
 .../intranet-tmpl/prog/en/modules/circ/circulation.tt |  3 ++-
 .../en/modules/circ/circulation_batch_checkouts.tt    | 11 ++++++++++-
 t/db_dependent/Patron.t                               | 19 +------------------
 5 files changed, 17 insertions(+), 24 deletions(-)

diff --git a/C4/Circulation.pm b/C4/Circulation.pm
index 4c91ef5..8bb5064 100644
--- a/C4/Circulation.pm
+++ b/C4/Circulation.pm
@@ -864,11 +864,11 @@ sub CanBookBeIssued {
         }
 
         if ( $guarantees_non_issues_charges > $no_issues_charge_guarantees && !$inprocess && !$allowfineoverride) {
-            $issuingimpossible{DEBT_GUARANTEES} = sprintf( "%.2f", $guarantees_non_issues_charges );
+            $issuingimpossible{DEBT_GUARANTEES} = $guarantees_non_issues_charges;
         } elsif ( $guarantees_non_issues_charges > $no_issues_charge_guarantees && !$inprocess && $allowfineoverride) {
-            $needsconfirmation{DEBT_GUARANTEES} = sprintf( "%.2f", $guarantees_non_issues_charges );
+            $needsconfirmation{DEBT_GUARANTEES} = $guarantees_non_issues_charges;
         } elsif ( $allfinesneedoverride && $guarantees_non_issues_charges > 0 && $guarantees_non_issues_charges <= $no_issues_charge_guarantees && !$inprocess ) {
-            $needsconfirmation{DEBT_GUARANTEES} = sprintf( "%.2f", $guarantees_non_issues_charges );
+            $needsconfirmation{DEBT_GUARANTEES} = $guarantees_non_issues_charges;
         }
     }
 
diff --git a/C4/Members.pm b/C4/Members.pm
index 9b1b602..a7198d5 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -343,7 +343,7 @@ sub patronflags {
         if ( $guarantees_non_issues_charges > $no_issues_charge_guarantees ) {
             my %flaginfo;
             $flaginfo{'message'} = sprintf 'patron guarantees owe %.02f', $guarantees_non_issues_charges;
-            $flaginfo{'amount'}  = sprintf "%.02f", $guarantees_non_issues_charges;
+            $flaginfo{'amount'}  = $guarantees_non_issues_charges;
             $flaginfo{'noissues'} = 1 unless C4::Context->preference("allowfineoverride");
             $flags{'CHARGES_GUARANTEES'} = \%flaginfo;
         }
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt
index 3da9bad..a52c486 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation.tt
@@ -3,6 +3,7 @@
 [% USE KohaDates %]
 [% USE ColumnsSettings %]
 [% USE ItemTypes %]
+[% USE Price %]
 [% IF Koha.Preference('ExportRemoveFields') OR Koha.Preference('ExportWithCsvProfile') %]
    [% SET exports_enabled = 1 %]
 [% END %]
@@ -231,7 +232,7 @@ $(document).ready(function() {
 [% END %]
 
 [% IF ( DEBT_GUARANTEES ) %]
-    <li>The patron's guarantees collectively have a debt of [% DEBT_GUARANTEES %].</li>
+    <li>The patron's guarantees collectively have a debt of [% DEBT_GUARANTEES | $Price %].</li>
 [% END %]
 
 [% IF ( RENTALCHARGE && RENTALCHARGE > 0 ) %]
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation_batch_checkouts.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation_batch_checkouts.tt
index 8118251..f58e8ab 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation_batch_checkouts.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation_batch_checkouts.tt
@@ -1,5 +1,6 @@
 [% USE Branches %]
 [% USE KohaDates %]
+[% USE Price %]
 [% IF ( export_remove_fields OR export_with_csv_profile ) %]
    [% SET exports_enabled = 1 %]
 [% END %]
@@ -62,7 +63,15 @@ $(document).ready(function() {
   <div class="dialog alert">
     Cannot check out!
     [% IF charges_is_blocker %]
-      Checkouts are <span class="circ-hlt">BLOCKED</span> because fine balance is <span class="circ-hlt">OVER THE LIMIT</span>.
+      <span class="circ-hlt">Checkouts are BLOCKED because fine balance is OVER THE LIMIT.</span>
+    [% END %]
+    [% IF charges_guarantees_is_blocker %]
+        <li>
+            <span class="circ-hlt">Fees &amp; Charges:</span> Patron's guarantees collectively owe [% chargesamount_guarantees | $Price %].
+        </li>
+        <li>
+            <span class="circ-hlt">Checkouts are BLOCKED because fine balance is OVER THE LIMIT.</span>
+        </li>
     [% END %]
   </div>
 [% ELSIF NOT checkout_infos %]
diff --git a/t/db_dependent/Patron.t b/t/db_dependent/Patron.t
index 0140013..11c57fe 100755
--- a/t/db_dependent/Patron.t
+++ b/t/db_dependent/Patron.t
@@ -17,7 +17,7 @@
 
 use Modern::Perl;
 
-use Test::More tests => 15;
+use Test::More tests => 13;
 use Test::Warn;
 
 use C4::Context;
@@ -44,23 +44,6 @@ $object->surname("Test Surname");
 $object->store();
 
 is( $object->in_storage, 1, "Object is now stored" );
-my $guarantee1 = Koha::Patron->new(
-    {
-        categorycode => $categorycode,
-        branchcode   => $branchcode,
-        guarantorid  => $object->id
-    }
-)->store();
-my $guarantee2 = Koha::Patron->new(
-    {
-        categorycode => $categorycode,
-        branchcode   => $branchcode,
-        guarantorid  => $object->id
-    }
-)->store();
-my @guarantees = $object->guarantees();
-is( $guarantees[0]->id, $guarantee1->id, "First guarantee matchs" );
-is( $guarantees[1]->id, $guarantee2->id, "Second guarantee matchs" );
 
 my $borrowernumber = $object->borrowernumber;
 
-- 
2.1.4