From aa7d024f0c1905b4d42b2a18a8d451256d29c414 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 11 Jul 2012 11:09:57 -0400 Subject: [PATCH] acq invoice search; aclid support in search call Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm index cbf4c73c5c..fce6604cf7 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm @@ -229,7 +229,7 @@ sub prepare_terms { my $conj = $is_and ? "-and" : "-or"; my $outer_clause = {}; - foreach my $class (qw/acqpo acqpl acqinv jub/) { + foreach my $class (qw/acqpo acqpl acqinv jub acqlid/) { next if not exists $terms->{$class}; $outer_clause->{$conj} = [] unless $outer_clause->{$conj}; -- 2.11.0