[open-ils-commits] r16119 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-04-03 16:46:54 -0400 (Sat, 03 Apr 2010)
New Revision: 16119

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:
related items now returns LI's that may be attached to a selection lists only (no po)

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-04-03 20:46:54 UTC (rev 16118)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm	2010-04-03 20:46:54 UTC (rev 16119)
@@ -315,13 +315,12 @@
 
     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"}]
     };