From 81893a49bedcd1f4d004372aff5ec7779724eb8f Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Thu, 8 Dec 2011 10:06:17 -0500 Subject: [PATCH] acq vandelay : ML create po assets; cleanup Signed-off-by: Bill Erickson --- .../src/perlmods/lib/OpenILS/Application/Acq/Order.pm | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm index 620404803f..9b33e6d03a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Acq/Order.pm @@ -297,7 +297,7 @@ sub create_lineitem_list_assets { my($mgr, $li_ids, $vandelay) = @_; return undef if check_import_li_marc_perms($mgr, $li_ids); - $logger->info("acq-vl: procesing recs via Vandelay with args " . Dumper($vandelay)); + $logger->info("acq-vl: processing recs via Vandelay with args " . Dumper($vandelay)); my $res = import_li_bibs_via_vandelay($mgr, $li_ids, $vandelay); return undef unless $res; @@ -405,17 +405,17 @@ sub import_li_bibs_via_vandelay { next unless $stat->{imported}; my ($imported) = grep {$_->queued_record eq $stat->{imported}} @lis; - my $vqbr_id = $imported->id; + my $li_id = $imported->id; if ($stat->{no_import}) { - $logger->info("acq-vl: vandelay record $vqbr_id did not import"); + $logger->info("acq-vl: acq lineitem $li_id did not import"); } else { # successful import - push(@success_lis, $vqbr_id); + push(@success_lis, $li_id); $mgr->add_bib; $mgr->respond; - $logger->info("acq-vl: vandelay record $vqbr_id successfully imported"); + $logger->info("acq-vl: acq lineitem $li_id successfully imported"); } } @@ -1526,7 +1526,8 @@ __PACKAGE__->register_method( ); sub create_po_assets { - my($self, $conn, $auth, $po_id) = @_; + my($self, $conn, $auth, $po_id, $args) = @_; + $args ||= {}; my $e = new_editor(authtoken=>$auth, xact=>1); return $e->die_event unless $e->checkauth; @@ -1553,7 +1554,8 @@ sub create_po_assets { $mgr->total(scalar(@$li_ids) + $lid_total); - create_lineitem_list_assets($mgr, $li_ids) or return $e->die_event; + create_lineitem_list_assets($mgr, $li_ids, $args->{vandelay}) + or return $e->die_event; $e->xact_begin; update_purchase_order($mgr, $po) or return $e->die_event; -- 2.11.0