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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-03-12 00:03:00 -0500 (Fri, 12 Mar 2010)
New Revision: 15817

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
added limit/offset options to response stream of fiscall rollover processor

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2010-03-12 05:02:59 UTC (rev 15816)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2010-03-12 05:03:00 UTC (rev 15817)
@@ -1227,11 +1227,12 @@
 
 
 sub process_fiscal_rollover {
-    my( $self, $conn, $auth, $year, $org_id, $descendants ) = @_;
+    my( $self, $conn, $auth, $year, $org_id, $descendants, $options ) = @_;
 
     my $e = new_editor(xact=>1, authtoken=>$auth);
     return $e->die_event unless $e->checkauth;
     return $e->die_event unless $e->allowed('ADMIN_FUND', $org_id);
+    $options ||= {};
 
     my $combined = ($self->api_name =~ /combined/); 
 
@@ -1271,12 +1272,16 @@
     }
 
     # Fetch all funds for the specified org units for the subsequent year
-    my $fund_ids = $e->search_acq_fund(
+    my $fund_ids = $e->search_acq_fund([
         {
             year => int($year) + 1, 
             org => $org_ids,
             propagate => 't'
-        }, 
+        }, {
+            limit => $$optoins{limit} || 20,
+            offset => $$optoins{offset} || 0,
+        }
+        ], 
         {idlist => 1}
     );