[open-ils-commits] r12127 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-02-10 12:05:53 -0500 (Tue, 10 Feb 2009)
New Revision: 12127

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
Log:
sort bucket items by 'pos' field

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm	2009-02-10 06:04:24 UTC (rev 12126)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor/Container.pm	2009-02-10 17:05:53 UTC (rev 12127)
@@ -92,8 +92,9 @@
 		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 @@
 	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;
 }