Make titles understand compressed holdings

Signed-off-by: Dan Wells <dbw2@calvin.edu>

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 bee629f..a3836ef 100644 (file)
--- 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;