@@ -, +, @@ --- C4/ILSDI/Services.pm | 1 + cataloguing/value_builder/unimarc_field_210c.pl | 1 + misc/cronjobs/merge_authorities.pl | 2 +- misc/migration_tools/bulkmarcimport.pl | 2 +- misc/migration_tools/rebuild_zebra.pl | 2 +- tools/batch_delete_records.pl | 1 + tools/showdiffmarc.pl | 1 + 7 files changed, 7 insertions(+), 3 deletions(-) --- a/C4/ILSDI/Services.pm +++ a/C4/ILSDI/Services.pm @@ -32,6 +32,7 @@ use CGI qw ( -utf8 ); use DateTime; use C4::Auth; use Koha::DateUtils qw( dt_from_string ); +use C4::AuthoritiesMarc qw( GetAuthorityXML ); use Koha::Biblios; use Koha::Checkouts; --- a/cataloguing/value_builder/unimarc_field_210c.pl +++ a/cataloguing/value_builder/unimarc_field_210c.pl @@ -26,6 +26,7 @@ use C4::Output qw( pagination_bar output_html_with_http_headers ); use CGI qw ( -utf8 ); use C4::Search; use C4::Koha qw( getnbpages ); +use C4::AuthoritiesMarc qw( GetAuthority SearchAuthorities ); ###TODO To rewrite in order to use SearchAuthorities --- a/misc/cronjobs/merge_authorities.pl +++ a/misc/cronjobs/merge_authorities.pl @@ -6,7 +6,7 @@ use Pod::Usage qw( pod2usage ); use Time::HiRes qw( gettimeofday ); use Koha::Script -cron; -use C4::AuthoritiesMarc; +use C4::AuthoritiesMarc qw( GetAuthority merge ); use Koha::Authority::MergeRequests; use constant RESET_HOURS => 24; --- a/misc/migration_tools/bulkmarcimport.pl +++ a/misc/migration_tools/bulkmarcimport.pl @@ -31,6 +31,7 @@ use C4::MarcModificationTemplates qw( GetModificationTemplates ModifyRecordWithTemplate ); +use C4::C4::AuthoritiesMarc qw( GuessAuthTypeCode GuessAuthId GetAuthority ModAuthority AddAuthority ); use YAML::XS; use Time::HiRes qw( gettimeofday ); @@ -389,7 +390,6 @@ RECORD: while ( ) { } unless ($test_parameter) { if ($authorities){ - use C4::AuthoritiesMarc; my $authtypecode=GuessAuthTypeCode($record, $heading_fields); my $authid= ($id?$id:GuessAuthId($record)); if ($authid && GetAuthority($authid) && $update ){ --- a/misc/migration_tools/rebuild_zebra.pl +++ a/misc/migration_tools/rebuild_zebra.pl @@ -24,7 +24,7 @@ use Fcntl qw( LOCK_EX LOCK_NB LOCK_UN ); use File::Temp qw( tempdir ); use File::Path qw( mkpath rmtree ); use C4::Biblio qw( GetXmlBiblio ); -use C4::AuthoritiesMarc qw( GetAuthority ); +use C4::AuthoritiesMarc qw( GetAuthority GetAuthorityXML ); use C4::Items qw( GetItemsInfo Item2Marc ); use Koha::RecordProcessor; use Koha::Caches; --- a/tools/batch_delete_records.pl +++ a/tools/batch_delete_records.pl @@ -27,6 +27,7 @@ use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio ); +use C4::AuthoritiesMarc; use Koha::Virtualshelves; use Koha::Authorities; --- a/tools/showdiffmarc.pl +++ a/tools/showdiffmarc.pl @@ -31,6 +31,7 @@ use C4::Auth qw( get_template_and_user ); use C4::Biblio qw( GetMarcBiblio ); use C4::Auth qw( get_template_and_user ); use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios ); +use C4::AuthoritiesMarc qw( GetAuthority ); use Koha::Biblios; --