From e39dace7d6cc8639f204ccd09896991d7bbe5823 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Sat, 3 Apr 2010 20:46:54 +0000
Subject: [PATCH] related items now returns LI's that may be attached to a
selection lists only (no po)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@16119 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
index e050fee6d7..6f840d2b94 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
@@ -315,13 +315,12 @@ sub lineitems_related_by_bib {
my $query = {
"select"=>{"jub"=>["id"]},
- "from"=>{"jub"=>"acqpo"},
+ "from"=>{"jub" => {"acqpo" => {type => 'left'}, "acqpl" => {type => 'left'}}},
"where"=>{
- "+acqpo"=>{
- "ordering_agency"=>{
- "in"=>$perm_orgs
- }
- }
+ '-or' => [
+ { "+acqpo"=>{ "ordering_agency" => $perm_orgs } },
+ { '+acqpl' => { org_unit => $perm_orgs } }
+ ]
},
"order_by"=>[{"class"=>"jub", "field"=>"create_time", "direction"=>"desc"}]
};
--
2.11.0