Attachment #122935 for bug #28617

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

Lines 693-699 $config{'BIB_RETRIEVAL_CFG'} = 'retrieval-info-bib-dom.xml'; Link Here

(-)a/Makefile.PL (-1 lines)
693	if ($config{'INSTALL_MODE'} ne "dev") {	693	if ($config{'INSTALL_MODE'} ne "dev") {
694	push @{ $pl_files->{'rewrite-config.PL'} }, (	694	push @{ $pl_files->{'rewrite-config.PL'} }, (
695	'blib/PERL_MODULE_DIR/C4/Context.pm',	695	'blib/PERL_MODULE_DIR/C4/Context.pm',
696	'blib/SCRIPT_NONDEV_DIR/kohalib.pl'
697	);	696	);
698	}	697	}
699		698

Lines 17-27 Link Here

(-)a/misc/add_date_fields_to_marc_records.pl (-5 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	BEGIN {
21	use FindBin ();
22	eval { require "$FindBin::Bin/../kohalib.pl" };
23	}
24
25	use Koha::Script;	20	use Koha::Script;
26		21
27	use Getopt::Long qw( GetOptions );	22	use Getopt::Long qw( GetOptions );





use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

# Koha modules used
use Koha::Script;





use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

# Koha modules used
use Koha::Script;




# Written by TG on 10/04/2006
use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

# Koha modules used





use strict;
#use warnings; FIXME - Bug 2505

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

# Koha modules used
use Koha::Script;
use MARC::Record;




#  Revised by Joshua Ferraro on 03/31/2006
use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

# Koha modules used
use Koha::Script;





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use Koha::Script;
use C4::Context;




use warnings;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Context;
use C4::Letters;




use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Context;
use Koha::Patrons;





use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin;
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Koha;




use C4::Items qw( CartToShelf );
use C4::Log qw( cronlogaction );

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}
use C4::Context;
use Getopt::Long qw( GetOptions );





use constant DEFAULT_SHARE_INVITATION_EXPIRY_DAYS => 14;
use constant DEFAULT_DEBARMENTS_PURGEDAYS         => 30;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Context;
use C4::Search;





binmode( STDOUT, ":encoding(UTF-8)" );

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Koha::Script -cron;





use Modern::Perl;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
use Koha::Script -cron;
use C4::Context;




use strict;
use warnings;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

# cancel all expired hold requests

use Koha::Script -cron;





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::HoldsQueue qw(CreateQueue);




use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Reserves;
use C4::Log qw( cronlogaction );





use Modern::Perl;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );






use Modern::Perl;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use DateTime;




use warnings;
use utf8;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Koha::Script -cron;
use C4::ImportBatch qw( BatchCommitRecords );





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );




use Modern::Perl;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Context;





use Modern::Perl;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Text::CSV_XS;





use Modern::Perl;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Letters qw( SendQueuedMessages );





use Modern::Perl;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );

use Koha::Script -cron;




use Pod::Usage qw( pod2usage );
use Try::Tiny qw( catch try );

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Log qw( cronlogaction );





use JSON qw( to_json );
use Try::Tiny qw( catch try );

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

=head1 NAME

runreport.pl - Run pre-existing saved reports




use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script -cron;
use C4::Context;
use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );





use Modern::Perl;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use Date::Calc qw( Date_to_Days );

use Koha::Script -cron;




use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );





use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );






use Modern::Perl;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use C4::Context;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );




use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );






use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use Koha::Script;
use C4::Context;




#!/usr/bin/perl

# Copyright (C) 2007 LibLime
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

# This script is used by command-line utilities to set
# @INC properly -- specifically, to point to the directory
# containing the installed version of the C4 modules.
#
# This depends on the installer replacing the \_\_PERL_MODULE_DIR\_\_
# string with the path to the Koha modules directory.  This is done
# only during a 'standard' or 'single' mode installation.  If Koha
# is being run from a git checkout (and thus installed in 'dev' mode),
# this is a no-op.
#
# To use this script, a command-line utility should do the following before
# 'use'ing any C4 modules.
#
#     BEGIN {
#         use FindBin;
#         eval { require "$FindBin::Bin/kohalib.pl" };
#         # adjust path to point to kohalib.pl relative
#         # to location of script
#     }
#

