From 208b9cd0af6c6662ebcaac0e1bf1d6e863049376 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. Signed-off-by: Mirko Tietgen Fixes Plack, does not break Apache. Works as expected. Signed-off-by: Jonathan Druart Signed-off-by: Jared Camins-Esakov --- acqui/addorderiso2709.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl index 0e0670f0ea..abfb870fef 100755 --- a/acqui/addorderiso2709.pl +++ b/acqui/addorderiso2709.pl @@ -425,11 +425,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++) { -- 2.39.5