From a29ef8ddaaf0e6462ad7a32b42bff289c33c25e6 Mon Sep 17 00:00:00 2001 From: Dan Wells Date: Mon, 7 Jul 2014 13:16:58 -0400 Subject: [PATCH] Fix currently harmless but still confusing sigil error get_org_descendants() returns an array ref, not a list, so it doesn't make sense to assign it to an '@orgs' variable. Lucky for us, our where-parser treats this single element list containing the ref in the same manner as the proper ref itself, but at best, it is still very confusing to see. Signed-off-by: Dan Wells Signed-off-by: Kathy Lussier --- .../src/perlmods/lib/OpenILS/Application/Search/Serial.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Serial.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Serial.pm index d445250bcc..0247f4a2a6 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Serial.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Serial.pm @@ -123,13 +123,13 @@ sub bib_to_svr { } # ou_depth can be undef in get_org_descendants - my @orgs = $U->get_org_descendants($ou, $ou_depth); + my $orgs = $U->get_org_descendants($ou, $ou_depth); # TODO: 'deleted' ssub support my $sdists = $e->search_serial_distribution([ { "+ssub" => {"record_entry" => $bib}, - "holding_lib" => { "in" => @orgs } + "holding_lib" => { "in" => $orgs } }, { "flesh" => 1, @@ -143,7 +143,7 @@ sub bib_to_svr { { record => $bib, deleted => 'f', - "owning_lib" => { "in" => @orgs }, + "owning_lib" => { "in" => $orgs }, "+sdist" => {"id" => undef} }, { -- 2.43.2