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 915715d..bee629f 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm
@@ -63,9 +63,9 @@ sub new {
             warn '$o specified prior to first enumeration'
               unless defined($last_enum);
             if ($self->{_mfhdh_COMPRESSED}) {
-                $self->{_mfhdh_FIELDS}->{$key}{UNIT_TITLES} = [split(/\-/, $val, -1)];
+                $self->{_mfhdh_FIELDS}->{$last_enum}{UNIT_TITLES} = [split(/\-/, $val, -1)];
             } else {
-                $self->{_mfhdh_FIELDS}->{$key}{UNIT_TITLES} = [$val];
+                $self->{_mfhdh_FIELDS}->{$last_enum}{UNIT_TITLES} = [$val];
             }
             $last_enum = undef;
         } elsif ($key =~ /[npq]/) {