Re: Deleting a subfield using MARC::Record

Mark Jordan wrote:
> Hi everybody,
> 
> Any advice on how I'd go about using MARC::Record to delete just a 
> specific subfield? The old MARC.pm had deletemarc(), which would "delete 
> entire records, specific fields, as well as specific subfields depending 
> on what parameters are passed to it."
> 
> Or should I just reconstruct the field, leaving out the unwanted subfield?

I'm no expert, but that's what I've done. Here are a few snippets of code.

First I pull the subfields into an array:

@subfields = $field->subfields();

Then loop through the subfields, putting the ones I want to keep into a 
new array:

unless ($zapsub eq true) {
     push(@new856s,$sfcode,$sftext);
}

Finally, create a new field from the new array and replace the old one 
with it:

my $new856f = MARC::Field->new('856',$i1,$i2,@new856s);
$field->replace_with($new856f);

If there's an easier way, I'd like to know!

Mike
-- 
Michael Kreyche
Systems Librarian
Associate Professor
Kent State University Libraries and Media Services
http://www.personal.kent.edu/~mkreyche
330-672-1918