From f44f6b318af10af335eca183810f9fe531964f52 Mon Sep 17 00:00:00 2001 From: dbwells Date: Wed, 8 Dec 2010 19:47:44 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/Utils/MFHD/Caption.pm | 11 +++++++++++ 1 file changed, 11 insertions(+) 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; -- 2.11.0