[open-ils-commits] r18934 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/MFHD (dbwells)

[svn at svn.open-ils.org]

Author: dbwells
Date: 2010-12-08 14:49:26 -0500 (Wed, 08 Dec 2010)
New Revision: 18934

Modified:
   branches/rel_2_0/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: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm	2010-12-08 19:47:44 UTC (rev 18933)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm	2010-12-08 19:49:26 UTC (rev 18934)
@@ -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;