From: Bill Erickson <berick@esilibrary.com>
Date: Wed, 26 Jan 2011 20:17:31 +0000 (-0500)
Subject: fix perl sort comparator
X-Git-Tag: opac-tt-poc-demo2~85
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=1fd8fa5f2e4d6b2d370eb2766c7d3735cef53b01;p=evergreen%2Fequinox.git

fix perl sort comparator
---

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);
         }