From 88f095dbfe5759e30cb5705a9af4ca5d1a682168 Mon Sep 17 00:00:00 2001 From: Jared Camins-Esakov Date: Fri, 18 Jan 2013 19:48:20 -0500 Subject: [PATCH] Bug 9432: Plack changes for acqui/addorderiso2409.pl Without this patch, after selecting the file I want to add acquisitions from, Plack explodes. With this patch, it works. To test without Plack: 1) Apply patch. 2) Try adding an order item from a staged file. 3) If it works, there are no regressions from the patch. To test with Plack: 1) Try adding an order item from a staged file. It will fail. 2) Apply patch. 3) Try adding an order item from a staged file. 3) If it works, the patch is successful. --- acqui/addorderiso2709.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 4942571..a23623e 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -189,7 +189,7 @@ if ($op eq ""){ SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' ); } # 3rd add order - my $patron = C4::Members->GetMember( borrowernumber => $loggedinuser ); + my $patron = C4::Members::GetMember( borrowernumber => $loggedinuser ); my $branch = C4::Branch->GetBranchDetail( $patron->{branchcode} ); # get quantity in the MARC record (1 if none) my $quantity = GetMarcQuantity($marcrecord, C4::Context->preference('marcflavour')) || 1; @@ -429,11 +429,11 @@ sub batch_info { 'current_matcher_description' => $matcher->description()); } } - add_matcher_list($batch->{'matcher_id'}); + add_matcher_list($batch->{'matcher_id'}, $template); } sub add_matcher_list { - my $current_matcher_id = shift; + my ($current_matcher_id, $template) = @_; my @matchers = C4::Matcher::GetMatcherList(); if (defined $current_matcher_id) { for (my $i = 0; $i <= $#matchers; $i++) { -- 1.7.9.5