[open-ils-commits] r18933 - trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD (dbwells)

[svn at svn.open-ils.org]

Author: dbwells
Date: 2010-12-08 14:47:44 -0500 (Wed, 08 Dec 2010)
New Revision: 18933

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
Log:
Add a simple subfields_list() method to MFHD/Caption.pm to match that in Holding.pm


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm	2010-12-07 22:43:55 UTC (rev 18932)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm	2010-12-08 19:47:44 UTC (rev 18933)
@@ -725,4 +725,15 @@
     return ($next);
 }
 
+# return a simple subfields list
+sub subfields_list {
+    my $self = shift;
+    my @subfields;
+
+    foreach my $subfield ($self->subfields) {
+        push(@subfields, $subfield->[0], $subfield->[1]);
+    }
+    return @subfields;
+}
+
 1;