See perldoc perlop for Equality Operators. I believe:
if ($field_100 && (($fic == '1') and ($juvie == 'j'))) {
should be
if ($field_100 && (($fic eq '1') and ($juvie eq 'j'))) {
Also, on:
my $field_008 = $r->field('008');
my $field_100 = $r->field('100');
I thought I had received warnings or other errors when I tried doing this
when the field did not exists. Perhaps I am remembering wrong.
I hope this helps,
Bryan Baldus
[EMAIL PROTECTED]
[EMAIL PROTECTED]
http://home.inwave.com/eija
