From ce5a0877d0db384e79a6faa0fe187759f7f9750f Mon Sep 17 00:00:00 2001 From: erickson Date: Sun, 18 May 2008 16:28:51 +0000 Subject: [PATCH] added some missing copy fields. updated some faulty search calls git-svn-id: svn://svn.open-ils.org/ILS/branches/acq-experiment@9633 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm | 11 +++++++---- 1 file changed, 7 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 ba6d30b826..21f7cc5300 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm @@ -382,10 +382,12 @@ sub create_lineitem_assets { my $volume = $volcache{$li_detail->cn_label}; unless($volume and $volume->owning_lib == $li_detail->owning_lib) { - $volume = $U->simplereq( + my $vol_id = $U->simplereq( 'open-ils.cat', 'open-ils.cat.call_number.find_or_create', $auth, $li_detail->cn_label, $li->eg_bib_id, $li_detail->owning_lib); + $volume = $e->retrieve_asset_call_number($vol_id) or return $e->die_event; + $volcache{$vol_id} = $volume; } if($U->event_code($volume)) { @@ -400,6 +402,8 @@ sub create_lineitem_assets { $copy->status(OILS_COPY_STATUS_ON_ORDER); $copy->barcode($li_detail->barcode); $copy->location($li_detail->location); + $copy->call_number($volume->id); + $copy->circ_lib($volume->owning_lib); my $stat = $U->simplereq( 'open-ils.cat', @@ -410,12 +414,11 @@ sub create_lineitem_assets { return $stat; } - my $new_copy = $e->retrieve_asset_copy({deleted=>'f', barcode=>$copy->barcode}) + my $new_copy = $e->search_asset_copy({deleted=>'f', barcode=>$copy->barcode})->[0] or return $e->die_event; $li_detail->eg_copy_id($new_copy->id); - $e->update_acq_lineitem_detail($li_detail) - or return $e->die_event; + $e->update_acq_lineitem_detail($li_detail) or return $e->die_event; } $e->commit; -- 2.11.0