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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-15 09:06:51 -0400 (Wed, 15 Oct 2008)
New Revision: 10836

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
Log:
makes no sense to return an empty array from a streaming method

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-10-15 13:00:22 UTC (rev 10835)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm	2008-10-15 13:06:51 UTC (rev 10836)
@@ -296,7 +296,7 @@
 
     my $org_ids = ($org_id_list and @$org_id_list) ? $org_id_list :
         $U->find_highest_work_orgs($e, $limit_perm, {descendants =>1});
-    return [] unless @$org_ids;
+    return undef unless @$org_ids;
     my $funds = $e->search_acq_fund({org => $org_ids});
 
     for my $fund (@$funds) {