View | Details | Raw Unified | Return to bug 17600
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (+1 lines)
Lines 32-37 use CGI qw ( -utf8 ); Link Here
32
use DateTime;
32
use DateTime;
33
use C4::Auth;
33
use C4::Auth;
34
use Koha::DateUtils qw( dt_from_string );
34
use Koha::DateUtils qw( dt_from_string );
35
use C4::AuthoritiesMarc qw( GetAuthorityXML );
35
36
36
use Koha::Biblios;
37
use Koha::Biblios;
37
use Koha::Checkouts;
38
use Koha::Checkouts;
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (+1 lines)
Lines 26-31 use C4::Output qw( pagination_bar output_html_with_http_headers ); Link Here
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Search;
27
use C4::Search;
28
use C4::Koha qw( getnbpages );
28
use C4::Koha qw( getnbpages );
29
use C4::AuthoritiesMarc qw( GetAuthority SearchAuthorities );
29
30
30
###TODO To rewrite in order to use SearchAuthorities
31
###TODO To rewrite in order to use SearchAuthorities
31
32
(-)a/misc/cronjobs/merge_authorities.pl (-1 / +1 lines)
Lines 6-12 use Pod::Usage qw( pod2usage ); Link Here
6
use Time::HiRes qw( gettimeofday );
6
use Time::HiRes qw( gettimeofday );
7
7
8
use Koha::Script -cron;
8
use Koha::Script -cron;
9
use C4::AuthoritiesMarc;
9
use C4::AuthoritiesMarc qw( GetAuthority merge );
10
use Koha::Authority::MergeRequests;
10
use Koha::Authority::MergeRequests;
11
11
12
use constant RESET_HOURS => 24;
12
use constant RESET_HOURS => 24;
(-)a/misc/migration_tools/bulkmarcimport.pl (-1 / +1 lines)
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 ){
(-)a/misc/migration_tools/rebuild_zebra.pl (-1 / +1 lines)
Lines 24-30 use Fcntl qw( LOCK_EX LOCK_NB LOCK_UN ); Link Here
24
use File::Temp qw( tempdir );
24
use File::Temp qw( tempdir );
25
use File::Path qw( mkpath rmtree );
25
use File::Path qw( mkpath rmtree );
26
use C4::Biblio qw( GetXmlBiblio );
26
use C4::Biblio qw( GetXmlBiblio );
27
use C4::AuthoritiesMarc qw( GetAuthority );
27
use C4::AuthoritiesMarc qw( GetAuthority GetAuthorityXML );
28
use C4::Items qw( GetItemsInfo Item2Marc );
28
use C4::Items qw( GetItemsInfo Item2Marc );
29
use Koha::RecordProcessor;
29
use Koha::RecordProcessor;
30
use Koha::Caches;
30
use Koha::Caches;
(-)a/tools/batch_delete_records.pl (+1 lines)
Lines 27-32 use C4::Auth qw( get_template_and_user ); Link Here
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Auth qw( get_template_and_user );
28
use C4::Auth qw( get_template_and_user );
29
use C4::Biblio qw( GetMarcBiblio );
29
use C4::Biblio qw( GetMarcBiblio );
30
use C4::AuthoritiesMarc;
30
use Koha::Virtualshelves;
31
use Koha::Virtualshelves;
31
32
32
use Koha::Authorities;
33
use Koha::Authorities;
(-)a/tools/showdiffmarc.pl (-1 / +1 lines)
Lines 31-36 use C4::Auth qw( get_template_and_user ); Link Here
31
use C4::Biblio qw( GetMarcBiblio );
31
use C4::Biblio qw( GetMarcBiblio );
32
use C4::Auth qw( get_template_and_user );
32
use C4::Auth qw( get_template_and_user );
33
use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios );
33
use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios );
34
use C4::AuthoritiesMarc qw( GetAuthority );
34
35
35
use Koha::Biblios;
36
use Koha::Biblios;
36
37
37
- 

Return to bug 17600