|
Lines 758-764
AND (authtypecode IS NOT NULL AND authtypecode<>\"\")|);
Link Here
|
| 758 |
my ($countcreated,$countlinked); |
758 |
my ($countcreated,$countlinked); |
| 759 |
while (my $data=$query->fetchrow_hashref){ |
759 |
while (my $data=$query->fetchrow_hashref){ |
| 760 |
foreach my $field ($record->field($data->{tagfield})){ |
760 |
foreach my $field ($record->field($data->{tagfield})){ |
| 761 |
next if ($field->subfield('9')); |
761 |
next if ($field->subfield('3') || $field->subfield('9')); |
| 762 |
# No authorities id in the tag. |
762 |
# No authorities id in the tag. |
| 763 |
# Search if there is any authorities to link to. |
763 |
# Search if there is any authorities to link to. |
| 764 |
my $query='at='.$data->{authtypecode}.' '; |
764 |
my $query='at='.$data->{authtypecode}.' '; |
| 765 |
- |
|
|