acq vandelay : ML create po assets; cleanup

Signed-off-by: Bill Erickson <berick@esilibrary.com>

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 6204048..9b33e6d 100644 (file)
--- 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;