acq invoice search; aclid support in search call
authorBill Erickson <berick@esilibrary.com>
Wed, 11 Jul 2012 15:09:57 +0000 (11:09 -0400)
committerBill Erickson <berick@esilibrary.com>
Wed, 25 Jul 2012 14:36:24 +0000 (10:36 -0400)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm

index cbf4c73..fce6604 100644 (file)
@@ -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};