foreach my $field ( $marc->field('856') ) {
if ( scalar(grep( /(netlibrary|overdrive)\.com/i, $field->subfield('u'))) > 0 &&
- scalar(grep( $shortname, $field->subfield('9'))) == 0 ) {
+ ! ( $field->as_string('9') =~ m/$shortname/ ) ) {
$field->add_subfields( '9' => $shortname );
$field->update( ind2 => '0');
}