From 1fd8fa5f2e4d6b2d370eb2766c7d3735cef53b01 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 26 Jan 2011 15:17:31 -0500
Subject: [PATCH] fix perl sort comparator

---
 Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
index a7c7fee45c..8468bdcb91 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/EGCatLoader.pm
@@ -634,7 +634,7 @@ sub load_myopac_fines {
 
         my $last_billing;
         if($mobts->grocery) {
-            my @billings = sort { $a->billing_ts <=> $b->billing_ts } @{$mobts->grocery->billings};
+            my @billings = sort { $a->billing_ts cmp $b->billing_ts } @{$mobts->grocery->billings};
             $last_billing = pop(@billings);
         }
 
-- 
2.43.2