[open-ils-commits] r10881 - trunk/Open-ILS/src/perlmods/OpenILS/Utils

[svn at svn.open-ils.org]

Author: djfiander
Date: 2008-10-20 21:45:44 -0400 (Mon, 20 Oct 2008)
New Revision: 10881

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD.pm
Log:
Get the comparison operator right for sorting.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD.pm	2008-10-20 19:42:34 UTC (rev 10880)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD.pm	2008-10-21 01:45:44 UTC (rev 10881)
@@ -52,7 +52,7 @@
     my $self = shift;
     my $capid = shift;
 
-    return sort {$a->{SEQNO} cmp $b->{SEQNO}} values %{$self->{HOLDINGS}->{$capid}};
+    return sort {$a->{SEQNO} <=> $b->{SEQNO}} values %{$self->{HOLDINGS}->{$capid}};
 }
 
 1;