[open-ils-commits] r11023 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD

[svn at svn.open-ils.org]

Author: djfiander
Date: 2008-11-02 14:40:44 -0500 (Sun, 02 Nov 2008)
New Revision: 11023

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
Log:
Add (untested) support for including public notes and gap
indicators in the formatted holding display.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm	2008-11-02 19:40:01 UTC (rev 11022)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Holding.pm	2008-11-02 19:40:44 UTC (rev 11023)
@@ -35,10 +35,10 @@
 	} elsif ($key =~ /[i-m]/) {
 	    $self->{CHRON}->{$key} = $val;
 	    if (!exists $caption->{CHRONS}->{$key}) {
-		carp "Holding specified enumeration level '$key' not included in caption $caption->{LINK}";
+		warn "Holding '$seqno' specified enumeration level '$key' not included in caption $caption->{LINK}";
 	    }
 	} elsif ($key eq 'o') {
-	    carp '$o specified prior to first enumeration'
+	    warn '$o specified prior to first enumeration'
 	      unless defined($last_enum);
 	    $self->{ENUMS}->{$last_enum}->{UNIT} = $val;
 	    $last_enum = undef;
@@ -79,6 +79,18 @@
 	}
     }
 
+    # Public Note
+    $str .= ' '. $caption->{ENUMS}->{'z'} if (exists $caption->{ENUMS}->{'z'});
+
+    # Breaks in the sequence
+    if ($self->{BREAK} eq 'n') {
+	$str .= ' non-gap break';
+    } elsif ($self->{BREAK} eq 'g') {
+	$str .= ' gap';
+    } elsif ($self->{BREAK}) {
+	warn "unrecognized break indicator '$self->{BREAK}'";
+    }
+
     return $str;
 }