From 8c97c49897bdc10ab6466ed7e810adde23f6f8c3 Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 22 May 2008 15:44:42 +0000 Subject: [PATCH] on li update, if the client cleared the marc (to reduce bandwidth), replace it git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9664 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm index 8a3254f9a0..38414f7561 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm @@ -570,13 +570,13 @@ sub update_lineitem { 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; -- 2.11.0