Attachment #122362 for bug #17600

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





use CGI qw ( -utf8 );
use DateTime::TimeZone;
use File::Slurp qw( read_file );
use List::MoreUtils qw( any );
use Module::Load::Conditional qw( can_load );
use Config qw( %Config );
use Module::Load::Conditional qw(can_load);
use XML::Simple;
use Config;
use Search::Elasticsearch;
use Try::Tiny qw( catch try );
use YAML::XS ();
use Encode ();

use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user get_user_subpermissions );

use C4::Installer::PerlModules;

use Koha;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Currencies;
use Koha::BackgroundJob;
use Koha::BiblioFrameworks;

use Koha::Logger;
use Koha::Filter::MARC::ViewPolicy;

use C4::Members::Statistics ();


#use Smart::Comments '####';





use Modern::Perl;
use CGI qw ( -utf8 );
use JSON qw( to_json );
use C4::Auth qw( get_template_and_user );
use C4::Acquisition;    # ModOrder
use C4::Suggestions;    # ModStatus
use C4::Biblio qw(
    AddBiblio
    GetMarcFromKohaField
    TransformHtmlToXml
    TransformKohaToMarc
);
use C4::Budgets;
use C4::Items qw( AddItemFromMarc );
use C4::Output qw( output_html_with_http_headers );
use C4::Log qw( logaction );
use Koha::Acquisition::Currencies;
use Koha::Acquisition::Orders;
use Koha::Acquisition::Baskets;





use Modern::Perl;
use CGI qw ( -utf8 );
use YAML::XS ();
use List::MoreUtils ();
use Encode ();
use Encode;

use C4::Context;
use C4::Auth qw( get_template_and_user );

use C4::Matcher;
use C4::Search qw( FindDuplicate );
use C4::Acquisition;
use C4::Biblio qw(
    AddBiblio
    GetMarcFromKohaField
    GetMarcPrice
    GetMarcQuantity
    TransformHtmlToXml
);
use C4::Items qw( AddItemFromMarc PrepareItemrecordDisplay );
use C4::Budgets;
use C4::Acquisition;
use C4::Suggestions;    # GetSuggestion

Lines 48-54 Default value for the dropbox. Link Here

(-)a/acqui/ajax-getauthvaluedropbox.pl (-1 / +1 lines)
48	use Modern::Perl;	48	use Modern::Perl;
49		49
50	use CGI qw ( -utf8 );	50	use CGI qw ( -utf8 );
51	use C4::Charset qw( NormalizeString );	51	use C4::Charset ();
52	use C4::Auth qw( check_api_auth );	52	use C4::Auth qw( check_api_auth );
53	use Koha::AuthorisedValues;	53	use Koha::AuthorisedValues;
54		54





use Modern::Perl;
use C4::Auth qw( get_template_and_user haspermission );
use C4::Koha;
use C4::Output qw( output_html_with_http_headers output_and_exit );
use CGI qw ( -utf8 );
use C4::Acquisition;
use C4::Budgets;
use C4::Contract qw( GetContract );
use C4::Biblio;
use C4::Items qw( sub );
use C4::Suggestions;
use Koha::Biblios;
use Koha::Acquisition::Baskets;

use Koha::Acquisition::Orders;
use Koha::Libraries;
use C4::Letters qw( SendAlerts );
use Date::Calc qw( Add_Delta_Days );
use Koha::Database;
use Koha::EDI qw( create_edi_order );
use Koha::CsvProfiles;




=cut

use Modern::Perl;
use Carp qw( croak );

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use File::Spec ();

use C4::Acquisition qw(
    CloseBasketgroup
    DelBasketgroup
    get_rounded_price
    GetBasketgroup
    GetBasketGroupAsCSV
    GetBasketgroups
    GetBasketsByBasketgroup
    GetBasketsByBookseller
    GetOrders
    ModBasket
    ModBasketgroup
    NewBasketgroup
    ReOpenBasketgroup
);
use Koha::EDI qw( get_edifact_ean create_edi_order );

use Koha::Biblioitems;

Lines 51-57 use C4::Context; Link Here

(-)a/acqui/basketheader.pl (-1 / +1 lines)
51	use C4::Auth qw( get_template_and_user );	51	use C4::Auth qw( get_template_and_user );
52	use C4::Output qw( output_html_with_http_headers );	52	use C4::Output qw( output_html_with_http_headers );
53	use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/;	53	use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/;
54	use C4::Contract qw/GetContracts/;	54	use C4::Contract qw( GetContracts );
55		55
56	use Koha::Acquisition::Booksellers;	56	use Koha::Acquisition::Booksellers;
57	use Koha::Acquisition::Baskets;	57	use Koha::Acquisition::Baskets;

Lines 53-59 The id of the supplier whose baskets we will display Link Here

(-)a/acqui/booksellers.pl (-1 lines)
53		53
54	use Modern::Perl;	54	use Modern::Perl;
55	use C4::Auth qw( get_template_and_user );	55	use C4::Auth qw( get_template_and_user );
56	use C4::Biblio;
57	use C4::Budgets;	56	use C4::Budgets;
58	use C4::Output qw( output_html_with_http_headers );	57	use C4::Output qw( output_html_with_http_headers );
59	use CGI qw ( -utf8 );	58	use CGI qw ( -utf8 );

Lines 31-37 and add possibility to indicate a reason for cancellation Link Here

(-)a/acqui/cancelorder.pl (-1 / +1 lines)
31		31
32	use Modern::Perl;	32	use Modern::Perl;
33		33
34	use CGI;	34	use CGI ();
35	use C4::Auth qw( get_template_and_user );	35	use C4::Auth qw( get_template_and_user );
36	use C4::Output qw( output_html_with_http_headers );	36	use C4::Output qw( output_html_with_http_headers );
37	use C4::Acquisition;	37	use C4::Acquisition;

Lines 32-40 Link Here

(-)a/acqui/check_uniqueness.pl (-2 / +2 lines)
32	use Modern::Perl;	32	use Modern::Perl;
33		33
34	use CGI qw ( -utf8 );	34	use CGI qw ( -utf8 );
35	use JSON;	35	use JSON qw( to_json );
36	use C4::Output qw( output_with_http_headers );	36	use C4::Output qw( output_with_http_headers );
37	use C4::Items qw( SearchItems );	37	use C4::Items ();
38		38
39	my $input = CGI->new;	39	my $input = CGI->new;
40	my @field = $input->multi_param('field[]');	40	my @field = $input->multi_param('field[]');

Lines 28-34 use C4::Budgets qw(GetBudgetPeriods GetBudgetHierarchy CanUserUseBudget); Link Here

(-)a/acqui/duplicate_orders.pl (-1 / +1 lines)
28	use Koha::Acquisition::Baskets;	28	use Koha::Acquisition::Baskets;
29	use Koha::Acquisition::Currencies;	29	use Koha::Acquisition::Currencies;
30	use Koha::Acquisition::Orders;	30	use Koha::Acquisition::Orders;
31	use Koha::DateUtils qw(dt_from_string output_pref);	31	use Koha::DateUtils qw( dt_from_string output_pref );
32		32
33	my $input = CGI->new;	33	my $input = CGI->new;
34	my $basketno = $input->param('basketno');	34	my $basketno = $input->param('basketno');

Lines 24-33 Link Here

(-)a/acqui/edi_ean.pl (-2 / +1 lines)
24	use Modern::Perl;	24	use Modern::Perl;
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Koha;
28	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
29	use Koha::Database;	28	use Koha::Database;
30	use CGI;	29	use CGI ();
31	my $schema = Koha::Database->new()->schema();	30	my $schema = Koha::Database->new()->schema();
32		31
33	my @eans = $schema->resultset('EdifactEan')->search(	32	my @eans = $schema->resultset('EdifactEan')->search(

Lines 18-27 Link Here

(-)a/acqui/edifactmsgs.pl (-2 / +1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI;	21	use CGI ();
22		22
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Koha;
25	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
26	use Koha::Database;	25	use Koha::Database;
27	use Koha::EDI qw( process_invoice );	26	use Koha::EDI qw( process_invoice );

Lines 18-24 Link Here

(-)a/acqui/edimsg.pl (-1 / +1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI;	21	use CGI ();
22	use Koha::Database;	22	use Koha::Database;
23	use C4::Koha;	23	use C4::Koha;
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );




use C4::Context;
use C4::Acquisition;
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
use C4::Items qw( AddItemFromMarc );
use C4::Search;

use Koha::Number::Price;
use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Orders;

use List::MoreUtils qw/any/;

my $input=CGI->new;
my $flagsrequired = {acquisition => 'order_receive'};

Lines 54-62 use CGI qw ( -utf8 ); Link Here

(-)a/acqui/histsearch.pl (-2 / +1 lines)
54	use C4::Auth qw( get_template_and_user );	54	use C4::Auth qw( get_template_and_user );
55	use C4::Output qw( output_html_with_http_headers );	55	use C4::Output qw( output_html_with_http_headers );
56	use C4::Acquisition;	56	use C4::Acquisition;
57	use C4::Koha;
58	use Koha::AdditionalFields;	57	use Koha::AdditionalFields;
59	use Koha::DateUtils;	58	use Koha::DateUtils qw( dt_from_string output_pref );
60		59
61	my $input = CGI->new;	60	my $input = CGI->new;
62	my $do_search = $input->param('do_search') \|\| 0;	61	my $do_search = $input->param('do_search') \|\| 0;

Lines 29-35 Manage files associated with invoice Link Here

(-)a/acqui/invoice-files.pl (-1 / +1 lines)
29		29
30	use Modern::Perl;	30	use Modern::Perl;
31		31
32	use CGI;	32	use CGI ();
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_html_with_http_headers );	34	use C4::Output qw( output_html_with_http_headers );
35	use C4::Acquisition;	35	use C4::Acquisition;

Lines 36-42 use C4::Budgets; Link Here

(-)a/acqui/invoice.pl (-1 / +1 lines)
36		36
37	use Koha::Acquisition::Booksellers;	37	use Koha::Acquisition::Booksellers;
38	use Koha::Acquisition::Currencies;	38	use Koha::Acquisition::Currencies;
39	use Koha::DateUtils;	39	use Koha::DateUtils qw( output_pref );
40	use Koha::Misc::Files;	40	use Koha::Misc::Files;
41	use Koha::Acquisition::Invoice::Adjustments;	41	use Koha::Acquisition::Invoice::Adjustments;
42		42

Lines 34-40 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/acqui/invoices.pl (-1 / +1 lines)
34		34
35	use C4::Acquisition qw/GetInvoices/;	35	use C4::Acquisition qw/GetInvoices/;
36	use C4::Budgets;	36	use C4::Budgets;
37	use Koha::DateUtils;	37	use Koha::DateUtils qw( dt_from_string output_pref );
38	use Koha::Acquisition::Booksellers;	38	use Koha::Acquisition::Booksellers;
39		39
40	my $input = CGI->new;	40	my $input = CGI->new;

Lines 17-23 Link Here

(-)a/acqui/lateorders-export.pl (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use CGI qw ( -utf8 );	19	use CGI qw ( -utf8 );
20	use Encode;	20	use Encode ();
21		21
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Acquisition;	23	use C4::Acquisition;




use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Acquisition;
use C4::Letters qw( GetLetters SendAlerts );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Orders;
use Koha::CsvProfiles;





use C4::Budgets;

use C4::Acquisition;
use C4::Contract qw( GetContract );
use C4::Suggestions;	# GetSuggestion
use C4::Biblio qw(
    AddBiblio
    GetBiblioData
    GetMarcBiblio
    GetMarcFromKohaField
    GetMarcPrice
    GetMarcStructure
    IsMarcStructureInternal
);
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Koha;
use C4::Members;
use C4::Search qw( FindDuplicate );


Lines 94-100 use CGI qw ( -utf8 ); Link Here

(-)a/acqui/newordersuggestion.pl (-1 lines)
94	use C4::Auth qw( get_template_and_user );	94	use C4::Auth qw( get_template_and_user );
95	use C4::Output qw( output_html_with_http_headers );	95	use C4::Output qw( output_html_with_http_headers );
96	use C4::Suggestions;	96	use C4::Suggestions;
97	use C4::Biblio;
98	use C4::Budgets;	97	use C4::Budgets;
99		98
100	use Koha::Acquisition::Booksellers;	99	use Koha::Acquisition::Booksellers;

Lines 67-76 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/acqui/orderreceive.pl (-2 lines)
67	use C4::Output qw( output_html_with_http_headers );	67	use C4::Output qw( output_html_with_http_headers );
68	use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;	68	use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;
69	use C4::Members;	69	use C4::Members;
70	use C4::Items qw( sub );
71	use C4::Biblio qw( GetMarcStructure );	70	use C4::Biblio qw( GetMarcStructure );
72	use C4::Suggestions;	71	use C4::Suggestions;
73	use C4::Koha;
74		72
75	use Koha::Acquisition::Booksellers;	73	use Koha::Acquisition::Booksellers;
76	use Koha::Acquisition::Currencies;	74	use Koha::Acquisition::Currencies;




use C4::Auth qw( get_template_and_user );
use C4::Acquisition;
use C4::Budgets;
use C4::Biblio;
use C4::Items qw( sub );
use CGI qw ( -utf8 );
use C4::Output qw( output_html_with_http_headers );
use C4::Suggestions;

use Koha::Acquisition::Bookseller;
use Koha::Acquisition::Orders;
use Koha::Biblios;
use Koha::DateUtils;
use Koha::Biblios;

use JSON;

my $input = CGI->new;


Lines 75-81 use C4::Acquisition; Link Here

(-)a/acqui/parcels.pl (-1 / +1 lines)
75	use C4::Budgets;	75	use C4::Budgets;
76		76
77	use Koha::Acquisition::Booksellers;	77	use Koha::Acquisition::Booksellers;
78	use Koha::DateUtils qw( output_pref dt_from_string );	78	use Koha::DateUtils qw( dt_from_string output_pref );
79		79
80	my $input = CGI->new;	80	my $input = CGI->new;
81	my $booksellerid = $input->param('booksellerid');	81	my $booksellerid = $input->param('booksellerid');

Lines 42-49 To know the bookseller this script has to display details. Link Here

(-)a/acqui/supplier.pl (-2 / +1 lines)
42		42
43	use Modern::Perl;	43	use Modern::Perl;
44	use C4::Auth qw( get_template_and_user );	44	use C4::Auth qw( get_template_and_user );
45	use C4::Contract;	45	use C4::Contract qw( GetContracts );
46	use C4::Biblio;
47	use C4::Output qw( output_html_with_http_headers );	46	use C4::Output qw( output_html_with_http_headers );
48	use CGI qw ( -utf8 );	47	use CGI qw ( -utf8 );
49		48

Lines 50-56 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/acqui/uncertainprice.pl (-1 lines)
50	use CGI qw ( -utf8 );	50	use CGI qw ( -utf8 );
51		51
52	use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;	52	use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
53	use C4::Biblio qw/GetBiblioData/;
54		53
55	use Koha::Acquisition::Booksellers;	54	use Koha::Acquisition::Booksellers;
56	use Koha::Acquisition::Baskets;	55	use Koha::Acquisition::Baskets;

Lines 47-57 contact_serialsprimary. Link Here

(-)a/acqui/updatesupplier.pl (-2 lines)
47	=cut	47	=cut
48		48
49	use Modern::Perl;	49	use Modern::Perl;
50	use List::Util;
51	use C4::Context;	50	use C4::Context;
52	use C4::Auth qw( checkauth );	51	use C4::Auth qw( checkauth );
53		52
54	use C4::Biblio;
55	use C4::Output;	53	use C4::Output;
56		54
57	use Koha::Acquisition::Bookseller::Contacts;	55	use Koha::Acquisition::Bookseller::Contacts;

Lines 26-32 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/acqui/z3950_search.pl (-1 lines)
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Context;	27	use C4::Context;
28	use C4::Breeding qw( Z3950Search );	28	use C4::Breeding qw( Z3950Search );
29	use C4::Koha;
30		29
31	use Koha::Acquisition::Booksellers;	30	use Koha::Acquisition::Booksellers;
32	use Koha::BiblioFrameworks;	31	use Koha::BiblioFrameworks;

Lines 17-25 Link Here

(-)a/admin/additional-fields.pl (-2 / +1 lines)
17	# with Koha; if not, see <http://www.gnu.org/licenses>.	17	# with Koha; if not, see <http://www.gnu.org/licenses>.
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI;	20	use CGI ();
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Koha;
23	use C4::Output qw( output_html_with_http_headers );	22	use C4::Output qw( output_html_with_http_headers );
24	use Koha::AdditionalFields;	23	use Koha::AdditionalFields;
25		24




=cut

use Modern::Perl;
use Encode;

use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Koha;
use Koha::KeyboardShortcuts;

my $input            = CGI->new;

Lines 47-56 script to administer the budget periods table Link Here

(-)a/admin/aqbudgetperiods.pl (-3 / +1 lines)
47	use Modern::Perl;	47	use Modern::Perl;
48		48
49	use CGI qw ( -utf8 );	49	use CGI qw ( -utf8 );
50	use List::Util qw/min/;	50	use Koha::DateUtils qw( dt_from_string );
51	use Koha::DateUtils;
52	use Koha::Database;	51	use Koha::Database;
53	use C4::Koha;
54	use C4::Context;	52	use C4::Context;
55	use C4::Auth qw( get_template_and_user );	53	use C4::Auth qw( get_template_and_user );
56	use C4::Output qw( output_html_with_http_headers );	54	use C4::Output qw( output_html_with_http_headers );

Lines 22-28 Link Here

(-)a/admin/aqbudgets.pl (-2 lines)
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use List::Util qw/min/;
26		25
27	use Koha::Database;	26	use Koha::Database;
28	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
Lines 31-37 use C4::Acquisition; Link Here
31	use C4::Budgets;	30	use C4::Budgets;
32	use C4::Context;	31	use C4::Context;
33	use C4::Output qw( output_html_with_http_headers output_and_exit );	32	use C4::Output qw( output_html_with_http_headers output_and_exit );
34	use C4::Koha;
35	use Koha::Acquisition::Currencies;	33	use Koha::Acquisition::Currencies;
36	use Koha::Patrons;	34	use Koha::Patrons;
37		35

Lines 25-32 use CGI qw ( -utf8 ); Link Here

(-)a/admin/aqcontract.pl (-2 / +8 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
28	use C4::Contract;	28	use C4::Contract qw(
29	use Koha::DateUtils;	29	AddContract
		30	DelContract
		31	GetContract
		32	GetContracts
		33	ModContract
		34	);
		35	use Koha::DateUtils qw( dt_from_string output_pref );
30		36
31	use Koha::Acquisition::Booksellers;	37	use Koha::Acquisition::Booksellers;
32		38

Lines 22-31 Link Here

(-)a/admin/aqplan.pl (-4 / +3 lines)
22		22
23	use Modern::Perl;	23	use Modern::Perl;
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use List::Util qw/min/;	25	use Date::Calc qw( Delta_YMD );
26	use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;	26	use Date::Manip qw( DateCalc UnixDate );
27	use Date::Manip qw/ ParseDate UnixDate DateCalc/;	27	use Text::CSV_XS ();
28	use Text::CSV_XS;
29		28
30	use C4::Acquisition;	29	use C4::Acquisition;
31	use C4::Budgets;	30	use C4::Budgets;

Lines 19-25 Link Here

(-)a/admin/audio_alerts.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use Koha::AudioAlert;	25	use Koha::AudioAlert;

Lines 22-28 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/admin/auth_subfields_structure.pl (-1 lines)
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Koha;
26		25
27	use Koha::Authority::Types;	26	use Koha::Authority::Types;
28	use Koha::AuthorisedValues;	27	use Koha::AuthorisedValues;

Lines 21-27 Link Here

(-)a/admin/auth_tag_structure.pl (-1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Koha;
25	use C4::Context;	24	use C4::Context;
26	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
27	use C4::Context;	26	use C4::Context;

Lines 20-30 Link Here

(-)a/admin/authorised_values.pl (-2 / +2 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use List::MoreUtils qw(any);	23	use List::MoreUtils qw( any );
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Context;	26	use C4::Context;
27	use C4::Koha qw( getImageSets getitemtypeimagelocation );	27	use C4::Koha qw( getitemtypeimagelocation );
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29		29
30	use Koha::AuthorisedValues;	30	use Koha::AuthorisedValues;

Lines 17-24 Link Here

(-)a/admin/background_jobs.pl (-2 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use CGI qw ( -utf8 );	19	use CGI qw ( -utf8 );
20	use JSON qw( decode_json );
21	use Try::Tiny;
22		20
23	use C4::Context;	21	use C4::Context;
24	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/admin/branch_transfer_limits.pl (-1 lines)
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha;
28	use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed );	27	use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed );
29		28
30	my $input = CGI->new;	29	my $input = CGI->new;




use Modern::Perl;

use CGI qw ( -utf8 );
use Try::Tiny qw( catch try );

use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;

use Koha::Database;
use Koha::Patrons;

Lines 20-27 Link Here

(-)a/admin/cash_registers.pl (-2 / +2 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI ();
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use Koha::Libraries;	27	use Koha::Libraries;

Lines 27-33 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/admin/categories.pl (-1 / +1 lines)
27	use C4::Form::MessagingPreferences;	27	use C4::Form::MessagingPreferences;
28	use Koha::Patrons;	28	use Koha::Patrons;
29	use Koha::Database;	29	use Koha::Database;
30	use Koha::DateUtils;	30	use Koha::DateUtils qw( dt_from_string output_pref );
31	use Koha::Patron::Categories;	31	use Koha::Patron::Categories;
32	use Koha::Libraries;	32	use Koha::Libraries;
33		33

Lines 23-29 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/admin/checkmarc.pl (-1 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Biblio;
27		26
28		27
29	my $input = CGI->new;	28	my $input = CGI->new;

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/admin/classsources.pl (-1 lines)
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha;
28	use C4::ClassSortRoutine qw( GetSortRoutineNames );	27	use C4::ClassSortRoutine qw( GetSortRoutineNames );
29	use C4::ClassSplitRoutine qw( GetSplitRoutineNames );	28	use C4::ClassSplitRoutine qw( GetSplitRoutineNames );
30	use Koha::ClassSources;	29	use Koha::ClassSources;

Lines 30-36 use CGI qw ( -utf8 ); Link Here

(-)a/admin/clone-rules.pl (-1 lines)
30	use C4::Context;	30	use C4::Context;
31	use C4::Output qw( output_html_with_http_headers );	31	use C4::Output qw( output_html_with_http_headers );
32	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
33	use C4::Koha;
34	use Koha::CirculationRules;	33	use Koha::CirculationRules;
35		34
36	my $input = CGI->new;	35	my $input = CGI->new;

Lines 1-7 Link Here

(-)a/admin/columns_settings.pl (-1 / +1 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use CGI;	4	use CGI ();
5	use C4::Auth qw( get_template_and_user );	5	use C4::Auth qw( get_template_and_user );
6	use C4::Context;	6	use C4::Context;
7	use C4::Output qw( output_html_with_http_headers );	7	use C4::Output qw( output_html_with_http_headers );

Lines 19-25 Link Here

(-)a/admin/credit_types.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );

Lines 19-25 Link Here

(-)a/admin/debit_types.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );

Lines 6-13 use C4::Context; Link Here

(-)a/admin/didyoumean.pl (-2 / +2 lines)
6	use C4::Auth qw( get_template_and_user );	6	use C4::Auth qw( get_template_and_user );
7	use C4::Output qw( output_html_with_http_headers );	7	use C4::Output qw( output_html_with_http_headers );
8	use Koha::SuggestionEngine;	8	use Koha::SuggestionEngine;
9	use Module::Load::Conditional qw(can_load);	9	use Module::Load::Conditional qw( can_load );
10	use JSON;	10	use JSON qw( from_json );
11		11
12	my $input = CGI->new;	12	my $input = CGI->new;
13		13

Lines 18-24 Link Here

(-)a/admin/edi_accounts.pl (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI ();
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use Koha::Database;	24	use Koha::Database;

Lines 18-24 Link Here

(-)a/admin/edi_ean_accounts.pl (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI ();
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use Koha::Database;	24	use Koha::Database;

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/admin/import_export_framework.pl (-1 / +1 lines)
23	use CGI::Cookie;	23	use CGI::Cookie;
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( check_cookie_auth );	25	use C4::Auth qw( check_cookie_auth );
26	use C4::ImportExportFramework qw( ExportFramework createODS ImportFramework );	26	use C4::ImportExportFramework qw( createODS ExportFramework ImportFramework );
27		27
28	my %cookies = CGI::Cookie->fetch();	28	my %cookies = CGI::Cookie->fetch();
29	my $authenticated = 0;	29	my $authenticated = 0;

Lines 18-26 Link Here

(-)a/admin/item_circulation_alerts.pl (-3 / +1 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use File::Basename;	21	use JSON qw( encode_json );
22	use Encode;
23	use JSON;
24	#use Data::Dump 'pp';	22	#use Data::Dump 'pp';
25		23
26	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );

Lines 17-23 Link Here

(-)a/admin/items_search_field.pl (-1 / +1 lines)
17	# along with Koha; if not, see <http://www.gnu.org/licenses>.	17	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI;	20	use CGI ();
21		21
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );

Lines 17-23 Link Here

(-)a/admin/items_search_fields.pl (-1 / +1 lines)
17	# along with Koha; if not, see <http://www.gnu.org/licenses>.	17	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI;	20	use CGI ();
21		21
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );

Lines 25-31 Link Here

(-)a/admin/itemtypes.pl (-1 lines)
25	use Modern::Perl;	25	use Modern::Perl;
26	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
27		27
28	use File::Spec;
29		28
30	use C4::Koha qw( getImageSets GetAuthorisedValues );	29	use C4::Koha qw( getImageSets GetAuthorisedValues );
31	use C4::Context;	30	use C4::Context;

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/admin/koha2marclinks.pl (-1 lines)
23		23
24	use Koha::Database;	24	use Koha::Database;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Biblio;
27	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
28	use Koha::BiblioFrameworks;	27	use Koha::BiblioFrameworks;
29	use Koha::Caches;	28	use Koha::Caches;

Lines 21-27 Link Here

(-)a/admin/marctagstructure.pl (-1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Koha;
25	use C4::Context;	24	use C4::Context;
26	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
27	use C4::Context;	26	use C4::Context;

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/admin/matching-rules.pl (-1 lines)
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha;
28	use C4::Matcher qw/valid_normalization_routines/;	27	use C4::Matcher qw/valid_normalization_routines/;
29		28
30	my $script_name = "/cgi-bin/koha/admin/matching-rules.pl";	29	my $script_name = "/cgi-bin/koha/admin/matching-rules.pl";

Lines 35-43 use Modern::Perl; Link Here

(-)a/admin/oai_set_mappings.pl (-2 / +1 lines)
35	use CGI qw ( -utf8 );	35	use CGI qw ( -utf8 );
36	use C4::Auth qw( get_template_and_user );	36	use C4::Auth qw( get_template_and_user );
37	use C4::Output qw( output_html_with_http_headers );	37	use C4::Output qw( output_html_with_http_headers );
38	use C4::OAI::Sets;	38	use C4::OAI::Sets qw( GetOAISet GetOAISetMappings ModOAISetMappings );
39		39
40	use Data::Dumper;
41		40
42	my $input = CGI->new;	41	my $input = CGI->new;
43	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {	42	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {

Lines 31-39 use Modern::Perl; Link Here

(-)a/admin/oai_sets.pl (-2 / +1 lines)
31	use CGI qw ( -utf8 );	31	use CGI qw ( -utf8 );
32	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
33	use C4::Output qw( output_html_with_http_headers );	33	use C4::Output qw( output_html_with_http_headers );
34	use C4::OAI::Sets;	34	use C4::OAI::Sets qw( AddOAISet DelOAISet GetOAISet GetOAISets ModOAISet );
35		35
36	use Data::Dumper;
37		36
38	my $input = CGI->new;	37	my $input = CGI->new;
39	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {	38	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {




use Modern::Perl;

use CGI qw ( -utf8 );
use List::MoreUtils qw( uniq );

use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use Koha::Patron::Attribute::Types;

use Koha::AuthorisedValues;




use C4::Context;
use C4::Koha qw( getallthemes );
use C4::Languages qw( getTranslatedLanguages );
use C4::ClassSource qw( GetClassSources );
use C4::Log;
use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
use Koha::Acquisition::Currencies;
use IO::File ();
use YAML::XS ();
use Encode ();
use List::MoreUtils qw( any );
use List::MoreUtils qw(any);

# use Smart::Comments;
#




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

use Modern::Perl;
use CGI ();
use Scalar::Util qw( looks_like_number );
use List::Util qw( first );
use C4::Koha;
use C4::Output;
use C4::Auth;
use C4::Log ();

use Koha::SearchEngine::Elasticsearch;
use Koha::SearchEngine::Elasticsearch::QueryBuilder;

use Koha::SearchFields;
use Koha::Caches;

use Try::Tiny qw( catch try );
use Module::Load::Conditional qw( can_load );


my $input = CGI->new;

Lines 18-24 Link Here

(-)a/admin/share_content.pl (-1 / +1 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use JSON;	21	use JSON qw( to_json );
22	use HTTP::Request;	22	use HTTP::Request;
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );

Lines 22-29 use CGI qw ( -utf8 ); Link Here

(-)a/admin/smart-rules.pl (-2 / +1 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Koha;	25	use Koha::DateUtils qw( dt_from_string output_pref );
26	use Koha::DateUtils;
27	use Koha::Database;	26	use Koha::Database;
28	use Koha::Logger;	27	use Koha::Logger;
29	use Koha::Libraries;	28	use Koha::Libraries;

Lines 19-25 Link Here

(-)a/admin/sms_providers.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );

Lines 20-27 Link Here

(-)a/admin/smtp_servers.pl (-2 / +2 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use Scalar::Util qw(blessed);	23	use Scalar::Util qw( blessed );
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );

Lines 18-24 Link Here

(-)a/admin/sru_modmapping.pl (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI ();
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24		24




use Modern::Perl;

use CGI qw ( -utf8 );
use MIME::Base64 qw( encode_base64 );
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Koha qw( getallthemes );
use C4::Languages qw( getTranslatedLanguages );
use C4::ClassSource qw( GetClassSources );
use C4::Output qw( output_html_with_http_headers );
use YAML::XS ();

my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)


Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/admin/transfer_limits.pl (-1 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Koha;
27	use C4::Circulation	26	use C4::Circulation
28	qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };	27	qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
29		28




use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );

use Koha::Libraries;

use Data::Dumper;

my $input = CGI->new;


Lines 20-26 use Modern::Perl; Link Here

(-)a/admin/usage_statistics.pl (-1 / +1 lines)
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_html_with_http_headers );	22	use C4::Output qw( output_html_with_http_headers );
23	use Koha::DateUtils qw( dt_from_string output_pref );	23	use Koha::DateUtils qw( output_pref );
24	use Koha::Libraries;	24	use Koha::Libraries;
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;

Lines 17-21 Link Here

(-)a/api/v1/app.pl (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	require Mojolicious::Commands;	20	use Mojolicious::Commands ();
21	Mojolicious::Commands->start_app('Koha::REST::V1');	21	Mojolicious::Commands->start_app('Koha::REST::V1');

Lines 25-31 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/authorities/auth_finder.pl (-1 lines)
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Context;	26	use C4::Context;
27	use C4::Acquisition;	27	use C4::Acquisition;
28	use C4::Koha;
29	use Koha::SearchEngine::Search;	28	use Koha::SearchEngine::Search;
30	use Koha::SearchEngine::QueryBuilder;	29	use Koha::SearchEngine::QueryBuilder;
31		30

Lines 20-26 Link Here

(-)a/authorities/authorities-home.pl (-2 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use URI::Escape;	23	use URI::Escape qw( uri_escape_utf8 );
24	use POSIX qw( ceil );	24	use POSIX qw( ceil );
25		25
26	use C4::Context;	26	use C4::Context;
Lines 29-35 use C4::Output qw( output_and_exit pagination_bar output_html_with_http_headers Link Here
29	use C4::Auth qw( get_template_and_user );	29	use C4::Auth qw( get_template_and_user );
30	use C4::Acquisition;	30	use C4::Acquisition;
31	use C4::Koha;	31	use C4::Koha;
32	use C4::Biblio;
33	use C4::Search::History;	32	use C4::Search::History;
34		33
35	use Koha::Authority::Types;	34	use Koha::Authority::Types;

Lines 26-33 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/authorities/authorities.pl (-2 / +1 lines)
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::ImportBatch qw( sub GetImportRecordMarc );	27	use C4::ImportBatch qw( sub GetImportRecordMarc );
28	use C4::Context;	28	use C4::Context;
29	use C4::Koha;	29	use Date::Calc qw( Today );
30	use Date::Calc qw(Today);
31	use MARC::File::USMARC;	30	use MARC::File::USMARC;
32	use MARC::File::XML;	31	use MARC::File::XML;
33	use C4::Biblio qw( TransformHtmlToMarc );	32	use C4::Biblio qw( TransformHtmlToMarc );

Lines 43-50 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/authorities/blinddetail-biblio-search.pl (-2 lines)
43	use C4::Context;	43	use C4::Context;
44	use C4::Output qw( output_html_with_http_headers );	44	use C4::Output qw( output_html_with_http_headers );
45	use CGI qw ( -utf8 );	45	use CGI qw ( -utf8 );
46	use MARC::Record;
47	use C4::Koha;
48		46
49	use Koha::Authorities;	47	use Koha::Authorities;
50	use Koha::Authority::Types;	48	use Koha::Authority::Types;

Lines 43-50 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/authorities/detail-biblio-search.pl (-2 lines)
43	use C4::Context;	43	use C4::Context;
44	use C4::Output qw( output_html_with_http_headers );	44	use C4::Output qw( output_html_with_http_headers );
45	use CGI qw ( -utf8 );	45	use CGI qw ( -utf8 );
46	use MARC::Record;
47	use C4::Koha;
48	# use C4::Biblio;	46	# use C4::Biblio;
49	# use C4::Catalogue;	47	# use C4::Catalogue;
50		48

Lines 43-50 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/authorities/detail.pl (-2 / +1 lines)
43	use C4::Context;	43	use C4::Context;
44	use C4::Output qw( output_html_with_http_headers );	44	use C4::Output qw( output_html_with_http_headers );
45	use CGI qw ( -utf8 );	45	use CGI qw ( -utf8 );
46	use MARC::Record;	46	use C4::Koha ();
47	use C4::Koha qw( display_marc_indicators );
48	use Koha::Authorities;	47	use Koha::Authorities;
49		48
50	use Koha::Authority::Types;	49	use Koha::Authority::Types;

Lines 22-28 use CGI qw ( -utf8 ); Link Here

(-)a/authorities/merge.pl (-1 lines)
22	use C4::Output qw( output_html_with_http_headers );	22	use C4::Output qw( output_html_with_http_headers );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Koha;
26	use C4::Biblio qw( TransformHtmlToMarc );	25	use C4::Biblio qw( TransformHtmlToMarc );
27		26
28	use Koha::Authority::MergeRequests;	27	use Koha::Authority::MergeRequests;

Lines 4-10 use Modern::Perl; Link Here

(-)a/authorities/merge_ajax.pl (-1 / +1 lines)
4		4
5	use CGI qw ( -utf8 );	5	use CGI qw ( -utf8 );
6	use CGI::Cookie; # need to check cookies before CGI parses the POST request	6	use CGI::Cookie; # need to check cookies before CGI parses the POST request
7	use JSON;	7	use JSON qw( encode_json );
8		8
9	use C4::Context;	9	use C4::Context;
10	use C4::Auth qw( check_cookie_auth );	10	use C4::Auth qw( check_cookie_auth );

Lines 29-35 This script allows ajax call for dynamic authorities search Link Here

(-)a/authorities/ysearch.pl (-1 / +1 lines)
29		29
30	use CGI qw ( -utf8 );	30	use CGI qw ( -utf8 );
31	use Modern::Perl;	31	use Modern::Perl;
32	use JSON;	32	use JSON qw( to_json );
33		33
34	use C4::Context;	34	use C4::Context;
35	use C4::Charset qw( nsb_clean );	35	use C4::Charset qw( nsb_clean );

Lines 19-26 Link Here

(-)a/basket/basket.pl (-2 / +9 lines)
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use C4::Koha;	21	use C4::Koha;
22	use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls );	22	use C4::Biblio qw(
23	use C4::Items qw( sub GetItemsInfo );	23	GetBiblioData
		24	GetMarcAuthors
		25	GetMarcBiblio
		26	GetMarcSeries
		27	GetMarcSubjects
		28	GetMarcUrls
		29	);
		30	use C4::Items qw( GetItemsInfo );
24	use C4::Auth qw( get_template_and_user );	31	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	32	use C4::Output qw( output_html_with_http_headers );
26		33




use Modern::Perl;

use CGI qw ( -utf8 );
use Encode qw( encode );

use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetMarcBiblio );
use C4::Items;
use C4::Output qw( output_html_with_http_headers );
use C4::Record;
use C4::Ris qw( marc2ris );

use Koha::CsvProfiles;





use Modern::Perl;

use CGI qw ( -utf8 );
use Encode ();
use Carp qw( carp );
use Try::Tiny qw( catch try );

use C4::Biblio qw(
    GetBiblioData
    GetMarcAuthors
    GetMarcBiblio
    GetMarcSubjects
);
use C4::Items qw( GetItemsInfo );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Templates ();





use Modern::Perl;

use HTML::Entities ();
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetISBDView GetMarcBiblio );
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData );
use C4::Items qw( sub );
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
use C4::Search qw( z3950_search_args enabled_staff_search_views );






use Modern::Perl;
use CGI qw ( -utf8 );
use HTML::Entities ();

use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha ();
use C4::Biblio qw(
    GetAuthorisedValueDesc
    GetBiblioData
    GetFrameworkCode
    GetMarcBiblio
    GetMarcFromKohaField
    GetMarcStructure
);
use C4::Acquisition;
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
use C4::Search qw( z3950_search_args enabled_staff_search_views );

use Koha::Biblios;
use Koha::BiblioFrameworks;
use Koha::Patrons;
use Koha::DateUtils qw( output_pref );
use Koha::Virtualshelves;

use List::MoreUtils qw( uniq );




use Modern::Perl;

use CGI qw ( -utf8 );
use HTML::Entities ();
use Try::Tiny;
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Koha qw(
    GetAuthorisedValues
    getitemtypeimagelocation
    GetNormalizedEAN
    GetNormalizedISBN
    GetNormalizedOCLCNumber
    GetNormalizedUPC
);
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo );
use C4::Circulation qw( GetTransfers );
use C4::Reserves;
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
use C4::XISBN qw( get_xisbns );
use C4::External::Amazon qw( get_amazon_tld );
use C4::Search qw( z3950_search_args enabled_staff_search_views );
use C4::Tags qw( get_tags );
use C4::XSLT;
use Koha::DateUtils qw( format_sqldatetime );
use C4::HTML5Media;
use C4::CourseReserves qw( GetItemCourseReservesInfo );
use C4::Acquisition qw(GetOrdersByBiblionumber);

Lines 6-12 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/catalogue/export.pl (-1 / +1 lines)
6	use C4::Output;	6	use C4::Output;
7	use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber );	7	use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber );
8	use CGI qw ( -utf8 );	8	use CGI qw ( -utf8 );
9	use C4::Ris;	9	use C4::Ris qw( marc2ris );
10		10
11		11
12		12





use Modern::Perl;
use CGI qw ( -utf8 );
use JSON qw( to_json );

use C4::Auth qw( check_api_auth );
use C4::Biblio qw( GetMarcStructure );
use C4::Items;
use C4::Koha;
use C4::Output qw( output_with_http_headers );
use Koha::Libraries;


Lines 21-27 use Modern::Perl; Link Here

(-)a/catalogue/imageviewer.pl (-1 lines)
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Biblio;
25	use C4::Items qw( GetItemsInfo );	24	use C4::Items qw( GetItemsInfo );
26	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
27	use C4::Search qw( enabled_staff_search_views );	26	use C4::Search qw( enabled_staff_search_views );

Lines 22-28 use CGI qw ( -utf8 ); Link Here

(-)a/catalogue/issuehistory.pl (-1 lines)
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24		24
25	use C4::Biblio; # GetBiblio
26	use C4::Search qw( enabled_staff_search_views );	25	use C4::Search qw( enabled_staff_search_views );
27	use C4::Serials qw( CountSubscriptionFromBiblionumber );	26	use C4::Serials qw( CountSubscriptionFromBiblionumber );
28	use Koha::Checkouts;	27	use Koha::Checkouts;

Lines 19-25 Link Here

(-)a/catalogue/item-export.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output;	25	use C4::Output;




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

use Modern::Perl;
use CGI ();

use JSON qw( to_json );

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_with_http_headers output_html_with_http_headers );
use C4::Items qw( SearchItems );
use C4::Biblio;
use C4::Koha qw( GetAuthorisedValues );

use Koha::AuthorisedValues;





use Modern::Perl;
use CGI qw ( -utf8 ); 
use HTML::Entities ();
use MARC::Record;
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio qw(
    GetBiblioData
    GetFrameworkCode
    GetMarcBiblio
    GetMarcStructure
);
use C4::Search qw( z3950_search_args enabled_staff_search_views );
use C4::Serials qw( CountSubscriptionFromBiblionumber );





use Modern::Perl;
use C4::Koha qw( GetAuthorisedValues );
use CGI qw ( -utf8 );
use HTML::Entities ();
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
use C4::Items qw( GetHostItemsInfo GetItemsInfo );
use C4::Acquisition;
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );

use Koha::Acquisition::Booksellers;
use Koha::AuthorisedValues;
use Koha::Biblios;
use Koha::DateUtils;
use Koha::Items;
use Koha::Patrons;





use C4::Output qw( output_html_with_http_headers pagination_bar );
use C4::Auth qw( get_template_and_user );
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
use C4::Languages qw( getLanguages );
use C4::Koha qw( GetAuthorisedValues getitemtypeimagelocation );
use URI::Escape qw( uri_unescape );
use POSIX qw(ceil floor);
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );

use Koha::ItemTypes;

use Koha::Virtualshelves;
use Koha::SearchFields;

use URI::Escape qw( uri_unescape );

my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
# create a new CGI object

Lines 24-31 use Modern::Perl; Link Here

(-)a/catalogue/showmarc.pl (-2 / +1 lines)
24		24
25	# standard or CPAN modules used	25	# standard or CPAN modules used
26	use CGI qw(:standard -utf8);	26	use CGI qw(:standard -utf8);
27	use DBI;	27	use Encode ();
28	use Encode;
29		28
30	# Koha modules used	29	# Koha modules used
31	use C4::Context;	30	use C4::Context;

Lines 25-31 Link Here

(-)a/catalogue/stockrotation.pl (-1 / +1 lines)
25	=cut	25	=cut
26		26
27	use Modern::Perl;	27	use Modern::Perl;
28	use CGI;	28	use CGI ();
29		29
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
31	use C4::Output qw( output_html_with_http_headers );	31	use C4::Output qw( output_html_with_http_headers );

Lines 21-28 use Modern::Perl; Link Here

(-)a/catalogue/updateitem.pl (-2 lines)
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Auth qw( checkauth );	22	use C4::Auth qw( checkauth );
23	use C4::Context;	23	use C4::Context;
24	use C4::Biblio;
25	use C4::Items;
26	use C4::Output;	24	use C4::Output;
27	use C4::Circulation qw( LostItem );	25	use C4::Circulation qw( LostItem );
28	use C4::Reserves;	26	use C4::Reserves;





use Modern::Perl;

use CGI ();
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user haspermission );
use C4::Biblio qw(
    AddBiblio
    DelBiblio
    GetFrameworkCode
    GetMarcBiblio
    GetMarcFromKohaField
    GetMarcStructure
    GetUsedMarcStructure
    ModBiblio
    prepare_host_field
    PrepHostMarcField
    TransformHtmlToMarc
);
use C4::Search qw( FindDuplicate enabled_staff_search_views );
use C4::Auth qw( get_template_and_user haspermission );
use C4::Context;
use MARC::Record ();
use C4::ClassSource qw( GetClassSources );
use C4::Koha;
use C4::ClassSource qw( GetClassSources GetClassSource );
use C4::ImportBatch qw( sub GetImportRecordMarc );
use C4::Charset qw( SetMarcUnicodeFlag );
use Koha::BiblioFrameworks;
use Koha::DateUtils qw( dt_from_string );

use Koha::ItemTypes;
use Koha::Libraries;

use Koha::BiblioFrameworks;

use Date::Calc qw(Today);
use MARC::File::USMARC;
use MARC::File::XML;
use URI::Escape qw( uri_escape_utf8 );

if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
    MARC::File::XML->default_record_format('UNIMARC');




use Modern::Perl;

use CGI qw ( -utf8 );
use URI::Escape;
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::Breeding qw( BreedingSearch );
use C4::Output qw( output_html_with_http_headers pagination_bar );
use C4::Koha qw( getnbpages );
use C4::Languages ();
use C4::Search qw( searchResults z3950_search_args );

use Koha::BiblioFrameworks;




use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user haspermission );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Biblio qw(
    GetAuthorisedValueDesc
    GetFrameworkCode
    GetMarcBiblio
    GetMarcFromKohaField
    GetMarcStructure
    IsMarcStructureInternal
    ModBiblio
    TransformHtmlToXml
    TransformMarcToKoha
);
use C4::Items qw( AddItemFromMarc ModItemFromMarc );
use C4::Context;
use C4::Circulation qw( LostItem );
use C4::Koha qw( GetAuthorisedValues );
use C4::ClassSource qw( GetClassSources );
use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::Patrons;
use Koha::SearchEngine::Indexer;
use List::MoreUtils qw( any );
use C4::Search qw( enabled_staff_search_views );
use Storable qw( freeze thaw );
use URI::Escape qw( uri_escape_utf8 );
use C4::Members;

