Lines 31-36
use C4::MarcModificationTemplates qw(
Link Here
|
31 |
GetModificationTemplates |
31 |
GetModificationTemplates |
32 |
ModifyRecordWithTemplate |
32 |
ModifyRecordWithTemplate |
33 |
); |
33 |
); |
|
|
34 |
use C4::C4::AuthoritiesMarc qw( GuessAuthTypeCode GuessAuthId GetAuthority ModAuthority AddAuthority ); |
34 |
|
35 |
|
35 |
use YAML::XS; |
36 |
use YAML::XS; |
36 |
use Time::HiRes qw( gettimeofday ); |
37 |
use Time::HiRes qw( gettimeofday ); |
Lines 389-395
RECORD: while ( ) {
Link Here
|
389 |
} |
390 |
} |
390 |
unless ($test_parameter) { |
391 |
unless ($test_parameter) { |
391 |
if ($authorities){ |
392 |
if ($authorities){ |
392 |
use C4::AuthoritiesMarc; |
|
|
393 |
my $authtypecode=GuessAuthTypeCode($record, $heading_fields); |
393 |
my $authtypecode=GuessAuthTypeCode($record, $heading_fields); |
394 |
my $authid= ($id?$id:GuessAuthId($record)); |
394 |
my $authid= ($id?$id:GuessAuthId($record)); |
395 |
if ($authid && GetAuthority($authid) && $update ){ |
395 |
if ($authid && GetAuthority($authid) && $update ){ |