From: dbwells <dbwells@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 8 Dec 2010 19:47:44 +0000 (+0000)
Subject: Add a simple subfields_list() method to MFHD/Caption.pm to match that in Holding.pm
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f44f6b318af10af335eca183810f9fe531964f52;p=evergreen%2Fbjwebb.git

Add a simple subfields_list() method to MFHD/Caption.pm to match that in Holding.pm


git-svn-id: svn://svn.open-ils.org/ILS/trunk@18933 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
index 2b5a9329f..55e6df9d8 100644
--- a/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm
@@ -725,4 +725,15 @@ sub next {
     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;