use MARC::File::XML;
use URI::Escape qw( uri_escape_utf8 );
use MIME::Base64 qw( decode_base64url encode_base64url );

our $dbh = C4::Context->dbh;


Lines 20-30 Link Here

(-)a/cataloguing/editor.pl (-3 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI ();
24	use MARC::Record;
25		24
26	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
27	use C4::Biblio;
28	use C4::Context;	26	use C4::Context;
29	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
30	use DBIx::Class::ResultClass::HashRefInflator;	28	use DBIx::Class::ResultClass::HashRefInflator;

Lines 24-33 use Modern::Perl; Link Here

(-)a/cataloguing/linkitem.pl (-3 / +1 lines)
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Biblio qw( GetMarcBiblio PrepHostMarcField ModBiblio );	27	use C4::Biblio qw( GetMarcBiblio ModBiblio PrepHostMarcField );
28	use C4::Items qw( sub );
29	use C4::Context;	28	use C4::Context;
30	use C4::Koha;
31		29
32		30
33	my $query = CGI->new;	31	my $query = CGI->new;





use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Items qw( MoveItemFromBiblio );
use C4::Biblio qw(
    DelBiblio
    GetBiblioData
    GetFrameworkCode
    GetMarcBiblio
    GetMarcFromKohaField
    GetMarcStructure
    ModBiblio
    TransformHtmlToMarc
);
use C4::Serials qw( CountSubscriptionFromBiblionumber );
use C4::Koha;
use C4::Reserves qw( MergeHolds );
use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;


Lines 4-10 use Modern::Perl; Link Here

(-)a/cataloguing/merge_ajax.pl (-1 / +1 lines)
4		4
5	use CGI qw ( -utf8 );	5	use CGI qw ( -utf8 );
6	use CGI::Cookie; # need to check cookies before CGI parses the POST request	6	use CGI::Cookie; # need to check cookies before CGI parses the POST request
7	use JSON;	7	use JSON qw( encode_json );
8		8
9	use C4::Context;	9	use C4::Context;
10	use C4::Biblio qw( GetMarcStructure );	10	use C4::Biblio qw( GetMarcStructure );




use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio;
use C4::Items qw( MoveItemFromBiblio );
use C4::Context;
use C4::Koha;
use C4::ClassSource;
use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;

use Koha::Biblios;

use Date::Calc qw(Today);

use MARC::File::XML;


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

(-)a/cataloguing/value_builder/barcode.pl (-2 / +2 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Barcodes::ValueBuilder;	26	use C4::Barcodes::ValueBuilder;
27	use C4::Biblio qw( GetMarcFromKohaField );	27	use C4::Biblio qw( GetMarcFromKohaField );
28	use Koha::DateUtils;	28	use Koha::DateUtils qw( dt_from_string output_pref );
29		29
30	use Algorithm::CheckDigits;	30	use Algorithm::CheckDigits qw( CheckDigits );
31		31
32	my $DEBUG = 0;	32	my $DEBUG = 0;
33		33

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

(-)a/cataloguing/value_builder/barcode_manual.pl (-1 / +1 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Barcodes::ValueBuilder;	26	use C4::Barcodes::ValueBuilder;
27	use C4::Biblio qw( GetMarcFromKohaField );	27	use C4::Biblio qw( GetMarcFromKohaField );
28	use Koha::DateUtils;	28	use Koha::DateUtils qw( dt_from_string output_pref );
29		29
30	my $DEBUG = 0;	30	my $DEBUG = 0;
31		31

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/cn_browser.pl (-1 lines)
20	# along with Koha; if not, see <http://www.gnu.org/licenses>.	20	# along with Koha; if not, see <http://www.gnu.org/licenses>.
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23	use CGI;
24		23
25	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
26	use C4::ClassSource qw( GetClassSort );	25	use C4::ClassSource qw( GetClassSort );

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/dateaccessioned.pl (-1 / +1 lines)
21	# along with Koha; if not, see <http://www.gnu.org/licenses>.	21	# along with Koha; if not, see <http://www.gnu.org/licenses>.
22		22
23	use Modern::Perl;	23	use Modern::Perl;
24	use Koha::DateUtils;	24	use Koha::DateUtils qw( dt_from_string output_pref );
25		25
26	my $builder = sub {	26	my $builder = sub {
27	my ( $params ) = @_;	27	my ( $params ) = @_;

Lines 27-33 use C4::Context; Link Here

(-)a/cataloguing/value_builder/marc21_field_006.pl (-1 / +1 lines)
27	use C4::Search;	27	use C4::Search;
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29		29
30	use XML::LibXML;	30	use XML::LibXML ();
31		31
32	my $builder = sub {	32	my $builder = sub {
33	my ( $params ) = @_;	33	my ( $params ) = @_;

Lines 27-33 use C4::Context; Link Here

(-)a/cataloguing/value_builder/marc21_field_008.pl (-1 / +1 lines)
27	use C4::Search;	27	use C4::Search;
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29		29
30	use XML::LibXML;	30	use XML::LibXML ();
31	use Koha::Util::FrameworkPlugin qw\|date_entered\|;	31	use Koha::Util::FrameworkPlugin qw\|date_entered\|;
32		32
33	my $builder = sub {	33	my $builder = sub {

Lines 29-36 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/cataloguing/value_builder/marc21_linking_section.pl (-2 lines)
29	use C4::Output qw( output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers );
30		30
31	use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );	31	use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
32	use C4::Koha;
33	use MARC::Record;
34		32
35	use Koha::ItemTypes;	33	use Koha::ItemTypes;
36		34

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/unimarc_field_100.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use Date::Calc qw( Today );	23	use Date::Calc ();
24		24
25	use Koha::Util::FrameworkPlugin qw(wrapper);	25	use Koha::Util::FrameworkPlugin qw(wrapper);
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );

Lines 25-31 use C4::Context; Link Here

(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-1 lines)
25	use C4::Output qw( pagination_bar output_html_with_http_headers );	25	use C4::Output qw( pagination_bar output_html_with_http_headers );
26	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
27	use C4::Search;	27	use C4::Search;
28	use MARC::Record;
29	use C4::Koha qw( getnbpages );	28	use C4::Koha qw( getnbpages );
30		29
31	###TODO To rewrite in order to use SearchAuthorities	30	###TODO To rewrite in order to use SearchAuthorities

Lines 29-36 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-2 lines)
29	use C4::Output qw( output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers );
30		30
31	use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );	31	use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
32	use C4::Koha;
33	use MARC::Record;
34		32
35	use Koha::ItemTypes;	33	use Koha::ItemTypes;
36		34

Lines 29-35 use CGI qw ( -utf8 ); Link Here

(-)a/cataloguing/ysearch.pl (-1 / +1 lines)
29	use C4::Context;	29	use C4::Context;
30	use C4::Charset qw( nsb_clean );	30	use C4::Charset qw( nsb_clean );
31	use C4::Auth qw( check_cookie_auth );	31	use C4::Auth qw( check_cookie_auth );
32	use JSON qw/ to_json /;	32	use JSON qw( to_json );
33		33
34	my $input = CGI->new;	34	my $input = CGI->new;
35	my $query = $input->param('term');	35	my $query = $input->param('term');

Lines 24-30 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/cataloguing/z3950_auth_search.pl (-1 lines)
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Context;	25	use C4::Context;
26	use C4::Breeding qw( Z3950Search Z3950SearchAuth );	26	use C4::Breeding qw( Z3950Search Z3950SearchAuth );
27	use C4::Koha;
28		27
29	my $input = CGI->new;	28	my $input = CGI->new;
30	my $dbh = C4::Context->dbh;	29	my $dbh = C4::Context->dbh;

Lines 25-31 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/cataloguing/z3950_search.pl (-1 lines)
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Context;	26	use C4::Context;
27	use C4::Breeding qw( Z3950Search );	27	use C4::Breeding qw( Z3950Search );
28	use C4::Koha;
29		28
30	my $input = CGI->new;	29	my $input = CGI->new;
31	my $error = $input->param('error');	30	my $error = $input->param('error');

Lines 24-30 use CGI qw( -utf8 ); Link Here

(-)a/circ/article-request-slip.pl (-1 / +1 lines)
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Letters qw( GetPreparedLetter );	27	use C4::Letters ();
28	use Koha::ArticleRequests;	28	use Koha::ArticleRequests;
29	use Koha::Patrons;	29	use Koha::Patrons;
30		30

Lines 25-34 use CGI qw ( -utf8 ); Link Here

(-)a/circ/bookcount.pl (-2 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Circulation;	26	use C4::Circulation;
27	use C4::Output qw( output_and_exit output_html_with_http_headers );	27	use C4::Output qw( output_and_exit output_html_with_http_headers );
28	use C4::Koha;
29	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
30	use Koha::Biblios;	29	use Koha::Biblios;
31	use Koha::DateUtils;
32	use Koha::Libraries;	30	use Koha::Libraries;
33		31
34	my $input = CGI->new;	32	my $input = CGI->new;

Lines 24-32 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/circ/branchoverdues.pl (-2 / +2 lines)
24	use C4::Overdues qw( GetOverduesForBranch );	24	use C4::Overdues qw( GetOverduesForBranch );
25	use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure );	25	use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure );
26	use C4::Koha qw( GetAuthorisedValues );	26	use C4::Koha qw( GetAuthorisedValues );
27	use Koha::DateUtils;	27	use Koha::DateUtils qw( dt_from_string output_pref );
28	use Koha::BiblioFrameworks;	28	use Koha::BiblioFrameworks;
29	use Data::Dumper;	29	use Data::Dumper qw( Dumper );
30		30
31	=head1 branchoverdues.pl	31	=head1 branchoverdues.pl
32		32

Lines 25-34 use CGI qw ( -utf8 ); Link Here

(-)a/circ/branchtransfers.pl (-3 lines)
25	use C4::Circulation qw( transferbook );	25	use C4::Circulation qw( transferbook );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Reserves qw( ModReserve ModReserveAffect );	27	use C4::Reserves qw( ModReserve ModReserveAffect );
28	use C4::Biblio;
29	use C4::Items;
30	use C4::Auth qw( get_session get_template_and_user );	28	use C4::Auth qw( get_session get_template_and_user );
31	use C4::Koha;
32	use C4::Members;	29	use C4::Members;
33	use Koha::BiblioFrameworks;	30	use Koha::BiblioFrameworks;
34	use Koha::AuthorisedValues;	31	use Koha::AuthorisedValues;




use DateTime::Duration;
use Scalar::Util qw( looks_like_number );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Auth qw( get_session get_template_and_user );
use C4::Koha;
use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue );
use C4::Utils::DataTables::Members;
use C4::Members;
use C4::Biblio qw( TransformMarcToKoha );
use C4::Search qw( new_record_from_zebra );
use MARC::Record;
use C4::Reserves;
use Koha::Holds;
use C4::Context;

use Koha::AuthorisedValues;
use Koha::CsvProfiles;
use Koha::Patrons;
use Koha::Patron::Debarments qw( GetDebarments );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;
use Koha::BiblioFrameworks;
use Koha::Items;

use Koha::SearchEngine::Search;
use Koha::Patron::Modifications;

use List::MoreUtils qw( uniq );
  Today
  Add_Delta_Days
  Date_to_Days
);
use List::MoreUtils qw/uniq/;

#
# PARAMETERS READING

Lines 21-27 use Modern::Perl; Link Here

(-)a/circ/on-site_checkouts.pl (-1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Circulation qw( GetPendingOnSiteCheckouts );	22	use C4::Circulation qw( GetPendingOnSiteCheckouts );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Koha;
25	use Koha::BiblioFrameworks;	24	use Koha::BiblioFrameworks;
26		25
27	my $cgi = CGI->new;	26	my $cgi = CGI->new;

Lines 24-31 use C4::Context; Link Here

(-)a/circ/overdue.pl (-2 / +2 lines)
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use CGI qw(-oldstyle_urls -utf8);	25	use CGI qw(-oldstyle_urls -utf8);
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use Text::CSV_XS;	27	use Text::CSV_XS ();
28	use Koha::DateUtils;	28	use Koha::DateUtils qw( dt_from_string output_pref );
29	use DateTime;	29	use DateTime;
30	use DateTime::Format::MySQL;	30	use DateTime::Format::MySQL;
31		31





use constant PULL_INTERVAL => 2;
use List::MoreUtils qw( uniq );
use YAML::XS ();
use Encode ();

use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Items ();
use C4::Reserves qw( ModReserveCancelAll );
use Koha::Biblios;
use Koha::DateUtils qw( dt_from_string );
use Koha::Holds;
use DateTime::Duration;


Lines 24-31 use C4::Context; Link Here

(-)a/circ/renew.pl (-2 / +1 lines)
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Circulation qw( barcodedecode CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal );	26	use C4::Circulation qw( barcodedecode CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal );
27	use C4::Koha;	27	use Koha::DateUtils qw( dt_from_string output_pref );
28	use Koha::DateUtils;
29	use Koha::Database;	28	use Koha::Database;
30	use Koha::BiblioFrameworks;	29	use Koha::BiblioFrameworks;
31		30




use Modern::Perl;

use CGI qw ( -utf8 );
use Date::Calc qw/Today Add_Delta_YM/;
use POSIX qw( ceil );

use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Acquisition qw/GetOrdersByBiblionumber/;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Baskets;

my $input = CGI->new;




use C4::Output qw( output_html_with_http_headers );
use C4::Circulation qw( barcodedecode updateWrongTransfer GetBranchItemRule AddReturn LostItem );
use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
use C4::Biblio;
use C4::Circulation qw( barcodedecode updateWrongTransfer GetBranchItemRule AddReturn LostItem );
use C4::Context;
use C4::Items qw( ModItemTransfer );
use C4::Koha;   # FIXME : is it still useful ?
use C4::Members::Messaging;
use C4::Members;
use C4::Output qw( output_html_with_http_headers );

use Koha::BiblioFrameworks;
use Koha::Calendar;
use Koha::Checkouts;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Holds;
use Koha::Items;
use Koha::Item::Transfers;

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/circ/set-library.pl (-1 lines)
23	use C4::Context;	23	use C4::Context;
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user get_session );	25	use C4::Auth qw( get_template_and_user get_session );
26	use C4::Koha;
27	use Koha::BiblioFrameworks;	26	use Koha::BiblioFrameworks;
28	use Koha::Cash::Registers;	27	use Koha::Cash::Registers;
29	use Koha::Libraries;	28	use Koha::Libraries;

Lines 23-29 use C4::Context; Link Here

(-)a/circ/transfers_to_send.pl (-1 / +1 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25		25
26	use Koha::DateUtils;	26	use Koha::DateUtils qw( dt_from_string );
27		27
28	my $input = CGI->new;	28	my $input = CGI->new;
29	my $itemnumber = $input->param('itemnumber');	29	my $itemnumber = $input->param('itemnumber');




use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::Circulation qw( GetTransfers GetTransfersFromTo );
use C4::Members;
use Date::Calc qw( Add_Delta_Days Date_to_Days Today );
  Today
  Add_Delta_Days
  Date_to_Days
);

use C4::Koha;
use C4::Reserves;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::BiblioFrameworks;
use Koha::Patrons;


Lines 26-33 use Modern::Perl; Link Here

(-)a/circ/view_holdsqueue.pl (-2 lines)
26	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
27	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29	use C4::Biblio;
30	use C4::Items;
31	use C4::HoldsQueue qw( GetHoldsQueueItems );	29	use C4::HoldsQueue qw( GetHoldsQueueItems );
32	use Koha::BiblioFrameworks;	30	use Koha::BiblioFrameworks;
33	use Koha::ItemTypes;	31	use Koha::ItemTypes;




use C4::Auth qw( get_template_and_user );
use C4::Circulation;
use C4::Members;
use C4::Items qw( ModItemTransfer );
use Date::Calc qw( Date_to_Days Today );
use Date::Calc qw(
  Today
  Add_Delta_Days
  Date_to_Days
);
use C4::Reserves qw( ModReserve ModReserveCancelAll );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::DateUtils;
use Koha::BiblioFrameworks;
use Koha::Items;
use Koha::ItemTypes;

Lines 29-35 use CGI qw ( -utf8 ); Link Here

(-)a/circ/ysearch.pl (-1 / +1 lines)
29	use C4::Context;	29	use C4::Context;
30	use C4::Auth qw( check_cookie_auth );	30	use C4::Auth qw( check_cookie_auth );
31	use Koha::Patrons;	31	use Koha::Patrons;
32	use Koha::DateUtils qw/format_sqldatetime/;	32	use Koha::DateUtils qw( format_sqldatetime );
33		33
34	use JSON qw( to_json );	34	use JSON qw( to_json );
35		35

Lines 19-25 Link Here

(-)a/clubs/club-enrollments.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );





use Modern::Perl;

use CGI ();

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Clubs;
use Koha::Club::Fields;


Lines 19-25 Link Here

(-)a/clubs/clubs.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );

