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 a7c7fee..8468bdc 100644 (file)
--- 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);
         }