From 442e29a492e4ec5561a5a6d8fba767400702f989 Mon Sep 17 00:00:00 2001
From: Dan Wells <dbw2@calvin.edu>
Date: Tue, 17 Sep 2013 17:02:54 -0400
Subject: [PATCH] Make titles understand compressed holdings

Signed-off-by: Dan Wells <dbw2@calvin.edu>
---
 Open-ILS/src/perlmods/lib/OpenILS/Utils/MFHD/Holding.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 915715dc79..bee629f36a 100644
--- 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]/) {
-- 
2.11.0