From 7059753551da6e5420acfac5f28fe31dea1f3cbc Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 31 Jan 2014 10:03:18 -0500 Subject: [PATCH] LP#1053397 MR holds placement cont. Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm index bb7ed2c054..00a0da10bd 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/Holds.pm @@ -92,12 +92,14 @@ sub test_and_create_hold_batch { elsif ($$params{'hold_type'} eq 'P') { $target_field = 'partid'; } else { return undef; } + my $formats_map = delete $$params{holdable_formats_map}; + foreach (@$target_list) { $$params{$target_field} = $_; # copy the requested formats from the target->formats map # into the top-level formats attr for each hold - $$params{holdable_formats} = $$params{holdable_formats_map}{$_}; + $$params{holdable_formats} = $formats_map->{$_}; my $res; ($res) = $self->method_lookup( -- 2.11.0