deconstruct and reconstruct a field

[Jackie Shieh]

I am deconstructing multiple 500 note fields and putting
the data in subfield n of 534 (Notes to original version).

When there are more than one 500 notes, this script creates
two 534 fields, one with the first previously 500 note field
in subfield n, and the other 534 field with two 500 note
fields.  Instead of one single 534 with as many subfield
n's corresponding to the original 500 note fields.  Can
someone help decipher this for me?  Where did it go wrong?!

## if present, put data in variable to use in 534$n

    if ( @f500s ) {
        my @subfields = ();

    ## examine each one
       foreach my $f500 (@f500s) {
                 my $n534=$f500->subfield('a');
                 push(@subfields, 'n', $n534);

    ##begin to put 500 a to 534 n

                my $new534 = MARC::Field->new( '534','','', @subfields);
                $record->insert_fields_after($f500, $new534);
                $record->delete_field($f500);
            }

     }

#if 500 is not repsent, create a brand new 534

     else {
           my $new534 = MARC::Field->new( '534', '','', 'p', 'Transcribed
from: ');
           $record->insert_fields_after($f260, $new534);

     }


================================================================
Input file contains:

500    _a"London : Spottiswoodes and Shaw"--T.p. verso.
500    _a"Notes" (p. [31]-39) contain extracts from Sir J. Malcolm's
"Central India" regarding Ahalya Baee.


Output file results:

534    _n"London : Spottiswoodes and Shaw"--T.p. verso.
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.
=====================================================================

Thanks for any help!!

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]