I am trying to add a Continuing Resource 006 field, conditionally, to an
existing group of bib records. The program checks to see if a Continuing
Resource exists, and if no, adds the default version of the field. Based
on Example 17 in the MARC::Record tutorial, which adds a 005 field, I
thought I could do it something like this:
my $cont_006_flag = 0;
my $cont_006 = 'sk d s 2';
my @f006 = $record->field('006');
if (@f006)
{
foreach my $t006 (@f006)
{
if (substr($t006->as_string(),0,1) eq 's')
{$cont_006_flag = 1;}
}
}
if ($cont_006_flag == 0) {$record->append_fields('006',$cont_006);}
However, the last line gets a "Arguments must be MARC::Field objects"
error. I don't see anyplace in Example 17 where a MARC::Field object is
built for the new 005 field, so I'm stumped.
Suggestions, please.
Anne L. Highsmith
Consortia Systems Coordinator
5000 TAMU
Evans Library
Texas A&M University
College Station, TX 77843-5000
[EMAIL PROTECTED]
