I wonder how one retains a repeatble subfields when
reconstructing the filed. The script below only
outputs the first subfield code n in its proper
position, and retain the data for multiple subfield
n's from the input file omitting the subfield code n.
if (defined($r534->subfield('p'))) {
push(@subfields, 'p',$r534->subfield('p'));
}
push(@subfields, 't','Print title', 'b', 'Ed statement', 'c',
'Publication info','e', 'Physical description,'n',$r534->subfield('n'));
my $fnew534 = MARC::Field->new('534', '', '', @subfields);
$r534->replace_with($fnew534);
*********
Input:
534 _n"London : Spottiswoodes and Shaw"--T.p. verso.
_n"Notes" (p. [31]-39) contain extracts from Sir J. Malcolm's
"Central India" regarding Ahalya Baee.
*********
Output:
534 _p
_tPrint title
_bEd Statement
_cPublication info
-ePhysical description
_n"London : Spottiswoodes and Shaw"--T.p. verso.
_"Notes" (p. [31]-39) contain extracts from Sir J. Malcolm's <====
"Central India" regarding Ahalya Baee.
Can anyone help? Thanks!
Best,
--Jackie
|Jackie Shieh
|Special Projects & Collections Team
|Harlan Hatcher Graduate Library
|University of Michigan
|920 North University
|Ann Arbor, MI 48109-1205
|Phone: 734.936.2401 FAX: 734.615.9788
|E-mail: [EMAIL PROTECTED]
