makes no sense to return an empty array from a streaming method

git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@10836 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
index de8acf8..5125386 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm
@@ -296,7 +296,7 @@ sub retrieve_org_funds {
 
     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) {