|
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 ){ |