Lines 1515-1521
sub merge {
Link Here
|
1515 |
# BulkEdit marc records |
1515 |
# BulkEdit marc records |
1516 |
# May be used as a template for a bulkedit field |
1516 |
# May be used as a template for a bulkedit field |
1517 |
foreach my $marcrecord(@reccache){ |
1517 |
foreach my $marcrecord(@reccache){ |
1518 |
my $update; |
1518 |
my $update = 0; |
1519 |
foreach my $tagfield (@tags_using_authtype){ |
1519 |
foreach my $tagfield (@tags_using_authtype){ |
1520 |
# warn "tagfield : $tagfield "; |
1520 |
# warn "tagfield : $tagfield "; |
1521 |
foreach my $field ($marcrecord->field($tagfield)){ |
1521 |
foreach my $field ($marcrecord->field($tagfield)){ |
1522 |
- |
|
|