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

(-)a/misc/cronjobs/merge_authorities.pl (+2 lines)
Lines 7-12 use Time::HiRes qw( gettimeofday ); Link Here
7 
use Koha::Script -cron;
 7 
use Koha::Script -cron;
8 
use C4::AuthoritiesMarc qw( GetAuthority merge );
 8 
use C4::AuthoritiesMarc qw( GetAuthority merge );
9 
use C4::Log qw( cronlogaction );
9 
use Koha::Authority::MergeRequests;
 10 
use Koha::Authority::MergeRequests;
10 
use constant RESET_HOURS => 24;
 11 
use constant RESET_HOURS => 24;
Lines 21-26 GetOptions( Link Here
21 
$|=1; # flushes output
 22 
$|=1; # flushes output
22 
if ( $params->{batch} ) {
 23 
if ( $params->{batch} ) {
24 
    cronlogaction();
23 
    handle_batch($params);
 25 
    handle_batch($params);
24 
} else {
 26 
} else {
25 
    pod2usage(1);
 27 
    pod2usage(1);
(-)a/misc/link_bibs_to_authorities.pl (+3 lines)
Lines 24-29 use C4::Biblio qw( Link Here
24 
    LinkBibHeadingsToAuthorities
 24 
    LinkBibHeadingsToAuthorities
25 
    ModBiblio
 25 
    ModBiblio
26 
);
 26 
);
27 
use C4::Log qw( cronlogaction );
27 
use Koha::Biblios;
 28 
use Koha::Biblios;
28 
use Getopt::Long qw( GetOptions );
 29 
use Getopt::Long qw( GetOptions );
29 
use Pod::Usage qw( pod2usage );
 30 
use Pod::Usage qw( pod2usage );
Lines 70-75 if ( not $result or $want_help ) { Link Here
70 
    usage();
 71 
    usage();
71 
}
 72 
}
73 
cronlogaction();
74 

            

        

          72
          
my $linker_module =

          75
          
my $linker_module =

        

        

          73
          
  "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );

          76
          
  "C4::Linker::" . ( C4::Context->preference("LinkerModule") || 'Default' );

        

        

          74
          
unless ( can_load( modules => { $linker_module => undef } ) ) {

          77
          
unless ( can_load( modules => { $linker_module => undef } ) ) {

        



(-)a/misc/migration_tools/remove_unused_authorities.pl
      (+4 lines)




  

    
      
            Lines 25-30
          use Modern::Perl;
      
      
        Link Here
      
    
  

        

          25
          
use Koha::Script;

          25
          
use Koha::Script;

        

        

          26
          
use C4::Context;

          26
          
use C4::Context;

        

        

          27
          
use C4::AuthoritiesMarc qw( DelAuthority );

          27
          
use C4::AuthoritiesMarc qw( DelAuthority );

        

            

              
              
              28
              
use C4::Log qw( cronlogaction );

            

        

          28
          
use Getopt::Long qw( GetOptions );

          29
          
use Getopt::Long qw( GetOptions );

        

        

          29
          
use Koha::SearchEngine::Search;

          30
          
use Koha::SearchEngine::Search;

        

  

    
      
            Lines 42-47
          if ( $want_help || !($test || $confirm) ) {
      
      
        Link Here
      
    
  

        

          42
          
    print_usage();

          43
          
    print_usage();

        

        

          43
          
    exit 0;

          44
          
    exit 0;

        

        

          44
          
}

          45
          
}

        

            

              
              
              46
              

            

            

              47
              
cronlogaction();

            

            

              48
              

            

        

          45
          
if ($test) {

          49
          
if ($test) {

        

        

          46
          
    print "*** Testing only, authorities will not be deleted. ***\n";

          50
          
    print "*** Testing only, authorities will not be deleted. ***\n";

        

        

          47
          
}

          51
          
}

        






  

  Return to bug 29238