[open-ils-commits] r9664 - branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-05-22 11:44:42 -0400 (Thu, 22 May 2008)
New Revision: 9664

Modified:
   branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
on li update, if the client cleared the marc (to reduce bandwidth), replace it

Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-05-22 15:40:34 UTC (rev 9663)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2008-05-22 15:44:42 UTC (rev 9664)
@@ -570,13 +570,13 @@
     my $orig_li = $e->retrieve_acq_lineitem([
         $li->id,
         {   flesh => 1, # grab the lineitem with picklist attached
-            flesh_fields => {jub => ['picklist']}
+            flesh_fields => {jub => ['picklist', 'purchase_order']}
         }
     ]) or return $e->die_event;
 
-    # don't let anyone update someone else's lineitem
-    return OpenILS::Event->new('BAD_PARAMS') 
-        if $orig_li->picklist->owner != $e->requestor->id;
+    # the marc may have been cleared on retrieval...
+    $li->marc($e->retrieve_acq_lineitem($li->id)->marc)
+        unless $li->marc;
 
     $e->update_acq_lineitem($li) or return $e->die_event;
     $e->commit;