Bug 17600: Fix missing C4::AuthoritiesMARC import

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2021-07-29 15:34:25 +02:00
parent 0275be68bb
commit 728f3816e3
7 changed files with 7 additions and 3 deletions

View File

@ -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;

View File

@ -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

View File

@ -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;

View File

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

View File

@ -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;

View File

@ -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;

View File

@ -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;