use strict;
#use warnings; FIXME - Bug 2505

my $module_dir;
BEGIN {
    $module_dir = '__PERL_MODULE_DIR__';
    die if $module_dir =~ /^[_]{2}PERL_MODULE_DIR[_]{2}$/;
}

use lib $module_dir;

1;




use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use Koha::Script;
use C4::Context;
use C4::Biblio qw(





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use HTTPD::Bench::ApacheBench;
use LWP::UserAgent;





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use Getopt::Long qw( GetOptions );
use HTTPD::Bench::ApacheBench;

Lines 7-17 Link Here

(-)a/misc/maintenance/UNIMARC_fix_collectiontitle.pl (-5 lines)
7	use strict;	7	use strict;
8	use warnings;	8	use warnings;
9		9
10	BEGIN {
11	use FindBin ();
12	eval { require "$FindBin::Bin/../kohalib.pl" };
13	}
14
15	use Koha::Script;	10	use Koha::Script;
16		11
17	sub process {	12	sub process {

Lines 7-17 Link Here

(-)a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl (-5 lines)
7	use strict;	7	use strict;
8	use warnings;	8	use warnings;
9		9
10	BEGIN {
11	use FindBin ();
12	eval { require "$FindBin::Bin/../kohalib.pl" };
13	}
14
15	use Koha::Script;	10	use Koha::Script;
16	use C4::Biblio qw( GetMarcBiblio ModBiblio );	11	use C4::Biblio qw( GetMarcBiblio ModBiblio );
17	use Getopt::Long qw( GetOptions );	12	use Getopt::Long qw( GetOptions );





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script;
use C4::Context;





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script;
use C4::Context;




use strict;
use warnings;

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script;
use C4::Context;





# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    my $lib = "$FindBin::Bin/../kohalib.pl";
    eval { require $lib };
}

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

# possible modules to use
use Getopt::Long qw( GetOptions );





use strict;
use warnings;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

# possible modules to use
use Getopt::Long qw( GetOptions );




use strict;
use warnings;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}

use C4::Context;
my $dbh = C4::Context->dbh();
my $sth = $dbh->prepare("Show tables");

Lines 1-11 Link Here

(-)a/misc/migration_tools/22_to_30/export_Authorities.pl (-6 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2	use Modern::Perl;	2	use Modern::Perl;
3	BEGIN {
4	# find Koha's Perl modules
5	# test carefully before changing this
6	use FindBin ();
7	eval { require "$FindBin::Bin/../../kohalib.pl" };
8	}
9	use C4::Context;	3	use C4::Context;
10	#use MARC::File::XML(BinaryEncoding=>"utf8");	4	#use MARC::File::XML(BinaryEncoding=>"utf8");
11	#use MARC::File::USMARC;	5	#use MARC::File::USMARC;

Lines 1-11 Link Here

(-)a/misc/migration_tools/22_to_30/export_Authorities_xml.pl (-6 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2	use Modern::Perl;	2	use Modern::Perl;
3	BEGIN {
4	# find Koha's Perl modules
5	# test carefully before changing this
6	use FindBin ();
7	eval { require "$FindBin::Bin/../../kohalib.pl" };
8	}
9	use C4::Context;	3	use C4::Context;
10	use MARC::File::XML(BinaryEncoding=>"utf8");	4	use MARC::File::XML(BinaryEncoding=>"utf8");
11	use C4::AuthoritiesMarc;	5	use C4::AuthoritiesMarc;




#  Revised by Joshua Ferraro on 03/31/2006
use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}

# Koha modules used





# scraped from updatedatabase for dev week by chris@katipo.co.nz
use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use C4::AuthoritiesMarc;
use MARC::Record;




use Modern::Perl;
# script to shift marc to biblioitems
# scraped from updatedatabase for dev week by chris@katipo.co.nz
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );




#  Revised by Joshua Ferraro on 03/31/2006
use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}

# Koha modules used





#  Revised by Joshua Ferraro on 03/31/2006
use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}

# Koha modules used






use Modern::Perl;
#use diagnostics;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

