Get the comparison operator right for sorting.
authordjfiander <djfiander@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 21 Oct 2008 01:45:44 +0000 (01:45 +0000)
committerdjfiander <djfiander@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 21 Oct 2008 01:45:44 +0000 (01:45 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10881 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Utils/MFHD.pm

index 98a1d1e..087d940 100755 (executable)
@@ -52,7 +52,7 @@ sub holdings {
     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;