From e81b24c843d25f3ffad9d9b115d451be4dc97f90 Mon Sep 17 00:00:00 2001 From: Dan Wells Date: Tue, 17 Sep 2013 17:02:54 -0400 Subject: [PATCH] Make titles understand compressed holdings Signed-off-by: Dan Wells --- Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm index bee629f36a..a3836ef635 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm @@ -143,7 +143,9 @@ sub unit_titles { my ($self, $key) = @_; if (exists $self->fields->{$key}) { - my @titles = $self->fields->{$key}{UNIT_TITLES}; + # this dereferences and makes a new reference to make sure + # the return value is a copy (not pointing to the object data) + my @titles = @{$self->fields->{$key}{UNIT_TITLES}}; return \@titles; } else { return; -- 2.11.0