# Koha modules used
use MARC::File::USMARC;





use strict;

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

# Koha modules used
use Koha::Script;
use C4::Context;





use strict;
#use warnings; FIXME - Bug 2505
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script;
use C4::Context;





binmode STDOUT, ':encoding(UTF-8)';

BEGIN {

    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

my $help;
my $confirm;
my $test;





# Script to switch the MARC21 440$anv and 490$av information

BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/../kohalib.pl" };
}

use Koha::Script;
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblioMarc );
use C4::Context;




# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
    use FindBin ();
    eval { require "$FindBin::Bin/kohalib.pl" };
}

use Koha::Script;
use C4::Context;

Lines 35-41 my @dirs = ( Link Here

(-)a/t/db_dependent/00-strict.t (-1 lines)
35	);	35	);
36		36
37	$Test::Strict::TEST_STRICT = 0;	37	$Test::Strict::TEST_STRICT = 0;
38	$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl' ];
39		38
40	my $ncpu;	39	my $ncpu;
41	if ( $ENV{KOHA_PROVE_CPUS} ) {	40	if ( $ENV{KOHA_PROVE_CPUS} ) {





use Test::More;

BEGIN {
    use FindBin;
    eval { require "$FindBin::Bin/../misc/kohalib.pl" };
}

my $filebase = "$FindBin::Bin/../koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences";

my @files;
- 

Return to bug 28617

Lines 118-129 any field from the branches table Link Here

(-)a/misc/cronjobs/membership_expiry.pl (-6 lines)
118	use Modern::Perl;	118	use Modern::Perl;
119	use Getopt::Long qw( GetOptions );	119	use Getopt::Long qw( GetOptions );
120	use Pod::Usage qw( pod2usage );	120	use Pod::Usage qw( pod2usage );
121	BEGIN {
122	# find Koha's Perl modules
123	# test carefully before changing this
124	use FindBin ();
125	eval { require "$FindBin::Bin/../kohalib.pl" };
126	}
127		121
128	use Koha::Script -cron;	122	use Koha::Script -cron;
129	use C4::Context;	123	use C4::Context;

Lines 55-67 use Getopt::Long qw( GetOptions ); Link Here

(-)a/misc/cronjobs/reconcile_balances.pl (-7 lines)
55	use Pod::Usage qw( pod2usage );	55	use Pod::Usage qw( pod2usage );
56	use Try::Tiny qw( catch try );	56	use Try::Tiny qw( catch try );
57		57
58	BEGIN {
59	# find Koha's Perl modules
60	# test carefully before changing this
61	use FindBin ();
62	eval { require "$FindBin::Bin/../kohalib.pl" };
63	}
64
65	use Koha::Script -cron;	58	use Koha::Script -cron;
66	use C4::Log qw( cronlogaction );	59	use C4::Log qw( cronlogaction );
67		60

Lines 4-15 Link Here

(-)a/misc/batchCompareMARCvsFrameworks.pl (-6 lines)
4		4
5	use strict;	5	use strict;
6	#use warnings; FIXME - Bug 2505	6	#use warnings; FIXME - Bug 2505
7	BEGIN {
8	# find Koha's Perl modules
9	# test carefully before changing this
10	use FindBin ();
11	eval { require "$FindBin::Bin/kohalib.pl" };
12	}
13		7
14	# Koha modules used	8	# Koha modules used
15	use Koha::Script;	9	use Koha::Script;

Lines 3-14 Link Here

(-)a/misc/batchDeleteUnusedSubfields.pl (-6 lines)
3		3
4	use strict;	4	use strict;
5	#use warnings; FIXME - Bug 2505	5	#use warnings; FIXME - Bug 2505
6	BEGIN {
7	# find Koha's Perl modules
8	# test carefully before changing this
9	use FindBin ();
10	eval { require "$FindBin::Bin/kohalib.pl" };
11	}
12		6
13	# Koha modules used	7	# Koha modules used
14	use Koha::Script;	8	use Koha::Script;

Lines 3-14 Link Here

(-)a/misc/batchImportMARCWithBiblionumbers.pl (-6 lines)
3	# Written by TG on 10/04/2006	3	# Written by TG on 10/04/2006
4	use strict;	4	use strict;
5	#use warnings; FIXME - Bug 2505	5	#use warnings; FIXME - Bug 2505
6	BEGIN {
7	# find Koha's Perl modules
8	# test carefully before changing this
9	use FindBin ();
10	eval { require "$FindBin::Bin/kohalib.pl" };
11	}
12		6
13	# Koha modules used	7	# Koha modules used
14		8

Lines 5-17 Link Here

(-)a/misc/batchRebuildBiblioTables.pl (-7 lines)
5	use strict;	5	use strict;
6	#use warnings; FIXME - Bug 2505	6	#use warnings; FIXME - Bug 2505
7		7
8	BEGIN {
9	# find Koha's Perl modules
10	# test carefully before changing this
11	use FindBin ();
12	eval { require "$FindBin::Bin/kohalib.pl" };
13	}
14
15	# Koha modules used	8	# Koha modules used
16	use Koha::Script;	9	use Koha::Script;
17	use MARC::Record;	10	use MARC::Record;

Lines 4-15 Link Here

(-)a/misc/batchRepairMissingBiblionumbers.pl (-6 lines)
4	# Revised by Joshua Ferraro on 03/31/2006	4	# Revised by Joshua Ferraro on 03/31/2006
5	use strict;	5	use strict;
6	use warnings;	6	use warnings;
7	BEGIN {
8	# find Koha's Perl modules
9	# test carefully before changing this
10	use FindBin ();
11	eval { require "$FindBin::Bin/kohalib.pl" };
12	}
13		7
14	# Koha modules used	8	# Koha modules used
15	use Koha::Script;	9	use Koha::Script;

Lines 2-13 Link Here

(-)a/misc/commit_file.pl (-6 lines)
2		2
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5	BEGIN {
6	# find Koha's Perl modules
7	# test carefully before changing this
8	use FindBin ();
9	eval { require "$FindBin::Bin/kohalib.pl" };
10	}
11		5
12	use Koha::Script;	6	use Koha::Script;
13	use C4::Context;	7	use C4::Context;

Lines 40-51 use strict; Link Here

(-)a/misc/cronjobs/advance_notices.pl (-6 lines)
40	use warnings;	40	use warnings;
41	use Getopt::Long qw( GetOptions );	41	use Getopt::Long qw( GetOptions );
42	use Pod::Usage qw( pod2usage );	42	use Pod::Usage qw( pod2usage );
43	BEGIN {
44	# find Koha's Perl modules
45	# test carefully before changing this
46	use FindBin ();
47	eval { require "$FindBin::Bin/../kohalib.pl" };
48	}
49	use Koha::Script -cron;	43	use Koha::Script -cron;
50	use C4::Context;	44	use C4::Context;
51	use C4::Letters;	45	use C4::Letters;

Lines 20-33 Link Here

(-)a/misc/cronjobs/batch_anonymise.pl (-8 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	BEGIN {
24
25	# find Koha's Perl modules
26	# test carefully before changing this
27	use FindBin ();
28	eval { require "$FindBin::Bin/../kohalib.pl" };
29	}
30
31	use Koha::Script -cron;	23	use Koha::Script -cron;
32	use C4::Context;	24	use C4::Context;
33	use Koha::Patrons;	25	use Koha::Patrons;

Lines 3-14 Link Here

(-)a/misc/cronjobs/build_browser_and_cloud.pl (-6 lines)
3		3
4	use strict;	4	use strict;
5	#use warnings; FIXME - Bug 2505	5	#use warnings; FIXME - Bug 2505
6	BEGIN {
7	# find Koha's Perl modules
8	# test carefully before changing this
9	use FindBin;
10	eval { require "$FindBin::Bin/../kohalib.pl" };
11	}
12		6
13	use Koha::Script -cron;	7	use Koha::Script -cron;
14	use C4::Koha;	8	use C4::Koha;

Lines 32-44 use Koha::Script -cron; Link Here

(-)a/misc/cronjobs/cart_to_shelf.pl (-7 lines)
32	use C4::Items qw( CartToShelf );	32	use C4::Items qw( CartToShelf );
33	use C4::Log qw( cronlogaction );	33	use C4::Log qw( cronlogaction );
34		34
35	BEGIN {
36
37	# find Koha's Perl modules
38	# test carefully before changing this
39	use FindBin ();
40	eval { require "$FindBin::Bin/../kohalib.pl" };
41	}
42	use C4::Context;	35	use C4::Context;
43	use Getopt::Long qw( GetOptions );	36	use Getopt::Long qw( GetOptions );
44		37

Lines 28-40 use constant DEFAULT_SEARCHHISTORY_PURGEDAYS => 30; Link Here

(-)a/misc/cronjobs/cleanup_database.pl (-7 lines)
28	use constant DEFAULT_SHARE_INVITATION_EXPIRY_DAYS => 14;	28	use constant DEFAULT_SHARE_INVITATION_EXPIRY_DAYS => 14;
29	use constant DEFAULT_DEBARMENTS_PURGEDAYS => 30;	29	use constant DEFAULT_DEBARMENTS_PURGEDAYS => 30;
30		30
31	BEGIN {
32	# find Koha's Perl modules
33	# test carefully before changing this
34	use FindBin ();
35	eval { require "$FindBin::Bin/../kohalib.pl" };
36	}
37
38	use Koha::Script -cron;	31	use Koha::Script -cron;
39	use C4::Context;	32	use C4::Context;
40	use C4::Search;	33	use C4::Search;

Lines 23-36 use Modern::Perl; Link Here

(-)a/misc/cronjobs/delete_records_via_leader.pl (-8 lines)
23		23
24	binmode( STDOUT, ":encoding(UTF-8)" );	24	binmode( STDOUT, ":encoding(UTF-8)" );
25		25
26	BEGIN {
27
28	# find Koha's Perl modules
29	# test carefully before changing this
30	use FindBin ();
31	eval { require "$FindBin::Bin/../kohalib.pl" };
32	}
33
34	use Getopt::Long qw( GetOptions );	26	use Getopt::Long qw( GetOptions );
35	use Pod::Usage qw( pod2usage );	27	use Pod::Usage qw( pod2usage );
36	use Koha::Script -cron;	28	use Koha::Script -cron;

Lines 2-14 Link Here

(-)a/misc/cronjobs/gather_print_notices.pl (-7 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	BEGIN {
6	# find Koha's Perl modules
7	# test carefully before changing this
8	use FindBin ();
9	eval { require "$FindBin::Bin/../kohalib.pl" };
10	}
11
12	use CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy	5	use CGI; # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
13	use Koha::Script -cron;	6	use Koha::Script -cron;
14	use C4::Context;	7	use C4::Context;

Lines 20-32 Link Here

(-)a/misc/cronjobs/holds/auto_unsuspend_holds.pl (-7 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	BEGIN {
24	# find Koha's Perl modules
25	# test carefully before changing this
26	use FindBin ();
27	eval { require "$FindBin::Bin/../kohalib.pl" };
28	}
29
30	# cancel all expired hold requests	23	# cancel all expired hold requests
31		24
32	use Koha::Script -cron;	25	use Koha::Script -cron;

Lines 8-19 Link Here

(-)a/misc/cronjobs/holds/build_holds_queue.pl (-6 lines)
8		8
9	use strict;	9	use strict;
10	use warnings;	10	use warnings;
11	BEGIN {
12	# find Koha's Perl modules
13	# test carefully before changing this
14	use FindBin ();
15	eval { require "$FindBin::Bin/../kohalib.pl" };
16	}
17		11
18	use Koha::Script -cron;	12	use Koha::Script -cron;
19	use C4::HoldsQueue qw(CreateQueue);	13	use C4::HoldsQueue qw(CreateQueue);

Lines 42-54 use Modern::Perl; Link Here

(-)a/misc/cronjobs/holds/cancel_expired_holds.pl (-7 lines)
42	use Getopt::Long qw( GetOptions );	42	use Getopt::Long qw( GetOptions );
43	use Pod::Usage qw( pod2usage );	43	use Pod::Usage qw( pod2usage );
44		44
45	BEGIN {
46	# find Koha's Perl modules
47	# test carefully before changing this
48	use FindBin ();
49	eval { require "$FindBin::Bin/../kohalib.pl" };
50	}
51
52	use Koha::Script -cron;	45	use Koha::Script -cron;
53	use C4::Reserves;	46	use C4::Reserves;
54	use C4::Log qw( cronlogaction );	47	use C4::Log qw( cronlogaction );

Lines 18-30 Link Here

(-)a/misc/cronjobs/holds/cancel_unfilled_holds.pl (-7 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	BEGIN {
22	# find Koha's Perl modules
23	# test carefully before changing this
24	use FindBin ();
25	eval { require "$FindBin::Bin/../kohalib.pl" };
26	}
27
28	use Getopt::Long qw( GetOptions );	21	use Getopt::Long qw( GetOptions );
29	use Pod::Usage qw( pod2usage );	22	use Pod::Usage qw( pod2usage );
30		23

Lines 17-30 Link Here

(-)a/misc/cronjobs/holds/holds_reminder.pl (-8 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	BEGIN {
21
22	# find Koha's Perl modules
23	# test carefully before changing this
24	use FindBin ();
25	eval { require "$FindBin::Bin/../kohalib.pl" };
26	}
27
28	use Getopt::Long qw( GetOptions );	20	use Getopt::Long qw( GetOptions );
29	use Pod::Usage qw( pod2usage );	21	use Pod::Usage qw( pod2usage );
30	use DateTime;	22	use DateTime;

Lines 21-34 use strict; Link Here

(-)a/misc/cronjobs/import_webservice_batch.pl (-8 lines)
21	use warnings;	21	use warnings;
22	use utf8;	22	use utf8;
23		23
24	BEGIN {
25
26	# find Koha's Perl modules
27	# test carefully before changing this
28	use FindBin ();
29	eval { require "$FindBin::Bin/../kohalib.pl" };
30	}
31
32	use Getopt::Long qw( GetOptions );	24	use Getopt::Long qw( GetOptions );
33	use Koha::Script -cron;	25	use Koha::Script -cron;
34	use C4::ImportBatch qw( BatchCommitRecords );	26	use C4::ImportBatch qw( BatchCommitRecords );

Lines 27-38 longoverdue.pl cron script to set lost statuses on overdue materials. Link Here

(-)a/misc/cronjobs/longoverdue.pl (-6 lines)
27		27
28	use strict;	28	use strict;
29	use warnings;	29	use warnings;
30	BEGIN {
31	# find Koha's Perl modules
32	# test carefully before changing this
33	use FindBin ();
34	eval { require "$FindBin::Bin/../kohalib.pl" };
35	}
36		30
37	use Getopt::Long qw( GetOptions );	31	use Getopt::Long qw( GetOptions );
38	use Pod::Usage qw( pod2usage );	32	use Pod::Usage qw( pod2usage );

Lines 20-33 Link Here

(-)a/misc/cronjobs/overdue_notices.pl (-8 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	BEGIN {
24
25	# find Koha's Perl modules
26	# test carefully before changing this
27	use FindBin ();
28	eval { require "$FindBin::Bin/../kohalib.pl" };
29	}
30
31	use Getopt::Long qw( GetOptions );	23	use Getopt::Long qw( GetOptions );
32	use Pod::Usage qw( pod2usage );	24	use Pod::Usage qw( pod2usage );
33	use Text::CSV_XS;	25	use Text::CSV_XS;

Lines 18-30 Link Here

(-)a/misc/cronjobs/patron_emailer.pl (-7 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	BEGIN {
22	# find Koha's Perl modules
23	# test carefully before changing this
24	use FindBin ();
25	eval { require "$FindBin::Bin/../kohalib.pl" };
26	}
27
28	use Koha::Script -cron;	21	use Koha::Script -cron;
29	use Getopt::Long qw( GetOptions );	22	use Getopt::Long qw( GetOptions );
30	use Pod::Usage qw( pod2usage );	23	use Pod::Usage qw( pod2usage );

Lines 19-30 Link Here

(-)a/misc/cronjobs/process_message_queue.pl (-6 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	BEGIN {
23	# find Koha's Perl modules
24	# test carefully before changing this
25	use FindBin ();
26	eval { require "$FindBin::Bin/../kohalib.pl" };
27	}
28		22
29	use Koha::Script -cron;	23	use Koha::Script -cron;
30	use C4::Letters qw( SendQueuedMessages );	24	use C4::Letters qw( SendQueuedMessages );

Lines 19-31 Link Here

(-)a/misc/cronjobs/purge_suggestions.pl (-7 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	BEGIN {
23	# find Koha's Perl modules
24	# test carefully before changing this
25	use FindBin ();
26	eval { require "$FindBin::Bin/../kohalib.pl" };
27	}
28
29	use Getopt::Long qw( GetOptions );	22	use Getopt::Long qw( GetOptions );
30		23
31	use Koha::Script -cron;	24	use Koha::Script -cron;

Lines 38-50 use Encode qw( decode ); Link Here

(-)a/misc/cronjobs/runreport.pl (-7 lines)
38	use JSON qw( to_json );	38	use JSON qw( to_json );
39	use Try::Tiny qw( catch try );	39	use Try::Tiny qw( catch try );
40		40
41	BEGIN {
42	# find Koha's Perl modules
43	# test carefully before changing this
44	use FindBin ();
45	eval { require "$FindBin::Bin/../kohalib.pl" };
46	}
47
48	=head1 NAME	41	=head1 NAME
49		42
50	runreport.pl - Run pre-existing saved reports	43	runreport.pl - Run pre-existing saved reports

Lines 20-33 Link Here

(-)a/misc/cronjobs/serialsUpdate.pl (-8 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	BEGIN {
24
25	# find Koha's Perl modules
26	# test carefully before changing this
27	use FindBin ();
28	eval { require "$FindBin::Bin/../kohalib.pl" };
29	}
30
31	use Koha::Script -cron;	23	use Koha::Script -cron;
32	use C4::Context;	24	use C4::Context;
33	use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );	25	use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );

Lines 27-40 Link Here

(-)a/misc/cronjobs/staticfines.pl (-8 lines)
27		27
28	use Modern::Perl;	28	use Modern::Perl;
29		29
30	BEGIN {
31
32	# find Koha's Perl modules
33	# test carefully before changing this
34	use FindBin ();
35	eval { require "$FindBin::Bin/kohalib.pl" };
36	}
37
38	use Date::Calc qw( Date_to_Days );	30	use Date::Calc qw( Date_to_Days );
39		31
40	use Koha::Script -cron;	32	use Koha::Script -cron;

Lines 20-33 Link Here

(-)a/misc/cronjobs/thirdparty/TalkingTech_itiva_inbound.pl (-8 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	BEGIN {
24
25	# find Koha's Perl modules
26	# test carefully before changing this
27	use FindBin ();
28	eval { require "$FindBin::Bin/../kohalib.pl" };
29	}
30
31	use Getopt::Long qw( GetOptions );	23	use Getopt::Long qw( GetOptions );
32	use Pod::Usage qw( pod2usage );	24	use Pod::Usage qw( pod2usage );
33		25

Lines 17-29 Link Here

(-)a/misc/cronjobs/update_patrons_category.pl (-7 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	BEGIN {
21	# find Koha's Perl modules
22	# test carefully before changing this
23	use FindBin ();
24	eval { require "$FindBin::Bin/../kohalib.pl" };
25	}
26
27	use C4::Context;	20	use C4::Context;
28	use Getopt::Long qw( GetOptions );	21	use Getopt::Long qw( GetOptions );
29	use Pod::Usage qw( pod2usage );	22	use Pod::Usage qw( pod2usage );

Lines 20-33 Link Here

(-)a/misc/cronjobs/update_totalissues.pl (-8 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	BEGIN {
24
25	# find Koha's Perl modules
26	# test carefully before changing this
27	use FindBin ();
28	eval { require "$FindBin::Bin/../kohalib.pl" };
29	}
30
31	use Getopt::Long qw( GetOptions );	23	use Getopt::Long qw( GetOptions );
32	use Pod::Usage qw( pod2usage );	24	use Pod::Usage qw( pod2usage );
33		25