sort bucket items by 'pos' field

git-svn-id: svn://svn.open-ils.org/ILS/trunk@12127 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
index 74ef512..ca98cba 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
@@ -92,8 +92,9 @@ sub bucket_flesh {
                return $e if $e;
        }
 
+    my $fmclass = $bkt->class_name . "i";
        $bkt->items( $apputils->simplereq( $svc,
-               "$meth"."_item.search.atomic", { bucket => $bucket } ) );
+               "$meth"."_item.search.atomic", { bucket => $bucket }, {order_by => {$fmclass => "pos"}} ) );
 
        return $bkt;
 }
@@ -120,8 +121,9 @@ sub bucket_flesh_public {
        my $bkt = $apputils->simplereq( $svc, "$meth.retrieve", $bucket );
        return undef unless ($bkt and $bkt->pub);
 
+    my $fmclass = $bkt->class_name . "i";
        $bkt->items( $apputils->simplereq( $svc,
-               "$meth"."_item.search.atomic", { bucket => $bucket } ) );
+               "$meth"."_item.search.atomic", { bucket => $bucket }, {order_by => {$fmclass => "pos"}} ) );
 
        return $bkt;
 }