Lines 19-25 Link Here

(-)a/clubs/patron-clubs-tab.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );

Lines 19-25 Link Here

(-)a/clubs/patron-enroll.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );





use Modern::Perl;

use CGI ();

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

use Koha::DateUtils qw( dt_from_string );
use Koha::Club::Templates;
use Koha::Club::Template::Fields;
use Koha::Club::Template::EnrollmentFields;

Lines 25-31 use CGI qw ( -utf8 ); Link Here

(-)a/course_reserves/add_items.pl (-1 lines)
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha qw( GetAuthorisedValues );	27	use C4::Koha qw( GetAuthorisedValues );
28	use C4::Biblio;
29	use Koha::Items;	28	use Koha::Items;
30		29
31	use C4::CourseReserves qw( GetCourse GetCourseReserve ModCourse ModCourseItem ModCourseReserve );	30	use C4::CourseReserves qw( GetCourse GetCourseReserve ModCourse ModCourseItem ModCourseReserve );

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/course_reserves/course-details.pl (-1 lines)
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha;
28		27
29	use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves );	28	use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves );
30		29

Lines 28-34 Link Here

(-)a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl (-1 / +1 lines)
28	use Modern::Perl;	28	use Modern::Perl;
29	use CGI qw ( -utf8 );	29	use CGI qw ( -utf8 );
30	use Authen::CAS::Client;	30	use Authen::CAS::Client;
31	use Storable qw(nstore_fd);	31	use Storable qw( nstore_fd );
32		32
33	my $casServerUrl = 'https://localhost:8443/cas/';	33	my $casServerUrl = 'https://localhost:8443/cas/';
34	my $cas = Authen::CAS::Client->new($casServerUrl);	34	my $cas = Authen::CAS::Client->new($casServerUrl);

Lines 33-41 This PGTIOU will allow us to retrive the matching PGTID Link Here

(-)a/docs/CAS/CASProxy/examples/proxy_cas_data.pl (-3 / +2 lines)
33	use Modern::Perl;	33	use Modern::Perl;
34	use CGI qw ( -utf8 );	34	use CGI qw ( -utf8 );
35	use Authen::CAS::Client;	35	use Authen::CAS::Client;
36	use Storable qw(fd_retrieve);	36	use Storable qw( fd_retrieve );
37	use LWP::Simple;	37	use LWP::Simple qw( get );
38	use URI::Escape;
39		38
40	my $casServerUrl = 'https://localhost:8443/cas/';	39	my $casServerUrl = 'https://localhost:8443/cas/';
41	my $cas = Authen::CAS::Client->new($casServerUrl);	40	my $cas = Authen::CAS::Client->new($casServerUrl);

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/errors/400.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 20-26 use CGI qw ( -utf8 ); Link Here

(-)a/errors/401.pl (-1 / +1 lines)
20	use C4::Auth qw( get_template_and_user );	20	use C4::Auth qw( get_template_and_user );
21	use C4::Output qw( output_with_http_headers );	21	use C4::Output qw( output_with_http_headers );
22	use C4::Context;	22	use C4::Context;
23	use List::MoreUtils qw(any);	23	use List::MoreUtils qw( any );
24		24
25	my $query = CGI->new;	25	my $query = CGI->new;
26	my $admin = C4::Context->preference('KohaAdminEmailAddress');	26	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/errors/402.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/errors/403.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/errors/404.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/errors/500.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');





use Modern::Perl;

use CGI ();

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

use Koha::Libraries;
use Koha::Token;

use Try::Tiny qw( catch try );
use URI::Escape qw( uri_escape_utf8 );
use JSON qw( encode_json );

our $cgi = CGI->new;
my $illRequests = Koha::Illrequests->new;




use Modern::Perl;

# CPAN modules
use DBI;
use Getopt::Long;

# Koha modules
use C4::Context;
use Data::Dumper qw( Dumper );
use Data::Dumper;

my $dbh = C4::Context->dbh;


Lines 22-32 use Modern::Perl; Link Here

(-)a/installer/data/mysql/fix_unclosed_nonaccruing_fines_bug17135.pl (-3 / +3 lines)
22		22
23	use C4::Context;	23	use C4::Context;
24	use C4::Overdues qw/CalcFine/;	24	use C4::Overdues qw/CalcFine/;
25	use C4::Log qw/logaction/;	25	use C4::Log qw( logaction );
26		26
27	use Koha::DateUtils;	27	use Koha::DateUtils qw( dt_from_string output_pref );
28	use Koha::Patrons;	28	use Koha::Patrons;
29	use Getopt::Long;	29	use Getopt::Long qw( GetOptions );
30		30
31	my ($help, $verbose, $confirm, $log, $stdout_log);	31	my ($help, $verbose, $confirm, $log, $stdout_log);
32		32




use strict;

# CPAN modules
use Getopt::Long qw( GetOptions );
use Getopt::Long;
# Koha modules
use C4::Context;

use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );
 
# FIXME - The user might be installing a new database, so can't rely




use feature 'say';

# CPAN modules
use Getopt::Long qw( GetOptions );
use Getopt::Long;
# Koha modules
use C4::Context;
use C4::Installer qw(
    column_exists
    foreign_key_exists
    index_exists
    TableExists
);
use Koha::Database;
use Koha;
use Koha::DateUtils qw( dt_from_string output_pref );

use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );

use File::Path qw( remove_tree ); # perl core module
use File::Slurp qw( read_file );

# FIXME - The user might be installing a new database, so can't rely
# on /etc/koha.conf anyway.

    push @gstrates, split ('\|', $gist_syspref);
    # we want to compare integer (or float)
    $_ = $_ + 0 for @gstrates;
    use List::MoreUtils qw( uniq );
    # remove duplicate values
    @gstrates = uniq sort @gstrates;
    my $new_syspref_value = join '|', @gstrates;




#!/usr/bin/perl

use Modern::Perl;
use Carp qw( croak );
use Data::Dumper;

use Getopt::Long qw( GetOptions );
use File::Copy qw( copy );
use File::Copy;

my $help_msg = <<EOH;
This script does a first-cut conversion of koha HTML::Template template files (.tmpl).





use C4::InstallAuth qw( get_template_and_user );
use CGI qw ( -utf8 );
use POSIX ();

use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
use C4::Languages qw( getAllLanguages getTranslatedLanguages );
use C4::Installer ();
use C4::Installer::PerlModules;

use Koha;

Lines 26-32 use C4::Members qw( checkcardnumber ); Link Here

(-)a/installer/onboarding.pl (-1 / +1 lines)
26	use Koha::Patrons;	26	use Koha::Patrons;
27	use Koha::Libraries;	27	use Koha::Libraries;
28	use Koha::Database;	28	use Koha::Database;
29	use Koha::DateUtils;	29	use Koha::DateUtils qw( dt_from_string output_pref );
30	use Koha::Patrons;	30	use Koha::Patrons;
31	use Koha::Patron::Categories;	31	use Koha::Patron::Categories;
32	use Koha::ItemTypes;	32	use Koha::ItemTypes;

Lines 1-9 Link Here

