acq search : support acqlisumi
authorBill Erickson <berick@esilibrary.com>
Fri, 20 Jul 2012 14:32:43 +0000 (10:32 -0400)
committerBill Erickson <berick@esilibrary.com>
Fri, 20 Jul 2012 14:32:43 +0000 (10:32 -0400)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Search.pm

index e181303..d924e4c 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 acqlid acqlisum/) {
+    foreach my $class (qw/acqpo acqpl acqinv jub acqlid acqlisum acqlisumi/) {
         next if not exists $terms->{$class};
 
         $outer_clause->{$conj} = [] unless $outer_clause->{$conj};
@@ -347,7 +347,8 @@ sub build_from_clause_and_joins {
 
             # without this, the SQL attempts to join on 
             # jub.order_summary, which is a virtual field.
-            $graft_map{$class}{field} = 'lineitem' if $class eq 'acqlisum'; 
+            $graft_map{$class}{field} = 'lineitem' 
+                if $class eq 'acqlisum' or $class eq 'acqlisumi';
         }
     }