[open-ils-commits] r8795 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-20 09:24:45 -0500 (Wed, 20 Feb 2008)
New Revision: 8795

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
added support for order_by, limit, and offset to po retrieve all

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-20 04:38:35 UTC (rev 8794)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-02-20 14:24:45 UTC (rev 8795)
@@ -589,10 +589,19 @@
     # grab my purchase orders
     push(@$po_ids, @{$e->search_acq_purchase_order({owner => $e->requestor->id}, {idlist=>1})});
 
-    my %dedup;
-    $dedup{$_} = 1 for @$po_ids;
-    $conn->respond(retrieve_purchase_order_impl($e, $_, $options)) for keys %dedup;
+    # now get the db to limit/sort for us
+    $po_ids = $e->search_acq_purchase_order(
+        [
+            {id => $po_ids}, {
+                limit => $$options{limit} || 50,
+                offset => $$options{offset} || 0,
+                order_by => {acqpo => $$options{order_by} || 'create_time'}
+            }
+        ],
+        {idlist => 1}
+    );
 
+    $conn->respond(retrieve_purchase_order_impl($e, $_, $options)) for @$po_ids;
     return undef;
 }