(-)a/koha_perl_deps.pl (-4 / +3 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	use Getopt::Long;	3	use Getopt::Long qw( GetOptions );
4	use Pod::Usage;	4	use Pod::Usage qw( pod2usage );
5	use Term::ANSIColor;	5	use Term::ANSIColor qw( color );
6	use FindBin; # we need to enforce which C4::Installer is used in case more than one is installed
7		6
8	use lib $FindBin::Bin;	7	use lib $FindBin::Bin;
9		8

Lines 21-28 Link Here

(-)a/labels/label-create-csv.pl (-2 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use Text::CSV_XS;	24	use Text::CSV_XS ();
25	use Data::Dumper;
26		25
27	use C4::Creators;	26	use C4::Creators;
28	use C4::Labels;	27	use C4::Labels;

Lines 22-28 use Modern::Perl; Link Here

(-)a/labels/label-create-pdf.pl (-1 / +1 lines)
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Creators;	25	use C4::Creators ();
26	use C4::Labels;	26	use C4::Labels;
27		27
28	my $cgi = CGI->new;	28	my $cgi = CGI->new;

Lines 21-30 Link Here

(-)a/labels/label-create-xml.pl (-3 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use XML::Simple;	24	use XML::Simple ();
25	use Data::Dumper;
26		25
27	use C4::Creators;
28	use C4::Labels;	26	use C4::Labels;
29		27
30	my $cgi = CGI->new;	28	my $cgi = CGI->new;

Lines 25-31 use CGI qw ( -utf8 ); Link Here

(-)a/labels/label-edit-batch.pl (-1 / +1 lines)
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
28	use C4::Creators;	28	use C4::Creators qw( get_label_summary html_table );
29	use C4::Labels;	29	use C4::Labels;
30		30
31	use Koha::Items;	31	use Koha::Items;




use Modern::Perl;

use CGI qw ( -utf8 );
use POSIX qw( exit sprintf );

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Creators qw(
    get_barcode_types
    get_font_types
    get_label_types
    get_text_justification_types
);
use C4::Labels;

my $cgi = CGI->new;

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/labels/label-edit-profile.pl (-1 / +1 lines)
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Creators;	27	use C4::Creators qw( get_all_templates get_unit_values );
28	use C4::Labels;	28	use C4::Labels;
29		29
30	my $cgi = CGI->new;	30	my $cgi = CGI->new;

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/labels/label-edit-template.pl (-1 / +1 lines)
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Creators;	27	use C4::Creators qw( get_all_profiles get_unit_values );
28	use C4::Labels;	28	use C4::Labels;
29		29
30	my $cgi = CGI->new;	30	my $cgi = CGI->new;




use Modern::Perl;

use CGI qw ( -utf8 );
use POSIX qw( ceil );
use POSIX qw(ceil);

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Search qw( new_record_from_zebra );
use C4::Biblio qw( TransformMarcToKoha );
use C4::Creators::Lib qw( html_table );

use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::DateUtils;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Logger;
use Koha::SearchEngine::Search;

my $query = CGI->new;




use vars qw($debug);

use CGI qw ( -utf8 );
use Data::Dumper;

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Creators qw(
    get_all_layouts
    get_all_profiles
    get_all_templates
    get_batch_summary
    html_table
);
use C4::Labels;

my $cgi = CGI->new;




use Modern::Perl;

use CGI qw ( -utf8 );
use Data::Dumper;

use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Creators::Lib qw(
    get_all_layouts
    get_all_templates
    get_output_formats
);
use C4::Labels::Batch;

my $cgi = CGI->new;

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

(-)a/mainpage.pl (-2 / +1 lines)
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Koha;	26	use C4::NewsChannels qw( GetNewsToDisplay ); # GetNewsToDisplay
27	use C4::NewsChannels; # GetNewsToDisplay
28	use C4::Tags qw( get_count_by_tag_status );	27	use C4::Tags qw( get_count_by_tag_status );
29	use Koha::Patron::Modifications;	28	use Koha::Patron::Modifications;
30	use Koha::Patron::Discharge;	29	use Koha::Patron::Discharge;

Lines 19-25 Link Here

(-)a/members/apikeys.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_and_exit output_html_with_http_headers );	25	use C4::Output qw( output_and_exit output_html_with_http_headers );




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

use Modern::Perl;
use URI::Escape qw( uri_unescape );

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use Koha::Cash::Registers;
use Koha::Patrons;
use Koha::Patron::Categories;

Lines 17-23 Link Here

(-)a/members/cancel-charge.pl (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI;	20	use CGI ();
21		21
22	use C4::Auth qw( checkauth );	22	use C4::Auth qw( checkauth );
23	use Koha::Token;	23	use Koha::Token;





use CGI qw ( -utf8 );

use Try::Tiny qw( catch try );

use C4::Context;
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Auth qw( get_template_and_user haspermission );
use C4::Members;
use C4::Suggestions qw( SearchSuggestion );
use Koha::Patrons;
use Koha::Token;




=cut

use Modern::Perl;
use Carp qw( carp );

use CGI qw( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
use C4::Reserves;
use C4::Letters;
use Koha::Patron::Discharge;
use Koha::Patrons;

use Koha::DateUtils;

my $input = CGI->new;


Lines 19-25 Link Here

(-)a/members/discharges.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25	use C4::Context;	25	use C4::Context;

Lines 25-31 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/members/files.pl (-1 lines)
25	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	25	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
26	use C4::Members;	26	use C4::Members;
27		27
28	use Koha::DateUtils;
29	use Koha::Patrons;	28	use Koha::Patrons;
30	use Koha::Patron::Files;	29	use Koha::Patron::Files;
31	use Koha::Patron::Categories;	30	use Koha::Patron::Categories;




=cut

use Modern::Perl;
use CGI ();
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use DateTime;
use Koha::DateUtils qw( dt_from_string );
use Koha::Libraries;
use Koha::Patrons;
use Koha::Patron::Categories;

Lines 29-35 use CGI qw ( -utf8 ); Link Here

(-)a/members/mancredit.pl (-1 lines)
29		29
30	use C4::Members;	30	use C4::Members;
31	use C4::Accounts;	31	use C4::Accounts;
32	use C4::Items;
33		32
34	use Koha::Items;	33	use Koha::Items;
35	use Koha::Patrons;	34	use Koha::Patrons;




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

use Modern::Perl;
use Try::Tiny qw( catch try );

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use C4::Items;
use Koha::Token;

use Koha::Patrons;




use Modern::Perl;

use C4::Auth qw( get_template_and_user );
use Koha::AuthUtils;
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Context;
use C4::Members;
use C4::Circulation;
use CGI qw ( -utf8 );
use Koha::AuthUtils;
use Koha::Token;

use Koha::Patrons;
use Koha::Patron::Categories;

use Try::Tiny qw( catch try );

my $input = CGI->new;


Lines 27-34 use Modern::Perl; Link Here

(-)a/members/member.pl (-2 / +1 lines)
27	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29	use CGI qw( -utf8 );	29	use CGI qw( -utf8 );
30	use Koha::DateUtils;	30	use Koha::List::Patron qw( GetPatronLists );
31	use Koha::List::Patron;
32	use Koha::Patrons;	31	use Koha::Patrons;
33		32
34	my $input = CGI->new;	33	my $input = CGI->new;





# external modules
use CGI qw ( -utf8 );
use List::MoreUtils qw/uniq/;

# internal modules
use C4::Auth qw( get_template_and_user haspermission );

use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers );
use C4::Members qw( checkcardnumber get_cardnumber_length );
use C4::Koha qw( GetAuthorisedValues );
use C4::Log;
use C4::Letters qw( SendAlerts );
use C4::Form::MessagingPreferences;
use Koha::AuthUtils ();
use Koha::AuthorisedValues;
use Koha::Patron::Debarments qw( AddDebarment DelDebarment GetDebarments );
use Koha::Cities;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
use Koha::Patrons;
use Koha::Patron::Attribute::Types;

Lines 25-31 use C4::Context; Link Here

(-)a/members/members-home.pl (-1 / +1 lines)
25	use C4::Members;	25	use C4::Members;
26	use Koha::Patron::Modifications;	26	use Koha::Patron::Modifications;
27	use Koha::Libraries;	27	use Koha::Libraries;
28	use Koha::List::Patron;	28	use Koha::List::Patron qw( GetPatronLists );
29	use Koha::Patron::Categories;	29	use Koha::Patron::Categories;
30		30
31	my $query = CGI->new;	31	my $query = CGI->new;

Lines 19-25 Link Here

(-)a/members/merge-patrons.pl (-1 / +1 lines)
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );

Lines 22-29 use Modern::Perl; Link Here

(-)a/members/mod_debarment.pl (-2 / +2 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw( checkauth );	24	use C4::Auth qw( checkauth );
25	use Koha::DateUtils;	25	use Koha::DateUtils qw( dt_from_string );
26	use Koha::Patron::Debarments;	26	use Koha::Patron::Debarments qw( AddDebarment DelDebarment );
27		27
28	my $cgi = CGI->new;	28	my $cgi = CGI->new;
29		29

Lines 33-43 use C4::Context; Link Here

(-)a/members/moremember.pl (-3 / +2 lines)
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	34	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
35	use C4::Form::MessagingPreferences;	35	use C4::Form::MessagingPreferences;
36	use List::MoreUtils qw/uniq/;	36	use List::MoreUtils qw( uniq );
37	use Koha::Patron::Attribute::Types;	37	use Koha::Patron::Attribute::Types;
38	use Koha::Patron::Debarments qw(GetDebarments);	38	use Koha::Patron::Debarments qw( GetDebarments );
39	use Koha::Patron::Messages;	39	use Koha::Patron::Messages;
40	use Koha::DateUtils;
41	use Koha::CsvProfiles;	40	use Koha::CsvProfiles;
42	use Koha::Patrons;	41	use Koha::Patrons;
43	use Koha::Patron::Files;	42	use Koha::Patron::Files;

Lines 24-30 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/members/notices.pl (-1 / +1 lines)
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use C4::Members;	26	use C4::Members;
27	use C4::Letters qw( GetMessage ResendMessage GetQueuedMessages );	27	use C4::Letters ();
28	use Koha::Patrons;	28	use Koha::Patrons;
29	use Koha::Patron::Categories;	29	use Koha::Patron::Categories;
30		30





use Modern::Perl;

use URI::Escape qw( uri_escape_utf8 uri_unescape );
use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Members;
use C4::Accounts;
use C4::Stats;
use C4::Koha;
use C4::Overdues;
use Koha::Patrons;
use Koha::Items;

use Koha::Patron::Categories;
use URI::Escape qw( uri_escape_utf8 uri_unescape );

our $input = CGI->new;





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

use Modern::Perl;
use URI::Escape qw( uri_escape uri_unescape );
use CGI qw ( -utf8 );

use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
use C4::Accounts;
use C4::Koha;

use Koha::Cash::Registers;
use Koha::Patrons;

use Koha::AuthorisedValues;
use Koha::Account;
use Koha::Token;
use Koha::DateUtils qw( output_pref );

my $input = CGI->new();


Lines 19-25 Link Here

(-)a/members/print_overdues.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );

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

(-)a/members/printfeercpt.pl (-1 / +1 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use C4::Letters qw( GetPreparedLetter );	26	use C4::Letters ();
27	use Koha::Account::Lines;	27	use Koha::Account::Lines;
28		28
29	my $input = CGI->new;	29	my $input = CGI->new;

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

(-)a/members/printinvoice.pl (-1 / +1 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use C4::Letters qw( GetPreparedLetter );	26	use C4::Letters ();
27	use Koha::Account::Lines;	27	use Koha::Account::Lines;
28		28
29	my $input = CGI->new;	29	my $input = CGI->new;

Lines 38-45 use C4::Context; Link Here

(-)a/members/printslip.pl (-2 lines)
38	use C4::Auth qw( get_session get_template_and_user );	38	use C4::Auth qw( get_session get_template_and_user );
39	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	39	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
40	use C4::Members qw( IssueSlip );	40	use C4::Members qw( IssueSlip );
41	use C4::Koha;
42	use Koha::DateUtils;
43		41
44	#use Smart::Comments;	42	#use Smart::Comments;
45	#use Data::Dumper;	43	#use Data::Dumper;

Lines 27-34 use CGI qw ( -utf8 ); Link Here

(-)a/members/readingrec.pl (-2 / +2 lines)
27	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
28	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	28	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
29	use C4::Members qw( GetAllIssues );	29	use C4::Members qw( GetAllIssues );
30	use List::MoreUtils qw/any uniq/;	30	use List::MoreUtils qw( uniq );
31	use Koha::DateUtils;	31	use Koha::DateUtils qw( dt_from_string );
32		32
33	use Koha::Patrons;	33	use Koha::Patrons;
34	use Koha::Patron::Categories;	34	use Koha::Patron::Categories;

Lines 28-34 use Modern::Perl; Link Here

(-)a/members/setstatus.pl (-1 lines)
28	use CGI qw ( -utf8 );	28	use CGI qw ( -utf8 );
29	use C4::Context;	29	use C4::Context;
30	use C4::Members;	30	use C4::Members;
31	use C4::Auth qw( checkauth );
32	use Koha::Patrons;	31	use Koha::Patrons;
33		32
34		33

Lines 28-34 use CGI qw ( -utf8 ); Link Here

(-)a/members/statistics.pl (-1 / +5 lines)
28	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
29	use C4::Context;	29	use C4::Context;
30	use C4::Members;	30	use C4::Members;
31	use C4::Members::Statistics qw( get_fields GetPrecedentStateByBorrower GetTotalIssuesTodayByBorrower GetTotalIssuesReturnedTodayByBorrower );	31	use C4::Members::Statistics qw(
		32	GetPrecedentStateByBorrower
		33	GetTotalIssuesReturnedTodayByBorrower
		34	GetTotalIssuesTodayByBorrower
		35	);
32	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	36	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
33	use Koha::Patrons;	37	use Koha::Patrons;
34	use Koha::Patron::Categories;	38	use Koha::Patron::Categories;





use Modern::Perl;

use CGI ();

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
use C4::Members;
use C4::Circulation qw( GetIssuingCharges );
use C4::Reserves;
use Koha::DateUtils qw( dt_from_string );
use Koha::DateUtils;
use Koha::Holds;
use Koha::ItemTypes;
use Koha::Patrons;




use Modern::Perl;

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

use Koha::Script;

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

use C4::Biblio ();
use Koha::DateUtils qw( dt_from_string );

my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field );

Lines 19-28 Link Here

(-)a/misc/admin/set_password.pl (-4 / +4 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Bytes::Random::Secure;	22	use Bytes::Random::Secure ();
23	use Getopt::Long;	23	use Getopt::Long qw( GetOptions );
24	use Pod::Usage;	24	use Pod::Usage qw( pod2usage );
25	use String::Random;	25	use String::Random ();
26		26
27	use Koha::Patrons;	27	use Koha::Patrons;
28	use Koha::Script;	28	use Koha::Script;

Lines 16-23 Link Here

(-)a/misc/background_jobs_worker.pl (-2 / +2 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use JSON qw( encode_json decode_json );	19	use JSON qw( decode_json );
20	use Try::Tiny;	20	use Try::Tiny qw( catch try );
21		21
22	use Koha::BackgroundJobs;	22	use Koha::BackgroundJobs;
23		23




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

# Koha modules used
use Koha::Script;
use C4::Context;
use MARC::File::USMARC;
use MARC::Record;
use MARC::Batch;

use Getopt::Long qw( GetOptions );
use IO::File ();

my ( $input_marc_file,$number,$nowarning,$frameworkcode) = ('',0);
my $version;




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

# Koha modules used
use Koha::Script;
use MARC::Record;
use C4::Context;
use C4::Biblio qw( GetMarcStructure );
use Time::HiRes qw( gettimeofday );

use Getopt::Long qw( GetOptions );
my ( $input_marc_file, $number) = ('',0);
my ($version, $confirm,$test_parameter);
GetOptions(




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

# Koha modules used

use Koha::Script;
use C4::Context;
use C4::Biblio qw( GetMarcFromKohaField );
use MARC::Record;
use MARC::File::USMARC;
use MARC::File::XML;
use MARC::Batch;
use Time::HiRes qw( gettimeofday );
use Getopt::Long qw( GetOptions );
use IO::File ();

my  $input_marc_file = '';
my ($version);




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

# Koha modules used
use Koha::Script;
use MARC::Record ();
use C4::Charset ();
use C4::Context;
use C4::Biblio qw(
    _koha_modify_biblio
    _koha_modify_biblioitem_nonmarc
    GetXmlBiblio
    TransformMarcToKoha
);
use Time::HiRes qw( gettimeofday );

use Getopt::Long qw( GetOptions );

my ($version, $confirm);
GetOptions(





use Modern::Perl;

use Getopt::Long qw( GetOptions );
use MARC::Field;
use MARC::Record ();
use Pod::Usage qw( pod2usage );
use Time::HiRes qw( gettimeofday );

use Koha::Script;
use C4::Context;
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField );
use C4::Items qw( ModItemFromMarc );

=head1 NAME





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

# Koha modules used
use Koha::Script;
use C4::Context;
use C4::Biblio qw( _koha_marc_update_bib_ids GetMarcBiblio ModBiblioMarc );


my $dbh = C4::Context->dbh;

Lines 1-9 Link Here

(-)a/misc/batchdeletebiblios.pl (-3 / +2 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use Getopt::Long;	4	use Getopt::Long qw( GetOptions );
5	use Pod::Usage;	5	use Pod::Usage qw( pod2usage );
6	use IO::File;
7		6
8	use Koha::Script;	7	use Koha::Script;
9	use C4::Biblio qw( DelBiblio );	8	use C4::Biblio qw( DelBiblio );




use strict;
use warnings;

use Getopt::Long qw( GetOptions );

my ($help, $config, $daemon);


{
package ImportProxyServer;

use Carp qw( croak );
use IO::Socket::INET qw( SOCK_STREAM );
# use IO::Socket::IP;
use IO::Select;
use POSIX qw( close exit fork localtime open printf sprintf );
use HTTP::Status qw(:constants);
use strict;
use warnings;

use LWP::UserAgent ();
use XML::Simple qw( XMLin );
use MARC::Record ();
use MARC::File::XML;

use constant CLIENT_READ_TIMEOUT     => 5;

Lines 8-14 Link Here

(-)a/misc/check_sysprefs.pl (-1 / +1 lines)
8	use strict;	8	use strict;
9	use warnings;	9	use warnings;
10		10
11	use File::Find;	11	use File::Find qw( find );
12		12
13	use Koha::Script;	13	use Koha::Script;
14	use C4::Context;	14	use C4::Context;




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

use Koha::Script;
use C4::Context;
use C4::ImportBatch qw( GetImportBatch sub BatchCommitRecords BatchRevertRecords );
use Getopt::Long qw( GetOptions );

$| = 1;






use strict;
use warnings;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Data::Dumper;
BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
        eval { require "$FindBin::Bin/../kohalib.pl" };
    eval { require "$FindBin::Bin/../kohalib.pl" };
}
use Koha::Script -cron;
use C4::Biblio;
use C4::Context;
use C4::Letters qw( get_item_content EnqueueLetter GetPreparedLetter );
use C4::Members;
use C4::Members::Messaging;
use C4::Overdues;
use C4::Log qw( cronlogaction );
use C4::Log;
use Koha::Items;
use Koha::Libraries;
use Koha::Patrons;

Lines 2-9 Link Here

(-)a/misc/cronjobs/archive_purchase_suggestions.pl (-2 / +2 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use Pod::Usage;	5	use Pod::Usage qw( pod2usage );
6	use Getopt::Long;	6	use Getopt::Long qw( GetOptions );
7		7
8	use Koha::Script -cron;	8	use Koha::Script -cron;
9		9

Lines 20-26 Link Here

(-)a/misc/cronjobs/automatic_checkin.pl (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use Koha::Checkouts;	21	use Koha::Checkouts;
22	use Koha::Script -cron;	22	use Koha::Script -cron;
23	use C4::Log;	23	use C4::Log qw( cronlogaction );
24		24
25	cronlogaction();	25	cronlogaction();
26		26





use Modern::Perl;

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

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

# Getting options
my ( $verbose, $help, $confirm );




=cut

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

use Koha::Script -cron;
use C4::Circulation qw( CanBookBeRenewed AddRenewal );
use C4::Context;
use C4::Log qw( cronlogaction );
use C4::Letters ();
use Koha::Checkouts;
use Koha::Libraries;
use Koha::Patrons;





use strict;
use warnings;
use Carp;

BEGIN {

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

use Koha::Script -cron;
use C4::Context;
use Koha::Patrons;
use Date::Calc qw( Add_Delta_Days Today );
use Getopt::Long qw( GetOptions );
use C4::Log qw( cronlogaction );
);
use Getopt::Long;
use C4::Log;

sub usage {
    print STDERR <<USAGE;




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

use Koha::Script -cron;
use C4::Koha;
use C4::Context;
use C4::Biblio qw( GetMarcBiblio );
use Time::HiRes qw( gettimeofday );
use Time::HiRes qw(gettimeofday);
use ZOOM;
use MARC::File::USMARC;
use Getopt::Long qw( GetOptions );
use C4::Log qw( cronlogaction );

my ( $input_marc_file, $number) = ('',0);
my ($version, $confirm,$field,$batch,$max_digits,$cloud_tag);





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

BEGIN {

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

my $hours = 0;





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

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

use Koha::Script -cron;
use C4::Context;
use C4::Biblio qw( GetMarcBiblio );
use AnyEvent;
use AnyEvent::HTTP qw( http_request );
use Encode qw( encode_utf8 );

my ( $verbose, $help, $html ) = ( 0, 0, 0 );
my ( $host,    $host_intranet ) = ( '', '' );




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

use Koha::Script -cron;
use C4::Context;
use C4::Search;
use C4::Search::History;
use Getopt::Long qw( GetOptions );
use C4::Log qw( cronlogaction );
use C4::Accounts qw( purge_zero_balance_fees );
use Koha::UploadedFiles;
use Koha::Old::Biblios;
use Koha::Old::Items;




use strict;
use warnings;
use diagnostics;
use Carp qw( carp croak );
use YAML::XS ();
use Pod::Usage qw( pod2usage );
use Getopt::Long qw( GetOptions );

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

my $verbose     = 0;
my $help        = 0;

use strict;
use warnings;
use diagnostics;
use Carp qw( carp croak );

sub new {
    my $self = {};

Lines 91-99 use warnings; Link Here

(-)a/misc/cronjobs/create_koc_db.pl (-3 / +3 lines)
91		91
92	$\|++;	92	$\|++;
93		93
94	use DBI;	94	use DBI ();
95	use Getopt::Long;	95	use Getopt::Long qw( GetOptions );
96	use Pod::Usage;	96	use Pod::Usage qw( pod2usage );
97		97
98	use Koha::Script -cron;	98	use Koha::Script -cron;
99	use C4::Context;	99	use C4::Context;




#! /usr/bin/perl

use Getopt::Long qw( GetOptions );

use Koha::Script -cron;
use C4::Context;
use C4::Items qw( sub );
use C4::Circulation;
use Modern::Perl;
use Pod::Usage qw( pod2usage );

my $dbh = C4::Context->dbh();






use Modern::Perl;

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

use Koha::Script -cron;
use C4::Members qw( GetBorrowersToExpunge );
use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use C4::Log qw( cronlogaction );

my ( $help, $verbose, $not_borrowed_since, $expired_before, $last_seen,
    @category_code, $branchcode, $file, $confirm );





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

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Koha::Script -cron;
use C4::Biblio qw( DelBiblio );
use C4::Items;
use Koha::Database;
use Koha::Biblios;
use Koha::Biblio::Metadatas;




use Koha::Script -cron;
use C4::Context;
use C4::Overdues qw( Getoverdues CalcFine UpdateFine );
use Getopt::Long qw( GetOptions );
use Carp qw( carp croak );
use File::Spec ();
use Try::Tiny qw( catch try );

use Koha::Calendar;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use C4::Log qw( cronlogaction );

my $help;
my $verbose;




BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
        eval { require "$FindBin::Bin/../kohalib.pl" };
    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 C4::Letters qw( GetPrintMessages _set_message_status );
use C4::Templates;
use File::Spec ();
use Pod::Usage qw( pod2usage );
use Getopt::Long qw( GetOptions );
use C4::Log qw( cronlogaction );

use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Util::OpenDocument qw( generate_ods );
use MIME::Lite;

my (




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

# cancel all expired hold requests

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

cronlogaction();





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

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

cronlogaction();





=cut

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

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

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

=head1 OPTIONS





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

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

use Koha::Script -cron;
use C4::Reserves;
use C4::Log qw( cronlogaction );
use Koha::Holds;
use Koha::Calendar;
use Koha::DateUtils;
use Koha::Libraries;

cronlogaction();





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

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

use C4::Context;
use C4::Letters ();
use C4::Log qw( cronlogaction );
use Koha::DateUtils qw( dt_from_string );
use Koha::Calendar;
use Koha::Libraries;
use Koha::Notice::Templates;





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

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





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

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

use C4::Circulation qw( LostItem MarkIssueReturned );
use C4::Context;
use C4::Log qw( cronlogaction );
use C4::Log;
use Koha::ItemTypes;
use Koha::Patron::Categories;
use Koha::Patrons;




=cut

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

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

use Koha::Patrons;


Lines 1-9 Link Here

(-)a/misc/cronjobs/merge_authorities.pl (-3 / +3 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use Getopt::Long;	4	use Getopt::Long qw( GetOptions );
5	use Pod::Usage;	5	use Pod::Usage qw( pod2usage );
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;

Lines 2-9 Link Here

(-)a/misc/cronjobs/notice_unprocessed_suggestions.pl (-2 / +2 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use Pod::Usage;	5	use Pod::Usage qw( pod2usage );
6	use Getopt::Long;	6	use Getopt::Long qw( GetOptions );
7		7
8	use Koha::Script -cron;	8	use Koha::Script -cron;
9	use C4::Budgets qw( GetBudget );	9	use C4::Budgets qw( GetBudget );





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

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

use Koha::Script -cron;
use C4::Context;
use C4::Letters ();
use C4::Overdues qw( GetOverdueMessageTransportTypes parse_overdues_letter );
use C4::Log qw( cronlogaction );
use Koha::Patron::Debarments qw( AddUniqueDebarment );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Calendar;
use Koha::Libraries;
use Koha::Acquisition::Currencies;




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

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

use C4::Log qw( cronlogaction );
use C4::Reports::Guided qw( EmailReport );

cronlogaction();

Lines 2-11 Link Here

(-)a/misc/cronjobs/plugins_nightly.pl (-2 / +2 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use Try::Tiny;	5	use Try::Tiny qw( catch try );
6		6
7	use C4::Context;	7	use C4::Context;
8	use C4::Log;	8	use C4::Log qw( cronlogaction );
9	use Koha::Logger;	9	use Koha::Logger;
10	use Koha::Plugins;	10	use Koha::Plugins;
11	use Koha::Script -cron;	11	use Koha::Script -cron;




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

use Koha::Script -cron;
use C4::Letters qw( SendQueuedMessages );
use C4::Log qw( cronlogaction );
use Getopt::Long qw( GetOptions );
use Try::Tiny qw( catch try );

my $username = undef;
my $password = undef;




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

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

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

my ( $help, $days, $confirm );





use Modern::Perl;

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

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

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

use Koha::Account::Lines;
use Koha::Patrons;

Lines 31-38 use Template; Link Here

(-)a/misc/cronjobs/rss/rss.pl (-2 / +1 lines)
31		31
32	use Koha::Script -cron;	32	use Koha::Script -cron;
33	use C4::Context;	33	use C4::Context;
34	use Time::Local;	34	use POSIX qw( close localtime open strftime );
35	use POSIX;
36		35
37	my $dbh = C4::Context->dbh;	36	my $dbh = C4::Context->dbh;
38	my $file = $ARGV[0];	37	my $file = $ARGV[0];




use C4::Reports::Guided qw( store_results execute_query );
use Koha::Reports;
use C4::Context;
use C4::Log qw( cronlogaction );
use Koha::Email;
use Koha::DateUtils qw( dt_from_string );
use Koha::SMTP::Servers;

use Getopt::Long qw(:config auto_help auto_version);
use Pod::Usage qw( pod2usage );
use Text::CSV::Encoded;
use CGI qw ( -utf8 );
use Carp qw( carp );
use Encode qw( decode );
use JSON qw( to_json );
use Try::Tiny qw( catch try );

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

=head1 NAME





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

use Koha::Script -cron;
use C4::Context;
use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );
use C4::Log qw( cronlogaction );
use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );

use Date::Calc qw( check_date Date_to_Days );
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );

=head1 NAME






use Modern::Perl;

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

use Koha::Script -cron;
use C4::Context;
use C4::UsageStats;
use C4::Log qw( cronlogaction );
use POSIX qw( strftime );

my ( $help, $verbose, $force, $quiet );
GetOptions(





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

use Koha::Script -cron;
use Koha::Sitemapper ();
use Koha::Sitemapper;


my ($verbose, $help, $url, $dir, $short) = (0, 0, '', '.', 1);





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

use Date::Calc qw( Date_to_Days );

use Koha::Script -cron;
use C4::Context;
use C4::Circulation;
use C4::Overdues qw( CalcFine checkoverdues GetFine Getoverdues );
use C4::Calendar qw();    # don't need any exports from Calendar
use C4::Log qw( cronlogaction );
use Getopt::Long qw( GetOptions );
use List::MoreUtils qw( none );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::DateUtils;
use Koha::Patrons;

my $help    = 0;





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

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

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





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

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

use Koha::Script -cron;
use C4::Context;
use C4::Letters ();
use C4::Letters;
use C4::Overdues;
use Koha::Calendar;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Libraries;





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

use C4::Context;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Koha::Logger;
use Koha::Patrons;
use Koha::Patron::Categories;
use Koha::DateUtils qw( dt_from_string );
use Koha::Script -cron;

=head1 NAME





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

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

use Koha::Script -cron;
use Koha::DateUtils qw( dt_from_string );
use C4::Context;
use C4::Biblio qw( UpdateTotalIssues );
use C4::Log qw( cronlogaction );
use DateTime;
use DateTime::Format::MySQL;
use Time::HiRes qw( time );
use POSIX qw( ceil strftime );

sub usage {
    pod2usage( -verbose => 2 );

Lines 3-13 Link Here

(-)a/misc/cronjobs/writeoff_debts.pl (-3 / +3 lines)
3	use Modern::Perl;	3	use Modern::Perl;
4	use feature 'say';	4	use feature 'say';
5		5
6	use Getopt::Long;	6	use Getopt::Long qw( GetOptions );
7	use Pod::Usage;	7	use Pod::Usage qw( pod2usage );
8		8
9	use Koha::Account::Lines;	9	use Koha::Account::Lines;
10	use Koha::DateUtils;	10	use Koha::DateUtils qw( dt_from_string );
11		11
12	use Koha::Script -cron;	12	use Koha::Script -cron;
13		13

Lines 2-10 Link Here

(-)a/misc/devel/add_missing_filters.pl (-3 / +3 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use File::Slurp;	5	use File::Slurp qw( read_file write_file );
6	use Pod::Usage;	6	use Pod::Usage qw( pod2usage );
7	use Getopt::Long;	7	use Getopt::Long qw( GetOptions );
8		8
9	use t::lib::QA::TemplateFilters;	9	use t::lib::QA::TemplateFilters;
10		10

Lines 48-56 prints this help text Link Here

(-)a/misc/devel/coverage.pl (-3 / +3 lines)
48	use Modern::Perl;	48	use Modern::Perl;
49		49
50	use C4::Context;	50	use C4::Context;
51	use Cwd;	51	use Cwd qw( getcwd );
52	use Getopt::Long;	52	use Getopt::Long qw( GetOptions );
53	use Pod::Usage;	53	use Pod::Usage qw( pod2usage );
54		54
55	my $help;	55	my $help;
56		56

Lines 18-25 Link Here

(-)a/misc/devel/create_superlibrarian.pl (-2 / +2 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Getopt::Long;	21	use Getopt::Long qw( GetOptions );
22	use Pod::Usage;	22	use Pod::Usage qw( pod2usage );
23		23
24	use Koha::Script;	24	use Koha::Script;
25	use Koha::Patrons;	25	use Koha::Patrons;

Lines 69-77 documentation of GetPreparedLetter for more informations. Link Here

(-)a/misc/devel/get_prepared_letter.pl (-3 / +3 lines)
69		69
70	use Modern::Perl;	70	use Modern::Perl;
71		71
72	use Getopt::Long;	72	use Getopt::Long qw( GetOptions );
73	use JSON;	73	use JSON qw( decode_json );
74	use Pod::Usage;	74	use Pod::Usage qw( pod2usage );
75		75
76	use C4::Letters qw( GetPreparedLetter );	76	use C4::Letters qw( GetPreparedLetter );
77		77

Lines 18-25 Link Here

(-)a/misc/devel/install_plugins.pl (-2 / +2 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Getopt::Long;	21	use Getopt::Long qw( GetOptions );
22	use Pod::Usage;	22	use Pod::Usage qw( pod2usage );
23		23
24	use Koha::Script;	24	use Koha::Script;
25		25

Lines 21-28 Link Here

(-)a/misc/devel/update_dbix_class_files.pl (-2 / +2 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use DBIx::Class::Schema::Loader qw/ make_schema_at /;	22	use DBIx::Class::Schema::Loader qw/ make_schema_at /;
23		23
24	use Getopt::Long;	24	use Getopt::Long qw( GetOptions );
25	use Pod::Usage;	25	use Pod::Usage qw( pod2usage );
26		26
27	my %db_defaults = (	27	my %db_defaults = (
28	driver => 'mysql',	28	driver => 'mysql',

Lines 18-26 Link Here

(-)a/misc/export_records.pl (-3 / +3 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use MARC::File::XML;	20	use MARC::File::XML;
21	use List::MoreUtils qw(uniq);	21	use List::MoreUtils qw( uniq );
22	use Getopt::Long;	22	use Getopt::Long qw( GetOptions );
23	use Pod::Usage;	23	use Pod::Usage qw( pod2usage );
24		24
25	use Koha::Script;	25	use Koha::Script;
26	use C4::Auth;	26	use C4::Auth;




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

use Koha::Script;
use C4::Context;
use C4::Biblio;
use C4::Auth;
my $outfile = $ARGV[0];
open(my $fh, '>', $outfile) or die $!;

Lines 19-29 Link Here

(-)a/misc/import_patrons.pl (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Getopt::Long;	22	use Getopt::Long qw( GetOptions );
23	use Pod::Usage;	23	use Pod::Usage qw( pod2usage );
24		24
25	use Koha::Script;	25	use Koha::Script;
26	use Koha::Patrons::Import;	26	use Koha::Patrons::Import ();
27	my $Import = Koha::Patrons::Import->new();	27	my $Import = Koha::Patrons::Import->new();
28		28
29	my $csv_file;	29	my $csv_file;





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

use Koha::Script;
use C4::Context;
use C4::Biblio qw(
    GetFrameworkCode
    GetMarcBiblio
    LinkBibHeadingsToAuthorities
    ModBiblio
);
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Time::HiRes qw( time );
use POSIX qw( ceil strftime );
use Module::Load::Conditional qw( can_load );

sub usage {
    pod2usage( -verbose => 2 );




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

use HTTPD::Bench::ApacheBench;
use LWP::UserAgent ();
use Data::Dumper;
use HTTP::Cookies;
use C4::Context;





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

use Getopt::Long qw( GetOptions );
use HTTPD::Bench::ApacheBench;
use LWP::UserAgent ();
use Data::Dumper;
use HTTP::Cookies;
use C4::Context;
use URI::Escape qw( uri_escape_utf8 );
use Koha::Patrons;

my ($help, $steps, $baseurl, $max_tries, $user, $password,$short_print);

Lines 15-23 use warnings; Link Here

(-)a/misc/load_testing/benchmark_webservices.pl (-3 / +2 lines)
15	# records/xml/xml-recs.xml = file of 1 marcxml record to post	15	# records/xml/xml-recs.xml = file of 1 marcxml record to post
16	#	16	#
17	# Requires LWP::UserAgent, File::Slurp.	17	# Requires LWP::UserAgent, File::Slurp.
18	use LWP::UserAgent;	18	use LWP::UserAgent ();
19	use File::Slurp qw(slurp);	19	use File::Slurp qw( slurp );
20	use Carp;
21	my $ua = LWP::UserAgent->new();	20	my $ua = LWP::UserAgent->new();
22	$ua->cookie_jar({ file =>"cookies.txt" });	21	$ua->cookie_jar({ file =>"cookies.txt" });
23	my $baseurl = shift;	22	my $baseurl = shift;

Lines 22-28 use Modern::Perl; Link Here

(-)a/misc/load_yaml.pl (-1 / +1 lines)
22	use Koha::Script;	22	use Koha::Script;
23	use Getopt::Long qw(:config no_ignore_case);	23	use Getopt::Long qw(:config no_ignore_case);
24	use C4::Context;	24	use C4::Context;
25	use C4::Installer;	25	use C4::Installer ();
26		26
27	sub print_usage {	27	sub print_usage {
28	( my $basename = $0 ) =~ s\|.*/\|\|;	28	( my $basename = $0 ) =~ s\|.*/\|\|;




use warnings;

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

use Koha::Script;
use C4::Biblio;

sub process {





use warnings;

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

use Koha::Script;
use C4::Biblio qw( GetMarcBiblio ModBiblio );
use Getopt::Long qw( GetOptions );

sub _read_marc_code {
    my $input = shift;

Lines 22-29 Link Here

(-)a/misc/maintenance/auth_show_hidden_data.pl (-2 / +2 lines)
22	# which hidden fields in the framework still contain data.	22	# which hidden fields in the framework still contain data.
23		23
24	use Modern::Perl;	24	use Modern::Perl;
25	use Getopt::Long;	25	use Getopt::Long qw( GetOptions );
26	use Pod::Usage;	26	use Pod::Usage qw( pod2usage );
27		27
28	use Koha::Script;	28	use Koha::Script;
29	use Koha::Authorities;	29	use Koha::Authorities;




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

use Koha::Script;
use C4::Context;
use C4::Members::Messaging;
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );


sub usage {

Lines 16-23 Link Here

(-)a/misc/maintenance/check_syspref_cache.pl (-2 / +2 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use Getopt::Long;	19	use Getopt::Long qw( GetOptions );
20	use Pod::Usage;	20	use Pod::Usage qw( pod2usage );
21	use Encode qw( encode_utf8 );	21	use Encode qw( encode_utf8 );
22		22
23	use Koha::Script;	23	use Koha::Script;

Lines 27-34 Link Here

(-)a/misc/maintenance/cmp_sysprefs.pl (-2 / +2 lines)
27	use Modern::Perl;	27	use Modern::Perl;
28	use open OUT => ':encoding(UTF-8)', ':std';	28	use open OUT => ':encoding(UTF-8)', ':std';
29		29
30	use Getopt::Long;	30	use Getopt::Long qw( GetOptions );
31	use Pod::Usage;	31	use Pod::Usage qw( pod2usage );
32		32
33	use Koha::Script;	33	use Koha::Script;
34	use C4::Context;	34	use C4::Context;




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

use Koha::Script;
use C4::Context;
use Getopt::Long qw( GetOptions );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::DateUtils;

=head1 NAME





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

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

use Getopt::Long qw( GetOptions );
use Data::Dumper ();

sub print_usage {
    print <<_USAGE_




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

use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Try::Tiny qw( catch try );
use Koha::Script;
use C4::Context;


Lines 20-26 Link Here

(-)a/misc/maintenance/fix_tags_weight.pl (-3 / +3 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Context;	22	use C4::Context;
23	use C4::Tags qw( add_tag_approval add_tag );	23	use C4::Tags ();
24		24
25	use Koha::Script;	25	use Koha::Script;
26	use Koha::Database;	26	use Koha::Database;
Lines 28-35 use Koha::Tags; Link Here
28	use Koha::Tags::Approvals;	28	use Koha::Tags::Approvals;
29	use Koha::Tags::Indexes;	29	use Koha::Tags::Indexes;
30		30
31	use Getopt::Long;	31	use Getopt::Long qw( GetOptions );
32	use Pod::Usage;	32	use Pod::Usage qw( pod2usage );
33		33
34	=head1 NAME	34	=head1 NAME
35		35

Lines 19-28 Link Here

(-)a/misc/maintenance/generate_MARC21Languages.pl (-4 / +4 lines)
19	#	19	#
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use XML::Simple;	22	use XML::Simple qw( XMLin );
23	use Pod::Usage;	23	use Pod::Usage qw( pod2usage );
24	use Getopt::Long;	24	use Getopt::Long qw( GetOptions );
25	use Carp;	25	use Carp qw( croak );
26		26
27	use open ':std', ':encoding(UTF-8)';	27	use open ':std', ':encoding(UTF-8)';
28		28

Lines 9-15 use warnings; Link Here

(-)a/misc/maintenance/process_record_through_filter.pl (-1 lines)
9		9
10	use Koha::Script;	10	use Koha::Script;
11	use Koha::RecordProcessor;	11	use Koha::RecordProcessor;
12	use Data::Dumper;
13	use C4::Biblio qw( GetMarcBiblio );	12	use C4::Biblio qw( GetMarcBiblio );
14		13
15	my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });	14	my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });

Lines 24-31 $\|=1; Link Here

(-)a/misc/maintenance/remove_items_from_biblioitems.pl (-2 / +2 lines)
24		24
25	use Koha::Script;	25	use Koha::Script;
26	use C4::Context;	26	use C4::Context;
27	use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode );	27	use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
28	use Getopt::Long;	28	use Getopt::Long qw( GetOptions );
29		29
30	my ($wherestring, $run, $silent, $want_help);	30	my ($wherestring, $run, $silent, $want_help);
31	my $result = GetOptions(	31	my $result = GetOptions(




use Modern::Perl;

use Koha::Script;
use C4::Charset ();
use C4::Context;
use C4::Biblio ();
use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage );
use Pod::Usage;

my ( $help, $verbose, $confirm, $biblionumbers, $reindex, $filename,
    $auto_search, $fix_ampersand );

Lines 25-31 use Koha::BiblioFrameworks; Link Here

(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-1 / +1 lines)
25	use Koha::Biblioitems;	25	use Koha::Biblioitems;
26	use Koha::Items;	26	use Koha::Items;
27	use Koha::ItemTypes;	27	use Koha::ItemTypes;
28	use C4::Biblio qw( GetMarcFromKohaField );	28	use C4::Biblio ();
29		29
30	{	30	{
31	my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});	31	my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});




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

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

use Koha::Script;
use C4::Context;
use C4::Biblio qw( GetMarcBiblio ModBiblio );
use Pod::Usage qw( pod2usage );


sub usage {




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

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

use Koha::Script;
use C4::Context;
use C4::Items qw( sub );
use Koha::Items;
use Pod::Usage qw( pod2usage );


sub usage {

Lines 19-27 Link Here

(-)a/misc/maintenance/update_authorities.pl (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Getopt::Long;	22	use Getopt::Long qw( GetOptions );
23	use List::MoreUtils qw/uniq/;	23	use List::MoreUtils qw( uniq );
24	use Pod::Usage;	24	use Pod::Usage qw( pod2usage );
25		25
26	use Koha::Script;	26	use Koha::Script;
27	use C4::AuthoritiesMarc qw/AddAuthority DelAuthority GetAuthority merge/;	27	use C4::AuthoritiesMarc qw/AddAuthority DelAuthority GetAuthority merge/;

Lines 9-16 BEGIN { Link Here

(-)a/misc/migration_tools/22_to_30/convert_to_utf8.pl (-2 / +1 lines)
9		9
10	# find Koha's Perl modules	10	# find Koha's Perl modules
11	# test carefully before changing this	11	# test carefully before changing this
12	use FindBin;	12	eval { require "$FindBin::Bin/../../kohalib.pl" };
13	eval { require "$FindBin::Bin/../../kohalib.pl" };
14	}	13	}
15		14
16	use C4::Context;	15	use C4::Context;




BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
        eval { require "$FindBin::Bin/../../kohalib.pl" };
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
#use MARC::File::XML(BinaryEncoding=>"utf8");
#use MARC::File::USMARC;
use MARC::Record;
use C4::AuthoritiesMarc;
use POSIX qw( close localtime sprintf time );
#MARC::File::XML::default_record_format("UNIMARCAUTH");
my $dbh = C4::Context->dbh;
my $rq= $dbh->prepare(qq|




BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
        eval { require "$FindBin::Bin/../../kohalib.pl" };
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use MARC::File::XML(BinaryEncoding=>"utf8");
use MARC::Record;
use C4::AuthoritiesMarc;
use POSIX qw( close localtime open sprintf time );
MARC::File::XML::default_record_format("UNIMARCAUTH");
my $dbh = C4::Context->dbh;
my $rq= $dbh->prepare(qq|




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

# Koha modules used

use C4::Context;
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblioMarc );
use MARC::Record;
use MARC::File::USMARC;

$|=1;




BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
        eval { require "$FindBin::Bin/../../kohalib.pl" };
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use C4::AuthoritiesMarc;
use MARC::Record ();
use MARC::File::XML ( BinaryEncoding => 'utf8' );

print "moving MARC record to marc_header table\n";




BEGIN {
    # find Koha's Perl modules
    # test carefully before changing this
        eval { require "$FindBin::Bin/../../kohalib.pl" };
    eval { require "$FindBin::Bin/../../kohalib.pl" };
}
use C4::Context;
use MARC::Record ();
use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );

print "moving MARC record to biblioitems table\n";




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

# Koha modules used

use C4::Context;
use C4::Biblio qw( ModBiblioMarc );
use MARC::Record;
use MARC::File::USMARC;






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

# Koha modules used

use C4::Context;
use C4::Biblio qw( GetMarcBiblio ModBiblioMarc );
use MARC::Record;
use MARC::File::USMARC;



Lines 8-18 use strict; Link Here

(-)a/misc/migration_tools/buildCOUNTRY.pl (-3 / +2 lines)
8	# Koha modules used	8	# Koha modules used
9	use Koha::Script;	9	use Koha::Script;
10	use C4::Context;	10	use C4::Context;
11	use C4::Biblio;
12	use C4::AuthoritiesMarc;	11	use C4::AuthoritiesMarc;
13	use Time::HiRes qw(gettimeofday);	12	use Time::HiRes qw( gettimeofday );
14		13
15	use Getopt::Long;	14	use Getopt::Long qw( GetOptions );
16	my ( $fields, $number,$language) = ('',0);	15	my ( $fields, $number,$language) = ('',0);
17	my ($version, $verbose, $test_parameter, $delete);	16	my ($version, $verbose, $test_parameter, $delete);
18	GetOptions(	17	GetOptions(





# Koha modules used
use MARC::File::USMARC;
use MARC::Record ();
use MARC::Batch;
use Koha::Script;
use C4::Context;
use C4::Biblio qw( GetMarcBiblio );
use C4::AuthoritiesMarc;
use Time::HiRes qw( gettimeofday );

use Getopt::Long qw( GetOptions );
my ( $input_marc_file, $number) = ('',0);
my ($version, $verbose, $test_parameter, $confirm,$delete);
GetOptions(

Lines 8-18 use strict; Link Here

(-)a/misc/migration_tools/buildLANG.pl (-3 / +2 lines)
8	# Koha modules used	8	# Koha modules used
9	use Koha::Script;	9	use Koha::Script;
10	use C4::Context;	10	use C4::Context;
11	use C4::Biblio;
12	use C4::AuthoritiesMarc;	11	use C4::AuthoritiesMarc;
13	use Time::HiRes qw(gettimeofday);	12	use Time::HiRes qw( gettimeofday );
14		13
15	use Getopt::Long;	14	use Getopt::Long qw( GetOptions );
16	my ( $fields, $number,$language) = ('',0);	15	my ( $fields, $number,$language) = ('',0);
17	my ($version, $verbose, $test_parameter, $delete);	16	my ($version, $verbose, $test_parameter, $delete);
18	GetOptions(	17	GetOptions(




=cut

use Modern::Perl;
use MARC::Record ();
use MARC::File::XML;
use List::MoreUtils qw( uniq );
use Getopt::Std qw( getopts );

use Koha::Script;
use C4::Context;
use C4::Charset qw( StripNonXmlChars );
use C4::Biblio ();
use C4::OAI::Sets qw(
    AddOAISetsBiblios
    CalcOAISetsBiblio
    GetOAISet
    GetOAISetBySpec
    GetOAISets
    GetOAISetsMappings
    ModOAISetsBiblios
);

my %opts;
$Getopt::Std::STANDARD_HELP_VERSION = 1;




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

# Koha modules used
use MARC::File::USMARC;
use MARC::File::XML;
use MARC::Record;
use MARC::Batch;
use Encode ();
use Encode;

use Koha::Script;
use C4::Context;
use C4::Biblio qw(
    _strip_item_fields
    AddBiblio
    GetMarcFromKohaField
    ModBiblio
    ModBiblioMarc
);
use C4::Koha;
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
use C4::Items qw( AddItemBatchFromMarc );
use C4::MarcModificationTemplates qw(
    GetModificationTemplates
    ModifyRecordWithTemplate
);

use YAML::XS ();
use Time::HiRes qw( gettimeofday );
use Getopt::Long qw( GetOptions );
use IO::File ();
use Pod::Usage qw( pod2usage );

use Koha::Logger;
use Koha::Biblios;





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

# Koha modules used
use MARC::Record;
use Koha::Script;
use C4::Context;
use Getopt::Long qw( GetOptions );

use Koha::SearchEngine::Search;





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

use Koha::Script;
use C4::Context;
use C4::Biblio qw( GetMarcBiblio ModBiblio );
use C4::Items qw( sub );
use Koha::Items;
use Getopt::Long qw( GetOptions );

$| = 1;






use Modern::Perl;

use Date::Format qw( time2str );
use File::Basename qw( basename );
use FindBin qw( $Bin );
use Getopt::Long qw( GetOptions );
use Locale::PO;
use YAML::XS ();
use utf8;

use Koha::Database;

Lines 28-34 use utf8; Link Here

(-)a/misc/migration_tools/import_lexile.pl (-3 / +2 lines)
28		28
29	use Modern::Perl;	29	use Modern::Perl;
30		30
31	use Getopt::Long;	31	use Getopt::Long qw( GetOptions );
32	use Text::CSV;	32	use Text::CSV;
33		33
34	use Koha::Script;	34	use Koha::Script;
Lines 45-52 BEGIN { Link Here
45		45
46	# find Koha's Perl modules	46	# find Koha's Perl modules
47	# test carefully before changing this	47	# test carefully before changing this
48	use FindBin;	48	eval { require "$FindBin::Bin/../kohalib.pl" };
49	eval { require "$FindBin::Bin/../kohalib.pl" };
50	}	49	}
51		50
52	my $help;	51	my $help;

Lines 20-27 Link Here

(-)a/misc/migration_tools/koha-svc.pl (-2 / +2 lines)
20	use warnings;	20	use warnings;
21	use strict;	21	use strict;
22		22
23	use LWP::UserAgent;	23	use LWP::UserAgent ();
24	use File::Slurp;	24	use File::Slurp qw( read_file write_file );
25		25
26	if ( $#ARGV >= 3 && ! caller ) { # process command-line params only if not called as module!	26	if ( $#ARGV >= 3 && ! caller ) { # process command-line params only if not called as module!
27	my ( $url, $user, $password, $biblionumber, $file ) = @ARGV;	27	my ( $url, $user, $password, $biblionumber, $file ) = @ARGV;





use Koha::Script;
use C4::Context;
use Getopt::Long qw( GetOptions );
use Fcntl qw(:flock);
use File::Temp qw( tempdir );
use File::Path qw( mkpath rmtree );
use C4::Biblio qw( _koha_marc_update_bib_ids GetXmlBiblio );
use C4::AuthoritiesMarc;
use C4::Items qw( GetItemsInfo Item2Marc );
use Koha::RecordProcessor;
use Koha::Caches;
use XML::LibXML ();

use constant LOCK_FILENAME => 'rebuild..LCK';


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

(-)a/misc/migration_tools/remove_unused_authorities.pl (-1 / +1 lines)
25	use Koha::Script;	25	use Koha::Script;
26	use C4::Context;	26	use C4::Context;
27	use C4::AuthoritiesMarc;	27	use C4::AuthoritiesMarc;
28	use Getopt::Long;	28	use Getopt::Long qw( GetOptions );
29		29
30	use Koha::SearchEngine::Search;	30	use Koha::SearchEngine::Search;
31		31




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

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

my $commit;
my $add_links;

Lines 5-11 use strict; Link Here

(-)a/misc/migration_tools/upgradeitems.pl (-1 / +1 lines)
5		5
6	use Koha::Script;	6	use Koha::Script;
7	use C4::Context;	7	use C4::Context;
8	use C4::Items qw( sub ModItemFromMarc );	8	use C4::Items qw( ModItemFromMarc );
9	use C4::Biblio qw( GetMarcBiblio );	9	use C4::Biblio qw( GetMarcBiblio );
10		10
11	my $dbh=C4::Context->dbh;	11	my $dbh=C4::Context->dbh;

Lines 20-27 Link Here

(-)a/misc/mod_zebraqueue.pl (-2 / +2 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use Getopt::Long;	23	use Getopt::Long qw( GetOptions );
24	use Pod::Usage;	24	use Pod::Usage qw( pod2usage );
25		25
26	use Koha::Script;	26	use Koha::Script;
27	use C4::Biblio qw( ModZebra );	27	use C4::Biblio qw( ModZebra );

Lines 25-33 use warnings; Link Here

(-)a/misc/recreateIssueStatistics.pl (-3 / +1 lines)
25		25
26	use Koha::Script;	26	use Koha::Script;
27	use C4::Context;	27	use C4::Context;
28	use C4::Items qw( sub );	28	use Getopt::Long qw( GetOptions );
29	use Data::Dumper;
30	use Getopt::Long;
31	use Koha::Items;	29	use Koha::Items;
32		30
33	my $dbh = C4::Context->dbh;	31	my $dbh = C4::Context->dbh;

Lines 3-10 Link Here

(-)a/misc/sax_parser_test.pl (-2 / +2 lines)
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5		5
6	use XML::SAX;	6	use XML::SAX ();
7	use Encode;	7	use Encode qw( encode_utf8 );
8		8
9	my $parser = XML::SAX::ParserFactory->parser(	9	my $parser = XML::SAX::ParserFactory->parser(
10	Handler => MySAXHandler->new	10	Handler => MySAXHandler->new




=cut

use Modern::Perl;
use Encode ();

use Koha::Script;
use Koha::Database;

use Koha::SearchMarcMaps;
use Koha::SearchEngine::Elasticsearch;

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

my $type = '';
my $man;




=cut

use autodie;
use Getopt::Long qw( GetOptions );
use Koha::Script;
use C4::Context;
use Koha::MetadataRecord::Authority;

use Koha::SearchEngine::Elasticsearch;
use Koha::SearchEngine::Elasticsearch::Indexer;
use MARC::Field;
use MARC::Record;
use Modern::Perl;
use Pod::Usage qw( pod2usage );
use Try::Tiny qw( catch try );

my $verbose = 0;
my $commit = 5000;

Lines 20-30 Link Here

(-)a/misc/sip_cli_emulator.pl (-4 / +4 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Socket qw(:crlf);	22	use Socket qw(:crlf);
23	use IO::Socket::INET;	23	use IO::Socket::INET ();
24	use Getopt::Long;	24	use Getopt::Long qw( GetOptions );
25		25
26	use C4::SIP::Sip qw( timestamp );	26	use C4::SIP::Sip ();
27	use C4::SIP::Sip qw( timestamp );	27	use C4::SIP::Sip ();
28		28
29	use constant { LANGUAGE => '001' };	29	use constant { LANGUAGE => '001' };
30		30




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

use Koha::Script;
use C4::Context;
use C4::ImportBatch qw( sub RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates );
use C4::Matcher;
use C4::MarcModificationTemplates qw( GetModificationTemplates );
use Getopt::Long qw( GetOptions );

$| = 1;


Lines 4-10 Link Here

(-)a/misc/translator/tmpl_process3.pl (-3 / +2 lines)
4	# Parts copyright 2003-2004 Jerome Vizcaino	4	# Parts copyright 2003-2004 Jerome Vizcaino
5	# Parts copyright 2004 Ambrose Li	5	# Parts copyright 2004 Ambrose Li
6		6
7	use FindBin;
8	use lib $FindBin::Bin;	7	use lib $FindBin::Bin;
9		8
10	=head1 NAME	9	=head1 NAME
Lines 16-23 using gettext-compatible translation files Link Here
16		15
17	use strict;	16	use strict;
18	#use warnings; FIXME - Bug 2505	17	#use warnings; FIXME - Bug 2505
19	use File::Basename;	18	use File::Basename qw( fileparse );
20	use Getopt::Long;	19	use Getopt::Long qw( GetOptions );
21	use Locale::PO;	20	use Locale::PO;
22	use File::Temp qw( :POSIX );	21	use File::Temp qw( :POSIX );
23	use TmplTokenizer;	22	use TmplTokenizer;





=cut

use FindBin;
use lib $FindBin::Bin;

use strict;
use warnings;
use Getopt::Long qw( GetOptions );
use POSIX qw( close exit localtime open printf time );
use Locale::PO;
use TmplTokenizer;
use VerboseWarnings;

Lines 19-28 Link Here

(-)a/misc/z3950_responder.pl (-3 / +2 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;	22	use File::Basename qw( fileparse );
23	use File::Basename;
24	use Getopt::Long qw(:config no_ignore_case);	23	use Getopt::Long qw(:config no_ignore_case);
25	use Pod::Usage;	24	use Pod::Usage qw( pod2usage );
26		25
27	use Koha::Config;	26	use Koha::Config;
28	use Koha::Z3950Responder;	27	use Koha::Z3950Responder;

Lines 19-29 Link Here

(-)a/offline_circ/download.pl (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use JSON;	22	use JSON qw( to_json );
23	use C4::Auth qw( checkauth );	23	use C4::Auth qw( checkauth );
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;
27		26
28	my $query = CGI->new;	27	my $query = CGI->new;
29	checkauth( $query, undef, { circulate => "circulate_remaining_permissions" },	28	checkauth( $query, undef, { circulate => "circulate_remaining_permissions" },




use CGI qw ( -utf8 );
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Context;
use C4::Biblio;
use C4::Accounts;
use C4::Circulation qw( AddOfflineOperation );
use C4::Items qw( sub );
use C4::Members;
use C4::Stats;
use Koha::Checkouts;
use Koha::UploadedFiles;
use Koha::Items;

use Date::Calc qw( Add_Delta_Days Date_to_Days );

use constant DEBUG => 0;


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

(-)a/offline_circ/list.pl (-2 lines)
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Koha;
27	use C4::Context;	26	use C4::Context;
28	use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );	27	use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );
29	use C4::Members;	28	use C4::Members;
30	use C4::Biblio;
31	use Koha::Patrons;	29	use Koha::Patrons;
32		30
33	use Koha::Items;	31	use Koha::Items;




use Modern::Perl;

use CGI qw ( -utf8 );
use Carp;

use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Context;
use C4::Biblio;
use C4::Accounts;
use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned );
use C4::Items qw( ModDateLastSeen );
use C4::Members;
use C4::Stats;
use C4::BackgroundJob;

use Koha::Checkouts;
use Koha::Patrons;

use Date::Calc qw( Date_to_Days );

use constant DEBUG => 0;


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

(-)a/offline_circ/service.pl (-1 / +1 lines)
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Auth qw( check_api_auth check_cookie_auth );	24	use C4::Auth qw( check_api_auth check_cookie_auth );
25	use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );	25	use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );
26	use Koha::DateUtils;	26	use Koha::DateUtils qw( dt_from_string );
27	use DateTime::TimeZone;	27	use DateTime::TimeZone;
28		28
29	my $cgi = CGI->new;	29	my $cgi = CGI->new;

Lines 19-25 Link Here

(-)a/opac/clubs/clubs-tab.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );

Lines 19-25 Link Here

(-)a/opac/clubs/enroll.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/errors/400.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/errors/401.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/errors/402.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/errors/403.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/errors/404.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/opac/errors/500.pl (-1 / +1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_with_http_headers );	22	use C4::Output qw( output_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use List::MoreUtils qw(any);	24	use List::MoreUtils qw( any );
25		25
26	my $query = CGI->new;	26	my $query = CGI->new;
27	my $admin = C4::Context->preference('KohaAdminEmailAddress');	27	my $admin = C4::Context->preference('KohaAdminEmailAddress');

Lines 20-28 Link Here

(-)a/opac/external/overdrive/auth.pl (-3 / +2 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use URI;	23	use URI ();
24	use URI::Escape;	24	use URI::Escape qw( uri_escape );
25	use C4::Auth qw(checkauth);
26	use Koha::Logger;	25	use Koha::Logger;
27	use Koha::ExternalContent::OverDrive;	26	use Koha::ExternalContent::OverDrive;
28		27

Lines 24-33 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/opac/ilsdi.pl (-3 / +3 lines)
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Context;	25	use C4::Context;
26		26
27	use List::MoreUtils qw(any);	27	use List::MoreUtils qw( any );
28	use XML::Simple;	28	use XML::Simple qw( XMLout );
29	use CGI qw ( -utf8 );	29	use CGI qw ( -utf8 );
30	use Net::Netmask;	30	use Net::Netmask ();
31		31
32	=head1 DLF ILS-DI for Koha	32	=head1 DLF ILS-DI for Koha
33		33

Lines 45-56 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/opac/opac-ISBDdetail.pl (-3 / +13 lines)
45	use C4::Context;	45	use C4::Context;
46	use C4::Output qw( parametrized_url output_html_with_http_headers );	46	use C4::Output qw( parametrized_url output_html_with_http_headers );
47	use CGI qw ( -utf8 );	47	use CGI qw ( -utf8 );
48	use C4::Biblio qw( TransformMarcToKoha GetISBDView CountItemsIssued GetMarcControlnumber GetMarcISSN );	48	use C4::Biblio qw(
49	use C4::Items qw( sub );	49	CountItemsIssued
		50	GetISBDView
		51	GetMarcControlnumber
		52	GetMarcISSN
		53	TransformMarcToKoha
		54	);
50	use C4::Reserves;	55	use C4::Reserves;
51	use C4::Acquisition;	56	use C4::Acquisition;
52	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );	57	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
53	use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );	58	use C4::Koha qw(
		59	GetNormalizedEAN
		60	GetNormalizedISBN
		61	GetNormalizedOCLCNumber
		62	GetNormalizedUPC
		63	);
54	use Koha::CirculationRules;	64	use Koha::CirculationRules;
55	use Koha::ItemTypes;	65	use Koha::ItemTypes;
56	use Koha::Patrons;	66	use Koha::Patrons;




use C4::Context;
use C4::Output qw( parametrized_url output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Biblio qw(
    CountItemsIssued
    GetAuthorisedValueDesc
    GetMarcBiblio
    GetMarcControlnumber
    GetMarcFromKohaField
    GetMarcISSN
    GetMarcStructure
    TransformMarcToKoha
);
use C4::Reserves;
use C4::Members;
use C4::Acquisition;
use C4::Koha qw( GetNormalizedISBN );
use List::MoreUtils qw( uniq );
use Koha::Biblios;
use Koha::CirculationRules;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Patrons;
use Koha::RecordProcessor;
use Koha::DateUtils qw( output_pref );

my $query = CGI->new();


Lines 19-25 Link Here

(-)a/opac/opac-account-pay-return.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23		23
24	use C4::Auth qw( checkauth );	24	use C4::Auth qw( checkauth );
25	use Koha::Plugins::Handler;	25	use Koha::Plugins::Handler;

Lines 21-30 use utf8; Link Here

(-)a/opac/opac-account-pay.pl (-4 / +1 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI;	24	use CGI ();
25	use HTTP::Request::Common;
26	use LWP::UserAgent;
27	use URI;
28		25
29	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
30	use C4::Output;	27	use C4::Output;

Lines 21-27 Link Here

(-)a/opac/opac-addbybiblionumber.pl (-1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Biblio;
25	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
26	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
27		26

Lines 23-30 use CGI qw ( -utf8 ); Link Here

(-)a/opac/opac-alert-subscribe.pl (-2 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;
27	use C4::Letters;
28	use C4::Serials qw( GetSubscription );	26	use C4::Serials qw( GetSubscription );
29		27
30		28

Lines 21-27 Link Here

(-)a/opac/opac-authorities-home.pl (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use URI::Escape;	24	use URI::Escape qw( uri_escape_utf8 );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26		26
27	use C4::Context;	27	use C4::Context;

Lines 44-51 use C4::Biblio qw( GetMarcUrls ); Link Here

(-)a/opac/opac-authoritiesdetail.pl (-2 / +1 lines)
44	use C4::Context;	44	use C4::Context;
45	use C4::Output qw( output_html_with_http_headers );	45	use C4::Output qw( output_html_with_http_headers );
46	use CGI qw ( -utf8 );	46	use CGI qw ( -utf8 );
47	use MARC::Record;	47	use C4::Koha ();
48	use C4::Koha qw( display_marc_indicators );
49		48
50	use Koha::Authorities;	49	use Koha::Authorities;
51	use Koha::Authority::Types;	50	use Koha::Authority::Types;




use CGI qw ( -utf8 );

use C4::Koha;
use C4::Biblio qw(
    GetBiblioData
    GetFrameworkCode
    GetMarcAuthors
    GetMarcBiblio
    GetMarcSeries
    GetMarcSubjects
    GetMarcUrls
);
use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );
use C4::Circulation qw( GetTransfers );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

Lines 31-37 use Koha::SearchEngine::Elasticsearch::Browse; Link Here

(-)a/opac/opac-browse.pl (-1 / +1 lines)
31	use Koha::SearchEngine::Elasticsearch::QueryBuilder;	31	use Koha::SearchEngine::Elasticsearch::QueryBuilder;
32	use Koha::SearchEngine::Elasticsearch::Search;	32	use Koha::SearchEngine::Elasticsearch::Search;
33		33
34	use JSON;	34	use JSON qw( to_json );
35	use Unicode::Collate;	35	use Unicode::Collate;
36		36
37	my $query = CGI->new;	37	my $query = CGI->new;

Lines 30-36 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/opac/opac-browser.pl (-1 lines)
30	use C4::Context;	30	use C4::Context;
31	use C4::Output qw( output_html_with_http_headers );	31	use C4::Output qw( output_html_with_http_headers );
32	use CGI qw ( -utf8 );	32	use CGI qw ( -utf8 );
33	use C4::Biblio;
34		33
35	my $query = CGI->new;	34	my $query = CGI->new;
36		35

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/opac/opac-course-details.pl (-1 lines)
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha;
28		27
29	use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves );	28	use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves );
30		29




use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );
use C4::Auth qw( get_template_and_user get_session );
use C4::Koha qw(
    getitemtypeimagelocation
    GetNormalizedEAN
    GetNormalizedISBN
    GetNormalizedOCLCNumber
    GetNormalizedUPC
);
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
use C4::Output qw( parametrized_url output_html_with_http_headers );
use C4::Biblio qw(
    CountItemsIssued
    GetBiblioData
    GetMarcAuthors
    GetMarcBiblio
    GetMarcControlnumber
    GetMarcISBN
    GetMarcISSN
    GetMarcSeries
    GetMarcSubjects
    GetMarcUrls
);
use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );
use C4::Circulation qw( GetTransfers );
use C4::Tags qw( get_tags );
use C4::XISBN qw( get_xisbns );
use C4::External::Amazon qw( get_amazon_tld );
use C4::External::BakerTaylor qw( image_url link_url );
use C4::External::Syndetics qw(
    get_syndetics_anotes
    get_syndetics_excerpt
    get_syndetics_index
    get_syndetics_reviews
    get_syndetics_summary
    get_syndetics_toc
);
use C4::Members;
use C4::XSLT;
use C4::ShelfBrowser qw( GetNearbyItems );
use C4::Reserves qw( GetReserveStatus );
use C4::Charset qw( SetUTF8Flag );
use C4::Letters;
use MARC::Record;
use MARC::Field;
use List::MoreUtils qw( any );
use Koha::DateUtils;
use C4::HTML5Media;
use C4::CourseReserves qw( GetItemCourseReservesInfo );


use Koha::Reviews;
use Koha::SearchEngine::Search;

use Try::Tiny;

my $query = CGI->new();


my %paging = (previous => {}, next => {});
if ($session->param('busc')) {
    use C4::Search;
    use URI::Escape qw( uri_escape_utf8 uri_unescape );

    # Rebuild the string to store on session
    # param value is URI encoded and params separator is HTML encode (&amp;)




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

use Modern::Perl;
use Carp qw( carp );

use C4::Auth qw( get_template_and_user );
use CGI qw( -utf8 );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Log;
use Koha::Patrons;
use Koha::Patron::Discharge;
use Koha::DateUtils;

my $input = CGI->new;





use Modern::Perl;

use CGI qw ( -utf8 );
use Encode qw( encode );

use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
use C4::Items;
use C4::Output qw( output_html_with_http_headers );
use C4::Record;
use C4::Ris qw( marc2ris );
use Koha::CsvProfiles;
use Koha::RecordProcessor;





use Modern::Perl;

use CGI qw ( -utf8 );
use Encode qw(encode);

use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
use C4::Items;
use C4::Output qw( output_html_with_http_headers );
use C4::Record;
use C4::Ris qw( marc2ris );
use Koha::CsvProfiles;
use Koha::RecordProcessor;
use Koha::Virtualshelves;

Lines 22-31 use Modern::Perl; Link Here

(-)a/opac/opac-export.pl (-2 / +7 lines)
22	use C4::Record;	22	use C4::Record;
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber GetFrameworkCode GetISBDView );	25	use C4::Biblio qw(
		26	GetFrameworkCode
		27	GetISBDView
		28	GetMarcBiblio
		29	GetMarcControlnumber
		30	);
26	use CGI qw ( -utf8 );	31	use CGI qw ( -utf8 );
27	use C4::Auth;	32	use C4::Auth;
28	use C4::Ris;	33	use C4::Ris qw( marc2ris );
29	use Koha::RecordProcessor;	34	use Koha::RecordProcessor;
30		35
31	my $query = CGI->new;	36	my $query = CGI->new;




use DateTime;
use DateTime::Format::ICal;
use DateTime::Event::ICal;
use URI ();

use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Circulation;
use C4::Members;
use Koha::DateUtils qw( dt_from_string );

my $query = CGI->new;
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(

Lines 19-29 Link Here

(-)a/opac/opac-idref.pl (-5 / +4 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23	use LWP::UserAgent;	23	use LWP::UserAgent ();
24	use HTTP::Request::Common;	24	use JSON qw( from_json );
25	use JSON;	25	use Encode ();
26	use Encode;
27		26
28	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
29	use C4::Context;	28	use C4::Context;

Lines 23-29 use JSON qw( encode_json ); Link Here

(-)a/opac/opac-illrequests.pl (-1 lines)
23		23
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Koha;
27	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
28		27
29	use Koha::Illrequest::Config;	28	use Koha::Illrequest::Config;

Lines 21-27 use Modern::Perl; Link Here

(-)a/opac/opac-imageviewer.pl (-1 lines)
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Biblio;
25	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
26		25
27	use Koha::Biblios;	26	use Koha::Biblios;

Lines 25-34 use C4::Context; Link Here

(-)a/opac/opac-issue-note.pl (-3 / +2 lines)
25	use C4::Scrubber;	25	use C4::Scrubber;
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
28	use C4::Biblio;	28	use C4::Letters ();
29	use C4::Letters qw( GetPreparedLetter EnqueueLetter );
30	use Koha::Checkouts;	29	use Koha::Checkouts;
31	use Koha::DateUtils;	30	use Koha::DateUtils qw( dt_from_string );
32	use Koha::Patrons;	31	use Koha::Patrons;
33		32
34	my $query = CGI->new;	33	my $query = CGI->new;

Lines 22-29 use Modern::Perl; Link Here

(-)a/opac/opac-main.pl (-2 / +1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::NewsChannels; # GetNewsToDisplay	25	use C4::NewsChannels qw( GetNewsToDisplay ); # GetNewsToDisplay
26	use C4::Languages qw(getTranslatedLanguages accept_language);
27	use Koha::Quotes;	26	use Koha::Quotes;
28	use C4::Members;	27	use C4::Members;
29	use C4::Overdues qw( checkoverdues );	28	use C4::Overdues qw( checkoverdues );





use CGI qw ( -utf8 );
use Digest::MD5 qw( md5_base64 md5_hex );
use JSON qw( to_json );
use List::MoreUtils qw( any each_array uniq );
use String::Random qw( random_string );


use C4::Context;
use C4::Members qw( get_cardnumber_length checkcardnumber );
use C4::Form::MessagingPreferences;
use Koha::AuthUtils ();
use Koha::Patrons;
use Koha::Patron::Consent;
use Koha::Patron::Modification;
use Koha::Patron::Modifications;
use C4::Scrubber;
use Email::Valid;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
use Koha::Patron::Attribute::Types;
use Koha::Patron::Attributes;

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/opac/opac-messaging.pl (-1 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;
27	use C4::Circulation;	26	use C4::Circulation;
28	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
29	use C4::Members;	28	use C4::Members;

Lines 23-30 use CGI qw ( -utf8 ); Link Here

(-)a/opac/opac-mymessages.pl (-2 / +1 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;	26	use C4::Letters ();
27	use C4::Letters qw( GetRSSMessages );
28	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
29		28
30	my $query = CGI->new();	29	my $query = CGI->new();

Lines 19-29 Link Here

(-)a/opac/opac-news-rss.pl (-3 / +2 lines)
19		19
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI;	22	use CGI ();
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::NewsChannels; # GetNewsToDisplay	25	use C4::NewsChannels qw( GetNewsToDisplay ); # GetNewsToDisplay
26	use C4::Languages qw(getTranslatedLanguages accept_language);
27		26
28	my $input = CGI->new;	27	my $input = CGI->new;
29	my $dbh = C4::Context->dbh;	28	my $dbh = C4::Context->dbh;

Lines 29-35 use C4::Members; Link Here

(-)a/opac/opac-passwd.pl (-1 / +1 lines)
29	use C4::Output qw( output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers );
30	use Koha::Patrons;	30	use Koha::Patrons;
31		31
32	use Try::Tiny;	32	use Try::Tiny qw( catch try );
33		33
34	my $query = CGI->new;	34	my $query = CGI->new;
35		35




#!/usr/bin/perl

use Modern::Perl;
use CGI ();

use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use Koha::Patron::Password::Recovery qw(
    CompletePasswordRecovery
    DeleteExpiredPasswordRecovery
    GetValidLinkInfo
    SendPasswordRecoveryEmail
    ValidateBorrowernumber
);
use Koha::Patrons;
my $query = CGI->new;
use HTML::Entities ();
use Try::Tiny qw( catch try );
use List::Util qw( any );

my ( $template, $dummy, $cookie ) = get_template_and_user(
    {

Lines 22-28 use CGI qw/-utf8/; Link Here

(-)a/opac/opac-patron-consent.pl (-1 / +1 lines)
22		22
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use Koha::DateUtils qw/dt_from_string/;	25	use Koha::DateUtils qw( dt_from_string );
26	use Koha::Patron::Consents;	26	use Koha::Patron::Consents;
27	use Koha::Patrons;	27	use Koha::Patrons;
28		28

Lines 34-40 use C4::Output qw( is_ajax output_ajax_with_http_headers ); Link Here

(-)a/opac/opac-ratings-ajax.pl (-1 / +1 lines)
34		34
35	use Koha::Ratings;	35	use Koha::Ratings;
36		36
37	use JSON;	37	use JSON ();
38		38
39	my $is_ajax = is_ajax();	39	my $is_ajax = is_ajax();
40		40




use CGI qw ( -utf8 );

use C4::Auth qw( get_template_and_user );
use C4::Koha qw(
    getitemtypeimagelocation
    GetNormalizedISBN
    GetNormalizedUPC
);
use C4::Biblio ();
use C4::Circulation;
use C4::Members qw( GetAllIssues );
use C4::External::BakerTaylor qw( image_url link_url );
use MARC::Record ();
use MARC::Record;

use C4::Output qw( output_html_with_http_headers );
use C4::Charset qw( StripNonXmlChars );

Lines 23-29 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/opac/opac-registration-verify.pl (-1 / +1 lines)
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Members;	24	use C4::Members;
25	use C4::Form::MessagingPreferences;	25	use C4::Form::MessagingPreferences;
26	use Koha::AuthUtils qw( generate_password );	26	use Koha::AuthUtils ();
27	use Koha::Patrons;	27	use Koha::Patrons;
28	use Koha::Patron::Consent;	28	use Koha::Patron::Consent;
29	use Koha::Patron::Modifications;	29	use Koha::Patron::Modifications;

Lines 27-37 use CGI qw ( -utf8 ); Link Here

(-)a/opac/opac-renew.pl (-2 lines)
27	use C4::Circulation qw( CanBookBeRenewed AddRenewal );	27	use C4::Circulation qw( CanBookBeRenewed AddRenewal );
28	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
29	use C4::Context;	29	use C4::Context;
30	use C4::Items;
31	use C4::Members;	30	use C4::Members;
32	use Koha::Items;	31	use Koha::Items;
33	use Koha::Patrons;	32	use Koha::Patrons;
34	use Date::Calc qw( Today Date_to_Days );
35	my $query = CGI->new;	33	my $query = CGI->new;
36		34
37	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(	35	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(





use Modern::Perl;
use CGI qw ( -utf8 );
use Try::Tiny qw( catch try );

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Letters ();
use Koha::ProblemReport;
use Koha::Libraries;
use Koha::Patrons;
use Koha::Util::Navigation;
use URI::Escape qw( uri_unescape );
use Encode ();

my $input = CGI->new;






use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Koha qw( getitemtypeimagelocation getitemtypeimagesrc );
use C4::Circulation qw( GetBranchItemRule GetTransfers );
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch IsAvailableForItemLevelRequest );
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
use C4::Items qw( GetHostItemsInfo GetItemsInfo );
use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Members;


use Koha::AuthorisedValues;
use Koha::Biblios;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::CirculationRules;
use Koha::Items;
use Koha::ItemTypes;
use Koha::Checkouts;
use Koha::Libraries;
use Koha::Patrons;
use List::MoreUtils qw( uniq );
use List::MoreUtils qw/uniq/;

my $maxreserves = C4::Context->preference("maxreserves");


Lines 19-25 Link Here

(-)a/opac/opac-restrictedpage.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25		25

Lines 18-25 Link Here

(-)a/opac/opac-retrieve-file.pl (-2 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use Encode ();
22	use Encode;
23		22
24	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	24	use C4::Context;




use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio;
use C4::Scrubber;

use Koha::Biblios;
use Koha::DateUtils qw( dt_from_string );
use Koha::Review;
use Koha::Reviews;





use CGI qw ( -utf8 );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Log;
use C4::Items;
use C4::Search::History;

use URI::Escape;
use POSIX qw(strftime);


my $cgi = CGI->new;




# to perform, etc.
## load Koha modules
use C4::Context;
use List::MoreUtils qw( any );
use Encode ();
use Encode;

use Data::Dumper; # TODO remove

use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;


use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http_headers );
use C4::Auth qw( get_template_and_user get_session );
use C4::Languages qw( getLanguages );
use C4::Search qw( searchResults );
use C4::Search qw( searchResults );
use C4::Biblio qw( CountItemsIssued );
use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
use C4::Tags qw( get_tags );
use C4::SocialData;
use C4::External::OverDrive;
use C4::External::BakerTaylor qw( image_url link_url );

use Koha::CirculationRules;

use Koha::Plugins;
use Koha::SearchFields;

use POSIX qw( strftime );
use URI::Escape qw( uri_escape_utf8 uri_unescape );
use Business::ISBN ();
use Business::ISBN;

my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
# create a new CGI object




use Modern::Perl;

use CGI qw ( -utf8 );
use Encode ();
use Carp qw( carp );
use Try::Tiny qw( catch try );

use C4::Biblio qw(
    GetBiblioData
    GetMarcAuthors
    GetMarcBiblio
    GetMarcSubjects
);
use C4::Items qw( GetItemsInfo );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Members;




use Modern::Perl;

use CGI qw ( -utf8 );
use Encode ();
use Carp qw( carp );
use Try::Tiny qw( catch try );

use C4::Auth qw( get_template_and_user );
use C4::Biblio qw(
    GetBiblioData
    GetFrameworkCode
    GetMarcAuthors
    GetMarcBiblio
    GetMarcISBN
    GetMarcSubjects
);
use C4::Items qw( GetItemsInfo );
use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use Koha::Email;

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

(-)a/opac/opac-serial-issues.pl (-2 lines)
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Koha;
26	use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber );	25	use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber );
27	use C4::Letters;
28	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
29	use C4::Context;	27	use C4::Context;
30		28

Lines 29-36 use Email::Valid; Link Here

(-)a/opac/opac-shareshelf.pl (-2 / +1 lines)
29		29
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
31	use C4::Context;	31	use C4::Context;
32	use C4::Letters qw( GetPreparedLetter EnqueueLetter );	32	use C4::Letters ();
33	use C4::Members ();
34	use C4::Output qw( output_html_with_http_headers );	33	use C4::Output qw( output_html_with_http_headers );
35		34
36	use Koha::Patrons;	35	use Koha::Patrons;





use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
use C4::External::BakerTaylor qw( image_url link_url );
use C4::Koha qw(
    GetNormalizedEAN
    GetNormalizedISBN
    GetNormalizedOCLCNumber
    GetNormalizedUPC
);
use C4::Items qw( GetItemsLocationInfo );
use C4::Members;
use C4::Output qw( pagination_bar output_with_http_headers );
use C4::Tags qw( get_tags );
use C4::XSLT;

use Koha::Biblios;





# standard or CPAN modules used
use CGI qw ( -utf8 );
use Encode ();

# Koha modules used
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Biblio;
use C4::ImportBatch;
use C4::XSLT ();
use C4::Templates;





use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Koha qw(
    GetNormalizedEAN
    GetNormalizedISBN
    GetNormalizedOCLCNumber
    GetNormalizedUPC
);
use C4::Output qw( output_html_with_http_headers );
use C4::Circulation;
use C4::Biblio qw( GetMarcBiblio );
use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use Koha::Reviews;
use POSIX qw( ceil floor );

my $template_name;
my $query = CGI->new;

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

(-)a/opac/opac-suggestions.pl (-2 / +2 lines)
19		19
20		20
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use Encode qw( encode );	22	use Encode ();
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Members;	24	use C4::Members;
25	use C4::Koha qw( GetAuthorisedValues );	25	use C4::Koha qw( GetAuthorisedValues );
Lines 33-39 use Koha::AuthorisedValues; Link Here
33	use Koha::Libraries;	33	use Koha::Libraries;
34	use Koha::Patrons;	34	use Koha::Patrons;
35		35
36	use Koha::DateUtils;	36	use Koha::DateUtils qw( dt_from_string output_pref );
37		37
38	my $input = CGI->new;	38	my $input = CGI->new;
39	my $op = $input->param('op') \|\| 'else';	39	my $op = $input->param('op') \|\| 'else';




use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );
use C4::Scrubber;
use C4::Biblio qw( GetMarcBiblio );
use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );
use C4::Tags qw(
    add_tag
    get_approval_rows
    get_tag_rows
    remove_tag
    stratify_tags
);
use C4::XSLT;

use Data::Dumper qw( Dumper );

use Koha::Logger;
use Koha::Biblios;

Lines 30-36 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/opac/opac-tags_subject.pl (-1 lines)
30	use C4::Context;	30	use C4::Context;
31	use C4::Output qw( output_html_with_http_headers );	31	use C4::Output qw( output_html_with_http_headers );
32	use CGI qw ( -utf8 );	32	use CGI qw ( -utf8 );
33	use C4::Biblio;
34		33
35	my $query = CGI->new;	34	my $query = CGI->new;
36		35




use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Languages;
use C4::Search;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Circulation qw( GetTopIssues );
use Date::Manip;

=head1 NAME





use CGI qw ( -utf8 );

use C4::Auth qw( get_template_and_user );
use C4::Koha qw(
    getitemtypeimagelocation
    GetNormalizedISBN
    GetNormalizedUPC
);
use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges GetSoonestRenewDate );
use C4::External::BakerTaylor qw( image_url link_url );
use C4::Reserves qw( GetReserveStatus );
use C4::Members;
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio qw( GetMarcBiblio );
use C4::Items;
use C4::Letters;
use Koha::Account::Lines;
use Koha::Biblios;
use Koha::Libraries;
use Koha::DateUtils qw( output_pref );
use Koha::Holds;
use Koha::Database;
use Koha::ItemTypes;


use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';

use Scalar::Util qw( looks_like_number );
use Date::Calc qw( Date_to_Days Today );
  Today
  Add_Delta_Days
  Date_to_Days
);

my $query = CGI->new;


Lines 25-31 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/opac/sci/sci-main.pl (-1 / +1 lines)
25	use Koha::Items;	25	use Koha::Items;
26		26
27	use List::MoreUtils qw( uniq );	27	use List::MoreUtils qw( uniq );
28	use Try::Tiny;	28	use Try::Tiny qw( catch try );
29		29
30	my $cgi = CGI->new;	30	my $cgi = CGI->new;
31		31

Lines 32-38 use C4::Context; Link Here

(-)a/opac/sco/printslip.pl (-1 lines)
32	use C4::Auth qw( in_iprange get_session get_template_and_user );	32	use C4::Auth qw( in_iprange get_session get_template_and_user );
33	use C4::Output qw( output_html_with_http_headers );	33	use C4::Output qw( output_html_with_http_headers );
34	use C4::Members qw( IssueSlip );	34	use C4::Members qw( IssueSlip );
35	use C4::Koha;
36		35
37	my $input = CGI->new;	36	my $input = CGI->new;
38	unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {	37	unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {




use CGI qw ( -utf8 );

use C4::Auth qw( in_iprange get_template_and_user checkpw );
use C4::Koha;
use C4::Circulation qw( AddReturn CanBookBeIssued AddIssue CanBookBeRenewed AddRenewal );
use C4::Reserves;
use C4::Output qw( output_html_with_http_headers );
use C4::Members;
use C4::Biblio;
use C4::Items;
use Koha::DateUtils qw( dt_from_string );
use Koha::Acquisition::Currencies;
use Koha::Items;




use Modern::Perl;
use C4::Context;
use C4::Auth qw( checkauth );
use C4::Biblio ();
use C4::Output qw( output_error );
use Koha::Items;
use Koha::Linktracker;
use CGI qw ( -utf8 );
use List::MoreUtils qw( any );

my $cgi = CGI->new;
my $uri = $cgi->param('uri') || '';

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/patron_lists/add-modify.pl (-1 / +1 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use Koha::List::Patron;	26	use Koha::List::Patron qw( AddPatronList GetPatronLists ModPatronList );
27		27
28	my $cgi = CGI->new;	28	my $cgi = CGI->new;
29		29

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/patron_lists/delete.pl (-1 / +1 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output;	25	use C4::Output;
26	use Koha::List::Patron;	26	use Koha::List::Patron qw( DelPatronList );
27		27
28	my $cgi = CGI->new;	28	my $cgi = CGI->new;
29		29

Lines 23-30 use CGI qw ( -utf8 ); Link Here

(-)a/patron_lists/list.pl (-2 / +6 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use Koha::List::Patron;	26	use Koha::List::Patron qw(
27	use List::MoreUtils qw/uniq/;	27	AddPatronsToList
		28	DelPatronsFromList
		29	GetPatronLists
		30	);
		31	use List::MoreUtils qw( uniq );
28		32
29	my $cgi = CGI->new;	33	my $cgi = CGI->new;
30		34

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/patron_lists/lists.pl (-1 / +1 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use Koha::List::Patron;	26	use Koha::List::Patron qw( GetPatronLists );
27		27
28	my $cgi = CGI->new;	28	my $cgi = CGI->new;
29		29

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/patron_lists/patrons.pl (-1 / +1 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use Koha::List::Patron;	26	use Koha::List::Patron qw( AddPatronList GetPatronLists ModPatronList );
27		27
28	my $cgi = CGI->new;	28	my $cgi = CGI->new;
29		29




use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use Graphics::Magick ();
use XML::Simple qw( XMLin );
use POSIX qw( ceil );
use Storable qw( dclone );
use autouse 'Data::Dumper' => qw(Dumper);

use C4::Context;
use C4::Creators ();
use C4::Patroncards ();
use Koha::List::Patron qw( GetPatronLists );
use Koha::Patrons;
use Koha::Patron::Images;


Lines 27-34 use autouse 'Data::Dumper' => qw(Dumper); Link Here

(-)a/patroncards/edit-batch.pl (-2 / +2 lines)
27		27
28	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
29	use C4::Output qw( output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers );
30	use C4::Creators;	30	use C4::Creators qw( get_card_summary html_table );
31	use C4::Patroncards;	31	use C4::Patroncards ();
32	use Koha::Patrons;	32	use Koha::Patrons;
33		33
34	my $cgi = CGI->new;	34	my $cgi = CGI->new;




use Modern::Perl;

use CGI qw ( -utf8 );
use XML::Simple qw( XMLin XMLout );
use XML::Simple;
use autouse 'Data::Dumper' => qw(Dumper);

use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Creators qw(
    get_all_image_names
    get_barcode_types
    get_font_types
    get_text_justification_types
    get_unit_values
);
use C4::Patroncards ();

my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 24-30 use CGI qw ( -utf8 ); Link Here

(-)a/patroncards/edit-profile.pl (-1 / +1 lines)
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Creators::Lib qw(get_all_templates get_unit_values);	27	use C4::Creators::Lib qw( get_all_templates get_unit_values );
28	use C4::Patroncards::Profile;	28	use C4::Patroncards::Profile;
29		29
30	my $cgi = CGI->new;	30	my $cgi = CGI->new;

Lines 25-32 use autouse 'Data::Dumper' => qw(Dumper); Link Here

(-)a/patroncards/edit-template.pl (-2 / +2 lines)
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
28	use C4::Creators;	28	use C4::Creators qw( get_all_profiles get_unit_values );
29	use C4::Patroncards;	29	use C4::Patroncards ();
30		30
31	my $cgi = CGI->new;	31	my $cgi = CGI->new;
32	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	32	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(




use Modern::Perl;

use CGI qw ( -utf8 );
use Graphics::Magick ();
use POSIX qw(ceil);

use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Creators qw( html_table );
use C4::Patroncards qw( get_image put_image rm_image );

my $cgi = CGI->new;






use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Creators qw(
    get_all_layouts
    get_all_profiles
    get_all_templates
    get_batch_summary
    html_table
);
use C4::Patroncards ();
use C4::Labels;
use Koha::List::Patron qw( GetPatronLists );

my $cgi = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 24-31 use autouse 'Data::Dumper' => qw(Dumper); Link Here

(-)a/patroncards/print.pl (-2 / +1 lines)
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Creators;	27	use C4::Creators qw( get_all_layouts get_all_templates get_output_formats );
28	use C4::Patroncards;
29		28
30	my $cgi = CGI->new;	29	my $cgi = CGI->new;
31	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	30	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 21-28 use Modern::Perl; Link Here

(-)a/plugins/plugins-home.pl (-2 / +2 lines)
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use JSON qw(from_json);	24	use JSON qw( from_json );
25	use LWP::Simple qw(get);	25	use LWP::Simple qw( get );
26		26
27	use Koha::Plugins;	27	use Koha::Plugins;
28	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );

Lines 18-25 Link Here

(-)a/plugins/plugins-uninstall.pl (-2 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Archive::Extract;	20	use Archive::Extract;
21	use File::Temp;
22	use File::Copy;
23	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
24		22
25	use C4::Context;	23	use C4::Context;

Lines 21-28 use Modern::Perl; Link Here

(-)a/plugins/plugins-upload.pl (-2 / +1 lines)
21	use Archive::Extract;	21	use Archive::Extract;
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use Mojo::UserAgent;	23	use Mojo::UserAgent;
24	use File::Copy;	24	use File::Temp ();
25	use File::Temp;
26		25
27	use C4::Context;	26	use C4::Context;
28	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );

Lines 19-25 Link Here

(-)a/pos/pay.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI ();
23	use JSON qw( from_json );	23	use JSON qw( from_json );
24		24
25	use C4::Auth qw( get_session get_template_and_user );	25	use C4::Auth qw( get_session get_template_and_user );

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

(-)a/pos/printreceipt.pl (-2 / +1 lines)
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	23	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Letters qw( getletter );	25	use C4::Letters ();
26	use Koha::Account::Lines;	26	use Koha::Account::Lines;
27	use Koha::DateUtils;
28	use Koha::Notice::Templates;	27	use Koha::Notice::Templates;
29		28
30	my $input = CGI->new;	29	my $input = CGI->new;

Lines 18-24 Link Here

(-)a/pos/register.pl (-2 / +2 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI ();
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Context;	24	use C4::Context;
Lines 26-32 use C4::Context; Link Here
26	use Koha::Account::Lines;	26	use Koha::Account::Lines;
27	use Koha::Cash::Registers;	27	use Koha::Cash::Registers;
28	use Koha::Database;	28	use Koha::Database;
29	use Koha::DateUtils;	29	use Koha::DateUtils qw( dt_from_string output_pref );
30		30
31	my $input = CGI->new();	31	my $input = CGI->new();
32		32

Lines 18-24 Link Here

(-)a/pos/registers.pl (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI ();
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Context;	24	use C4::Context;

Lines 26-34 use C4::Reports qw( GetDelimiterChoices ); Link Here

(-)a/reports/acquisitions_stats.pl (-2 / +2 lines)
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha qw( GetAuthorisedValues );	27	use C4::Koha qw( GetAuthorisedValues );
28	use C4::Circulation;	28	use C4::Circulation;
29	use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField );	29	use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );
30	use Koha::ItemTypes;	30	use Koha::ItemTypes;
31	use Koha::DateUtils;	31	use Koha::DateUtils qw( dt_from_string output_pref );
32	use Koha::Libraries;	32	use Koha::Libraries;
33		33
34	=head1 NAME	34	=head1 NAME




use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Koha;
use C4::Circulation;
use C4::Members;
use C4::Reports qw( GetDelimiterChoices );

use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
use Koha::Patron::Categories;


		$patrons{$id}->{oldcols}->{$col} = $rank;
    }

	use Data::Dumper qw( Dumper );

	$strcalc =~ s/old_issues/issues/g;
    $dbcalc = $dbh->prepare($strcalc);




use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Circulation;
use C4::Reports qw( GetDelimiterChoices );
use C4::Members;

use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patron::Categories;

=head1 NAME





use Modern::Perl;
use CGI qw ( -utf8 );
use List::MoreUtils qw/uniq/;

use C4::Auth qw( get_template_and_user );
use C4::Context;

use C4::Circulation;

use Koha::AuthorisedValues;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;
use Koha::Patron::Attribute::Types;
use Koha::Patron::Categories;

use Date::Calc qw( Add_Delta_YM Today );
  Today
  Add_Delta_YM
  );

=head1 NAME






use Modern::Perl;
use C4::Auth qw( get_template_and_user );
use CGI ();
use C4::Context;
use C4::Reports qw( GetDelimiterChoices );
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Circulation;
use DateTime;
use Koha::DateUtils qw( dt_from_string output_pref );
use Text::CSV::Encoded;
use List::Util qw( any );

use Koha::Account::CreditTypes;
use Koha::Account::DebitTypes;

Lines 27-33 use C4::Koha qw( GetAuthorisedValues ); Link Here

(-)a/reports/cat_issues_top.pl (-1 / +1 lines)
27	use C4::Circulation;	27	use C4::Circulation;
28	use C4::Reports qw( GetDelimiterChoices );	28	use C4::Reports qw( GetDelimiterChoices );
29	use C4::Members;	29	use C4::Members;
30	use Koha::DateUtils;	30	use Koha::DateUtils qw( dt_from_string output_pref );
31	use Koha::ItemTypes;	31	use Koha::ItemTypes;
32		32
33	=head1 NAME	33	=head1 NAME

Lines 24-30 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/reports/catalogue_out.pl (-1 / +1 lines)
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	# use Date::Manip; # TODO: add not borrowed since date X criteria	26	# use Date::Manip; # TODO: add not borrowed since date X criteria
27	use Data::Dumper;	27	use Data::Dumper qw( Dumper );
28		28
29	=head1 catalogue_out	29	=head1 catalogue_out
30		30

Lines 26-35 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/reports/catalogue_stats.pl (-2 / +2 lines)
26	use C4::Koha qw( GetAuthorisedValues );	26	use C4::Koha qw( GetAuthorisedValues );
27	use C4::Reports qw( GetDelimiterChoices );	27	use C4::Reports qw( GetDelimiterChoices );
28	use C4::Circulation;	28	use C4::Circulation;
29	use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField );	29	use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );
30		30
31	use Koha::AuthorisedValues;	31	use Koha::AuthorisedValues;
32	use Koha::DateUtils;	32	use Koha::DateUtils qw( dt_from_string );
33	use Koha::ItemTypes;	33	use Koha::ItemTypes;
34		34
35	=head1 NAME	35	=head1 NAME




#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Modern::Perl;
use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Output qw( output_html_with_http_headers );
use C4::Reports::Guided qw( get_from_dictionary get_columns get_column_type get_distinct_values save_dictionary delete_definition get_report_areas );
use Koha::DateUtils qw( dt_from_string output_pref );

=head1 NAME





use CGI qw/-utf8/;
use Text::CSV::Encoded;
use Encode qw( decode );
use URI::Escape ();
use File::Temp ();
use C4::Reports::Guided qw( delete_report get_report_areas convert_sql update_sql get_saved_reports get_results ValidateSQLParameters format_results get_report_types get_columns get_from_dictionary get_criteria build_query save_report execute_query nb_rows get_report_groups );
use Koha::Reports;
use C4::Auth qw( get_template_and_user get_session );
use C4::Output qw( pagination_bar output_html_with_http_headers );
use C4::Context;
use Koha::Caches;
use C4::Log qw( logaction );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::AuthorisedValue;
use Koha::AuthorisedValues;
use Koha::BiblioFrameworks;
use Koha::Libraries;
use Koha::Patron::Categories;
use Koha::SharedContent;
use Koha::Util::OpenDocument qw( generate_ods );

=head1 NAME





use CGI qw ( -utf8 );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Circulation;
use C4::Reports qw( GetDelimiterChoices );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::ItemTypes;
use Koha::Patron::Categories;
use Date::Calc qw( Delta_Days );

=head1 NAME


Lines 20-26 Link Here

(-)a/reports/issues_stats.pl (-2 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use Date::Manip;
24		23
25	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
26	use C4::Context;	25	use C4::Context;
Lines 31-37 use C4::Reports qw( GetDelimiterChoices ); Link Here
31	use C4::Members;	30	use C4::Members;
32		31
33	use Koha::AuthorisedValues;	32	use Koha::AuthorisedValues;
34	use Koha::DateUtils;	33	use Koha::DateUtils qw( dt_from_string output_pref );
35	use Koha::ItemTypes;	34	use Koha::ItemTypes;
36	use Koha::Patron::Attribute::Types;	35	use Koha::Patron::Attribute::Types;
37		36




use Modern::Perl;

use CGI qw ( -utf8 );
use Text::CSV_XS ();
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio;
use C4::Items;

use Koha::AuthorisedValues;
use Koha::CsvProfiles;
use Koha::DateUtils;

my $query = CGI->new;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 31-41 use CGI qw( -utf8 ); Link Here

(-)a/reports/orders_by_fund.pl (-3 / +1 lines)
31	use C4::Auth qw( get_template_and_user );	31	use C4::Auth qw( get_template_and_user );
32	use C4::Output qw( output_html_with_http_headers );	32	use C4::Output qw( output_html_with_http_headers );
33	use C4::Budgets;	33	use C4::Budgets;
34	use C4::Biblio;
35	use C4::Reports;
36	use C4::Acquisition; #GetBasket()	34	use C4::Acquisition; #GetBasket()
37	use Koha::Biblios;	35	use Koha::Biblios;
38	use Koha::DateUtils;	36	use Koha::DateUtils qw( dt_from_string output_pref );
39		37
40	my $query = CGI->new;	38	my $query = CGI->new;
41	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	39	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 28-38 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/reports/reserves_stats.pl (-2 / +2 lines)
28	use C4::Reports qw( GetDelimiterChoices );	28	use C4::Reports qw( GetDelimiterChoices );
29	use C4::Members;	29	use C4::Members;
30	use Koha::AuthorisedValues;	30	use Koha::AuthorisedValues;
31	use Koha::DateUtils;	31	use Koha::DateUtils qw( dt_from_string output_pref );
32	use Koha::ItemTypes;	32	use Koha::ItemTypes;
33	use Koha::Libraries;	33	use Koha::Libraries;
34	use Koha::Patron::Categories;	34	use Koha::Patron::Categories;
35	use List::MoreUtils qw/any/;	35	use List::MoreUtils qw( any );
36		36
37	=head1 NAME	37	=head1 NAME
38		38

Lines 22-28 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/reports/serials_stats.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Koha;
26	use C4::Reports qw( GetDelimiterChoices );	25	use C4::Reports qw( GetDelimiterChoices );
27	use C4::Serials qw( GetExpirationDate HasSubscriptionExpired );	26	use C4::Serials qw( GetExpirationDate HasSubscriptionExpired );
28		27




use Modern::Perl;

use CGI qw ( -utf8 );
use C4::Biblio;
use C4::Items;
use C4::Output;
use C4::Reserves qw( CanItemBeReserved AddReserve CanBookBeReserved );
use C4::Circulation;
use C4::Members;
use C4::Auth qw( checkauth );

use Koha::Items;




use Modern::Perl;

use CGI qw ( -utf8 );
use List::MoreUtils qw( uniq );
use Date::Calc qw( Date_to_Days );
use C4::Output qw( output_html_with_http_headers );
use C4::Auth qw( get_template_and_user );
use C4::Reserves qw( RevertWaitingStatus AlterPriority ToggleLowestPriority ToggleSuspend CanBookBeReserved GetMaxPatronHoldsForRecord ItemsAnyAvailableAndNotRestricted GetReservesControlBranch CanItemBeReserved IsAvailableForItemLevelRequest );
use C4::Items qw( get_hostitemnumbers_of );
use C4::Items qw( get_hostitemnumbers_of sub );
use C4::Koha qw( getitemtypeimagelocation );
use C4::Serials qw( CountSubscriptionFromBiblionumber );
use C4::Circulation qw( GetTransfers _GetCircControlBranch GetBranchItemRule );
use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Utils::DataTables::Members;
use C4::Members;
use C4::Search qw( enabled_staff_search_views );

use Koha::Biblios;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Checkouts;
use Koha::Holds;
use Koha::CirculationRules;

Lines 21-27 use CGI qw ( -utf8 ); Link Here

(-)a/reviews/reviewswaiting.pl (-1 lines)
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( pagination_bar output_html_with_http_headers );	22	use C4::Output qw( pagination_bar output_html_with_http_headers );
23	use C4::Context;	23	use C4::Context;
24	use C4::Biblio;
25	use Koha::Biblios;	24	use Koha::Biblios;
26	use Koha::Patrons;	25	use Koha::Patrons;
27	use Koha::Reviews;	26	use Koha::Reviews;

Lines 22-28 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/rotating_collections/addItems.pl (-1 lines)
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Context;	23	use C4::Context;
24	use C4::RotatingCollections;	24	use C4::RotatingCollections;
25	use C4::Items;
26		25
27	use Koha::Items;	26	use Koha::Items;
28		27

Lines 42-52 acqui-search-result.pl Link Here

(-)a/serials/acqui-search-result.pl (-2 / +1 lines)
42		42
43	use Modern::Perl;	43	use Modern::Perl;
44	use C4::Auth qw( get_template_and_user );	44	use C4::Auth qw( get_template_and_user );
45	use C4::Biblio;
46	use C4::Output qw( output_html_with_http_headers );	45	use C4::Output qw( output_html_with_http_headers );
47	use CGI qw ( -utf8 );	46	use CGI qw ( -utf8 );
48	use C4::Acquisition qw( SearchOrders );	47	use C4::Acquisition qw( SearchOrders );
49	use Koha::DateUtils;	48	use Koha::DateUtils qw( output_pref );
50		49
51	use Koha::Acquisition::Booksellers;	50	use Koha::Acquisition::Booksellers;
52		51

Lines 48-54 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/serials/checkexpiration.pl (-1 / +1 lines)
48	use C4::Serials qw( SearchSubscriptions GetExpirationDate );	48	use C4::Serials qw( SearchSubscriptions GetExpirationDate );
49	use C4::Output qw( output_html_with_http_headers );	49	use C4::Output qw( output_html_with_http_headers );
50	use C4::Context;	50	use C4::Context;
51	use Koha::DateUtils;	51	use Koha::DateUtils qw( dt_from_string );
52		52
53	use DateTime;	53	use DateTime;
54		54

Lines 24-31 use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClai Link Here

(-)a/serials/claims.pl (-2 / +1 lines)
24	use C4::Acquisition;	24	use C4::Acquisition;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Context;	26	use C4::Context;
27	use C4::Letters qw( SendAlerts GetLetters );	27	use C4::Letters qw( GetLetters SendAlerts );
28	use C4::Koha qw( GetAuthorisedValues );
29		28
30	use Koha::AdditionalFields;	29	use Koha::AdditionalFields;
31	use Koha::CsvProfiles;	30	use Koha::CsvProfiles;

Lines 20-28 Link Here

(-)a/serials/create-numberpattern.pl (-2 / +4 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Context;	22	use C4::Context;
23	use C4::Serials::Numberpattern;	23	use C4::Serials::Numberpattern qw(
		24	AddSubscriptionNumberpattern
		25	ModSubscriptionNumberpattern
		26	);
24	use C4::Auth qw( check_cookie_auth );	27	use C4::Auth qw( check_cookie_auth );
25	use URI::Escape;
26		28
27	my $input = CGI->new;	29	my $input = CGI->new;
28		30

Lines 25-31 use C4::Context; Link Here

(-)a/serials/lateissues-export.pl (-1 / +1 lines)
25		25
26	use Koha::CsvProfiles;	26	use Koha::CsvProfiles;
27		27
28	use Text::CSV_XS;	28	use Text::CSV_XS ();
29		29
30	my $query = CGI->new;	30	my $query = CGI->new;
31	my $supplierid = $query->param('supplierid');	31	my $supplierid = $query->param('supplierid');

Lines 27-37 use C4::Acquisition; Link Here

(-)a/serials/routing-preview.pl (-4 / +2 lines)
27	use C4::Reserves qw( AddReserve ModReserve );	27	use C4::Reserves qw( AddReserve ModReserve );
28	use C4::Circulation;	28	use C4::Circulation;
29	use C4::Context;	29	use C4::Context;
30	use C4::Members;	30	use C4::Items qw( GetItemsInfo );
31	use C4::Biblio;
32	use C4::Items qw( sub GetItemsInfo );
33	use C4::Serials qw( delroutingmember getroutinglist GetSubscription GetSerials check_routing );	31	use C4::Serials qw( delroutingmember getroutinglist GetSubscription GetSerials check_routing );
34	use URI::Escape;	32	use URI::Escape ();
35		33
36	use Koha::Biblios;	34	use Koha::Biblios;
37	use Koha::Libraries;	35	use Koha::Libraries;

Lines 34-44 use C4::Acquisition; Link Here

(-)a/serials/routing.pl (-2 / +1 lines)
34	use C4::Output qw( output_and_exit output_html_with_http_headers );	34	use C4::Output qw( output_and_exit output_html_with_http_headers );
35	use C4::Context;	35	use C4::Context;
36		36
37	use C4::Members;
38	use C4::Serials qw( GetSubscription delroutingmember addroutingmember getroutinglist GetSerials GetLatestSerials check_routing );	37	use C4::Serials qw( GetSubscription delroutingmember addroutingmember getroutinglist GetSerials GetLatestSerials check_routing );
39	use Koha::Patrons;	38	use Koha::Patrons;
40		39
41	use URI::Escape;	40	use URI::Escape ();
42		41
43	my $query = CGI->new;	42	my $query = CGI->new;
44	my $subscriptionid = $query->param('subscriptionid');	43	my $subscriptionid = $query->param('subscriptionid');




use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Serials qw( ModSerialStatus GetSubscription GetNextExpected GetNextSeq GetNextDate NewIssue HasSubscriptionExpired abouttoexpire check_routing GetFullSubscription PrepareSerialsData CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber GetFullSubscriptionsFromBiblionumber );
use C4::Letters;
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Context;
use Koha::Serial::Items;

use Koha::DateUtils qw( dt_from_string );

use List::MoreUtils qw( uniq );


my $query = CGI->new;





use Modern::Perl;
use CGI qw ( -utf8 );
use Encode ();
use C4::Auth qw( get_template_and_user haspermission );
use C4::Biblio qw( GetMarcFromKohaField TransformHtmlToXml );
use C4::Items qw( AddItemFromMarc ModItemFromMarc PrepareItemrecordDisplay );
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Context;
use C4::Serials qw( GetSerials GetSerials2 GetSerialInformation HasSubscriptionExpired GetSubscription abouttoexpire NewIssue ModSerialStatus GetPreviousSerialid AddItem2Serial );
use C4::Search qw( enabled_staff_search_views );

use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Items;
use Koha::Serial::Items;

use List::MoreUtils qw( uniq );

my $query           = CGI->new();
my $dbh             = C4::Context->dbh;




use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Koha qw( GetAuthorisedValues );
use C4::Output qw( output_html_with_http_headers );
use C4::Serials qw( CloseSubscription ReopenSubscription SearchSubscriptions check_routing );
use Koha::AdditionalFields;

use Koha::DateUtils qw( dt_from_string );
use Koha::SharedContent;

my $query         = CGI->new;




use Modern::Perl;

use CGI qw ( -utf8 );
use Date::Calc qw( Add_Delta_Days Add_Delta_YM Day_of_Week Delta_Days );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
use Koha::DateUtils qw( dt_from_string output_pref );

my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {




use Modern::Perl;

use CGI qw ( -utf8 );
use Date::Calc qw( Add_Delta_Days Add_Delta_YM );
use C4::Koha qw( GetAuthorisedValues );
use C4::Biblio qw( GetMarcBiblio );
use C4::Auth qw( get_template_and_user );

use C4::Letters qw( GetLetters );
use Koha::AdditionalFields;
use Koha::Biblios;
use Koha::DateUtils qw( output_pref );
use Koha::ItemTypes;
use Carp qw( carp );

use Koha::Subscription::Numberpattern;
use Koha::Subscription::Frequency;

Lines 27-33 use C4::Serials qw( can_edit_subscription ); Link Here

(-)a/serials/subscription-batchedit.pl (-1 / +1 lines)
27	use Koha::Subscriptions;	27	use Koha::Subscriptions;
28	use Koha::Acquisition::Booksellers;	28	use Koha::Acquisition::Booksellers;
29	use Koha::AdditionalFields;	29	use Koha::AdditionalFields;
30	use Koha::DateUtils;	30	use Koha::DateUtils qw( dt_from_string );
31		31
32	my $cgi = CGI->new;	32	my $cgi = CGI->new;
33		33




use C4::Acquisition;
use C4::Auth qw( get_template_and_user checkauth );
use C4::Budgets;
use C4::Koha;
use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription );
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Context;


use Koha::AdditionalFields;
use Koha::AuthorisedValues;
use Koha::DateUtils qw( output_pref );
use Koha::Acquisition::Bookseller;
use Koha::Subscriptions;

use Carp qw( carp );
use Carp;

use Koha::SharedContent;


Lines 20-26 Link Here

(-)a/serials/subscription-frequency.pl (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Context;	22	use C4::Context;
23	use C4::Serials::Frequency;	23	use C4::Serials::Frequency qw( GetSubscriptionFrequency );
24	use C4::Auth qw( check_cookie_auth );	24	use C4::Auth qw( check_cookie_auth );
25	use JSON qw( to_json );	25	use JSON qw( to_json );
26		26

Lines 33-42 use CGI qw ( -utf8 ); Link Here

(-)a/serials/subscription-history.pl (-2 / +1 lines)
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_html_with_http_headers );	34	use C4::Output qw( output_html_with_http_headers );
35		35
36	use C4::Biblio;
37	use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription );	36	use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription );
38	use Koha::Biblios;	37	use Koha::Biblios;
39	use Koha::DateUtils;	38	use Koha::DateUtils qw( output_pref );
40		39
41	my $input = CGI->new;	40	my $input = CGI->new;
42	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {	41	my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {

Lines 19-25 Link Here

(-)a/serials/subscription-numberpattern.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Serials::Numberpattern;	22	use C4::Serials::Numberpattern qw( GetSubscriptionNumberpattern );
23	use C4::Auth qw( check_cookie_auth );	23	use C4::Auth qw( check_cookie_auth );
24	use JSON qw( to_json );	24	use JSON qw( to_json );
25		25





use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Serials::Numberpattern qw(
    AddSubscriptionNumberpattern
    DelSubscriptionNumberpattern
    GetSubscriptionNumberpattern
    GetSubscriptionNumberpatternByName
    GetSubscriptionNumberpatterns
    GetSubscriptionsWithNumberpattern
    ModSubscriptionNumberpattern
);
use C4::Serials::Frequency qw( GetSubscriptionFrequencies );

my $input = CGI->new;
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {




use Modern::Perl;

use CGI qw ( -utf8 );
use Carp qw( carp );
use C4::Koha;
use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Serials qw( GetSubscription GetSubscriptionLength NewSubscription ReNewSubscription );
use Koha::DateUtils qw( dt_from_string output_pref );

my $query = CGI->new;
my $dbh   = C4::Context->dbh;

Lines 33-39 use Koha::Acquisition::Currencies; Link Here

(-)a/suggestion/suggestion.pl (-1 / +1 lines)
33	use Koha::Libraries;	33	use Koha::Libraries;
34	use Koha::Patrons;	34	use Koha::Patrons;
35		35
36	use URI::Escape;	36	use URI::Escape qw( uri_escape );
37		37
38	sub Init{	38	sub Init{
39	my $suggestion= shift @_;	39	my $suggestion= shift @_;

Lines 18-27 Link Here

(-)a/svc/cataloguing/automatic_linker.pl (-3 / +3 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI ();
22	use JSON;	22	use JSON qw( to_json );
23	use C4::Auth qw( check_cookie_auth );	23	use C4::Auth qw( check_cookie_auth );
24	use C4::Biblio qw( TransformHtmlToMarc BiblioAutoLink );	24	use C4::Biblio qw( BiblioAutoLink TransformHtmlToMarc );
25	use C4::Context;	25	use C4::Context;
26		26
27	my $input = CGI->new;	27	my $input = CGI->new;

Lines 4-10 use Modern::Perl; Link Here

(-)a/t/Koha/sleep.pl (-1 lines)
4		4
5	use Koha::Script;	5	use Koha::Script;
6	use Fcntl qw(:flock);	6	use Fcntl qw(:flock);
7	use Try::Tiny;
8		7
9	# # Lock execution	8	# # Lock execution
10	my $script = Koha::Script->new({ script => 'sleep.pl' });	9	my $script = Koha::Script->new({ script => 'sleep.pl' });

Lines 4-10 use Modern::Perl; Link Here

(-)a/t/Koha/wait.pl (-1 lines)
4		4
5	use Koha::Script;	5	use Koha::Script;
6	use Fcntl qw(:flock);	6	use Fcntl qw(:flock);
7	use Try::Tiny;
8		7
9	# # Lock execution	8	# # Lock execution
10	my $script = Koha::Script->new({ script => 'sleep.pl' });	9	my $script = Koha::Script->new({ script => 'sleep.pl' });

Lines 2-12 Link Here

(-)a/t/db_dependent/zebra_config.pl (-5 / +5 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use File::Copy;	5	use File::Copy qw( copy );
6	use File::Path qw(make_path);	6	use File::Path qw( make_path );
7	use File::Find;	7	use File::Find qw( find );
8	use File::Basename;	8	use File::Basename qw( dirname );
9	use File::Spec;	9	use File::Spec ();
10		10
11	use C4::Context;	11	use C4::Context;
12		12

Lines 24-31 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/tags/list.pl (-2 / +1 lines)
24	use C4::Biblio qw( GetBiblioData );	24	use C4::Biblio qw( GetBiblioData );
25	use C4::Context;	25	use C4::Context;
26	use C4::Items qw( GetItemsInfo );	26	use C4::Items qw( GetItemsInfo );
27	use C4::Koha;	27	use C4::Tags qw( get_tag_rows get_tags remove_tag );
28	use C4::Tags qw( remove_tag get_tag_rows get_tag get_tags );
29	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
30		29
31	my $needed_flags = { tools => 'moderate_tags'	30	my $needed_flags = { tools => 'moderate_tags'




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

use Modern::Perl;
use Data::Dumper qw( Dumper );
use POSIX qw( ceil exit );
use CGI qw ( -utf8 );
use CGI::Cookie;     # need to check cookies before having CGI parse the POST request
use URI::Escape qw( uri_escape_utf8 );
use C4::Auth qw( check_cookie_auth get_template_and_user );
use C4::Context;
use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers );
use C4::Tags qw(
    approval_counts
    blacklist
    get_approval_rows
    is_approved
    whitelist
);

my $script_name = "/cgi-bin/koha/tags/review.pl";
my $needed_flags = { tools => 'moderate_tags' };    # FIXME: replace when more specific permission is created.




use Modern::Perl;

use C4::Auth qw( get_template_and_user );
use CGI ();
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use File::stat qw( stat );
use Digest::MD5 qw( md5_hex );
use Encode qw( decode );
use Encode;

my $input = CGI->new;
my $file_id = $input->param("id");





use Modern::Perl;

use CGI ();
use JSON qw( to_json );

use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Items qw( sub );
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;


Lines 20-26 Link Here

(-)a/tools/background-job-progress.pl (-1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	# standard or CPAN modules used	22	# standard or CPAN modules used
23	use IO::File;
24	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
25	use CGI::Session;	24	use CGI::Session;
26	use C4::Context;	25	use C4::Context;





use CGI qw ( -utf8 );
use Modern::Perl;
use Try::Tiny qw( catch try );

use C4::Auth qw( get_template_and_user haspermission );
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio qw(
    DelBiblio
    GetAuthorisedValueDesc
    GetMarcFromKohaField
    GetMarcStructure
    IsMarcStructureInternal
    TransformHtmlToXml
);
use C4::Items qw( GetItemsInfo Item2Marc ModItemFromMarc );
use C4::Circulation qw( LostItem IsItemIssued );
use C4::Context;
use C4::Koha;
use C4::BackgroundJob;
use C4::ClassSource qw( GetClassSources );
use C4::Members;
use MARC::File::XML;
use List::MoreUtils qw( uniq );

use Koha::Database;
use Koha::Exceptions::Exception;
use Koha::AuthorisedValues;
use Koha::Biblios;
use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::ItemTypes;
use Koha::Patrons;





use Modern::Perl;

use CGI ();
use List::MoreUtils qw( uniq );

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 Koha::Virtualshelves;

use Koha::Authorities;

Lines 20-26 Link Here

(-)a/tools/batch_extend_due_dates.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI ();
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );





use Modern::Perl;

use CGI ();
use List::MoreUtils qw( uniq );
use Try::Tiny qw( catch try );
use Try::Tiny;

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::MarcModificationTemplates qw(
    GetModificationTemplateActions
    GetModificationTemplates
);

use Koha::Biblios;
use Koha::BackgroundJob::BatchUpdateBiblio;

Lines 32-41 the records from an import batch. Link Here

(-)a/tools/batch_records_ajax.pl (-2 / +1 lines)
32	use Modern::Perl;	32	use Modern::Perl;
33		33
34	use CGI qw ( -utf8 );	34	use CGI qw ( -utf8 );
35	use JSON qw/ to_json /;	35	use JSON qw( to_json );
36		36
37	use C4::Context;	37	use C4::Context;
38	use C4::Charset;
39	use C4::Auth qw( check_cookie_auth );	38	use C4::Auth qw( check_cookie_auth );
40	use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );	39	use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );
41		40

Lines 41-49 use C4::Circulation; # AnonymiseIssueHistory. Link Here

(-)a/tools/cleanborrowers.pl (-2 / +1 lines)
41	use Koha::DateUtils qw( dt_from_string output_pref );	41	use Koha::DateUtils qw( dt_from_string output_pref );
42	use Koha::Patron::Categories;	42	use Koha::Patron::Categories;
43	use Koha::Patrons;	43	use Koha::Patrons;
44	use Date::Calc qw/Today Add_Delta_YM/;
45	use Koha::Patrons;	44	use Koha::Patrons;
46	use Koha::List::Patron;	45	use Koha::List::Patron qw( GetPatronLists );
47		46
48	my $cgi = CGI->new;	47	my $cgi = CGI->new;
49		48




=cut

use Modern::Perl;
use Encode ();

use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Koha;
use Koha::CsvProfiles;

my $input            = CGI->new;

Lines 9-15 use C4::Output; Link Here

(-)a/tools/exceptionHolidays.pl (-1 / +1 lines)
9	use DateTime;	9	use DateTime;
10		10
11	use C4::Calendar;	11	use C4::Calendar;
12	use Koha::DateUtils;	12	use Koha::DateUtils qw( dt_from_string );
13		13
14	my $input = CGI->new;	14	my $input = CGI->new;
15	my $dbh = C4::Context->dbh();	15	my $dbh = C4::Context->dbh();

Lines 19-25 Link Here

(-)a/tools/export.pl (-2 / +2 lines)
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use MARC::File::XML;	21	use MARC::File::XML;
22	use List::MoreUtils qw(uniq);	22	use List::MoreUtils qw( uniq );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25		25
Lines 27-33 use Koha::Authority::Types; Link Here
27	use Koha::Biblioitems;	27	use Koha::Biblioitems;
28	use Koha::CsvProfiles;	28	use Koha::CsvProfiles;
29	use Koha::Database;	29	use Koha::Database;
30	use Koha::DateUtils qw( dt_from_string output_pref );	30	use Koha::DateUtils qw( dt_from_string );
31	use Koha::Exporter::Record;	31	use Koha::Exporter::Record;
32	use Koha::ItemTypes;	32	use Koha::ItemTypes;
33	use Koha::Libraries;	33	use Koha::Libraries;

Lines 24-30 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/tools/holidays.pl (-1 / +1 lines)
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25		25
26	use C4::Calendar;	26	use C4::Calendar;
27	use Koha::DateUtils;	27	use Koha::DateUtils qw( dt_from_string output_pref );
28		28
29	my $input = CGI->new;	29	my $input = CGI->new;
30		30




use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Templates;
use Koha::Patrons;
use Koha::DateUtils qw( dt_from_string );
use Koha::Token;
use Koha::Libraries;
use Koha::Patron::Categories;
use Koha::Patron::Attribute::Types;
use Koha::List::Patron qw( AddPatronList AddPatronsToList );

use Koha::Patrons::Import ();
my $Import = Koha::Patrons::Import->new();

use Text::CSV;




use C4::Auth qw( get_template_and_user );
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Items qw( GetItemsForInventory );
use C4::Items qw( GetItemsForInventory sub );
use C4::Koha qw( GetAuthorisedValues );
use C4::Circulation qw( AddReturn );
use C4::Reports::Guided qw( _get_column_defs );
use C4::Charset qw( NormalizeString );

use Koha::Biblios;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::AuthorisedValues;
use Koha::BiblioFrameworks;
use Koha::ClassSources;




use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::NewsChannels qw(
    add_opac_new
    del_opac_new
    get_opac_new
    get_opac_news
    upd_opac_new
);
use C4::Languages qw( getTranslatedLanguages );
use Date::Calc qw( Date_to_Days Today );
use Koha::DateUtils qw( dt_from_string output_pref );

my $cgi = CGI->new;


Lines 45-52 use CGI qw ( -utf8 ); Link Here

(-)a/tools/letter.pl (-2 / +2 lines)
45	use C4::Auth qw( get_template_and_user );	45	use C4::Auth qw( get_template_and_user );
46	use C4::Context;	46	use C4::Context;
47	use C4::Output qw( output_html_with_http_headers );	47	use C4::Output qw( output_html_with_http_headers );
48	use C4::Letters qw( GetLetterTemplates GetMessageTransportTypes GetMessage getletter );	48	use C4::Letters qw( GetMessageTransportTypes );
49	use C4::Log;	49	use C4::Log qw( logaction );
50		50
51	use Koha::Notice::Templates;	51	use Koha::Notice::Templates;
52	use Koha::Patron::Attribute::Types;	52	use Koha::Patron::Attribute::Types;

Lines 30-36 use C4::Koha; Link Here

(-)a/tools/manage-marc-import.pl (-1 lines)
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
31	use C4::Auth qw( get_template_and_user );	31	use C4::Auth qw( get_template_and_user );
32	use C4::Output qw( output_html_with_http_headers );	32	use C4::Output qw( output_html_with_http_headers );
33	use C4::Biblio;
34	use C4::ImportBatch qw( CleanBatch DeleteBatch sub GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );	33	use C4::ImportBatch qw( CleanBatch DeleteBatch sub GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
35	use C4::Matcher;	34	use C4::Matcher;
36	use C4::BackgroundJob;	35	use C4::BackgroundJob;




use CGI qw ( -utf8 );

use C4::Auth qw( get_template_and_user );
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::MarcModificationTemplates qw(
    AddModificationTemplate
    AddModificationTemplateAction
    DelModificationTemplate
    DelModificationTemplateAction
    GetModificationTemplateActions
    GetModificationTemplates
    ModModificationTemplateAction
    MoveModificationTemplateAction
);

my $cgi = CGI->new;





use C4::Koha qw( GetAuthorisedValues );
use C4::Members;
use C4::Output qw( output_html_with_http_headers );
use List::MoreUtils qw /any uniq/;
use Koha::DateUtils qw( dt_from_string );
use Koha::List::Patron qw( GetPatronLists );
use Koha::Libraries;
use Koha::Patron::Categories;
use Koha::Patron::Debarments qw( AddDebarment DelDebarment GetDebarments );
use Koha::Patrons;

my $input = CGI->new;

Lines 26-32 use C4::Output; Link Here

(-)a/tools/newHolidays.pl (-1 / +1 lines)
26		26
27	use C4::Calendar;	27	use C4::Calendar;
28	use DateTime;	28	use DateTime;
29	use Koha::DateUtils;	29	use Koha::DateUtils qw( dt_from_string output_pref );
30		30
31	my $input = CGI->new;	31	my $input = CGI->new;
32	my $dbh = C4::Context->dbh();	32	my $dbh = C4::Context->dbh();

Lines 22-29 use CGI qw ( -utf8 ); Link Here

(-)a/tools/overduerules.pl (-2 / +1 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Koha;	25	use C4::Letters ();
26	use C4::Letters qw( GetLetters GetLettersAvailableForALibrary GetMessageTransportTypes GetMessage );
27	use C4::Members;	26	use C4::Members;
28	use C4::Overdues qw( GetOverdueMessageTransportTypes );	27	use C4::Overdues qw( GetOverdueMessageTransportTypes );
29	use Koha::Libraries;	28	use Koha::Libraries;

Lines 21-30 Link Here

(-)a/tools/picture-upload.pl (-3 / +2 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use File::Temp;	24	use File::Temp ();
25	use File::Copy;
26	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
27	use GD;	26	use GD ();
28	use C4::Context;	27	use C4::Context;
29	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
30	use C4::Output qw( output_and_exit output_html_with_http_headers );	29	use C4::Output qw( output_and_exit output_html_with_http_headers );

Lines 23-29 use CGI qw ( -utf8 ); Link Here

(-)a/tools/quotes-upload.pl (-1 lines)
23	use autouse 'Data::Dumper' => qw(Dumper);	23	use autouse 'Data::Dumper' => qw(Dumper);
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Koha;
27	use C4::Context;	26	use C4::Context;
28	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
29		28

Lines 18-24 Link Here

(-)a/tools/quotes.pl (-1 / +1 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use Try::Tiny;	21	use Try::Tiny qw( catch try );
22		22
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;





use Modern::Perl;
use C4::Context;
use C4::Scheduler qw( add_at_job get_jobs remove_at_job );
use C4::Reports::Guided qw( get_saved_reports );
use C4::Auth qw( get_template_and_user );
use CGI qw ( -utf8 );
use C4::Output qw( output_html_with_http_headers );
use Koha::DateUtils qw( dt_from_string output_pref );;

use vars qw($debug);





use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Biblio;
use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File RecordsFromMarcPlugin BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction sub );
use C4::Matcher;
use Koha::UploadedFiles;
use C4::BackgroundJob;
use C4::MarcModificationTemplates qw( GetModificationTemplates );
use Koha::Plugins;
use Koha::ImportBatches;


Lines 25-31 Link Here

(-)a/tools/stockrotation.pl (-1 / +1 lines)
25	=cut	25	=cut
26		26
27	use Modern::Perl;	27	use Modern::Perl;
28	use CGI;	28	use CGI ();
29		29
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
31	use C4::Context;	31	use C4::Context;





use Modern::Perl;

use File::Temp ();
use CGI qw ( -utf8 );
use GD ();
use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );

use Koha::CoverImages;
use Koha::Items;
use Koha::UploadedFiles;
use C4::Log qw( logaction );

my $debug = 1;


Lines 21-29 use Modern::Perl; Link Here

(-)a/tools/upload-file.pl (-3 / +3 lines)
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use CGI::Cookie;	23	use CGI::Cookie;
24	use Encode;	24	use Encode ();
25	use JSON;	25	use JSON ();
26	use URI::Escape;	26	use URI::Escape qw( uri_unescape );
27		27
28	use C4::Context;	28	use C4::Context;
29	use C4::Auth qw( check_cookie_auth get_session );	29	use C4::Auth qw( check_cookie_auth get_session );

Lines 19-25 Link Here

(-)a/tools/upload.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw/-utf8/;	21	use CGI qw/-utf8/;
22	use JSON;	22	use JSON ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );




use CGI qw ( -utf8 );
use Text::CSV::Encoded;
use C4::Context;
use C4::Koha;
use C4::Output qw( output_html_with_http_headers );
use C4::Items qw( sub );
use C4::Serials qw( CountSubscriptionFromBiblionumber );
use C4::Search qw( enabled_staff_search_views );

use Koha::ActionLogs;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::Patrons;


Lines 59-65 addbybiblionumber.pl Link Here

(-)a/virtualshelves/addbybiblionumber.pl (-1 lines)
59	use Modern::Perl;	59	use Modern::Perl;
60		60
61	use CGI qw ( -utf8 );	61	use CGI qw ( -utf8 );
62	use C4::Biblio;
63	use C4::Output qw( output_html_with_http_headers );	62	use C4::Output qw( output_html_with_http_headers );
64	use C4::Auth qw( get_template_and_user );	63	use C4::Auth qw( get_template_and_user );
65		64




use Modern::Perl;

use CGI qw ( -utf8 );
use Encode qw(encode);

use C4::Auth qw( get_template_and_user );
use C4::Biblio qw( GetMarcBiblio );
use C4::Items;
use C4::Output qw( output_html_with_http_headers );
use C4::Record;
use C4::Ris qw( marc2ris );

use Koha::CsvProfiles;
use Koha::Virtualshelves;




use Modern::Perl;

use CGI qw ( -utf8 );
use Encode ();
use Carp qw( carp );
use Try::Tiny qw( catch try );

use C4::Auth qw( get_template_and_user );
use C4::Biblio qw(
    GetBiblioData
    GetMarcAuthors
    GetMarcBiblio
    GetMarcISBN
    GetMarcSubjects
);
use C4::Items qw( GetItemsInfo );
use C4::Output qw( output_html_with_http_headers );
use Koha::Email;
use Koha::Virtualshelves;

Lines 21-28 use Modern::Perl; Link Here

(-)a/virtualshelves/shelves.pl (-2 / +7 lines)
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Biblio qw( GetMarcBiblio );	23	use C4::Biblio qw( GetMarcBiblio );
24	use C4::Koha qw( getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );	24	use C4::Koha qw(
25	use C4::Items qw( sub GetItemsLocationInfo );	25	GetNormalizedEAN
		26	GetNormalizedISBN
		27	GetNormalizedOCLCNumber
		28	GetNormalizedUPC
		29	);
		30	use C4::Items qw( GetItemsLocationInfo );
26	use C4::Members;	31	use C4::Members;
27	use C4::Output qw( pagination_bar output_html_with_http_headers );	32	use C4::Output qw( pagination_bar output_html_with_http_headers );
28	use C4::XSLT;	33	use C4::XSLT;

Lines 18-25 Link Here

(-)a/xt/yaml_valid.pl (-3 / +2 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Getopt::Long;	21	use Getopt::Long qw( GetOptions );
22	use YAML::XS;	22	use YAML::XS ();
23		23
24	my $usage = <<EOF;	24	my $usage = <<EOF;
25	yaml_valid.pl - give it a filename and it will told you if it is an exact yaml file.	25	yaml_valid.pl - give it a filename and it will told you if it is an exact yaml file.
26	-

Return to bug 17600

Lines 119-133 if it is an order from an existing suggestion : the id of this suggestion. Link Here

(-)a/acqui/addorder.pl (-4 / +9 lines)
119		119
120	use Modern::Perl;	120	use Modern::Perl;
121	use CGI qw ( -utf8 );	121	use CGI qw ( -utf8 );
122	use JSON qw ( to_json );	122	use JSON qw( to_json );
123	use C4::Auth qw( get_template_and_user );	123	use C4::Auth qw( get_template_and_user );
124	use C4::Acquisition; # ModOrder	124	use C4::Acquisition; # ModOrder
125	use C4::Suggestions; # ModStatus	125	use C4::Suggestions; # ModStatus
126	use C4::Biblio qw( TransformHtmlToXml TransformKohaToMarc AddBiblio GetMarcFromKohaField );	126	use C4::Biblio qw(
		127	AddBiblio
		128	GetMarcFromKohaField
		129	TransformHtmlToXml
		130	TransformKohaToMarc
		131	);
127	use C4::Budgets;	132	use C4::Budgets;
128	use C4::Items qw( sub AddItemFromMarc );	133	use C4::Items qw( AddItemFromMarc );
129	use C4::Output qw( output_html_with_http_headers );	134	use C4::Output qw( output_html_with_http_headers );
130	use C4::Log qw(logaction);	135	use C4::Log qw( logaction );
131	use Koha::Acquisition::Currencies;	136	use Koha::Acquisition::Currencies;
132	use Koha::Acquisition::Orders;	137	use Koha::Acquisition::Orders;
133	use Koha::Acquisition::Baskets;	138	use Koha::Acquisition::Baskets;

Lines 24-40 use Modern::Perl; Link Here

(-)a/about.pl (-12 / +9 lines)
24		24
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use DateTime::TimeZone;	26	use DateTime::TimeZone;
27	use File::Spec;	27	use File::Slurp qw( read_file );
28	use File::Slurp;	28	use List::MoreUtils qw( any );
29	use List::MoreUtils qw/ any /;	29	use Module::Load::Conditional qw( can_load );
30	use LWP::Simple;	30	use Config qw( %Config );
31	use Module::Load::Conditional qw(can_load);
32	use XML::Simple;
33	use Config;
34	use Search::Elasticsearch;	31	use Search::Elasticsearch;
35	use Try::Tiny;	32	use Try::Tiny qw( catch try );
36	use YAML::XS;	33	use YAML::XS ();
37	use Encode;	34	use Encode ();
38		35
39	use C4::Output qw( output_html_with_http_headers );	36	use C4::Output qw( output_html_with_http_headers );
40	use C4::Auth qw( get_template_and_user get_user_subpermissions );	37	use C4::Auth qw( get_template_and_user get_user_subpermissions );
Lines 42-48 use C4::Context; Link Here
42	use C4::Installer::PerlModules;	39	use C4::Installer::PerlModules;
43		40
44	use Koha;	41	use Koha;
45	use Koha::DateUtils qw(dt_from_string output_pref);	42	use Koha::DateUtils qw( dt_from_string output_pref );
46	use Koha::Acquisition::Currencies;	43	use Koha::Acquisition::Currencies;
47	use Koha::BackgroundJob;	44	use Koha::BackgroundJob;
48	use Koha::BiblioFrameworks;	45	use Koha::BiblioFrameworks;
Lines 56-62 use Koha::SearchEngine::Elasticsearch; Link Here
56	use Koha::Logger;	53	use Koha::Logger;
57	use Koha::Filter::MARC::ViewPolicy;	54	use Koha::Filter::MARC::ViewPolicy;
58		55
59	use C4::Members::Statistics qw( get_fields );	56	use C4::Members::Statistics ();
60		57
61		58
62	#use Smart::Comments '####';	59	#use Smart::Comments '####';

Lines 23-32 Link Here

(-)a/acqui/addorderiso2709.pl (-7 / +11 lines)
23		23
24	use Modern::Perl;	24	use Modern::Perl;
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use Carp;	26	use YAML::XS ();
27	use YAML::XS;	27	use List::MoreUtils ();
28	use List::MoreUtils qw/uniq/;	28	use Encode ();
29	use Encode;
30		29
31	use C4::Context;	30	use C4::Context;
32	use C4::Auth qw( get_template_and_user );	31	use C4::Auth qw( get_template_and_user );
Lines 35-43 use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecor Link Here
35	use C4::Matcher;	34	use C4::Matcher;
36	use C4::Search qw( FindDuplicate );	35	use C4::Search qw( FindDuplicate );
37	use C4::Acquisition;	36	use C4::Acquisition;
38	use C4::Biblio qw( GetMarcQuantity GetMarcFromKohaField AddBiblio GetMarcPrice TransformHtmlToXml );	37	use C4::Biblio qw(
39	use C4::Items qw( PrepareItemrecordDisplay sub AddItemFromMarc );	38	AddBiblio
40	use C4::Koha;	39	GetMarcFromKohaField
		40	GetMarcPrice
		41	GetMarcQuantity
		42	TransformHtmlToXml
		43	);
		44	use C4::Items qw( AddItemFromMarc PrepareItemrecordDisplay );
41	use C4::Budgets;	45	use C4::Budgets;
42	use C4::Acquisition;	46	use C4::Acquisition;
43	use C4::Suggestions; # GetSuggestion	47	use C4::Suggestions; # GetSuggestion

Lines 22-35 Link Here

(-)a/acqui/basket.pl (-5 / +2 lines)
22		22
23	use Modern::Perl;	23	use Modern::Perl;
24	use C4::Auth qw( get_template_and_user haspermission );	24	use C4::Auth qw( get_template_and_user haspermission );
25	use C4::Koha;
26	use C4::Output qw( output_html_with_http_headers output_and_exit );	25	use C4::Output qw( output_html_with_http_headers output_and_exit );
27	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
28	use C4::Acquisition;	27	use C4::Acquisition;
29	use C4::Budgets;	28	use C4::Budgets;
30	use C4::Contract;	29	use C4::Contract qw( GetContract );
31	use C4::Biblio;
32	use C4::Items qw( sub );
33	use C4::Suggestions;	30	use C4::Suggestions;
34	use Koha::Biblios;	31	use Koha::Biblios;
35	use Koha::Acquisition::Baskets;	32	use Koha::Acquisition::Baskets;
Lines 37-43 use Koha::Acquisition::Booksellers; Link Here
37	use Koha::Acquisition::Orders;	34	use Koha::Acquisition::Orders;
38	use Koha::Libraries;	35	use Koha::Libraries;
39	use C4::Letters qw( SendAlerts );	36	use C4::Letters qw( SendAlerts );
40	use Date::Calc qw/Add_Delta_Days/;	37	use Date::Calc qw( Add_Delta_Days );
41	use Koha::Database;	38	use Koha::Database;
42	use Koha::EDI qw( create_edi_order );	39	use Koha::EDI qw( create_edi_order );
43	use Koha::CsvProfiles;	40	use Koha::CsvProfiles;

Lines 44-57 The bookseller who we want to display the baskets (and basketgroups) of. Link Here

(-)a/acqui/basketgroup.pl (-4 / +18 lines)
44	=cut	44	=cut
45		45
46	use Modern::Perl;	46	use Modern::Perl;
47	use Carp;	47	use Carp qw( croak );
48		48
49	use C4::Auth qw( get_template_and_user );	49	use C4::Auth qw( get_template_and_user );
50	use C4::Output qw( output_html_with_http_headers );	50	use C4::Output qw( output_html_with_http_headers );
51	use CGI qw ( -utf8 );	51	use CGI qw ( -utf8 );
52	use File::Spec;	52	use File::Spec ();
53		53
54	use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV get_rounded_price/;	54	use C4::Acquisition qw(
		55	CloseBasketgroup
		56	DelBasketgroup
		57	get_rounded_price
		58	GetBasketgroup
		59	GetBasketGroupAsCSV
		60	GetBasketgroups
		61	GetBasketsByBasketgroup
		62	GetBasketsByBookseller
		63	GetOrders
		64	ModBasket
		65	ModBasketgroup
		66	NewBasketgroup
		67	ReOpenBasketgroup
		68	);
55	use Koha::EDI qw( get_edifact_ean create_edi_order );	69	use Koha::EDI qw( get_edifact_ean create_edi_order );
56		70
57	use Koha::Biblioitems;	71	use Koha::Biblioitems;

Lines 27-40 use C4::Output; Link Here

(-)a/acqui/finishreceive.pl (-2 / +1 lines)
27	use C4::Context;	27	use C4::Context;
28	use C4::Acquisition;	28	use C4::Acquisition;
29	use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );	29	use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
30	use C4::Items qw( sub GetMarcItem ModItemFromMarc AddItemFromMarc );	30	use C4::Items qw( AddItemFromMarc );
31	use C4::Search;	31	use C4::Search;
32		32
33	use Koha::Number::Price;	33	use Koha::Number::Price;
34	use Koha::Acquisition::Booksellers;	34	use Koha::Acquisition::Booksellers;
35	use Koha::Acquisition::Orders;	35	use Koha::Acquisition::Orders;
36		36
37	use List::MoreUtils qw/any/;
38		37
39	my $input=CGI->new;	38	my $input=CGI->new;
40	my $flagsrequired = {acquisition => 'order_receive'};	39	my $flagsrequired = {acquisition => 'order_receive'};

Lines 46-57 To know on which branch this script have to display late order. Link Here

(-)a/acqui/lateorders.pl (-3 / +2 lines)
46	use Modern::Perl;	46	use Modern::Perl;
47	use CGI qw ( -utf8 );	47	use CGI qw ( -utf8 );
48	use C4::Auth qw( get_template_and_user );	48	use C4::Auth qw( get_template_and_user );
49	use C4::Koha;
50	use C4::Output qw( output_html_with_http_headers );	49	use C4::Output qw( output_html_with_http_headers );
51	use C4::Context;	50	use C4::Context;
52	use C4::Acquisition;	51	use C4::Acquisition;
53	use C4::Letters qw( SendAlerts GetLetters );	52	use C4::Letters qw( GetLetters SendAlerts );
54	use Koha::DateUtils;	53	use Koha::DateUtils qw( dt_from_string output_pref );
55	use Koha::Acquisition::Orders;	54	use Koha::Acquisition::Orders;
56	use Koha::CsvProfiles;	55	use Koha::CsvProfiles;
57		56

Lines 72-83 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/acqui/neworderempty.pl (-4 / +10 lines)
72	use C4::Budgets;	72	use C4::Budgets;
73		73
74	use C4::Acquisition;	74	use C4::Acquisition;
75	use C4::Contract;	75	use C4::Contract qw( GetContract );
76	use C4::Suggestions; # GetSuggestion	76	use C4::Suggestions; # GetSuggestion
77	use C4::Biblio qw( AddBiblio GetMarcPrice GetMarcStructure GetMarcFromKohaField GetBiblioData IsMarcStructureInternal GetMarcBiblio );	77	use C4::Biblio qw(
78	use C4::Items qw( sub );	78	AddBiblio
		79	GetBiblioData
		80	GetMarcBiblio
		81	GetMarcFromKohaField
		82	GetMarcPrice
		83	GetMarcStructure
		84	IsMarcStructureInternal
		85	);
79	use C4::Output qw( output_and_exit output_html_with_http_headers );	86	use C4::Output qw( output_and_exit output_html_with_http_headers );
80	use C4::Koha;
81	use C4::Members;	87	use C4::Members;
82	use C4::Search qw( FindDuplicate );	88	use C4::Search qw( FindDuplicate );
83		89

Lines 59-66 use Modern::Perl; Link Here

(-)a/acqui/parcel.pl (-4 lines)
59	use C4::Auth qw( get_template_and_user );	59	use C4::Auth qw( get_template_and_user );
60	use C4::Acquisition;	60	use C4::Acquisition;
61	use C4::Budgets;	61	use C4::Budgets;
62	use C4::Biblio;
63	use C4::Items qw( sub );
64	use CGI qw ( -utf8 );	62	use CGI qw ( -utf8 );
65	use C4::Output qw( output_html_with_http_headers );	63	use C4::Output qw( output_html_with_http_headers );
66	use C4::Suggestions;	64	use C4::Suggestions;
Lines 69-78 use Koha::Acquisition::Baskets; Link Here
69	use Koha::Acquisition::Bookseller;	67	use Koha::Acquisition::Bookseller;
70	use Koha::Acquisition::Orders;	68	use Koha::Acquisition::Orders;
71	use Koha::Biblios;	69	use Koha::Biblios;
72	use Koha::DateUtils;
73	use Koha::Biblios;	70	use Koha::Biblios;
74		71
75	use JSON;
76		72
77	my $input = CGI->new;	73	my $input = CGI->new;
78		74

Lines 34-46 This script allows the user to redefine the keyboard shortcuts for the advacned Link Here

(-)a/admin/adveditorshortcuts.pl (-2 lines)
34	=cut	34	=cut
35		35
36	use Modern::Perl;	36	use Modern::Perl;
37	use Encode;
38		37
39	use C4::Auth qw( get_template_and_user );	38	use C4::Auth qw( get_template_and_user );
40	use C4::Context;	39	use C4::Context;
41	use C4::Output qw( output_html_with_http_headers );	40	use C4::Output qw( output_html_with_http_headers );
42	use CGI qw ( -utf8 );	41	use CGI qw ( -utf8 );
43	use C4::Koha;
44	use Koha::KeyboardShortcuts;	42	use Koha::KeyboardShortcuts;
45		43
46	my $input = CGI->new;	44	my $input = CGI->new;

Lines 21-32 Link Here

(-)a/admin/branches.pl (-2 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Context;	27	use C4::Context;
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29	use C4::Koha;
30		29
31	use Koha::Database;	30	use Koha::Database;
32	use Koha::Patrons;	31	use Koha::Patrons;

Lines 22-33 Link Here

(-)a/admin/patron-attr-types.pl (-2 / +1 lines)
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use List::MoreUtils qw/uniq/;	25	use List::MoreUtils qw( uniq );
26		26
27	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
28	use C4::Context;	28	use C4::Context;
29	use C4::Output qw( output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers );
30	use C4::Koha;
31	use Koha::Patron::Attribute::Types;	30	use Koha::Patron::Attribute::Types;
32		31
33	use Koha::AuthorisedValues;	32	use Koha::AuthorisedValues;

Lines 24-39 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/admin/preferences.pl (-7 / +5 lines)
24	use C4::Context;	24	use C4::Context;
25	use C4::Koha qw( getallthemes );	25	use C4::Koha qw( getallthemes );
26	use C4::Languages qw( getTranslatedLanguages );	26	use C4::Languages qw( getTranslatedLanguages );
27	use C4::ClassSource qw( GetClassSources GetClassSource );	27	use C4::ClassSource qw( GetClassSources );
28	use C4::Log;
29	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
30	use C4::Templates;	29	use C4::Templates;
31	use Koha::Acquisition::Currencies;	30	use Koha::Acquisition::Currencies;
32	use File::Spec;	31	use IO::File ();
33	use IO::File;	32	use YAML::XS ();
34	use YAML::XS;	33	use Encode ();
35	use Encode;	34	use List::MoreUtils qw( any );
36	use List::MoreUtils qw(any);
37		35
38	# use Smart::Comments;	36	# use Smart::Comments;
39	#	37	#

Lines 16-28 Link Here

(-)a/admin/searchengine/elasticsearch/mappings.pl (-5 / +5 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use CGI;	19	use CGI ();
20	use Scalar::Util qw(looks_like_number);	20	use Scalar::Util qw( looks_like_number );
21	use List::Util qw( first );	21	use List::Util qw( first );
22	use C4::Koha;	22	use C4::Koha;
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Log;	25	use C4::Log ();
26		26
27	use Koha::SearchEngine::Elasticsearch;	27	use Koha::SearchEngine::Elasticsearch;
28	use Koha::SearchEngine::Elasticsearch::QueryBuilder;	28	use Koha::SearchEngine::Elasticsearch::QueryBuilder;
Lines 30-37 use Koha::SearchMarcMaps; Link Here
30	use Koha::SearchFields;	30	use Koha::SearchFields;
31	use Koha::Caches;	31	use Koha::Caches;
32		32
33	use Try::Tiny;	33	use Try::Tiny qw( catch try );
34	use Module::Load::Conditional qw(can_load);	34	use Module::Load::Conditional qw( can_load );
35		35
36		36
37	my $input = CGI->new;	37	my $input = CGI->new;

Lines 43-56 ALSO : Link Here

(-)a/admin/systempreferences.pl (-3 / +3 lines)
43	use Modern::Perl;	43	use Modern::Perl;
44		44
45	use CGI qw ( -utf8 );	45	use CGI qw ( -utf8 );
46	use MIME::Base64;	46	use MIME::Base64 qw( encode_base64 );
47	use C4::Auth qw( get_template_and_user );	47	use C4::Auth qw( get_template_and_user );
48	use C4::Context;	48	use C4::Context;
49	use C4::Koha qw( getallthemes );	49	use C4::Koha qw( getallthemes );
50	use C4::Languages qw( getTranslatedLanguages );	50	use C4::Languages qw( getTranslatedLanguages );
51	use C4::ClassSource qw( GetClassSources GetClassSource );	51	use C4::ClassSource qw( GetClassSources );
52	use C4::Output qw( output_html_with_http_headers );	52	use C4::Output qw( output_html_with_http_headers );
53	use YAML::XS;	53	use YAML::XS ();
54		54
55	my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)	55	my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
56		56

Lines 22-33 use CGI qw ( -utf8 ); Link Here

(-)a/admin/transport-cost-matrix.pl (-2 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Koha;
26	use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );	25	use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );
27		26
28	use Koha::Libraries;	27	use Koha::Libraries;
29		28
30	use Data::Dumper;
31		29
32	my $input = CGI->new;	30	my $input = CGI->new;
33		31

Lines 20-33 Link Here

(-)a/basket/downloadcart.pl (-3 / +2 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use Encode qw(encode);	23	use Encode qw( encode );
24		24
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Biblio qw( GetMarcBiblio );	26	use C4::Biblio qw( GetMarcBiblio );
27	use C4::Items;
28	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
29	use C4::Record;	28	use C4::Record;
30	use C4::Ris;	29	use C4::Ris qw( marc2ris );
31		30
32	use Koha::CsvProfiles;	31	use Koha::CsvProfiles;
33		32

Lines 18-29 Link Here

(-)a/basket/sendbasket.pl (-6 / +11 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use Encode qw(encode);	21	use Encode ();
22	use Carp;	22	use Carp qw( carp );
23	use Try::Tiny;	23	use Try::Tiny qw( catch try );
24		24
25	use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects );	25	use C4::Biblio qw(
26	use C4::Items qw( sub GetItemsInfo );	26	GetBiblioData
		27	GetMarcAuthors
		28	GetMarcBiblio
		29	GetMarcSubjects
		30	);
		31	use C4::Items qw( GetItemsInfo );
27	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
28	use C4::Output qw( output_and_exit output_html_with_http_headers );	33	use C4::Output qw( output_and_exit output_html_with_http_headers );
29	use C4::Templates ();	34	use C4::Templates ();

Lines 35-48 This script needs a biblionumber as parameter Link Here

(-)a/catalogue/ISBDdetail.pl (-4 / +2 lines)
35		35
36	use Modern::Perl;	36	use Modern::Perl;
37		37
38	use HTML::Entities;	38	use HTML::Entities ();
39	use C4::Auth qw( get_template_and_user );	39	use C4::Auth qw( get_template_and_user );
40	use C4::Context;	40	use C4::Context;
41	use C4::Output qw( output_html_with_http_headers );	41	use C4::Output qw( output_html_with_http_headers );
42	use CGI qw ( -utf8 );	42	use CGI qw ( -utf8 );
43	use C4::Koha;	43	use C4::Biblio qw( GetBiblioData GetFrameworkCode GetISBDView GetMarcBiblio );
44	use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData );
45	use C4::Items qw( sub );
46	use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );	44	use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
47	use C4::Search qw( z3950_search_args enabled_staff_search_views );	45	use C4::Search qw( z3950_search_args enabled_staff_search_views );
48		46

Lines 45-59 the items attached to the biblio Link Here

(-)a/catalogue/MARCdetail.pl (-6 / +11 lines)
45		45
46	use Modern::Perl;	46	use Modern::Perl;
47	use CGI qw ( -utf8 );	47	use CGI qw ( -utf8 );
48	use HTML::Entities;	48	use HTML::Entities ();
49		49
50	use C4::Auth qw( get_template_and_user );	50	use C4::Auth qw( get_template_and_user );
51	use C4::Context;	51	use C4::Context;
52	use C4::Output qw( output_html_with_http_headers );	52	use C4::Output qw( output_html_with_http_headers );
53	use C4::Koha qw( display_marc_indicators );	53	use C4::Koha ();
54	use MARC::Record;	54	use C4::Biblio qw(
55	use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData GetAuthorisedValueDesc GetMarcFromKohaField );	55	GetAuthorisedValueDesc
56	use C4::Items qw( sub );	56	GetBiblioData
		57	GetFrameworkCode
		58	GetMarcBiblio
		59	GetMarcFromKohaField
		60	GetMarcStructure
		61	);
57	use C4::Acquisition;	62	use C4::Acquisition;
58	use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );	63	use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
59	use C4::Search qw( z3950_search_args enabled_staff_search_views );	64	use C4::Search qw( z3950_search_args enabled_staff_search_views );
Lines 61-67 use C4::Search qw( z3950_search_args enabled_staff_search_views ); Link Here
61	use Koha::Biblios;	66	use Koha::Biblios;
62	use Koha::BiblioFrameworks;	67	use Koha::BiblioFrameworks;
63	use Koha::Patrons;	68	use Koha::Patrons;
64	use Koha::DateUtils;	69	use Koha::DateUtils qw( output_pref );
65	use Koha::Virtualshelves;	70	use Koha::Virtualshelves;
66		71
67	use List::MoreUtils qw( uniq );	72	use List::MoreUtils qw( uniq );

Lines 19-42 Link Here

(-)a/catalogue/detail.pl (-8 / +14 lines)
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use HTML::Entities;	22	use HTML::Entities ();
23	use Try::Tiny;
24	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	24	use C4::Context;
26	use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation GetAuthorisedValues );	25	use C4::Koha qw(
		26	GetAuthorisedValues
		27	getitemtypeimagelocation
		28	GetNormalizedEAN
		29	GetNormalizedISBN
		30	GetNormalizedOCLCNumber
		31	GetNormalizedUPC
		32	);
27	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );	33	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
28	use C4::Output qw( output_html_with_http_headers );	34	use C4::Output qw( output_html_with_http_headers );
29	use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetBiblioData );	35	use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
30	use C4::Items qw( GetItemsInfo GetHostItemsInfo sub GetAnalyticsCount );	36	use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo );
31	use C4::Circulation qw( GetTransfers );	37	use C4::Circulation qw( GetTransfers );
32	use C4::Reserves;	38	use C4::Reserves;
33	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );	39	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
34	use C4::XISBN qw( get_xisbns );	40	use C4::XISBN qw( get_xisbns );
35	use C4::External::Amazon;	41	use C4::External::Amazon qw( get_amazon_tld );
36	use C4::Search qw( z3950_search_args enabled_staff_search_views );	42	use C4::Search qw( z3950_search_args enabled_staff_search_views );
37	use C4::Tags qw( get_tags get_tag );	43	use C4::Tags qw( get_tags );
38	use C4::XSLT;	44	use C4::XSLT;
39	use Koha::DateUtils;	45	use Koha::DateUtils qw( format_sqldatetime );
40	use C4::HTML5Media;	46	use C4::HTML5Media;
41	use C4::CourseReserves qw( GetItemCourseReservesInfo );	47	use C4::CourseReserves qw( GetItemCourseReservesInfo );
42	use C4::Acquisition qw(GetOrdersByBiblionumber);	48	use C4::Acquisition qw(GetOrdersByBiblionumber);

Lines 19-30 Link Here

(-)a/catalogue/getitem-ajax.pl (-3 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use JSON;	22	use JSON qw( to_json );
23		23
24	use C4::Auth qw( check_api_auth );	24	use C4::Auth qw( check_api_auth );
25	use C4::Biblio qw( GetMarcStructure );	25	use C4::Biblio qw( GetMarcStructure );
26	use C4::Items;
27	use C4::Koha;
28	use C4::Output qw( output_with_http_headers );	26	use C4::Output qw( output_with_http_headers );
29	use Koha::Libraries;	27	use Koha::Libraries;
30		28

Lines 17-30 Link Here

(-)a/catalogue/itemsearch.pl (-3 / +2 lines)
17	# along with Koha; if not, see <http://www.gnu.org/licenses>.	17	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI;	20	use CGI ();
21		21
22	use JSON;	22	use JSON qw( to_json );
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_with_http_headers output_html_with_http_headers );	25	use C4::Output qw( output_with_http_headers output_html_with_http_headers );
26	use C4::Items qw( SearchItems );	26	use C4::Items qw( SearchItems );
27	use C4::Biblio;
28	use C4::Koha qw( GetAuthorisedValues );	27	use C4::Koha qw( GetAuthorisedValues );
29		28
30	use Koha::AuthorisedValues;	29	use Koha::AuthorisedValues;

Lines 19-31 Link Here

(-)a/catalogue/labeledMARCdetail.pl (-4 / +7 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use HTML::Entities;	22	use HTML::Entities ();
23	use MARC::Record;
24	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	24	use C4::Context;
26	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
27	use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData );	26	use C4::Biblio qw(
28	use C4::Items qw( sub );	27	GetBiblioData
		28	GetFrameworkCode
		29	GetMarcBiblio
		30	GetMarcStructure
		31	);
29	use C4::Search qw( z3950_search_args enabled_staff_search_views );	32	use C4::Search qw( z3950_search_args enabled_staff_search_views );
30	use C4::Serials qw( CountSubscriptionFromBiblionumber );	33	use C4::Serials qw( CountSubscriptionFromBiblionumber );
31		34

Lines 22-30 Link Here

(-)a/catalogue/moredetail.pl (-3 / +2 lines)
22	use Modern::Perl;	22	use Modern::Perl;
23	use C4::Koha qw( GetAuthorisedValues );	23	use C4::Koha qw( GetAuthorisedValues );
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use HTML::Entities;	25	use HTML::Entities ();
26	use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );	26	use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
27	use C4::Items qw( sub GetItemsInfo GetHostItemsInfo );	27	use C4::Items qw( GetHostItemsInfo GetItemsInfo );
28	use C4::Acquisition;	28	use C4::Acquisition;
29	use C4::Output qw( output_and_exit output_html_with_http_headers );	29	use C4::Output qw( output_and_exit output_html_with_http_headers );
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
Lines 34-40 use C4::Search qw( enabled_staff_search_views z3950_search_args ); Link Here
34	use Koha::Acquisition::Booksellers;	34	use Koha::Acquisition::Booksellers;
35	use Koha::AuthorisedValues;	35	use Koha::AuthorisedValues;
36	use Koha::Biblios;	36	use Koha::Biblios;
37	use Koha::DateUtils;
38	use Koha::Items;	37	use Koha::Items;
39	use Koha::Patrons;	38	use Koha::Patrons;
40		39

Lines 143-152 use C4::Context; Link Here

(-)a/catalogue/search.pl (-5 / +4 lines)
143	use C4::Output qw( output_html_with_http_headers pagination_bar );	143	use C4::Output qw( output_html_with_http_headers pagination_bar );
144	use C4::Auth qw( get_template_and_user );	144	use C4::Auth qw( get_template_and_user );
145	use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );	145	use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
146	use C4::Languages qw( getlanguage getLanguages );	146	use C4::Languages qw( getLanguages );
147	use C4::Koha qw( getitemtypeimagelocation GetAuthorisedValues );	147	use C4::Koha qw( GetAuthorisedValues getitemtypeimagelocation );
148	use URI::Escape;	148	use URI::Escape qw( uri_unescape );
149	use POSIX qw(ceil floor);
150	use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );	149	use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
151		150
152	use Koha::ItemTypes;	151	use Koha::ItemTypes;
Lines 157-163 use Koha::SearchEngine::QueryBuilder; Link Here
157	use Koha::Virtualshelves;	156	use Koha::Virtualshelves;
158	use Koha::SearchFields;	157	use Koha::SearchFields;
159		158
160	use URI::Escape;	159	use URI::Escape qw( uri_unescape );
161		160
162	my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");	161	my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
163	# create a new CGI object	162	# create a new CGI object

Lines 21-51 Link Here

(-)a/cataloguing/addbiblio.pl (-9 / +18 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI q(-utf8);	24	use CGI ();
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Auth qw( get_template_and_user haspermission );	26	use C4::Auth qw( get_template_and_user haspermission );
27	use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetUsedMarcStructure GetMarcBiblio PrepHostMarcField prepare_host_field TransformHtmlToMarc ModBiblio AddBiblio DelBiblio );	27	use C4::Biblio qw(
		28	AddBiblio
		29	DelBiblio
		30	GetFrameworkCode
		31	GetMarcBiblio
		32	GetMarcFromKohaField
		33	GetMarcStructure
		34	GetUsedMarcStructure
		35	ModBiblio
		36	prepare_host_field
		37	PrepHostMarcField
		38	TransformHtmlToMarc
		39	);
28	use C4::Search qw( FindDuplicate enabled_staff_search_views );	40	use C4::Search qw( FindDuplicate enabled_staff_search_views );
29	use C4::Auth qw( get_template_and_user haspermission );	41	use C4::Auth qw( get_template_and_user haspermission );
30	use C4::Context;	42	use C4::Context;
31	use MARC::Record;	43	use MARC::Record ();
32	use C4::Log;	44	use C4::ClassSource qw( GetClassSources );
33	use C4::Koha;
34	use C4::ClassSource qw( GetClassSources GetClassSource );
35	use C4::ImportBatch qw( sub GetImportRecordMarc );	45	use C4::ImportBatch qw( sub GetImportRecordMarc );
36	use C4::Charset qw( SetMarcUnicodeFlag );	46	use C4::Charset qw( SetMarcUnicodeFlag );
37	use Koha::BiblioFrameworks;	47	use Koha::BiblioFrameworks;
38	use Koha::DateUtils;	48	use Koha::DateUtils qw( dt_from_string );
39		49
40	use Koha::ItemTypes;	50	use Koha::ItemTypes;
41	use Koha::Libraries;	51	use Koha::Libraries;
42		52
43	use Koha::BiblioFrameworks;	53	use Koha::BiblioFrameworks;
44		54
45	use Date::Calc qw(Today);
46	use MARC::File::USMARC;	55	use MARC::File::USMARC;
47	use MARC::File::XML;	56	use MARC::File::XML;
48	use URI::Escape;	57	use URI::Escape qw( uri_escape_utf8 );
49		58
50	if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {	59	if ( C4::Context->preference('marcflavour') eq 'UNIMARC' ) {
51	MARC::File::XML->default_record_format('UNIMARC');	60	MARC::File::XML->default_record_format('UNIMARC');

Lines 27-39 Link Here

(-)a/cataloguing/addbooks.pl (-3 / +1 lines)
27	use Modern::Perl;	27	use Modern::Perl;
28		28
29	use CGI qw ( -utf8 );	29	use CGI qw ( -utf8 );
30	use URI::Escape;
31	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
32	use C4::Biblio;
33	use C4::Breeding qw( BreedingSearch );	31	use C4::Breeding qw( BreedingSearch );
34	use C4::Output qw( output_html_with_http_headers pagination_bar );	32	use C4::Output qw( output_html_with_http_headers pagination_bar );
35	use C4::Koha qw( getnbpages );	33	use C4::Koha qw( getnbpages );
36	use C4::Languages qw( getlanguage );	34	use C4::Languages ();
37	use C4::Search qw( searchResults z3950_search_args );	35	use C4::Search qw( searchResults z3950_search_args );
38		36
39	use Koha::BiblioFrameworks;	37	use Koha::BiblioFrameworks;

Lines 24-50 use Modern::Perl; Link Here

(-)a/cataloguing/additem.pl (-9 / +19 lines)
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth qw( get_template_and_user haspermission );	25	use C4::Auth qw( get_template_and_user haspermission );
26	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	26	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
27	use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetMarcBiblio TransformMarcToKoha TransformHtmlToXml ModBiblio EmbedItemsInMarcBiblio GetAuthorisedValueDesc IsMarcStructureInternal );	27	use C4::Biblio qw(
28	use C4::Items qw( sub AddItemFromMarc GetMarcItem ModItemFromMarc );	28	GetAuthorisedValueDesc
		29	GetFrameworkCode
		30	GetMarcBiblio
		31	GetMarcFromKohaField
		32	GetMarcStructure
		33	IsMarcStructureInternal
		34	ModBiblio
		35	TransformHtmlToXml
		36	TransformMarcToKoha
		37	);
		38	use C4::Items qw( AddItemFromMarc ModItemFromMarc );
29	use C4::Context;	39	use C4::Context;
30	use C4::Circulation qw( LostItem );	40	use C4::Circulation qw( LostItem );
31	use C4::Koha qw( GetAuthorisedValues );	41	use C4::Koha qw( GetAuthorisedValues );
32	use C4::ClassSource qw( GetClassSources GetClassSource );	42	use C4::ClassSource qw( GetClassSources );
33	use Koha::DateUtils;	43	use Koha::DateUtils qw( dt_from_string );
34	use Koha::Items;	44	use Koha::Items;
35	use Koha::ItemTypes;	45	use Koha::ItemTypes;
36	use Koha::Libraries;	46	use Koha::Libraries;
37	use Koha::Patrons;	47	use Koha::Patrons;
38	use Koha::SearchEngine::Indexer;	48	use Koha::SearchEngine::Indexer;
39	use List::MoreUtils qw/any/;	49	use List::MoreUtils qw( any );
40	use C4::Search qw( enabled_staff_search_views );	50	use C4::Search qw( enabled_staff_search_views );
41	use Storable qw(thaw freeze);	51	use Storable qw( freeze thaw );
42	use URI::Escape;	52	use URI::Escape qw( uri_escape_utf8 );
43	use C4::Members;	53	use C4::Members;
44		54
45	use MARC::File::XML;	55	use MARC::File::XML;
46	use URI::Escape;	56	use URI::Escape qw( uri_escape_utf8 );
47	use MIME::Base64 qw(decode_base64url encode_base64url);	57	use MIME::Base64 qw( decode_base64url encode_base64url );
48		58
49	our $dbh = C4::Context->dbh;	59	our $dbh = C4::Context->dbh;
50		60

Lines 23-32 use CGI qw ( -utf8 ); Link Here

(-)a/cataloguing/merge.pl (-3 / +11 lines)
23		23
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Items qw( sub MoveItemFromBiblio );	26	use C4::Items qw( MoveItemFromBiblio );
27	use C4::Biblio qw( TransformHtmlToMarc GetMarcBiblio ModBiblio DelBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData );	27	use C4::Biblio qw(
		28	DelBiblio
		29	GetBiblioData
		30	GetFrameworkCode
		31	GetMarcBiblio
		32	GetMarcFromKohaField
		33	GetMarcStructure
		34	ModBiblio
		35	TransformHtmlToMarc
		36	);
28	use C4::Serials qw( CountSubscriptionFromBiblionumber );	37	use C4::Serials qw( CountSubscriptionFromBiblionumber );
29	use C4::Koha;
30	use C4::Reserves qw( MergeHolds );	38	use C4::Reserves qw( MergeHolds );
31	use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;	39	use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;
32		40

Lines 24-39 use Modern::Perl; Link Here

(-)a/cataloguing/moveitem.pl (-4 lines)
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Biblio;
28	use C4::Items qw( MoveItemFromBiblio );	27	use C4::Items qw( MoveItemFromBiblio );
29	use C4::Context;	28	use C4::Context;
30	use C4::Koha;
31	use C4::ClassSource;
32	use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;	29	use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;
33		30
34	use Koha::Biblios;	31	use Koha::Biblios;
35		32
36	use Date::Calc qw(Today);
37		33
38	use MARC::File::XML;	34	use MARC::File::XML;
39		35