From 6ae36eca90b76d7e92ee931ee7bbfb3a8c69b968 Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 15 Oct 2008 13:06:51 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Financials.pm index de8acf8fb9..5125386c0a 100644 --- 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) { -- 2.11.0