Author: erickson
Date: 2008-08-01 13:23:58 -0400 (Fri, 01 Aug 2008)
New Revision: 10234
Modified:
branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
Log:
added clear_marc support to lineitem ident search
Modified: branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm
===================================================================
--- branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm 2008-08-01 17:04:08 UTC (rev 10233)
+++ branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Acq/Lineitem.pm 2008-08-01 17:23:58 UTC (rev 10234)
@@ -418,6 +418,7 @@
{ desc => q/
Options hash. Options are:
idlist : if set, only return lineitem IDs
+ clear_marc : if set, strip the MARC xml from the lineitem before delivery
/,
type => 'object',
}
@@ -482,7 +483,9 @@
if($$options{idlist}) {
$conn->respond($li_id);
} else {
- $conn->respond($e->retrieve_acq_lineitem($li_id));
+ my $li = $e->retrieve_acq_lineitem($li_id);
+ $li->clear_marc if $$options{clear_marc};
+ $conn->respond($li);
}
}
return undef;