Re: deconstruct and reconstruct a field

[Timothy Prettyman]

In your foreach loop, you write a new 534 for every 500 that you find.  The 
first one has the subfield a from it, the 2nd one has a subfield a from the 
first and second, etc.  What you really want to do is something like:

if (@f500s) {
 my @subfields = ();
 foreach my $f500 (@f500s) {
   $f500->subfield('a')) and do {
     push (@subfields, 'n', $f500->subfield('a'));
     $record->delete_field($f500);
   };
 }
 (@subfields) and do {
   my $new534 = MARC::Field->new('534', '', '', @subfields);
   $record->insert_fields_after($f500, $new534);
 };
}
Tim Prettyman
University of Michigan Library
--On Tuesday, August 3, 2004 10:24 AM -0400 Jackie Shieh <[EMAIL PROTECTED]> 
wrote:

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]