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

[svn at svn.open-ils.org]

Author: djfiander
Date: 2008-11-11 21:02:10 -0500 (Tue, 11 Nov 2008)
New Revision: 11148

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
Log:
Minor cleanups.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm	2008-11-12 02:01:50 UTC (rev 11147)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm	2008-11-12 02:02:10 UTC (rev 11148)
@@ -97,7 +97,13 @@
 
     if (@_) {
 	$key = shift;
-	return $self->{ENUMS}->{$key}->{CAPTION};
+	if (exists $self->{ENUMS}->{$key}) {
+	    return $self->{ENUMS}->{$key}->{CAPTION};
+	} elsif (exists $self->{CHRONS}->{$key}) {
+	    return $self->{CHRONS}->{$key};
+	} else {
+	    return undef;
+	}
     } else {
 	return $self->{CAPTION};
     }