Attachment #35238 for bug #11944

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

Lines 90-96 C4::Auth - Authenticates Koha users Link Here

(-)a/C4/Auth.pm (-1 / +1 lines)
90		90
91	=head1 SYNOPSIS	91	=head1 SYNOPSIS
92		92
93	use CGI;	93	use CGI qw ( -utf8 );
94	use C4::Auth;	94	use C4::Auth;
95	use C4::Output;	95	use C4::Output;
96		96

Lines 23-29 use warnings; Link Here

(-)a/C4/Auth_with_cas.pm (-1 / +1 lines)
23	use C4::Debug;	23	use C4::Debug;
24	use C4::Context;	24	use C4::Context;
25	use Authen::CAS::Client;	25	use Authen::CAS::Client;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use FindBin;	27	use FindBin;
28		28
29		29

Lines 22-28 use warnings; Link Here

(-)a/C4/Debug.pm (-1 / +1 lines)
22		22
23	use Exporter;	23	use Exporter;
24		24
25	# use CGI;	25	# use CGI qw ( -utf8 );
26	use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);	26	use vars qw($VERSION @ISA @EXPORT $debug $cgi_debug);
27	# use vars qw(@EXPORT_OK %EXPORT_TAGS);	27	# use vars qw(@EXPORT_OK %EXPORT_TAGS);
28		28

Lines 20-26 package C4::Form::MessagingPreferences; Link Here

(-)a/C4/Form/MessagingPreferences.pm (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Members::Messaging;	25	use C4::Members::Messaging;
26	use C4::Debug;	26	use C4::Debug;

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

(-)a/C4/ILSDI/Services.pm (-2 / +2 lines)
31	use C4::AuthoritiesMarc;	31	use C4::AuthoritiesMarc;
32	use XML::Simple;	32	use XML::Simple;
33	use HTML::Entities;	33	use HTML::Entities;
34	use CGI;	34	use CGI qw ( -utf8 );
35	use DateTime;	35	use DateTime;
36	use C4::Auth;	36	use C4::Auth;
37		37
Lines 49-55 hashref that will be printed by XML::Simple in opac/ilsdi.pl Link Here
49		49
50	use C4::ILSDI::Services;	50	use C4::ILSDI::Services;
51	use XML::Simple;	51	use XML::Simple;
52	use CGI;	52	use CGI qw ( -utf8 );
53		53
54	my $cgi = new CGI;	54	my $cgi = new CGI;
55		55

Lines 23-29 use warnings; Link Here

(-)a/C4/Input.pm (-1 / +1 lines)
23		23
24	require Exporter;	24	require Exporter;
25	use C4::Context;	25	use C4::Context;
26	use CGI;	26	use CGI qw ( -utf8 );
27		27
28	use vars qw($VERSION @ISA @EXPORT);	28	use vars qw($VERSION @ISA @EXPORT);
29		29

Lines 39-45 InstallAuth - Authenticates Koha users for Install process Link Here

(-)a/C4/InstallAuth.pm (-1 / +1 lines)
39		39
40	=head1 SYNOPSIS	40	=head1 SYNOPSIS
41		41
42	use CGI;	42	use CGI qw ( -utf8 );
43	use InstallAuth;	43	use InstallAuth;
44	use C4::Output;	44	use C4::Output;
45		45

Lines 19-25 package C4::Reports; Link Here

(-)a/C4/Reports.pm (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	24	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
25	use C4::Context;	25	use C4::Context;

Lines 19-25 package C4::Reports::Guided; Link Here

(-)a/C4/Reports/Guided.pm (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505 this module needs a lot of repair to run clean under warnings	21	#use warnings; FIXME - Bug 2505 this module needs a lot of repair to run clean under warnings
22	use CGI;	22	use CGI qw ( -utf8 );
23	use Carp;	23	use Carp;
24		24
25	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	25	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

Lines 10-16 use strict; Link Here

(-)a/C4/SIP/ILS/Transaction/Checkout.pm (-1 / +1 lines)
10	use POSIX qw(strftime);	10	use POSIX qw(strftime);
11	use Sys::Syslog qw(syslog);	11	use Sys::Syslog qw(syslog);
12	use Data::Dumper;	12	use Data::Dumper;
13	use CGI;	13	use CGI qw ( -utf8 );
14		14
15	use ILS;	15	use ILS;
16	use ILS::Transaction;	16	use ILS::Transaction;

Lines 16-22 use Sip::Constants qw(:all); Link Here

(-)a/C4/SIP/Sip/MsgType.pm (-1 / +1 lines)
16	use Sip::Checksum qw(verify_cksum);	16	use Sip::Checksum qw(verify_cksum);
17		17
18	use Data::Dumper;	18	use Data::Dumper;
19	use CGI;	19	use CGI qw ( -utf8 );
20	use C4::Auth qw(&check_api_auth);	20	use C4::Auth qw(&check_api_auth);
21		21
22	use UNIVERSAL qw(can); # make sure this is after C4 modules.	22	use UNIVERSAL qw(can); # make sure this is after C4 modules.

Lines 5-11 use strict; Link Here

(-)a/C4/SIP/t/03checkout.t (-1 / +1 lines)
5	use warnings;	5	use warnings;
6	use Clone qw(clone);	6	use Clone qw(clone);
7		7
8	use CGI;	8	use CGI qw ( -utf8 );
9		9
10	use Sip::Constants qw(:all);	10	use Sip::Constants qw(:all);
11	use SIPtest qw(	11	use SIPtest qw(

Lines 38-44 BEGIN { Link Here

(-)a/C4/SIP/t/SIPtest.pm (-1 / +1 lines)
38	# The number of tests is set in run_sip_tests() below, based	38	# The number of tests is set in run_sip_tests() below, based
39	# on the size of the array of tests.	39	# on the size of the array of tests.
40	use Test::More;	40	use Test::More;
41	use CGI;	41	use CGI qw ( -utf8 );
42		42
43	use IO::Socket::INET;	43	use IO::Socket::INET;
44	use Sip qw(:all);	44	use Sip qw(:all);

Lines 41-47 This module packages several useful functions for JSON webservices. Link Here

(-)a/C4/Service.pm (-1 / +1 lines)
41	use strict;	41	use strict;
42	use warnings;	42	use warnings;
43		43
44	use CGI;	44	use CGI qw ( -utf8 );
45	use C4::Auth qw( check_api_auth );	45	use C4::Auth qw( check_api_auth );
46	use C4::Output qw( :ajax );	46	use C4::Output qw( :ajax );
47	use C4::Output::JSONStream;	47	use C4::Output::JSONStream;

Lines 21-27 package C4::Suggestions; Link Here

(-)a/C4/Suggestions.pm (-1 / +1 lines)
21	use strict;	21	use strict;
22		22
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use CGI;	24	use CGI qw ( -utf8 );
25		25
26	use C4::Context;	26	use C4::Context;
27	use C4::Output;	27	use C4::Output;

Lines 3-10 package C4::Templates; Link Here

(-)a/C4/Templates.pm (-2 / +2 lines)
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5	use Carp;	5	use Carp;
6	use CGI;	6	use CGI qw ( -utf8 );
7	use List::MoreUtils qw/any uniq/;	7	use List::MoreUtils qw/ any uniq /;
8		8
9	# Copyright 2009 Chris Cormack and The Koha Dev Team	9	# Copyright 2009 Chris Cormack and The Koha Dev Team
10	#	10	#

Lines 35-41 C4::Utils::DataTables - Utility subs for building query when DataTables source i Link Here

(-)a/C4/Utils/DataTables.pm (-1 / +1 lines)
35		35
36	=head1 SYNOPSYS	36	=head1 SYNOPSYS
37		37
38	use CGI;	38	use CGI qw ( -utf8 );
39	use C4::Context;	39	use C4::Context;
40	use C4::Utils::DataTables;	40	use C4::Utils::DataTables;
41		41

Lines 23-29 package C4::VirtualShelves::Page; Link Here

(-)a/C4/VirtualShelves/Page.pm (-1 / +1 lines)
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25		25
26	use CGI;	26	use CGI qw ( -utf8 );
27	use Exporter;	27	use Exporter;
28	use Data::Dumper;	28	use Data::Dumper;
29		29

Lines 23-29 Link Here

(-)a/about.pl (-1 / +1 lines)
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25		25
26	use CGI;	26	use CGI qw ( -utf8 );
27	use LWP::Simple;	27	use LWP::Simple;
28	use XML::Simple;	28	use XML::Simple;
29	use Config;	29	use Config;

Lines 29-35 this script is the main page for acqui Link Here

(-)a/acqui/acqui-home.pl (-1 / +1 lines)
29	use strict;	29	use strict;
30	use warnings;	30	use warnings;
31		31
32	use CGI;	32	use CGI qw ( -utf8 );
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Output;	34	use C4::Output;
35	use C4::Acquisition;	35	use C4::Acquisition;

Lines 121-127 if it is an order from an existing suggestion : the id of this suggestion. Link Here

(-)a/acqui/addorder.pl (-1 / +1 lines)
121		121
122	use strict;	122	use strict;
123	use warnings;	123	use warnings;
124	use CGI;	124	use CGI qw ( -utf8 );
125	use C4::Auth; # get_template_and_user	125	use C4::Auth; # get_template_and_user
126	use C4::Acquisition; # ModOrder	126	use C4::Acquisition; # ModOrder
127	use C4::Suggestions; # ModStatus	127	use C4::Suggestions; # ModStatus

Lines 22-28 Link Here

(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
22	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	22	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
23		23
24	use Modern::Perl;	24	use Modern::Perl;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use Carp;	26	use Carp;
27	use YAML qw/Load/;	27	use YAML qw/Load/;
28		28

Lines 47-53 Default value for the dropbox. Link Here

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

Lines 21-27 Link Here

(-)a/acqui/aqbasketuser_search.pl (-1 / +1 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;
27	use C4::Members;	27	use C4::Members;

Lines 25-31 use warnings; Link Here

(-)a/acqui/basket.pl (-1 / +1 lines)
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Output;	27	use C4::Output;
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Acquisition;	29	use C4::Acquisition;
30	use C4::Budgets;	30	use C4::Budgets;
31	use C4::Branch;	31	use C4::Branch;

Lines 50-56 use Carp; Link Here

(-)a/acqui/basketgroup.pl (-1 / +1 lines)
50	use C4::Input;	50	use C4::Input;
51	use C4::Auth;	51	use C4::Auth;
52	use C4::Output;	52	use C4::Output;
53	use CGI;	53	use CGI qw ( -utf8 );
54		54
55	use C4::Budgets qw/ConvertCurrency/;	55	use C4::Budgets qw/ConvertCurrency/;
56	use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;	56	use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV/;

Lines 47-53 If it exists, C<$basketno> is the basket we edit Link Here

(-)a/acqui/basketheader.pl (-1 / +1 lines)
47		47
48	use strict;	48	use strict;
49	use warnings;	49	use warnings;
50	use CGI;	50	use CGI qw ( -utf8 );
51	use C4::Context;	51	use C4::Context;
52	use C4::Auth;	52	use C4::Auth;
53	use C4::Branch;	53	use C4::Branch;

Lines 57-63 use C4::Auth; Link Here

(-)a/acqui/booksellers.pl (-1 / +1 lines)
57	use C4::Biblio;	57	use C4::Biblio;
58	use C4::Budgets;	58	use C4::Budgets;
59	use C4::Output;	59	use C4::Output;
60	use CGI;	60	use CGI qw ( -utf8 );
61		61
62	use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;	62	use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;
63	use C4::Members qw/GetMember/;	63	use C4::Members qw/GetMember/;

Lines 19-25 Link Here

(-)a/acqui/check_budget_total.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;

Lines 19-25 Link Here

(-)a/acqui/check_duplicate_barcode_ajax.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use CGI::Cookie;	23	use CGI::Cookie;
24	use JSON;	24	use JSON;
25	use C4::Auth;	25	use C4::Auth;

Lines 31-37 Link Here

(-)a/acqui/check_uniqueness.pl (-1 / +1 lines)
31		31
32	use Modern::Perl;	32	use Modern::Perl;
33		33
34	use CGI;	34	use CGI qw ( -utf8 );
35	use JSON;	35	use JSON;
36	use C4::Output;	36	use C4::Output;
37	use C4::Items;	37	use C4::Items;

Lines 22-28 Link Here

(-)a/acqui/currency.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Acquisition;	26	use C4::Acquisition;
27	use C4::Biblio;	27	use C4::Biblio;
28	use C4::Budgets;	28	use C4::Budgets;

Lines 22-28 Link Here

(-)a/acqui/finishreceive.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Output;	27	use C4::Output;
28	use C4::Context;	28	use C4::Context;

Lines 51-57 to filter on ended date. Link Here

(-)a/acqui/histsearch.pl (-1 / +1 lines)
51		51
52	use strict;	52	use strict;
53	#use warnings; FIXME - Bug 2505	53	#use warnings; FIXME - Bug 2505
54	use CGI;	54	use CGI qw ( -utf8 );
55	use C4::Auth; # get_template_and_user	55	use C4::Auth; # get_template_and_user
56	use C4::Output;	56	use C4::Output;
57	use C4::Acquisition;	57	use C4::Acquisition;

Lines 29-35 Invoice details Link Here

(-)a/acqui/invoice.pl (-1 / +1 lines)
29	use strict;	29	use strict;
30	use warnings;	30	use warnings;
31		31
32	use CGI;	32	use CGI qw ( -utf8 );
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Output;	34	use C4::Output;
35	use C4::Acquisition;	35	use C4::Acquisition;

Lines 29-35 Search for invoices Link Here

(-)a/acqui/invoices.pl (-1 / +1 lines)
29	use strict;	29	use strict;
30	use warnings;	30	use warnings;
31		31
32	use CGI;	32	use CGI qw ( -utf8 );
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Output;	34	use C4::Output;
35		35

Lines 16-22 Link Here

(-)a/acqui/lateorders-export.pl (-1 / +1 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 qw ( -utf8 );
20		20
21	use C4::Auth;	21	use C4::Auth;
22	use C4::Acquisition;	22	use C4::Acquisition;

Lines 44-50 To know on which branch this script have to display late order. Link Here

(-)a/acqui/lateorders.pl (-1 / +1 lines)
44	=cut	44	=cut
45		45
46	use Modern::Perl;	46	use Modern::Perl;
47	use CGI;	47	use CGI qw ( -utf8 );
48	use C4::Bookseller qw( GetBooksellersWithLateOrders );	48	use C4::Bookseller qw( GetBooksellersWithLateOrders );
49	use C4::Auth;	49	use C4::Auth;
50	use C4::Koha;	50	use C4::Koha;

Lines 28-34 Modify just notes when basket is closed. Link Here

(-)a/acqui/modordernotes.pl (-1 / +1 lines)
28		28
29	use Modern::Perl;	29	use Modern::Perl;
30		30
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Auth;	32	use C4::Auth;
33	use C4::Output;	33	use C4::Output;
34	use C4::Acquisition;	34	use C4::Acquisition;

Lines 59-65 use strict; Link Here

(-)a/acqui/neworderbiblio.pl (-1 / +1 lines)
59	#use warnings; FIXME - Bug 2505	59	#use warnings; FIXME - Bug 2505
60		60
61	use C4::Search;	61	use C4::Search;
62	use CGI;	62	use CGI qw ( -utf8 );
63	use C4::Biblio;	63	use C4::Biblio;
64	use C4::Auth;	64	use C4::Auth;
65	use C4::Output;	65	use C4::Output;

Lines 68-74 the item's id in the breeding reservoir Link Here

(-)a/acqui/neworderempty.pl (-1 / +1 lines)
68		68
69	use warnings;	69	use warnings;
70	use strict;	70	use strict;
71	use CGI;	71	use CGI qw ( -utf8 );
72	use C4::Context;	72	use C4::Context;
73	use C4::Input;	73	use C4::Input;
74		74

Lines 18-24 Link Here

(-)a/acqui/newordersubscription.pl (-1 / +1 lines)
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Acquisition;	22	use C4::Acquisition;
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Branch;	24	use C4::Branch;

Lines 91-97 can be equal to Link Here

(-)a/acqui/newordersuggestion.pl (-1 / +1 lines)
91	use strict;	91	use strict;
92	#use warnings; FIXME - Bug 2505	92	#use warnings; FIXME - Bug 2505
93		93
94	use CGI;	94	use CGI qw ( -utf8 );
95	use C4::Auth; # get_template_and_user	95	use C4::Auth; # get_template_and_user
96	use C4::Output;	96	use C4::Output;
97	use C4::Suggestions;	97	use C4::Suggestions;

Lines 30-36 this script is to show orders ordered but not yet received Link Here

(-)a/acqui/ordered.pl (-1 / +1 lines)
30	use C4::Context;	30	use C4::Context;
31	use strict;	31	use strict;
32	use warnings;	32	use warnings;
33	use CGI;	33	use CGI qw ( -utf8 );
34	use C4::Auth;	34	use C4::Auth;
35	use C4::Output;	35	use C4::Output;
36		36

Lines 61-67 The biblionumber of this order. Link Here

(-)a/acqui/orderreceive.pl (-1 / +1 lines)
61	use strict;	61	use strict;
62	use warnings;	62	use warnings;
63		63
64	use CGI;	64	use CGI qw ( -utf8 );
65	use C4::Context;	65	use C4::Context;
66	use C4::Koha; # GetKohaAuthorisedValues GetItemTypes	66	use C4::Koha; # GetKohaAuthorisedValues GetItemTypes
67	use C4::Acquisition;	67	use C4::Acquisition;

Lines 62-68 use C4::Acquisition; Link Here

(-)a/acqui/parcel.pl (-1 / +1 lines)
62	use C4::Budgets;	62	use C4::Budgets;
63	use C4::Biblio;	63	use C4::Biblio;
64	use C4::Items;	64	use C4::Items;
65	use CGI;	65	use CGI qw ( -utf8 );
66	use C4::Output;	66	use C4::Output;
67	use C4::Dates qw/format_date format_date_in_iso/;	67	use C4::Dates qw/format_date format_date_in_iso/;
68	use C4::Suggestions;	68	use C4::Suggestions;

Lines 68-74 To know how many results have to be display / page. Link Here

(-)a/acqui/parcels.pl (-1 / +1 lines)
68		68
69	use strict;	69	use strict;
70	use warnings;	70	use warnings;
71	use CGI;	71	use CGI qw ( -utf8 );
72	use C4::Auth;	72	use C4::Auth;
73	use C4::Output;	73	use C4::Output;
74		74

Lines 34-40 use C4::Auth; Link Here

(-)a/acqui/spent.pl (-1 / +1 lines)
34	use C4::Output;	34	use C4::Output;
35	use strict;	35	use strict;
36	use warnings;	36	use warnings;
37	use CGI;	37	use CGI qw ( -utf8 );
38		38
39	my $dbh = C4::Context->dbh;	39	my $dbh = C4::Context->dbh;
40	my $input = new CGI;	40	my $input = new CGI;

Lines 46-52 use C4::Auth; Link Here

(-)a/acqui/supplier.pl (-1 / +1 lines)
46	use C4::Contract;	46	use C4::Contract;
47	use C4::Biblio;	47	use C4::Biblio;
48	use C4::Output;	48	use C4::Output;
49	use CGI;	49	use CGI qw ( -utf8 );
50		50
51	use C4::Bookseller qw( DelBookseller );	51	use C4::Bookseller qw( DelBookseller );
52	use C4::Bookseller::Contact;	52	use C4::Bookseller::Contact;

Lines 20-26 Link Here

(-)a/acqui/transferorder.pl (-1 / +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;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 49-55 use warnings; Link Here

(-)a/acqui/uncertainprice.pl (-1 / +1 lines)
49	use C4::Input;	49	use C4::Input;
50	use C4::Auth;	50	use C4::Auth;
51	use C4::Output;	51	use C4::Output;
52	use CGI;	52	use CGI qw ( -utf8 );
53		53
54	use C4::Bookseller::Contact;	54	use C4::Bookseller::Contact;
55	use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;	55	use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;

Lines 56-62 use C4::Bookseller qw( ModBookseller AddBookseller ); Link Here

(-)a/acqui/updatesupplier.pl (-1 / +1 lines)
56	use C4::Bookseller::Contact;	56	use C4::Bookseller::Contact;
57	use C4::Biblio;	57	use C4::Biblio;
58	use C4::Output;	58	use C4::Output;
59	use CGI;	59	use CGI qw ( -utf8 );
60		60
61	my $input=new CGI;	61	my $input=new CGI;
62	my ($template, $loggedinuser, $cookie) = get_template_and_user(	62	my ($template, $loggedinuser, $cookie) = get_template_and_user(

Lines 18-24 Link Here

(-)a/admin/admin-home.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24		24

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

(-)a/admin/aqbudget_user_search.pl (-1 / +1 lines)
23		23
24	use C4::Auth ;	24	use C4::Auth ;
25	use C4::Output;	25	use C4::Output;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Dates qw/format_date/;	27	use C4::Dates qw/format_date/;
28	use C4::Members;	28	use C4::Members;
29		29

Lines 46-52 script to administer the budget periods table Link Here

(-)a/admin/aqbudgetperiods.pl (-1 / +2 lines)
46		46
47	use Modern::Perl;	47	use Modern::Perl;
48		48
49	use CGI;	49	use Number::Format qw(format_price);
		50	use CGI qw ( -utf8 );
50	use List::Util qw/min/;	51	use List::Util qw/min/;
51	use Koha::DateUtils;	52	use Koha::DateUtils;
52	use Koha::Database;	53	use Koha::Database;

Lines 21-27 Link Here

(-)a/admin/aqbudgets.pl (-1 / +1 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use List::Util qw/min/;	25	use List::Util qw/min/;
26		26
27	use Koha::Database;	27	use Koha::Database;

Lines 22-28 Link Here

(-)a/admin/aqcontract.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Context;	26	use C4::Context;
27	use C4::Auth;	27	use C4::Auth;
28	use C4::Output;	28	use C4::Output;

Lines 22-28 Link Here

(-)a/admin/aqplan.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	#use warnings; FIXME - Bug 2505	24	#use warnings; FIXME - Bug 2505
25	use CGI;	25	use CGI qw ( -utf8 );
26	use List::Util qw/min/;	26	use List::Util qw/min/;
27	use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;	27	use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;
28	use Date::Manip qw/ ParseDate UnixDate DateCalc/;	28	use Date::Manip qw/ ParseDate UnixDate DateCalc/;

Lines 21-27 use strict; Link Here

(-)a/admin/auth_subfields_structure.pl (-1 / +1 lines)
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use C4::Output;	22	use C4::Output;
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;	26	use C4::Koha;
27		27

Lines 20-26 Link Here

(-)a/admin/auth_tag_structure.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Koha;	25	use C4::Koha;
26	use C4::Context;	26	use C4::Context;

Lines 20-26 Link Here

(-)a/admin/authorised_values.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Branch;	25	use C4::Branch;
26	use C4::Context;	26	use C4::Context;

Lines 22-28 Link Here

(-)a/admin/authtypes.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Context;	26	use C4::Context;
27	use C4::Auth;	27	use C4::Auth;
28	use C4::Output;	28	use C4::Output;

Lines 23-29 Link Here

(-)a/admin/biblio_framework.pl (-1 / +1 lines)
23		23
24	use strict;	24	use strict;
25	use warnings;	25	use warnings;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;

Lines 21-27 Link Here

(-)a/admin/branch_transfer_limits.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Context;	26	use C4::Context;
27	use C4::Output;	27	use C4::Output;

Lines 39-45 Link Here

(-)a/admin/branches.pl (-1 / +1 lines)
39		39
40	use strict;	40	use strict;
41	use warnings;	41	use warnings;
42	use CGI;	42	use CGI qw ( -utf8 );
43	use C4::Auth;	43	use C4::Auth;
44	use C4::Context;	44	use C4::Context;
45	use C4::Output;	45	use C4::Output;

Lines 37-43 Link Here

(-)a/admin/categorie.pl (-1 / +1 lines)
37		37
38	use Modern::Perl;	38	use Modern::Perl;
39		39
40	use CGI;	40	use CGI qw ( -utf8 );
41	use C4::Context;	41	use C4::Context;
42	use C4::Auth;	42	use C4::Auth;
43	use C4::Branch;	43	use C4::Branch;

Lines 19-25 Link Here

(-)a/admin/check_budget_parent.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;

Lines 19-25 Link Here

(-)a/admin/check_parent_total.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;

Lines 22-28 use strict; Link Here

(-)a/admin/checkmarc.pl (-1 / +1 lines)
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth;	24	use C4::Auth;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Context;	26	use C4::Context;
27	use C4::Biblio;	27	use C4::Biblio;
28		28

Lines 19-25 Link Here

(-)a/admin/cities.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;

Lines 20-26 Link Here

(-)a/admin/classsources.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Context;	25	use C4::Context;
26	use C4::Output;	26	use C4::Output;

Lines 27-33 Link Here

(-)a/admin/clone-rules.pl (-1 / +1 lines)
27		27
28	use strict;	28	use strict;
29	#use warnings; FIXME - Bug 2505	29	#use warnings; FIXME - Bug 2505
30	use CGI;	30	use CGI qw ( -utf8 );
31	use C4::Context;	31	use C4::Context;
32	use C4::Output;	32	use C4::Output;
33	use C4::Auth;	33	use C4::Auth;

Lines 39-45 Link Here

(-)a/admin/currency.pl (-1 / +1 lines)
39		39
40	use strict;	40	use strict;
41	use warnings;	41	use warnings;
42	use CGI;	42	use CGI qw ( -utf8 );
43	use C4::Context;	43	use C4::Context;
44	use C4::Auth;	44	use C4::Auth;
45	use C4::Output;	45	use C4::Output;

Lines 2-8 Link Here

(-)a/admin/didyoumean.pl (-1 / +1 lines)
2		2
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5	use CGI;	5	use CGI qw ( -utf8 );
6	use C4::Context;	6	use C4::Context;
7	use C4::Auth;	7	use C4::Auth;
8	use C4::Output;	8	use C4::Output;

Lines 2-8 Link Here

(-)a/admin/env_tz_test.pl (-1 / +1 lines)
2		2
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5	use CGI;	5	use CGI qw ( -utf8 );
6	# use Data::Dumper;	6	# use Data::Dumper;
7		7
8	use C4::Context;	8	use C4::Context;

Lines 18-24 Link Here

(-)a/admin/fieldmapping.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Biblio;	23	use C4::Biblio;
24	use C4::Koha;	24	use C4::Koha;

Lines 20-26 Link Here

(-)a/admin/import_export_framework.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use CGI::Cookie;	24	use CGI::Cookie;
25	use C4::Context;	25	use C4::Context;
26	use C4::Auth qw/check_cookie_auth/;	26	use C4::Auth qw/check_cookie_auth/;

Lines 18-24 Link Here

(-)a/admin/item_circulation_alerts.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use File::Basename;	22	use File::Basename;
23	use Encode;	23	use Encode;
24	use JSON;	24	use JSON;

Lines 42-48 written 20/02/2002 by paul.poulain@free.fr Link Here

(-)a/admin/itemtypes.pl (-1 / +1 lines)
42		42
43	use strict;	43	use strict;
44	#use warnings; FIXME - Bug 2505	44	#use warnings; FIXME - Bug 2505
45	use CGI;	45	use CGI qw ( -utf8 );
46		46
47	use List::Util qw/min/;	47	use List::Util qw/min/;
48	use File::Spec;	48	use File::Spec;

Lines 21-27 use strict; Link Here

(-)a/admin/koha2marclinks.pl (-1 / +1 lines)
21	use warnings;	21	use warnings;
22	use C4::Output;	22	use C4::Output;
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Biblio;	26	use C4::Biblio;
27		27

Lines 21-27 use strict; Link Here

(-)a/admin/marc_subfields_structure.pl (-1 / +1 lines)
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use C4::Output;	22	use C4::Output;
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27		27

Lines 20-26 Link Here

(-)a/admin/marctagstructure.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Koha;	25	use C4::Koha;
26	use C4::Context;	26	use C4::Context;

Lines 21-27 Link Here

(-)a/admin/matching-rules.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Context;	26	use C4::Context;
27	use C4::Output;	27	use C4::Output;

Lines 32-38 the OR operator will be applied. Link Here

(-)a/admin/oai_set_mappings.pl (-1 / +1 lines)
32		32
33	use Modern::Perl;	33	use Modern::Perl;
34		34
35	use CGI;	35	use CGI qw ( -utf8 );
36	use C4::Auth;	36	use C4::Auth;
37	use C4::Output;	37	use C4::Output;
38	use C4::OAI::Sets;	38	use C4::OAI::Sets;

Lines 28-34 Admin page to describe OAI SETs Link Here

(-)a/admin/oai_sets.pl (-1 / +1 lines)
28		28
29	use Modern::Perl;	29	use Modern::Perl;
30		30
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Auth;	32	use C4::Auth;
33	use C4::Output;	33	use C4::Output;
34	use C4::OAI::Sets;	34	use C4::OAI::Sets;

Lines 21-27 Link Here

(-)a/admin/patron-attr-types.pl (-1 / +1 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use List::MoreUtils qw/uniq/;	25	use List::MoreUtils qw/uniq/;
26		26
27	use C4::Auth;	27	use C4::Auth;

Lines 19-25 Link Here

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

Lines 39-45 Link Here

(-)a/admin/printers.pl (-1 / +1 lines)
39		39
40	use strict;	40	use strict;
41	#use warnings; FIXME - Bug 2505	41	#use warnings; FIXME - Bug 2505
42	use CGI;	42	use CGI qw ( -utf8 );
43	use C4::Context;	43	use C4::Context;
44	use C4::Output;	44	use C4::Output;
45	use C4::Auth;	45	use C4::Auth;

Lines 19-25 Link Here

(-)a/admin/smart-rules.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;

Lines 23-29 Link Here

(-)a/admin/stopwords.pl (-1 / +1 lines)
23		23
24	use strict;	24	use strict;
25	use warnings;	25	use warnings;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28	use C4::Output;	28	use C4::Output;
29	use C4::Auth;	29	use C4::Auth;

Lines 43-49 ALSO : Link Here

(-)a/admin/systempreferences.pl (-1 / +1 lines)
43	use strict;	43	use strict;
44	use warnings;	44	use warnings;
45		45
46	use CGI;	46	use CGI qw ( -utf8 );
47	use MIME::Base64;	47	use MIME::Base64;
48	use C4::Auth;	48	use C4::Auth;
49	use C4::Context;	49	use C4::Context;

Lines 19-25 Link Here

(-)a/admin/transport-cost-matrix.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;

Lines 25-31 Link Here

(-)a/admin/z3950servers.pl (-1 / +1 lines)
25	# delete_confirmed deletes a record and goes to list view.	25	# delete_confirmed deletes a record and goes to list view.
26		26
27	use Modern::Perl;	27	use Modern::Perl;
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Context;	29	use C4::Context;
30	use C4::Auth;	30	use C4::Auth;
31	use C4::Output;	31	use C4::Output;

Lines 21-27 Link Here

(-)a/authorities/auth_finder.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Output;	25	use C4::Output;
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Context;	27	use C4::Context;

Lines 20-26 Link Here

(-)a/authorities/authorities-home.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use URI::Escape;	24	use URI::Escape;
25	use C4::Auth;	25	use C4::Auth;
26		26

Lines 20-26 Link Here

(-)a/authorities/authorities.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26	use C4::AuthoritiesMarc;	26	use C4::AuthoritiesMarc;

Lines 43-49 use C4::AuthoritiesMarc; Link Here

(-)a/authorities/blinddetail-biblio-search.pl (-1 / +1 lines)
43	use C4::Auth;	43	use C4::Auth;
44	use C4::Context;	44	use C4::Context;
45	use C4::Output;	45	use C4::Output;
46	use CGI;	46	use CGI qw ( -utf8 );
47	use MARC::Record;	47	use MARC::Record;
48	use C4::Koha;	48	use C4::Koha;
49		49

Lines 44-50 use C4::AuthoritiesMarc; Link Here

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

Lines 44-50 use C4::AuthoritiesMarc; Link Here

(-)a/authorities/detail.pl (-1 / +1 lines)
44	use C4::Auth;	44	use C4::Auth;
45	use C4::Context;	45	use C4::Context;
46	use C4::Output;	46	use C4::Output;
47	use CGI;	47	use CGI qw ( -utf8 );
48	use MARC::Record;	48	use MARC::Record;
49	use C4::Koha;	49	use C4::Koha;
50		50

Lines 6-12 use C4::Record; Link Here

(-)a/authorities/export.pl (-1 / +1 lines)
6	use C4::Auth;	6	use C4::Auth;
7	use C4::Output;	7	use C4::Output;
8	use C4::AuthoritiesMarc;	8	use C4::AuthoritiesMarc;
9	use CGI;	9	use CGI qw ( -utf8 );
10		10
11	my $query = new CGI;	11	my $query = new CGI;
12	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	12	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 19-25 Link Here

(-)a/authorities/merge.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::AuthoritiesMarc;	25	use C4::AuthoritiesMarc;

Lines 3-9 Link Here

(-)a/authorities/merge_ajax.pl (-1 / +1 lines)
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5		5
6	use CGI;	6	use CGI qw ( -utf8 );
7	use CGI::Session;	7	use CGI::Session;
8	use C4::Context;	8	use C4::Context;
9	use C4::Auth qw/check_cookie_auth/;	9	use C4::Auth qw/check_cookie_auth/;

Lines 27-33 This script allows ajax call for dynamic authorities search Link Here

(-)a/authorities/ysearch.pl (-1 / +1 lines)
27		27
28	=cut	28	=cut
29		29
30	use CGI;	30	use CGI qw ( -utf8 );
31	use Modern::Perl;	31	use Modern::Perl;
32	use JSON;	32	use JSON;
33		33

Lines 18-24 Link Here

(-)a/basket/basket.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Koha;	22	use C4::Koha;
23	use C4::Biblio;	23	use C4::Biblio;
24	use C4::Items;	24	use C4::Items;

Lines 20-26 Link Here

(-)a/basket/downloadcart.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(encode);	24	use Encode qw(encode);
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 18-24 Link Here

(-)a/basket/sendbasket.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use Encode qw(encode);	22	use Encode qw(encode);
23	use Carp;	23	use Carp;
24		24

Lines 39-45 use strict; Link Here

(-)a/catalogue/ISBDdetail.pl (-1 / +1 lines)
39	use C4::Auth;	39	use C4::Auth;
40	use C4::Context;	40	use C4::Context;
41	use C4::Output;	41	use C4::Output;
42	use CGI;	42	use CGI qw ( -utf8 );
43	use C4::Koha;	43	use C4::Koha;
44	use C4::Biblio;	44	use C4::Biblio;
45	use C4::Items;	45	use C4::Items;

Lines 49-55 use strict; Link Here

(-)a/catalogue/MARCdetail.pl (-1 / +1 lines)
49	use C4::Auth;	49	use C4::Auth;
50	use C4::Context;	50	use C4::Context;
51	use C4::Output;	51	use C4::Output;
52	use CGI;	52	use CGI qw ( -utf8 );
53	use C4::Koha;	53	use C4::Koha;
54	use MARC::Record;	54	use MARC::Record;
55	use C4::Biblio;	55	use C4::Biblio;

Lines 19-25 Link Here

(-)a/catalogue/detail.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Acquisition qw( GetHistory );	23	use C4::Acquisition qw( GetHistory );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Dates qw/format_date/;	25	use C4::Dates qw/format_date/;

Lines 6-12 use C4::Record; Link Here

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

Lines 18-24 Link Here

(-)a/catalogue/getitem-ajax.pl (-1 / +1 lines)
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use JSON;	22	use JSON;
23		23
24	use C4::Biblio;	24	use C4::Biblio;

Lines 26-32 Link Here

(-)a/catalogue/image.pl (-1 / +1 lines)
26	use strict;	26	use strict;
27	use warnings;	27	use warnings;
28		28
29	use CGI; #qw(:standard escapeHTML);	29	use CGI qw ( -utf8 ); #qw(:standard escapeHTML);
30	use C4::Context;	30	use C4::Context;
31	use C4::Images;	31	use C4::Images;
32		32

Lines 20-26 Link Here

(-)a/catalogue/imageviewer.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Biblio;	25	use C4::Biblio;
26	use C4::Items;	26	use C4::Items;

Lines 19-25 Link Here

(-)a/catalogue/issuehistory.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	#use warnings; FIXME - Bug 2505	20	#use warnings; FIXME - Bug 2505
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25		25

Lines 19-25 Link Here

(-)a/catalogue/labeledMARCdetail.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use MARC::Record;	23	use MARC::Record;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Context;	25	use C4::Context;

Lines 22-28 Link Here

(-)a/catalogue/moredetail.pl (-1 / +1 lines)
22	use strict;	22	use strict;
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use C4::Koha;	24	use C4::Koha;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Biblio;	26	use C4::Biblio;
27	use C4::Items;	27	use C4::Items;
28	use C4::Branch;	28	use C4::Branch;

Lines 19-25 Link Here

(-)a/catalogue/search-history.pl (-1 / +1 lines)
19	# <http://www.gnu.org/licenses>	19	# <http://www.gnu.org/licenses>
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Search::History;	25	use C4::Search::History;

Lines 159-165 use URI::Escape; Link Here

(-)a/catalogue/search.pl (-1 / +1 lines)
159	my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");	159	my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
160	# create a new CGI object	160	# create a new CGI object
161	# FIXME: no_undef_params needs to be tested	161	# FIXME: no_undef_params needs to be tested
162	use CGI qw('-no_undef_params');	162	use CGI qw('-no_undef_params' -utf8 );
163	my $cgi = new CGI;	163	my $cgi = new CGI;
164		164
165	my ($template,$borrowernumber,$cookie);	165	my ($template,$borrowernumber,$cookie);

Lines 24-30 use strict; Link Here

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

Lines 19-25 Link Here

(-)a/catalogue/updateitem.pl (-1 / +1 lines)
19	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	19	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Context;	24	use C4::Context;
25	use C4::Biblio;	25	use C4::Biblio;

Lines 26-32 Link Here

(-)a/cataloguing/addbooks.pl (-1 / +1 lines)
26		26
27	use strict;	27	use strict;
28	use warnings;	28	use warnings;
29	use CGI;	29	use CGI qw ( -utf8 );
30	use C4::Auth;	30	use C4::Auth;
31	use C4::Biblio;	31	use C4::Biblio;
32	use C4::Breeding;	32	use C4::Breeding;

Lines 21-27 Link Here

(-)a/cataloguing/additem.pl (-1 / +1 lines)
21		21
22	use strict;	22	use strict;
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;
27	use C4::Biblio;	27	use C4::Biblio;

Lines 20-26 Link Here

(-)a/cataloguing/linkitem.pl (-1 / +1 lines)
20	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	20	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21		21
22	use strict;	22	use strict;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26	use C4::Biblio;	26	use C4::Biblio;

Lines 21-27 Link Here

(-)a/cataloguing/merge.pl (-1 / +1 lines)
21		21
22	use strict;	22	use strict;
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Output;	25	use C4::Output;
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Items;	27	use C4::Items;

Lines 5-11 use strict; Link Here

(-)a/cataloguing/merge_ajax.pl (-1 / +1 lines)
5		5
6	# standard or CPAN modules used	6	# standard or CPAN modules used
7	use IO::File;	7	use IO::File;
8	use CGI;	8	use CGI qw ( -utf8 );
9	use CGI::Session;	9	use CGI::Session;
10	use C4::Context;	10	use C4::Context;
11	use C4::Biblio;	11	use C4::Biblio;

Lines 21-27 Link Here

(-)a/cataloguing/moveitem.pl (-1 / +1 lines)
21		21
22	use strict;	22	use strict;
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;
27	use C4::Biblio;	27	use C4::Biblio;

Lines 20-26 Link Here

(-)a/cataloguing/plugin_launcher.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26		26

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/callnumber-KU.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	=head1 DESCRIPTION	26	=head1 DESCRIPTION

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/callnumber.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	=head1 DESCRIPTION	26	=head1 DESCRIPTION

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/labs_theses.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Output;	25	use C4::Output;
26	use C4::Context;	26	use C4::Context;

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/macles.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26	use C4::Auth;	26	use C4::Auth;

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/marc21_field_006.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	use C4::Search;	26	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_field_007.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/marc21_field_008.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	use C4::Search;	26	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_leader.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_leader_authorities.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_leader_book.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_leader_computerfile.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/marc21_leader_video.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/marc21_linking_section.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;
26	use C4::Search;	26	use C4::Search;

Lines 19-25 Link Here

(-)a/cataloguing/value_builder/normarc_field_007.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use C4::Auth;	21	use C4::Auth;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24		24
25	use C4::Search;	25	use C4::Search;

Lines 19-25 Link Here

(-)a/cataloguing/value_builder/normarc_field_008.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use C4::Auth;	21	use C4::Auth;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24		24
25	use C4::Search;	25	use C4::Search;

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/normarc_leader.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	use C4::Search;	26	use C4::Search;

Lines 19-25 Link Here

(-)a/cataloguing/value_builder/stocknumberAV.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use C4::Auth;	21	use C4::Auth;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24		24
25	=head1 DESCRIPTION	25	=head1 DESCRIPTION

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/stocknumberam123.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	=head1 DESCRIPTION	26	=head1 DESCRIPTION

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_010.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27		27

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_100.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28	use C4::Output;	28	use C4::Output;
29		29

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

(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-1 / +1 lines)
21		21
22	use Koha::Util::FrameworkPlugin qw(wrapper);	22	use Koha::Util::FrameworkPlugin qw(wrapper);
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Output;	26	use C4::Output;
27		27

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_105.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_106.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_110.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_116.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_117.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_120.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_122.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_125.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_126.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_127.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_130.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_140.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_141.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::Search;	27	use C4::Search;

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

(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-1 / +1 lines)
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Context;	26	use C4::Context;
27	use C4::Output;	27	use C4::Output;
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Search;	29	use C4::Search;
30	use MARC::Record;	30	use MARC::Record;
31	use C4::Koha;	31	use C4::Koha;

Lines 42-48 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-1 / +1 lines)
42		42
43	#use warnings; FIXME - Bug 2505	43	#use warnings; FIXME - Bug 2505
44	use C4::Auth;	44	use C4::Auth;
45	use CGI;	45	use CGI qw ( -utf8 );
46	use C4::Context;	46	use C4::Context;
47		47
48	use C4::AuthoritiesMarc;	48	use C4::AuthoritiesMarc;

Lines 42-48 It need : Link Here

(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-1 / +1 lines)
42	use strict;	42	use strict;
43	#use warnings; FIXME - Bug 2505	43	#use warnings; FIXME - Bug 2505
44	use C4::Auth;	44	use C4::Auth;
45	use CGI;	45	use CGI qw ( -utf8 );
46	use C4::Context;	46	use C4::Context;
47		47
48	use C4::AuthoritiesMarc;	48	use C4::AuthoritiesMarc;

Lines 21-27 Link Here

(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Output;	25	use C4::Output;
26	use C4::Context;	26	use C4::Context;
27	use C4::Search;	27	use C4::Search;

Lines 20-26 Link Here

(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25		25
26	use C4::Search;	26	use C4::Search;

Lines 22-28 Link Here

(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-1 / +1 lines)
22	use strict;	22	use strict;
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use C4::Auth;	24	use C4::Auth;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Context;	26	use C4::Context;
27		27
28	use C4::Search;	28	use C4::Search;

Lines 23-29 use strict; Link Here

(-)a/cataloguing/value_builder/unimarc_leader.pl (-1 / +1 lines)
23		23
24	use Koha::Util::FrameworkPlugin qw(wrapper);	24	use Koha::Util::FrameworkPlugin qw(wrapper);
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28		28
29	use C4::Search;	29	use C4::Search;

Lines 25-31 Link Here

(-)a/cataloguing/ysearch.pl (-1 / +1 lines)
25	=cut	25	=cut
26		26
27	use Modern::Perl;	27	use Modern::Perl;
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Context;	29	use C4::Context;
30	use C4::Charset;	30	use C4::Charset;
31	use C4::Auth qw/check_cookie_auth/;	31	use C4::Auth qw/check_cookie_auth/;

Lines 20-26 Link Here

(-)a/cataloguing/z3950_search.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 19-25 use strict; Link Here

(-)a/changelanguage.pl (-1 / +1 lines)
19	use warnings;	19	use warnings;
20		20
21	use C4::Templates;	21	use C4::Templates;
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	my $query = new CGI;	24	my $query = new CGI;
25	my $language = $query->param('language');	25	my $language = $query->param('language');

Lines 20-26 Link Here

(-)a/circ/add_message.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Context;	25	use C4::Context;
26	use C4::Auth;	26	use C4::Auth;

Lines 22-28 Link Here

(-)a/circ/bookcount.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	#use warnings; FIXME - Bug 2505	24	#use warnings; FIXME - Bug 2505
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Debug;	26	use C4::Debug;
27	use C4::Context;	27	use C4::Context;
28	use C4::Circulation;	28	use C4::Circulation;

Lines 19-25 Link Here

(-)a/circ/branchoverdues.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	#use warnings; FIXME - Bug 2505	20	#use warnings; FIXME - Bug 2505
21	use C4::Context;	21	use C4::Context;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Overdues; # AddNotifyLine	25	use C4::Overdues; # AddNotifyLine

Lines 22-28 Link Here

(-)a/circ/branchtransfers.pl (-1 / +1 lines)
22		22
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Circulation;	26	use C4::Circulation;
27	use C4::Output;	27	use C4::Output;
28	use C4::Reserves;	28	use C4::Reserves;

Lines 18-24 Link Here

(-)a/circ/circulation-home.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	#use warnings; FIXME - Bug 2505	20	#use warnings; FIXME - Bug 2505
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 24-30 Link Here

(-)a/circ/circulation.pl (-1 / +1 lines)
24		24
25	use strict;	25	use strict;
26	use warnings;	26	use warnings;
27	use CGI;	27	use CGI qw ( -utf8 );
28	use DateTime;	28	use DateTime;
29	use DateTime::Duration;	29	use DateTime::Duration;
30	use C4::Output;	30	use C4::Output;

Lines 20-26 Link Here

(-)a/circ/del_message.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Context;	25	use C4::Context;
26	use C4::Auth;	26	use C4::Auth;

Lines 22-28 use strict; Link Here

(-)a/circ/hold-transfer-slip.pl (-1 / +1 lines)
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Auth qw/:DEFAULT get_session/;	26	use C4::Auth qw/:DEFAULT get_session/;
27	use C4::Reserves;	27	use C4::Reserves;
28		28

Lines 18-24 Link Here

(-)a/circ/offline-mf.pl (-1 / +1 lines)
18	#	18	#
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23		23
24	my $query = new CGI;	24	my $query = new CGI;

Lines 18-24 Link Here

(-)a/circ/offline.pl (-1 / +1 lines)
18	#	18	#
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 23-29 use strict; Link Here

(-)a/circ/overdue.pl (-1 / +1 lines)
23	use warnings;	23	use warnings;
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26	use CGI qw(-oldstyle_urls);	26	use CGI qw(-oldstyle_urls -utf8);
27	use C4::Auth;	27	use C4::Auth;
28	use C4::Branch;	28	use C4::Branch;
29	use C4::Debug;	29	use C4::Debug;

Lines 31-37 use constant TWO_DAYS_AGO => -2; Link Here

(-)a/circ/pendingreserves.pl (-1 / +1 lines)
31		31
32	use C4::Context;	32	use C4::Context;
33	use C4::Output;	33	use C4::Output;
34	use CGI;	34	use CGI qw ( -utf8 );
35	use C4::Auth;	35	use C4::Auth;
36	use C4::Dates qw/format_date format_date_in_iso/;	36	use C4::Dates qw/format_date format_date_in_iso/;
37	use C4::Debug;	37	use C4::Debug;

Lines 19-25 Link Here

(-)a/circ/renew.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Auth qw/:DEFAULT get_session/;	24	use C4::Auth qw/:DEFAULT get_session/;
25	use C4::Output;	25	use C4::Output;

Lines 21-27 Link Here

(-)a/circ/reserveratios.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use Date::Calc qw/Today Add_Delta_YM/;	25	use Date::Calc qw/Today Add_Delta_YM/;
26		26
27	use C4::Context;	27	use C4::Context;

Lines 30-36 script to execute returns of books Link Here

(-)a/circ/returns.pl (-1 / +1 lines)
30	use strict;	30	use strict;
31	use warnings;	31	use warnings;
32		32
33	use CGI;	33	use CGI qw ( -utf8 );
34	use DateTime;	34	use DateTime;
35	use C4::Context;	35	use C4::Context;
36	use C4::Auth qw/:DEFAULT get_session/;	36	use C4::Auth qw/:DEFAULT get_session/;

Lines 19-25 Link Here

(-)a/circ/selectbranchprinter.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;

Lines 23-29 Link Here

(-)a/circ/stats.pl (-1 / +1 lines)
23		23
24	use strict;	24	use strict;
25	#use warnings; FIXME - Bug 2505	25	#use warnings; FIXME - Bug 2505
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Context;	27	use C4::Context;
28	use C4::Output;	28	use C4::Output;
29	use C4::Auth;	29	use C4::Auth;

Lines 23-29 use warnings; Link Here

(-)a/circ/transfer-slip.pl (-1 / +1 lines)
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Auth qw/:DEFAULT get_session/;	27	use C4::Auth qw/:DEFAULT get_session/;
28	use C4::Circulation;	28	use C4::Circulation;
29		29

Lines 20-26 Link Here

(-)a/circ/transferstoreceive.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26	use C4::Branch; # GetBranches	26	use C4::Branch; # GetBranches

Lines 24-30 This script displays items in the tmp_holdsqueue table Link Here

(-)a/circ/view_holdsqueue.pl (-1 / +1 lines)
24		24
25	use strict;	25	use strict;
26	use warnings;	26	use warnings;
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;
30	use C4::Biblio;	30	use C4::Biblio;

Lines 20-26 Link Here

(-)a/circ/waitingreserves.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26	use C4::Branch; # GetBranchName	26	use C4::Branch; # GetBranchName

Lines 20-26 Link Here

(-)a/circ/ypattrodue-attr-search-authvalue.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
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::Debug;	26	use C4::Debug;

Lines 27-33 Link Here

(-)a/circ/ysearch.pl (-1 / +1 lines)
27		27
28	use strict;	28	use strict;
29	#use warnings; FIXME - Bug 2505	29	#use warnings; FIXME - Bug 2505
30	use CGI;	30	use CGI qw ( -utf8 );
31	use C4::Context;	31	use C4::Context;
32	use C4::Members;	32	use C4::Members;
33	use C4::Auth qw/check_cookie_auth/;	33	use C4::Auth qw/check_cookie_auth/;

Lines 20-26 Link Here

(-)a/course_reserves/add_items.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 20-26 Link Here

(-)a/course_reserves/course-details.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 20-26 Link Here

(-)a/course_reserves/course-reserves.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 20-26 Link Here

(-)a/course_reserves/course.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 19-25 Link Here

(-)a/course_reserves/mod_course.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Output;	24	use C4::Output;
25	use C4::Reserves;	25	use C4::Reserves;

Lines 39-45 binmode(STDOUT, ":utf8"); Link Here

(-)a/docs/CAS/CASProxy/examples/koha_webservice.pl (-1 / +1 lines)
39	use C4::Auth qw(check_api_auth);	39	use C4::Auth qw(check_api_auth);
40	use C4::Output;	40	use C4::Output;
41	use C4::Context;	41	use C4::Context;
42	use CGI;	42	use CGI qw ( -utf8 );
43		43
44	my $cgi = new CGI;	44	my $cgi = new CGI;
45		45

Lines 30-36 Link Here

(-)a/docs/CAS/CASProxy/examples/proxy_cas.pl (-1 / +1 lines)
30		30
31	use strict;	31	use strict;
32	use warnings;	32	use warnings;
33	use CGI;	33	use CGI qw ( -utf8 );
34	use Authen::CAS::Client;	34	use Authen::CAS::Client;
35		35
36	# URL Of the CAS Server	36	# URL Of the CAS Server

Lines 27-33 Link Here

(-)a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl (-1 / +1 lines)
27		27
28	use strict;	28	use strict;
29	use warnings;	29	use warnings;
30	use CGI;	30	use CGI qw ( -utf8 );
31	use Authen::CAS::Client;	31	use Authen::CAS::Client;
32	use Storable qw(nstore_fd);	32	use Storable qw(nstore_fd);
33		33

Lines 32-38 This PGTIOU will allow us to retrive the matching PGTID Link Here

(-)a/docs/CAS/CASProxy/examples/proxy_cas_data.pl (-1 / +1 lines)
32		32
33	use strict;	33	use strict;
34	use warnings;	34	use warnings;
35	use CGI;	35	use CGI qw ( -utf8 );
36	use Authen::CAS::Client;	36	use Authen::CAS::Client;
37	use Storable qw(fd_retrieve);	37	use Storable qw(fd_retrieve);
38	use LWP::Simple;	38	use LWP::Simple;

Lines 21-27 use strict; Link Here

(-)a/edithelp.pl (-1 / +1 lines)
21	use C4::Output;	21	use C4::Output;
22	use C4::Templates;	22	use C4::Templates;
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use warnings;	25	use warnings;
26		26
27	use vars qw($debug);	27	use vars qw($debug);

Lines 18-24 Link Here

(-)a/errors/400.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 17-23 Link Here

(-)a/errors/401.pl (-1 / +1 lines)
17		17
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20	use CGI;	20	use CGI qw ( -utf8 );
21	use C4::Auth;	21	use C4::Auth;
22	use C4::Output;	22	use C4::Output;
23	use C4::Context;	23	use C4::Context;

Lines 18-24 Link Here

(-)a/errors/402.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 18-24 Link Here

(-)a/errors/403.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 18-24 Link Here

(-)a/errors/404.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 18-24 Link Here

(-)a/errors/500.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

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

(-)a/help.pl (-1 / +1 lines)
23	use C4::Output;	23	use C4::Output;
24	# use C4::Auth;	24	# use C4::Auth;
25	use C4::Context;	25	use C4::Context;
26	use CGI;	26	use CGI qw ( -utf8 );
27		27
28	sub _help_template_file_of_url {	28	sub _help_template_file_of_url {
29	my $url = shift;	29	my $url = shift;

Lines 5-11 use warnings; Link Here

(-)a/installer/install.pl (-1 / +1 lines)
5	use diagnostics;	5	use diagnostics;
6		6
7	use C4::InstallAuth;	7	use C4::InstallAuth;
8	use CGI;	8	use CGI qw ( -utf8 );
9	use IPC::Cmd;	9	use IPC::Cmd;
10		10
11	use C4::Context;	11	use C4::Context;

Lines 21-27 Link Here

(-)a/labels/label-create-csv.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use Text::CSV_XS;	25	use Text::CSV_XS;
26	use Data::Dumper;	26	use Data::Dumper;
27		27

Lines 21-27 Link Here

(-)a/labels/label-create-pdf.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Debug;	26	use C4::Debug;
27	use C4::Creators;	27	use C4::Creators;

Lines 21-27 Link Here

(-)a/labels/label-create-xml.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use XML::Simple;	25	use XML::Simple;
26	use Data::Dumper;	26	use Data::Dumper;
27		27

Lines 22-28 use strict; Link Here

(-)a/labels/label-edit-batch.pl (-1 / +1 lines)
22	use warnings;	22	use warnings;
23	use vars qw($debug);	23	use vars qw($debug);
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26		26
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);

Lines 21-27 Link Here

(-)a/labels/label-edit-layout.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use POSIX;	25	use POSIX;
26		26
27	use C4::Auth qw(get_template_and_user);	27	use C4::Auth qw(get_template_and_user);

Lines 21-27 Link Here

(-)a/labels/label-edit-profile.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
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 21-27 Link Here

(-)a/labels/label-edit-template.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
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 21-27 Link Here

(-)a/labels/label-home.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
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 21-27 use strict; Link Here

(-)a/labels/label-item-search.pl (-1 / +1 lines)
21	use warnings;	21	use warnings;
22	use vars qw($debug $cgi_debug);	22	use vars qw($debug $cgi_debug);
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use List::Util qw( max min );	25	use List::Util qw( max min );
26	use POSIX qw(ceil);	26	use POSIX qw(ceil);
27		27

Lines 22-28 use strict; Link Here

(-)a/labels/label-manage.pl (-1 / +1 lines)
22	use warnings;	22	use warnings;
23	use vars qw($debug);	23	use vars qw($debug);
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26	use Data::Dumper;	26	use Data::Dumper;
27		27
28	use C4::Auth qw(get_template_and_user);	28	use C4::Auth qw(get_template_and_user);

Lines 20-26 Link Here

(-)a/labels/label-print.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Data::Dumper;	24	use Data::Dumper;
25		25
26	use C4::Auth qw(get_template_and_user);	26	use C4::Auth qw(get_template_and_user);

Lines 17-23 Link Here

(-)a/labels/spinelabel-home.pl (-1 / +1 lines)
17		17
18	use warnings;	18	use warnings;
19	use strict;	19	use strict;
20	use CGI;	20	use CGI qw ( -utf8 );
21	use C4::Auth;	21	use C4::Auth;
22	use C4::Output;	22	use C4::Output;
23	use C4::Context;	23	use C4::Context;

Lines 17-23 Link Here

(-)a/labels/spinelabel-print.pl (-1 / +1 lines)
17		17
18	use warnings;	18	use warnings;
19	use strict;	19	use strict;
20	use CGI;	20	use CGI qw ( -utf8 );
21	use C4::Auth;	21	use C4::Auth;
22	use C4::Output;	22	use C4::Output;
23		23

Lines 20-26 Link Here

(-)a/mainpage.pl (-1 / +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;	23	use CGI qw ( -utf8 );
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;

Lines 28-34 use warnings; Link Here

(-)a/members/boraccount.pl (-1 / +1 lines)
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;
30	use C4::Dates qw/format_date/;	30	use C4::Dates qw/format_date/;
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Members;	32	use C4::Members;
33	use C4::Branch;	33	use C4::Branch;
34	use C4::Accounts;	34	use C4::Accounts;

Lines 24-30 Link Here

(-)a/members/deletemem.pl (-1 / +1 lines)
24	use strict;	24	use strict;
25	#use warnings; FIXME - Bug 2505	25	#use warnings; FIXME - Bug 2505
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Context;	28	use C4::Context;
29	use C4::Output;	29	use C4::Output;
30	use C4::Auth;	30	use C4::Auth;

Lines 20-26 Link Here

(-)a/members/files.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Branch;	26	use C4::Branch;

Lines 21-27 Link Here

(-)a/members/guarantor_search.pl (-1 / +1 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25		25
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Output;	27	use C4::Output;

Lines 27-33 use warnings; Link Here

(-)a/members/mancredit.pl (-1 / +1 lines)
27		27
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;
30	use CGI;	30	use CGI qw ( -utf8 );
31		31
32	use C4::Members;	32	use C4::Members;
33	use C4::Branch;	33	use C4::Branch;

Lines 27-33 use warnings; Link Here

(-)a/members/maninvoice.pl (-1 / +1 lines)
27		27
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;
30	use CGI;	30	use CGI qw ( -utf8 );
31	use C4::Members;	31	use C4::Members;
32	use C4::Accounts;	32	use C4::Accounts;
33	use C4::Items;	33	use C4::Items;

Lines 7-13 Link Here

(-)a/members/member-flags.pl (-1 / +1 lines)
7	use strict;	7	use strict;
8	use warnings;	8	use warnings;
9		9
10	use CGI;	10	use CGI qw ( -utf8 );
11	use C4::Output;	11	use C4::Output;
12	use C4::Auth qw(:DEFAULT :EditPermissions);	12	use C4::Auth qw(:DEFAULT :EditPermissions);
13	use C4::Context;	13	use C4::Context;

Lines 14-20 use C4::Context; Link Here

(-)a/members/member-password.pl (-1 / +1 lines)
14	use C4::Members;	14	use C4::Members;
15	use C4::Branch;	15	use C4::Branch;
16	use C4::Circulation;	16	use C4::Circulation;
17	use CGI;	17	use CGI qw ( -utf8 );
18	use C4::Members::Attributes qw(GetBorrowerAttributes);	18	use C4::Members::Attributes qw(GetBorrowerAttributes);
19		19
20	use Digest::MD5 qw(md5_base64);	20	use Digest::MD5 qw(md5_base64);

Lines 26-32 Link Here

(-)a/members/member.pl (-1 / +1 lines)
26	use Modern::Perl;	26	use Modern::Perl;
27	use C4::Auth;	27	use C4::Auth;
28	use C4::Output;	28	use C4::Output;
29	use CGI;	29	use CGI qw( -utf8 );
30	use C4::Branch;	30	use C4::Branch;
31	use C4::Category;	31	use C4::Category;
32	use C4::Members qw( GetMember );	32	use C4::Members qw( GetMember );

Lines 23-29 use strict; Link Here

(-)a/members/memberentry.pl (-1 / +1 lines)
23	use warnings;	23	use warnings;
24		24
25	# external modules	25	# external modules
26	use CGI;	26	use CGI qw ( -utf8 );
27	# use Digest::MD5 qw(md5_base64);	27	# use Digest::MD5 qw(md5_base64);
28	use List::MoreUtils qw/uniq/;	28	use List::MoreUtils qw/uniq/;
29		29

Lines 19-25 Link Here

(-)a/members/members-home.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/members/members-update-do.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/members/members-update.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/members/mod_debarment.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth;
25	use Koha::DateUtils;	25	use Koha::DateUtils;

Lines 35-41 Link Here

(-)a/members/moremember.pl (-1 / +1 lines)
35		35
36	use strict;	36	use strict;
37	#use warnings; FIXME - Bug 2505	37	#use warnings; FIXME - Bug 2505
38	use CGI;	38	use CGI qw ( -utf8 );
39	use C4::Context;	39	use C4::Context;
40	use C4::Auth;	40	use C4::Auth;
41	use C4::Output;	41	use C4::Output;

Lines 23-29 use strict; Link Here

(-)a/members/notices.pl (-1 / +1 lines)
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Members;	27	use C4::Members;
28	use C4::Branch;	28	use C4::Branch;
29	use C4::Letters;	29	use C4::Letters;

Lines 23-29 Link Here

(-)a/members/patronimage.pl (-1 / +1 lines)
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25		25
26	use CGI; #qw(:standard escapeHTML);	26	use CGI qw ( -utf8 ); #qw(:standard escapeHTML);
27	use C4::Context;	27	use C4::Context;
28	use C4::Members;	28	use C4::Members;
29		29

Lines 33-39 use URI::Escape; Link Here

(-)a/members/pay.pl (-1 / +1 lines)
33	use C4::Context;	33	use C4::Context;
34	use C4::Auth;	34	use C4::Auth;
35	use C4::Output;	35	use C4::Output;
36	use CGI;	36	use CGI qw ( -utf8 );
37	use C4::Members;	37	use C4::Members;
38	use C4::Accounts;	38	use C4::Accounts;
39	use C4::Stats;	39	use C4::Stats;

Lines 23-29 use URI::Escape; Link Here

(-)a/members/paycollect.pl (-1 / +1 lines)
23	use C4::Context;	23	use C4::Context;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Members;	27	use C4::Members;
28	use C4::Members::Attributes qw(GetBorrowerAttributes);	28	use C4::Members::Attributes qw(GetBorrowerAttributes);
29	use C4::Accounts;	29	use C4::Accounts;

Lines 28-34 use warnings; Link Here

(-)a/members/printfeercpt.pl (-1 / +1 lines)
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;
30	use C4::Dates qw/format_date/;	30	use C4::Dates qw/format_date/;
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Members;	32	use C4::Members;
33	use C4::Branch;	33	use C4::Branch;
34	use C4::Accounts;	34	use C4::Accounts;

Lines 26-32 use warnings; Link Here

(-)a/members/printinvoice.pl (-1 / +1 lines)
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Output;	27	use C4::Output;
28	use C4::Dates qw/format_date/;	28	use C4::Dates qw/format_date/;
29	use CGI;	29	use CGI qw ( -utf8 );
30	use C4::Members;	30	use C4::Members;
31	use C4::Branch;	31	use C4::Branch;
32	use C4::Accounts;	32	use C4::Accounts;

Lines 34-40 Link Here

(-)a/members/printslip.pl (-1 / +1 lines)
34		34
35	use strict;	35	use strict;
36	#use warnings; FIXME - Bug 2505	36	#use warnings; FIXME - Bug 2505
37	use CGI;	37	use CGI qw ( -utf8 );
38	use C4::Context;	38	use C4::Context;
39	use C4::Auth qw/:DEFAULT get_session/;	39	use C4::Auth qw/:DEFAULT get_session/;
40	use C4::Output;	40	use C4::Output;

Lines 19-25 Link Here

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

Lines 23-29 Link Here

(-)a/members/readingrec.pl (-1 / +1 lines)
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25		25
26	use CGI;	26	use CGI qw ( -utf8 );
27		27
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Output;	29	use C4::Output;

Lines 19-25 Link Here

(-)a/members/routing-lists.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth qw/:DEFAULT get_session/;	24	use C4::Auth qw/:DEFAULT get_session/;
25	use C4::Branch; # GetBranches	25	use C4::Branch; # GetBranches

Lines 26-32 Link Here

(-)a/members/setstatus.pl (-1 / +1 lines)
26	use strict;	26	use strict;
27	use warnings;	27	use warnings;
28		28
29	use CGI;	29	use CGI qw ( -utf8 );
30	use C4::Context;	30	use C4::Context;
31	use C4::Members;	31	use C4::Members;
32	use C4::Auth;	32	use C4::Auth;

Lines 24-30 Link Here

(-)a/members/statistics.pl (-1 / +1 lines)
24		24
25	use Modern::Perl;	25	use Modern::Perl;
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Branch;	29	use C4::Branch;
30	use C4::Context;	30	use C4::Context;

Lines 28-34 Link Here

(-)a/members/update-child.pl (-1 / +1 lines)
28		28
29	use strict;	29	use strict;
30	#use warnings; FIXME - Bug 2505	30	#use warnings; FIXME - Bug 2505
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Context;	32	use C4::Context;
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Output;	34	use C4::Output;

Lines 29-35 use Getopt::Long qw(:config auto_help auto_version); Link Here

(-)a/misc/cronjobs/runreport.pl (-1 / +1 lines)
29	use Pod::Usage;	29	use Pod::Usage;
30	use Mail::Sendmail;	30	use Mail::Sendmail;
31	use Text::CSV_XS;	31	use Text::CSV_XS;
32	use CGI;	32	use CGI qw ( -utf8 );
33	use Carp;	33	use Carp;
34	use Encode;	34	use Encode;
35		35

Lines 19-25 Link Here

(-)a/offline_circ/download.pl (-1 / +1 lines)
19	#	19	#
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use JSON;	23	use JSON;
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;

Lines 21-27 Link Here

(-)a/offline_circ/enqueue_koc.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Output;	25	use C4::Output;
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Koha;	27	use C4::Koha;

Lines 21-27 Link Here

(-)a/offline_circ/list.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Output;	25	use C4::Output;
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Koha;	27	use C4::Koha;

Lines 21-27 Link Here

(-)a/offline_circ/process.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Circulation;	26	use C4::Circulation;
27		27

Lines 21-27 Link Here

(-)a/offline_circ/process_koc.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Output;	25	use C4::Output;
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Koha;	27	use C4::Koha;

Lines 21-27 Link Here

(-)a/offline_circ/service.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Circulation;	26	use C4::Circulation;
27		27

Lines 19-25 Link Here

(-)a/opac/errors/400.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/opac/errors/401.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/opac/errors/402.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/opac/errors/403.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/opac/errors/404.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 19-25 Link Here

(-)a/opac/errors/500.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

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

(-)a/opac/ilsdi.pl (-1 / +1 lines)
27	use C4::Output;	27	use C4::Output;
28	use C4::Context;	28	use C4::Context;
29	use XML::Simple;	29	use XML::Simple;
30	use CGI;	30	use CGI qw ( -utf8 );
31		31
32	=head1 DLF ILS-DI for Koha	32	=head1 DLF ILS-DI for Koha
33		33

Lines 17-23 Link Here

(-)a/opac/maintenance.pl (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI;	20	use CGI qw ( -utf8 );
21	use C4::Auth;	21	use C4::Auth;
22	use C4::Output;	22	use C4::Output;
23	use C4::Templates qw/gettemplate/;	23	use C4::Templates qw/gettemplate/;

Lines 21-27 Link Here

(-)a/opac/oai.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI qw/:standard -oldstyle_urls/;	24	use CGI qw( :standard -oldstyle_urls -utf8 );
25	use vars qw( $GZIP );	25	use vars qw( $GZIP );
26	use C4::Context;	26	use C4::Context;
27		27

Lines 45-51 use warnings; Link Here

(-)a/opac/opac-ISBDdetail.pl (-1 / +1 lines)
45	use C4::Auth;	45	use C4::Auth;
46	use C4::Context;	46	use C4::Context;
47	use C4::Output;	47	use C4::Output;
48	use CGI;	48	use CGI qw ( -utf8 );
49	use MARC::Record;	49	use MARC::Record;
50	use C4::Biblio;	50	use C4::Biblio;
51	use C4::Items;	51	use C4::Items;

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

(-)a/opac/opac-MARCdetail.pl (-1 / +1 lines)
48	use C4::Auth;	48	use C4::Auth;
49	use C4::Context;	49	use C4::Context;
50	use C4::Output;	50	use C4::Output;
51	use CGI;	51	use CGI qw ( -utf8 );
52	use MARC::Record;	52	use MARC::Record;
53	use C4::Biblio;	53	use C4::Biblio;
54	use C4::Items;	54	use C4::Items;

Lines 20-26 Link Here

(-)a/opac/opac-account.pl (-1 / +1 lines)
20		20
21		21
22	use strict;	22	use strict;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Members;	24	use C4::Members;
25	use C4::Circulation;	25	use C4::Circulation;
26	use C4::Auth;	26	use C4::Auth;

Lines 25-31 Link Here

(-)a/opac/opac-addbybiblionumber.pl (-1 / +1 lines)
25	use strict;	25	use strict;
26	use warnings;	26	use warnings;
27		27
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Biblio;	29	use C4::Biblio;
30	use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;	30	use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;
31	use C4::Output;	31	use C4::Output;

Lines 21-27 Link Here

(-)a/opac/opac-alert-subscribe.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Dates;	26	use C4::Dates;
27	use C4::Output;	27	use C4::Output;

Lines 21-28 Link Here

(-)a/opac/opac-authorities-home.pl (-2 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25
26	use C4::Auth;	25	use C4::Auth;
27		26
28	use C4::Context;	27	use C4::Context;

Lines 43-49 use C4::AuthoritiesMarc; Link Here

(-)a/opac/opac-authoritiesdetail.pl (-1 / +1 lines)
43	use C4::Auth;	43	use C4::Auth;
44	use C4::Context;	44	use C4::Context;
45	use C4::Output;	45	use C4::Output;
46	use CGI;	46	use CGI qw ( -utf8 );
47	use MARC::Record;	47	use MARC::Record;
48	use C4::Koha;	48	use C4::Koha;
49		49

Lines 18-24 Link Here

(-)a/opac/opac-basket.pl (-1 / +1 lines)
18		18
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Koha;	22	use C4::Koha;
23	use C4::Biblio;	23	use C4::Biblio;
24	use C4::Branch;	24	use C4::Branch;

Lines 18-24 Link Here

(-)a/opac/opac-blocked.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 qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

Lines 30-36 use warnings; Link Here

(-)a/opac/opac-browser.pl (-1 / +1 lines)
30	use C4::Auth;	30	use C4::Auth;
31	use C4::Context;	31	use C4::Context;
32	use C4::Output;	32	use C4::Output;
33	use CGI;	33	use CGI qw ( -utf8 );
34	use C4::Biblio;	34	use C4::Biblio;
35	use C4::Koha; # use getitemtypeinfo	35	use C4::Koha; # use getitemtypeinfo
36		36

Lines 18-24 Link Here

(-)a/opac/opac-changelanguage.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20	use C4::Templates;	20	use C4::Templates;
21	use CGI;	21	use CGI qw ( -utf8 );
22		22
23	my $query = new CGI;	23	my $query = new CGI;
24	my $language = $query->param('language');	24	my $language = $query->param('language');

Lines 20-26 Link Here

(-)a/opac/opac-course-details.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 20-26 Link Here

(-)a/opac/opac-course-reserves.pl (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 23-29 Link Here

(-)a/opac/opac-detail.pl (-1 / +1 lines)
23	use strict;	23	use strict;
24	use warnings;	24	use warnings;
25		25
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Acquisition qw( SearchOrders );	27	use C4::Acquisition qw( SearchOrders );
28	use C4::Auth qw(:DEFAULT get_session);	28	use C4::Auth qw(:DEFAULT get_session);
29	use C4::Branch;	29	use C4::Branch;

Lines 20-26 Link Here

(-)a/opac/opac-downloadcart.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(encode);	24	use Encode qw(encode);
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 20-26 Link Here

(-)a/opac/opac-downloadshelf.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(encode);	24	use Encode qw(encode);
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 24-30 use C4::Record; Link Here

(-)a/opac/opac-export.pl (-1 / +1 lines)
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26	use C4::Biblio;	26	use C4::Biblio;
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Ris;	29	use C4::Ris;
30		30

Lines 22-28 Link Here

(-)a/opac/opac-ics.pl (-1 / +1 lines)
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26	use Data::ICal;	26	use Data::ICal;
27	use Data::ICal::Entry::Event;	27	use Data::ICal::Entry::Event;
28	use DateTime;	28	use DateTime;

Lines 26-32 Link Here

(-)a/opac/opac-image.pl (-1 / +1 lines)
26	use strict;	26	use strict;
27	use warnings;	27	use warnings;
28		28
29	use CGI;	29	use CGI qw ( -utf8 );
30	use C4::Context;	30	use C4::Context;
31	use C4::Images;	31	use C4::Images;
32		32

Lines 20-26 Link Here

(-)a/opac/opac-imageviewer.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Biblio;	25	use C4::Biblio;
26	use C4::Output;	26	use C4::Output;

Lines 19-25 Link Here

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

Lines 17-23 Link Here

(-)a/opac/opac-memberentry.pl (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI;	20	use CGI qw ( -utf8 );
21	use Digest::MD5 qw( md5_base64 md5_hex );	21	use Digest::MD5 qw( md5_base64 md5_hex );
22	use String::Random qw( random_string );	22	use String::Random qw( random_string );
23		23

Lines 20-26 Link Here

(-)a/opac/opac-messaging.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth; # checkauth, getborrowernumber.	25	use C4::Auth; # checkauth, getborrowernumber.
26	use C4::Context;	26	use C4::Context;

Lines 18-24 Link Here

(-)a/opac/opac-modrequest-suspend.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Output;	22	use C4::Output;
23	use C4::Reserves;	23	use C4::Reserves;
24	use C4::Auth;	24	use C4::Auth;

Lines 25-31 Link Here

(-)a/opac/opac-modrequest.pl (-1 / +1 lines)
25	use strict;	25	use strict;
26	use warnings;	26	use warnings;
27		27
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Output;	29	use C4::Output;
30	use C4::Reserves;	30	use C4::Reserves;
31	use C4::Auth;	31	use C4::Auth;

Lines 20-26 Link Here

(-)a/opac/opac-mymessages.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Context;	26	use C4::Context;

Lines 20-26 Link Here

(-)a/opac/opac-overdrive-search.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth qw(:DEFAULT get_session);	25	use C4::Auth qw(:DEFAULT get_session);
26	use C4::Output;	26	use C4::Output;

Lines 21-27 Link Here

(-)a/opac/opac-passwd.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25		25
26	use C4::Auth; # checkauth, getborrowernumber.	26	use C4::Auth; # checkauth, getborrowernumber.
27	use C4::Context;	27	use C4::Context;

Lines 21-27 Link Here

(-)a/opac/opac-patron-image.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use C4::Members;	23	use C4::Members;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use CGI::Cookie; # need to check cookies before having CGI parse the POST request	25	use CGI::Cookie; # need to check cookies before having CGI parse the POST request
26	use C4::Auth qw(:DEFAULT check_cookie_auth);	26	use C4::Auth qw(:DEFAULT check_cookie_auth);
27		27

Lines 17-23 Link Here

(-)a/opac/opac-privacy.pl (-1 / +1 lines)
17	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	17	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18		18
19	use strict;	19	use strict;
20	use CGI;	20	use CGI qw ( -utf8 );
21		21
22	use C4::Auth; # checkauth, getborrowernumber.	22	use C4::Auth; # checkauth, getborrowernumber.
23	use C4::Context;	23	use C4::Context;

Lines 26-32 A script that takes an ajax json query, and then inserts or modifies a star-rati Link Here

(-)a/opac/opac-ratings-ajax.pl (-1 / +1 lines)
26	use strict;	26	use strict;
27	use warnings;	27	use warnings;
28		28
29	use CGI;	29	use CGI qw ( -utf8 );
30	use CGI::Cookie; # need to check cookies before having CGI parse the POST request	30	use CGI::Cookie; # need to check cookies before having CGI parse the POST request
31		31
32	use C4::Auth qw(:DEFAULT check_cookie_auth);	32	use C4::Auth qw(:DEFAULT check_cookie_auth);

Lines 27-33 note: there is currently no 'delete rating' functionality in this script Link Here

(-)a/opac/opac-ratings.pl (-1 / +1 lines)
27		27
28	use strict;	28	use strict;
29	use warnings;	29	use warnings;
30	use CGI;	30	use CGI qw ( -utf8 );
31	use CGI::Cookie;	31	use CGI::Cookie;
32	use C4::Auth qw(:DEFAULT check_cookie_auth);	32	use C4::Auth qw(:DEFAULT check_cookie_auth);
33	use C4::Context;	33	use C4::Context;

Lines 19-25 Link Here

(-)a/opac/opac-readingrecord.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Koha;	25	use C4::Koha;

Lines 17-23 Link Here

(-)a/opac/opac-registration-verify.pl (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use CGI;	20	use CGI qw ( -utf8 );
21		21
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;

Lines 24-30 Link Here

(-)a/opac/opac-renew.pl (-1 / +1 lines)
24	use strict;	24	use strict;
25	use warnings;	25	use warnings;
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Circulation;	28	use C4::Circulation;
29	use C4::Auth;	29	use C4::Auth;
30	use C4::Context;	30	use C4::Context;

Lines 20-26 Link Here

(-)a/opac/opac-reserve.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth; # checkauth, getborrowernumber.	24	use C4::Auth; # checkauth, getborrowernumber.
25	use C4::Koha;	25	use C4::Koha;
26	use C4::Circulation;	26	use C4::Circulation;

Lines 19-25 Link Here

(-)a/opac/opac-review.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Koha;	24	use C4::Koha;
25	use C4::Output;	25	use C4::Output;

Lines 20-26 Link Here

(-)a/opac/opac-search-history.pl (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Auth qw(:DEFAULT get_session);	22	use C4::Auth qw(:DEFAULT get_session);
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;
26	use C4::Log;	26	use C4::Log;

Lines 51-57 use Business::ISBN; Link Here

(-)a/opac/opac-search.pl (-1 / +1 lines)
51	my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");	51	my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
52	# create a new CGI object	52	# create a new CGI object
53	# FIXME: no_undef_params needs to be tested	53	# FIXME: no_undef_params needs to be tested
54	use CGI qw('-no_undef_params');	54	use CGI qw('-no_undef_params' -utf8);
55	my $cgi = new CGI;	55	my $cgi = new CGI;
56		56
57	my $branch_group_limit = $cgi->param("branch_group_limit");	57	my $branch_group_limit = $cgi->param("branch_group_limit");

Lines 20-26 Link Here

(-)a/opac/opac-sendbasket.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(encode);	24	use Encode qw(encode);
25	use Carp;	25	use Carp;
26		26

Lines 20-27 Link Here

(-)a/opac/opac-sendshelf.pl (-2 / +2 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(decode encode);	24	use Encode qw( encode );
25	use Carp;	25	use Carp;
26		26
27	use Mail::Sendmail;	27	use Mail::Sendmail;

Lines 21-27 Link Here

(-)a/opac/opac-serial-issues.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Dates;	27	use C4::Dates;

Lines 24-30 use constant TEMPLATE_NAME => 'opac-shareshelf.tt'; Link Here

(-)a/opac/opac-shareshelf.pl (-1 / +1 lines)
24	use constant SHELVES_URL =>	24	use constant SHELVES_URL =>
25	'/cgi-bin/koha/opac-shelves.pl?display=privateshelves&viewshelf=';	25	'/cgi-bin/koha/opac-shelves.pl?display=privateshelves&viewshelf=';
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28	use Email::Valid;	28	use Email::Valid;
29		29
30	use C4::Auth;	30	use C4::Auth;

Lines 19-25 Link Here

(-)a/opac/opac-shelves.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::VirtualShelves::Page;	23	use C4::VirtualShelves::Page;
24	use C4::Auth;	24	use C4::Auth;
25		25

Lines 21-27 use strict; Link Here

(-)a/opac/opac-showmarc.pl (-1 / +1 lines)
21	use warnings;	21	use warnings;
22		22
23	# standard or CPAN modules used	23	# standard or CPAN modules used
24	use CGI;	24	use CGI qw ( -utf8 );
25	use Encode;	25	use Encode;
26		26
27	# Koha modules used	27	# Koha modules used

Lines 21-27 Link Here

(-)a/opac/opac-showreviews.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Output;	27	use C4::Output;

Lines 18-24 Link Here

(-)a/opac/opac-suggestions.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth; # get_template_and_user	22	use C4::Auth; # get_template_and_user
23	use C4::Members;	23	use C4::Members;
24	use C4::Branch;	24	use C4::Branch;

Lines 32-38 C4::Scrubber is used to remove all markup content from the sumitted text. Link Here

(-)a/opac/opac-tags.pl (-1 / +1 lines)
32		32
33	use strict;	33	use strict;
34	use warnings;	34	use warnings;
35	use CGI;	35	use CGI qw ( -utf8 );
36	use CGI::Cookie; # need to check cookies before having CGI parse the POST request	36	use CGI::Cookie; # need to check cookies before having CGI parse the POST request
37		37
38	use C4::Auth qw(:DEFAULT check_cookie_auth);	38	use C4::Auth qw(:DEFAULT check_cookie_auth);

Lines 30-36 use warnings; Link Here

(-)a/opac/opac-tags_subject.pl (-1 / +1 lines)
30	use C4::Auth;	30	use C4::Auth;
31	use C4::Context;	31	use C4::Context;
32	use C4::Output;	32	use C4::Output;
33	use CGI;	33	use CGI qw ( -utf8 );
34	use C4::Biblio;	34	use C4::Biblio;
35	use C4::Koha; # use getitemtypeinfo	35	use C4::Koha; # use getitemtypeinfo
36		36

Lines 22-28 Link Here

(-)a/opac/opac-topissues.pl (-1 / +1 lines)
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Context;	27	use C4::Context;
28	use C4::Search;	28	use C4::Search;

Lines 20-26 Link Here

(-)a/opac/opac-user.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;

Lines 23-29 Link Here

(-)a/opac/sco/help.pl (-1 / +1 lines)
23		23
24	use strict;	24	use strict;
25	use warnings;	25	use warnings;
26	use CGI;	26	use CGI qw ( -utf8 );
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);

Lines 28-34 It is called from sco-main.pl Link Here

(-)a/opac/sco/printslip.pl (-1 / +1 lines)
28		28
29	use strict;	29	use strict;
30	use warnings;	30	use warnings;
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Context;	32	use C4::Context;
33	use C4::Auth qw/:DEFAULT get_session/;	33	use C4::Auth qw/:DEFAULT get_session/;
34	use C4::Output;	34	use C4::Output;

Lines 34-40 Link Here

(-)a/opac/sco/sco-main.pl (-1 / +1 lines)
34	use strict;	34	use strict;
35	use warnings;	35	use warnings;
36		36
37	use CGI;	37	use CGI qw ( -utf8 );
38	use Digest::MD5 qw(md5_base64);	38	use Digest::MD5 qw(md5_base64);
39		39
40	use C4::Auth qw(get_template_and_user checkpw);	40	use C4::Auth qw(get_template_and_user checkpw);

Lines 17-23 Link Here

(-)a/opac/svc/login (-1 / +1 lines)
17	# with Koha; if not, write to the Free Software Foundation, Inc.,	17	# with Koha; if not, write to the Free Software Foundation, Inc.,
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use CGI;	20	use CGI qw ( -utf8 );
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use C4::Auth;	23	use C4::Auth;

Lines 35-41 JS side from having to deal with cross-origin/authentication issues. Link Here

(-)a/opac/svc/overdrive_proxy (-1 / +1 lines)
35	use strict;	35	use strict;
36	use warnings;	36	use warnings;
37		37
38	use CGI qw(-oldstyle_urls);	38	use CGI qw(-oldstyle_urls -utf8);
39	use JSON;	39	use JSON;
40		40
41	use C4::Context;	41	use C4::Context;

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

(-)a/opac/svc/report (-1 / +1 lines)
25		25
26	use C4::Reports::Guided;	26	use C4::Reports::Guided;
27	use JSON;	27	use JSON;
28	use CGI;	28	use CGI qw ( -utf8 );
29		29
30	use Koha::Cache;	30	use Koha::Cache;
31		31

Lines 1-7 Link Here

(-)a/opac/svc/shelfbrowser.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 qw ( -utf8 );
5		5
6	use C4::Auth;	6	use C4::Auth;
7	use C4::Context;	7	use C4::Context;

Lines 57-63 use warnings; Link Here

(-)a/opac/svc/suggestion (-1 / +1 lines)
57	use C4::Auth;	57	use C4::Auth;
58	use C4::Context;	58	use C4::Context;
59	use C4::Output;	59	use C4::Output;
60	use CGI;	60	use CGI qw ( -utf8 );
61	use JSON;	61	use JSON;
62	use Koha::SuggestionEngine;	62	use Koha::SuggestionEngine;
63		63

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

(-)a/opac/tracklinks.pl (-1 / +1 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Auth qw(checkauth);	23	use C4::Auth qw(checkauth);
24	use Koha::Linktracker;	24	use Koha::Linktracker;
25	use CGI;	25	use CGI qw ( -utf8 );
26		26
27	my $cgi = new CGI;	27	my $cgi = new CGI;
28	my $uri = $cgi->param('uri') \|\| '';	28	my $uri = $cgi->param('uri') \|\| '';

Lines 37-43 an XML format such as OAI DC, RSS2, MARCXML, or MODS. Link Here

(-)a/opac/unapi (-1 / +1 lines)
37		37
38	=cut	38	=cut
39		39
40	use CGI;	40	use CGI qw ( -utf8 );
41	use C4::Context;	41	use C4::Context;
42	use C4::Biblio;	42	use C4::Biblio;
43	use XML::LibXML;	43	use XML::LibXML;

Lines 19-25 Link Here

(-)a/patron_lists/add-modify.pl (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;

Lines 19-25 Link Here

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

Lines 19-25 Link Here

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

Lines 19-25 Link Here

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

Lines 19-25 Link Here

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

Lines 20-26 Link Here

(-)a/patroncards/card-print.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Data::Dumper;	24	use Data::Dumper;
25		25
26	use C4::Auth qw(get_template_and_user);	26	use C4::Auth qw(get_template_and_user);

Lines 20-26 Link Here

(-)a/patroncards/create-pdf.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use Graphics::Magick;	25	use Graphics::Magick;
26	use XML::Simple;	26	use XML::Simple;

Lines 22-28 use strict; Link Here

(-)a/patroncards/edit-batch.pl (-1 / +1 lines)
22	use warnings;	22	use warnings;
23	use vars qw($debug);	23	use vars qw($debug);
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26	use autouse 'Data::Dumper' => qw(Dumper);	26	use autouse 'Data::Dumper' => qw(Dumper);
27		27
28	use C4::Auth qw(get_template_and_user);	28	use C4::Auth qw(get_template_and_user);

Lines 21-27 Link Here

(-)a/patroncards/edit-layout.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use Text::CSV_XS;	25	use Text::CSV_XS;
26	use XML::Simple;	26	use XML::Simple;
27	use autouse 'Data::Dumper' => qw(Dumper);	27	use autouse 'Data::Dumper' => qw(Dumper);

Lines 21-27 Link Here

(-)a/patroncards/edit-profile.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
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 21-27 Link Here

(-)a/patroncards/edit-template.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use autouse 'Data::Dumper' => qw(Dumper);	25	use autouse 'Data::Dumper' => qw(Dumper);
26		26
27	use C4::Auth qw(get_template_and_user);	27	use C4::Auth qw(get_template_and_user);

Lines 21-27 Link Here

(-)a/patroncards/home.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
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 3-9 Link Here

(-)a/patroncards/image-manage.pl (-1 / +1 lines)
3	use warnings;	3	use warnings;
4	use strict;	4	use strict;
5		5
6	use CGI;	6	use CGI qw ( -utf8 );
7	use Graphics::Magick;	7	use Graphics::Magick;
8	use POSIX qw(ceil);	8	use POSIX qw(ceil);
9	use autouse 'Data::Dumper' => qw(Dumper);	9	use autouse 'Data::Dumper' => qw(Dumper);

Lines 22-28 use strict; Link Here

(-)a/patroncards/manage.pl (-1 / +1 lines)
22	use warnings;	22	use warnings;
23	use vars qw($debug);	23	use vars qw($debug);
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26	use autouse 'Data::Dumper' => qw(Dumper);	26	use autouse 'Data::Dumper' => qw(Dumper);
27		27
28	use C4::Auth qw(get_template_and_user);	28	use C4::Auth qw(get_template_and_user);

Lines 20-26 Link Here

(-)a/patroncards/members-search.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 20-26 Link Here

(-)a/patroncards/print.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use autouse 'Data::Dumper' => qw(Dumper);	24	use autouse 'Data::Dumper' => qw(Dumper);
25		25
26	use C4::Auth qw(get_template_and_user);	26	use C4::Auth qw(get_template_and_user);

Lines 20-26 Link Here

(-)a/plugins/plugins-home.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use Koha::Plugins;	25	use Koha::Plugins;
26	use C4::Auth;	26	use C4::Auth;

Lines 21-27 use warnings; Link Here

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

Lines 22-28 use warnings; Link Here

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

Lines 20-26 Link Here

(-)a/plugins/run.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use Koha::Plugins::Handler;	25	use Koha::Plugins::Handler;
26	use C4::Auth;	26	use C4::Auth;

Lines 20-26 Link Here

(-)a/reports/acquisitions_stats.pl (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Reports;	25	use C4::Reports;
26	use C4::Output;	26	use C4::Output;

Lines 19-25 Link Here

(-)a/reports/bor_issues_top.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Output;	24	use C4::Output;
25	use C4::Context;	25	use C4::Context;

Lines 20-26 Link Here

(-)a/reports/borrowers_out.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Context;	25	use C4::Context;
26	use C4::Koha;	26	use C4::Koha;

Lines 18-24 Link Here

(-)a/reports/borrowers_stats.pl (-1 / +1 lines)
18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	18	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI;	21	use CGI qw ( -utf8 );
22	use List::MoreUtils qw/uniq/;	22	use List::MoreUtils qw/uniq/;
23		23
24	use C4::Auth;	24	use C4::Auth;

Lines 21-27 Link Here

(-)a/reports/cat_issues_top.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Branch; # GetBranches	26	use C4::Branch; # GetBranches
27	use C4::Output;	27	use C4::Output;

Lines 19-25 Link Here

(-)a/reports/catalogue_out.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Context;	25	use C4::Context;

Lines 21-27 Link Here

(-)a/reports/catalogue_stats.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Branch; # GetBranches	26	use C4::Branch; # GetBranches
27	use C4::Output;	27	use C4::Output;

Lines 20-26 use CGI::Carp qw(fatalsToBrowser warningsToBrowser); Link Here

(-)a/reports/dictionary.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Output;	24	use C4::Output;
25	use C4::Reports::Guided;	25	use C4::Reports::Guided;
26	use C4::Dates;	26	use C4::Dates;

Lines 21-27 Link Here

(-)a/reports/issues_avg_stats.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Branch; # GetBranches	26	use C4::Branch; # GetBranches
27	use C4::Output;	27	use C4::Output;

Lines 20-26 Link Here

(-)a/reports/issues_by_borrower_category.plugin (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Search;	25	use C4::Search;
26	use C4::Output;	26	use C4::Output;

Lines 20-26 Link Here

(-)a/reports/issues_stats.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Date::Manip;	24	use Date::Manip;
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 28-34 This script displays lost items. Link Here

(-)a/reports/itemslost.pl (-1 / +1 lines)
28	use strict;	28	use strict;
29	use warnings;	29	use warnings;
30		30
31	use CGI;	31	use CGI qw ( -utf8 );
32	use C4::Auth;	32	use C4::Auth;
33	use C4::Output;	33	use C4::Output;
34	use C4::Biblio;	34	use C4::Biblio;

Lines 20-26 Link Here

(-)a/reports/itemtypes.plugin (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Search;	25	use C4::Search;
26	use C4::Output;	26	use C4::Output;

Lines 19-25 Link Here

(-)a/reports/manager.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Context;	24	use C4::Context;
25	use C4::Output;	25	use C4::Output;

Lines 20-26 Link Here

(-)a/reports/reports-home.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26	use C4::Context;	26	use C4::Context;

Lines 27-33 use strict; Link Here

(-)a/reports/reservereport.pl (-1 / +1 lines)
27	#use warnings; FIXME - Bug 2505	27	#use warnings; FIXME - Bug 2505
28	use C4::Stats;	28	use C4::Stats;
29	use C4::Dates qw/format_date/;	29	use C4::Dates qw/format_date/;
30	use CGI;	30	use CGI qw ( -utf8 );
31	use C4::Output;	31	use C4::Output;
32	use C4::Branch; # GetBranches	32	use C4::Branch; # GetBranches
33	use C4::Auth;	33	use C4::Auth;

Lines 21-27 Link Here

(-)a/reports/reserves_stats.pl (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25		25
26	use C4::Auth;	26	use C4::Auth;
27	use C4::Debug;	27	use C4::Debug;

Lines 20-26 Link Here

(-)a/reports/serials_stats.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use C4::Auth;	22	use C4::Auth;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Branch; # GetBranches	25	use C4::Branch; # GetBranches
26	use C4::Dates qw/format_date/;	26	use C4::Dates qw/format_date/;

Lines 2-8 Link Here

(-)a/reports/stats.print.pl (-1 / +1 lines)
2		2
3	use strict;	3	use strict;
4	#use warnings; FIXME - Bug 2505	4	#use warnings; FIXME - Bug 2505
5	use CGI;	5	use CGI qw ( -utf8 );
6	use C4::Output;	6	use C4::Output;
7		7
8	use C4::Auth;	8	use C4::Auth;

Lines 20-26 Link Here

(-)a/reports/stats.screen.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	#use warnings; FIXME - Bug 2505	22	#use warnings; FIXME - Bug 2505
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Context;	26	use C4::Context;

Lines 24-30 Link Here

(-)a/reserve/modrequest.pl (-1 / +1 lines)
24		24
25	use strict;	25	use strict;
26	use warnings;	26	use warnings;
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Output;	28	use C4::Output;
29	use C4::Reserves;	29	use C4::Reserves;
30	use C4::Auth;	30	use C4::Auth;

Lines 24-30 Link Here

(-)a/reserve/modrequest_suspendall.pl (-1 / +1 lines)
24		24
25	use strict;	25	use strict;
26	use warnings;	26	use warnings;
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Output;	28	use C4::Output;
29	use C4::Reserves;	29	use C4::Reserves;
30	use C4::Auth;	30	use C4::Auth;

Lines 24-30 Link Here

(-)a/reserve/placerequest.pl (-1 / +1 lines)
24	use strict;	24	use strict;
25	use warnings;	25	use warnings;
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Biblio;	28	use C4::Biblio;
29	use C4::Items;	29	use C4::Items;
30	use C4::Output;	30	use C4::Output;

Lines 21-27 Link Here

(-)a/reserve/renewscript.pl (-1 / +1 lines)
21	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	21	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Circulation;	25	use C4::Circulation;
26	use C4::Context;	26	use C4::Context;
27	use C4::Items;	27	use C4::Items;

Lines 29-35 script to place reserves/requests Link Here

(-)a/reserve/request.pl (-1 / +1 lines)
29	use strict;	29	use strict;
30	use warnings;	30	use warnings;
31	use C4::Branch;	31	use C4::Branch;
32	use CGI;	32	use CGI qw ( -utf8 );
33	use List::MoreUtils qw/uniq/;	33	use List::MoreUtils qw/uniq/;
34	use Date::Calc qw/Date_to_Days/;	34	use Date::Calc qw/Date_to_Days/;
35	use C4::Output;	35	use C4::Output;

Lines 18-24 Link Here

(-)a/reviews/reviewswaiting.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Context;	24	use C4::Context;

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

(-)a/rotating_collections/addItems.pl (-1 / +1 lines)
24	use C4::RotatingCollections;	24	use C4::RotatingCollections;
25	use C4::Items;	25	use C4::Items;
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28		28
29	my $query = new CGI;	29	my $query = new CGI;
30		30

Lines 18-24 Link Here

(-)a/rotating_collections/editCollections.pl (-1 / +1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22		22
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth;	24	use C4::Auth;

Lines 18-24 Link Here

(-)a/rotating_collections/rotatingCollections.pl (-1 / +1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22		22
23	use C4::Output;	23	use C4::Output;
24	use C4::Auth;	24	use C4::Auth;

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

(-)a/rotating_collections/transferCollection.pl (-1 / +1 lines)
24	use C4::RotatingCollections;	24	use C4::RotatingCollections;
25	use C4::Branch;	25	use C4::Branch;
26		26
27	use CGI;	27	use CGI qw ( -utf8 );
28		28
29	my $query = new CGI;	29	my $query = new CGI;
30		30

Lines 45-51 use warnings; Link Here

(-)a/serials/acqui-search-result.pl (-1 / +1 lines)
45	use C4::Auth;	45	use C4::Auth;
46	use C4::Biblio;	46	use C4::Biblio;
47	use C4::Output;	47	use C4::Output;
48	use CGI;	48	use CGI qw ( -utf8 );
49	use C4::Acquisition qw( SearchOrders );	49	use C4::Acquisition qw( SearchOrders );
50	use C4::Dates qw/format_date/;	50	use C4::Dates qw/format_date/;
51		51

Lines 20-26 Link Here

(-)a/serials/acqui-search.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;
26		26

Lines 44-50 The date to filter on. Link Here

(-)a/serials/checkexpiration.pl (-1 / +1 lines)
44		44
45	use strict;	45	use strict;
46	use warnings;	46	use warnings;
47	use CGI;	47	use CGI qw ( -utf8 );
48	use C4::Auth;	48	use C4::Auth;
49	use C4::Serials; # GetExpirationDate	49	use C4::Serials; # GetExpirationDate
50	use C4::Output;	50	use C4::Output;

Lines 19-25 Link Here

(-)a/serials/claims.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Serials;	24	use C4::Serials;
25	use C4::Acquisition;	25	use C4::Acquisition;

Lines 18-24 Link Here

(-)a/serials/create-numberpattern.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 qw ( -utf8 );
22	use C4::Context;	22	use C4::Context;
23	use C4::Serials::Numberpattern;	23	use C4::Serials::Numberpattern;
24	use C4::Auth qw/check_cookie_auth/;	24	use C4::Auth qw/check_cookie_auth/;

Lines 16-22 Link Here

(-)a/serials/lateissues-export.pl (-1 / +1 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 qw ( -utf8 );
20	use C4::Auth;	20	use C4::Auth;
21	use C4::Serials;	21	use C4::Serials;
22	use C4::Acquisition;	22	use C4::Acquisition;

Lines 25-31 Member Search.pl script used to search for members to add to a routing list Link Here

(-)a/serials/member-search.pl (-1 / +1 lines)
25		25
26	use strict;	26	use strict;
27	use warnings;	27	use warnings;
28	use CGI;	28	use CGI qw ( -utf8 );
29	use C4::Auth; # get_template_and_user	29	use C4::Auth; # get_template_and_user
30	use C4::Output;	30	use C4::Output;
31	use C4::Members; # BornameSearch	31	use C4::Members; # BornameSearch

Lines 20-26 Link Here

(-)a/serials/reorder_members.pl (-1 / +1 lines)
20	# printed out	20	# printed out
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth qw( checkauth );	24	use C4::Auth qw( checkauth );
25	use C4::Serials qw( reorder_members );	25	use C4::Serials qw( reorder_members );
26		26

Lines 20-26 Link Here

(-)a/serials/routing-preview.pl (-1 / +1 lines)
20	# of reserves for the serial	20	# of reserves for the serial
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Koha;	24	use C4::Koha;
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Dates;	26	use C4::Dates;

Lines 27-33 printed out Link Here

(-)a/serials/routing.pl (-1 / +1 lines)
27		27
28	use strict;	28	use strict;
29	use warnings;	29	use warnings;
30	use CGI;	30	use CGI qw ( -utf8 );
31	use C4::Koha;	31	use C4::Koha;
32	use C4::Auth;	32	use C4::Auth;
33	use C4::Dates;	33	use C4::Dates;

Lines 43-49 the biblionumber this script has to give more infos. Link Here

(-)a/serials/serial-issues.pl (-1 / +1 lines)
43		43
44	use strict;	44	use strict;
45	use warnings;	45	use warnings;
46	use CGI;	46	use CGI qw ( -utf8 );
47	use C4::Auth;	47	use C4::Auth;
48	use C4::Koha;	48	use C4::Koha;
49	use C4::Dates;	49	use C4::Dates;

Lines 21-27 Link Here

(-)a/serials/serials-collection.pl (-1 / +1 lines)
21		21
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Koha;	26	use C4::Koha;
27	use C4::Dates qw/format_date/;	27	use C4::Dates qw/format_date/;

Lines 63-69 op can be : Link Here

(-)a/serials/serials-edit.pl (-1 / +1 lines)
63		63
64	use strict;	64	use strict;
65	use warnings;	65	use warnings;
66	use CGI;	66	use CGI qw ( -utf8 );
67	use Encode qw( decode is_utf8 );	67	use Encode qw( decode is_utf8 );
68	use C4::Auth;	68	use C4::Auth;
69	use C4::Dates qw/format_date format_date_in_iso/;	69	use C4::Dates qw/format_date format_date_in_iso/;

Lines 29-35 this script is the main page for serials/ Link Here

(-)a/serials/serials-home.pl (-1 / +1 lines)
29	=cut	29	=cut
30		30
31	use Modern::Perl;	31	use Modern::Perl;
32	use CGI;	32	use CGI qw ( -utf8 );
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Branch;	34	use C4::Branch;
35	use C4::Context;	35	use C4::Context;

Lines 64-70 op can be : Link Here

(-)a/serials/serials-recieve.pl (-1 / +1 lines)
64		64
65	use strict;	65	use strict;
66	use warnings;	66	use warnings;
67	use CGI;	67	use CGI qw ( -utf8 );
68	use C4::Auth;	68	use C4::Auth;
69	use C4::Dates qw/format_date format_date_in_iso/;	69	use C4::Dates qw/format_date format_date_in_iso/;
70	use C4::Biblio;	70	use C4::Biblio;

Lines 29-35 this script is the search page for serials Link Here

(-)a/serials/serials-search.pl (-1 / +1 lines)
29	=cut	29	=cut
30		30
31	use Modern::Perl;	31	use Modern::Perl;
32	use CGI;	32	use CGI qw ( -utf8 );
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Branch;	34	use C4::Branch;
35	use C4::Context;	35	use C4::Context;

Lines 30-36 publication date, based on frequency and first publication date. Link Here

(-)a/serials/showpredictionpattern.pl (-1 / +1 lines)
30		30
31	use Modern::Perl;	31	use Modern::Perl;
32		32
33	use CGI;	33	use CGI qw ( -utf8 );
34	use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);	34	use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
35	use C4::Auth;	35	use C4::Auth;
36	use C4::Output;	36	use C4::Output;

Lines 18-24 Link Here

(-)a/serials/subscription-add.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);	22	use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
23	use C4::Koha;	23	use C4::Koha;
24	use C4::Biblio;	24	use C4::Biblio;

Lines 49-55 to multipage gestion. Link Here

(-)a/serials/subscription-bib-search.pl (-1 / +1 lines)
49	use strict;	49	use strict;
50	use warnings;	50	use warnings;
51		51
52	use CGI;	52	use CGI qw ( -utf8 );
53	use C4::Koha;	53	use C4::Koha;
54	use C4::Auth;	54	use C4::Auth;
55	use C4::Context;	55	use C4::Context;

Lines 16-22 Link Here

(-)a/serials/subscription-detail.pl (-1 / +1 lines)
16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	16	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use CGI;	19	use CGI qw ( -utf8 );
20	use C4::Acquisition;	20	use C4::Acquisition;
21	use C4::Auth;	21	use C4::Auth;
22	use C4::Budgets;	22	use C4::Budgets;

Lines 29-35 Manage subscription frequencies Link Here

(-)a/serials/subscription-frequencies.pl (-1 / +1 lines)
29		29
30	use Modern::Perl;	30	use Modern::Perl;
31		31
32	use CGI;	32	use CGI qw ( -utf8 );
33		33
34	use C4::Auth;	34	use C4::Auth;
35	use C4::Output;	35	use C4::Output;

Lines 18-24 Link Here

(-)a/serials/subscription-frequency.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 qw ( -utf8 );
22	use C4::Context;	22	use C4::Context;
23	use C4::Serials::Frequency;	23	use C4::Serials::Frequency;
24	use C4::Auth qw/check_cookie_auth/;	24	use C4::Auth qw/check_cookie_auth/;

Lines 29-35 Modify subscription history Link Here

(-)a/serials/subscription-history.pl (-1 / +1 lines)
29		29
30	use Modern::Perl;	30	use Modern::Perl;
31		31
32	use CGI;	32	use CGI qw ( -utf8 );
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Output;	34	use C4::Output;
35		35

Lines 18-24 Link Here

(-)a/serials/subscription-numberpattern.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 qw ( -utf8 );
22	use C4::Serials::Numberpattern;	22	use C4::Serials::Numberpattern;
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 );

Lines 28-34 Manage numbering patterns Link Here

(-)a/serials/subscription-numberpatterns.pl (-1 / +1 lines)
28	=cut	28	=cut
29		29
30	use Modern::Perl;	30	use Modern::Perl;
31	use CGI;	31	use CGI qw ( -utf8 );
32		32
33	use C4::Auth;	33	use C4::Auth;
34	use C4::Output;	34	use C4::Output;

Lines 46-52 Id of the subscription this script has to renew Link Here

(-)a/serials/subscription-renew.pl (-1 / +1 lines)
46	use strict;	46	use strict;
47	use warnings;	47	use warnings;
48		48
49	use CGI;	49	use CGI qw ( -utf8 );
50	use Carp;	50	use Carp;
51	use C4::Koha;	51	use C4::Koha;
52	use C4::Auth;	52	use C4::Auth;

Lines 20-26 Link Here

(-)a/serials/viewalerts.pl (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Context;	25	use C4::Context;
26	use C4::Output;	26	use C4::Output;

Lines 30-36 It uses PrepareItemrecordDisplay Link Here

(-)a/services/itemrecorddisplay.pl (-1 / +1 lines)
30	use strict;	30	use strict;
31	use warnings;	31	use warnings;
32		32
33	use CGI;	33	use CGI qw ( -utf8 );
34	use C4::Auth;	34	use C4::Auth;
35	use C4::Output;	35	use C4::Output;
36	use C4::Items;	36	use C4::Items;

Lines 2-8 Link Here

(-)a/sms/sms.pl (-1 / +1 lines)
2		2
3	use strict;	3	use strict;
4	#use warnings; FIXME - Bug 2505	4	#use warnings; FIXME - Bug 2505
5	use CGI;	5	use CGI qw ( -utf8 );
6	use C4::SMS;	6	use C4::SMS;
7	use C4::Output;	7	use C4::Output;
8	use C4::Auth;	8	use C4::Auth;

Lines 7-13 use strict; Link Here

(-)a/sms/sms_listen_windows_start.pl (-1 / +1 lines)
7	use Win32::Process;	7	use Win32::Process;
8	use Win32;	8	use Win32;
9	use C4::Context;	9	use C4::Context;
10	use CGI;	10	use CGI qw ( -utf8 );
11	my $input=new CGI;	11	my $input=new CGI;
12	my $fileplace=C4::Context->config('intranetdir');	12	my $fileplace=C4::Context->config('intranetdir');
13	my $fullpath=$fileplace."/cgi-bin/sms";	13	my $fullpath=$fileplace."/cgi-bin/sms";

Lines 20-26 Link Here

(-)a/suggestion/suggestion.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	#use warnings; FIXME - Bug 2505	21	#use warnings; FIXME - Bug 2505
22	require Exporter;	22	require Exporter;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth; # get_template_and_user	24	use C4::Auth; # get_template_and_user
25	use C4::Output;	25	use C4::Output;
26	use C4::Suggestions;	26	use C4::Suggestions;

Lines 21-27 Link Here

(-)a/svc/authentication (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth qw/check_api_auth/;	25	use C4::Auth qw/check_api_auth/;
26	use XML::Simple;	26	use XML::Simple;
27		27

Lines 22-28 Link Here

(-)a/svc/bib (-1 / +1 lines)
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24		24
25	use CGI;	25	use CGI qw ( -utf8 );
26	use C4::Auth qw/check_api_auth/;	26	use C4::Auth qw/check_api_auth/;
27	use C4::Biblio;	27	use C4::Biblio;
28	use C4::Items;	28	use C4::Items;

Lines 21-27 Link Here

(-)a/svc/bib_profile (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth qw/check_api_auth/;	25	use C4::Auth qw/check_api_auth/;
26	use C4::Context;	26	use C4::Context;
27	use C4::Koha;	27	use C4::Koha;

Lines 20-26 Link Here

(-)a/svc/cover_images (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth qw/check_cookie_auth/;	24	use C4::Auth qw/check_cookie_auth/;
25	use C4::Images;	25	use C4::Images;
26	use JSON qw/to_json/;	26	use JSON qw/to_json/;

Lines 21-27 Link Here

(-)a/svc/import_bib (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth qw/check_api_auth/;	25	use C4::Auth qw/check_api_auth/;
26	use C4::Context;	26	use C4::Context;
27	use C4::ImportBatch;	27	use C4::ImportBatch;

Lines 21-27 Link Here

(-)a/svc/new_bib (-1 / +1 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use CGI;	24	use CGI qw ( -utf8 );
25	use C4::Auth qw/check_api_auth/;	25	use C4::Auth qw/check_api_auth/;
26	use C4::Biblio;	26	use C4::Biblio;
27	use C4::Items;	27	use C4::Items;

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

(-)a/svc/report (-1 / +1 lines)
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Reports::Guided;	24	use C4::Reports::Guided;
25	use JSON;	25	use JSON;
26	use CGI;	26	use CGI qw ( -utf8 );
27		27
28	use Koha::Cache;	28	use Koha::Cache;
29		29

Lines 20-26 Link Here

(-)a/t/Languages.t (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use Test::More tests => 3;	21	use Test::More tests => 3;
22	use Test::MockModule;	22	use Test::MockModule;
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	BEGIN {	25	BEGIN {
26	use_ok('C4::Languages');	26	use_ok('C4::Languages');

Lines 4-10 use strict; Link Here

(-)a/t/Output.t (-1 / +1 lines)
4	use warnings;	4	use warnings;
5		5
6	use Test::More tests => 5;	6	use Test::More tests => 5;
7	use CGI;	7	use CGI qw ( -utf8 );
8		8
9	BEGIN {	9	BEGIN {
10	use_ok('C4::Output');	10	use_ok('C4::Output');

Lines 5-11 Link Here

(-)a/t/db_dependent/Auth.t (-1 / +1 lines)
5		5
6	use Modern::Perl;	6	use Modern::Perl;
7		7
8	use CGI;	8	use CGI qw ( -utf8 );
9	use Test::MockModule;	9	use Test::MockModule;
10	use List::MoreUtils qw/all any none/;	10	use List::MoreUtils qw/all any none/;
11	use Test::More tests => 6;	11	use Test::More tests => 6;

Lines 6-12 Link Here

(-)a/t/db_dependent/BackgroundJob.t (-1 / +1 lines)
6	use strict;	6	use strict;
7	use warnings;	7	use warnings;
8	use C4::Auth;	8	use C4::Auth;
9	use CGI;	9	use CGI qw ( -utf8 );
10	use Test::More tests => 14;	10	use Test::More tests => 14;
11		11
12	BEGIN {	12	BEGIN {

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

(-)a/t/db_dependent/ILSDI_Services.t (-1 / +1 lines)
4		4
5	use C4::Members qw/AddMember GetMember GetBorrowercategory/;	5	use C4::Members qw/AddMember GetMember GetBorrowercategory/;
6	use C4::Branch;	6	use C4::Branch;
7	use CGI;	7	use CGI qw ( -utf8 );
8		8
9	use Test::More tests => 15;	9	use Test::More tests => 15;
10		10

Lines 6-12 Link Here

(-)a/t/db_dependent/Serials.t (-1 / +1 lines)
6	use Modern::Perl;	6	use Modern::Perl;
7	use YAML;	7	use YAML;
8		8
9	use CGI;	9	use CGI qw ( -utf8 );
10	use C4::Serials;	10	use C4::Serials;
11	use C4::Serials::Frequency;	11	use C4::Serials::Frequency;
12	use C4::Serials::Numberpattern;	12	use C4::Serials::Numberpattern;

Lines 19-25 Link Here

(-)a/tags/list.pl (-1 / +1 lines)
19		19
20	use warnings;	20	use warnings;
21	use strict;	21	use strict;
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw(:DEFAULT check_cookie_auth);	24	use C4::Auth qw(:DEFAULT check_cookie_auth);
25	use C4::Biblio;	25	use C4::Biblio;

Lines 23-29 use warnings; Link Here

(-)a/tags/review.pl (-1 / +1 lines)
23	use strict;	23	use strict;
24	use Data::Dumper;	24	use Data::Dumper;
25	use POSIX;	25	use POSIX;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use CGI::Cookie; # need to check cookies before having CGI parse the POST request	27	use CGI::Cookie; # need to check cookies before having CGI parse the POST request
28		28
29	use C4::Auth qw(:DEFAULT check_cookie_auth);	29	use C4::Auth qw(:DEFAULT check_cookie_auth);

Lines 28-34 use strict; Link Here

(-)a/test/progressbar.pl (-1 / +1 lines)
28	use warnings;	28	use warnings;
29		29
30	# standard or CPAN modules used	30	# standard or CPAN modules used
31	use CGI;	31	use CGI qw ( -utf8 );
32	use CGI::Cookie;	32	use CGI::Cookie;
33		33
34	# Koha modules used	34	# Koha modules used

Lines 28-34 use strict; Link Here

(-)a/test/progressbarsubmit.pl (-1 / +1 lines)
28	use warnings;	28	use warnings;
29		29
30	# standard or CPAN modules used	30	# standard or CPAN modules used
31	use CGI;	31	use CGI qw ( -utf8 );
32	use CGI::Cookie;	32	use CGI::Cookie;
33		33
34	# Koha modules used	34	# Koha modules used

Lines 1-7 Link Here

(-)a/tools/ajax-inventory.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 qw ( -utf8 );
5	use C4::Auth;	5	use C4::Auth;
6	use C4::Items qw( ModDateLastSeen );	6	use C4::Items qw( ModDateLastSeen );
7		7

Lines 22-28 use strict; Link Here

(-)a/tools/background-job-progress.pl (-1 / +1 lines)
22		22
23	# standard or CPAN modules used	23	# standard or CPAN modules used
24	use IO::File;	24	use IO::File;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use CGI::Session;	26	use CGI::Session;
27	use C4::Context;	27	use C4::Context;
28	use C4::Auth qw/check_cookie_auth/;	28	use C4::Auth qw/check_cookie_auth/;

Lines 18-24 Link Here

(-)a/tools/batchMod.pl (-1 / +1 lines)
18	# with Koha; if not, write to the Free Software Foundation, Inc.,	18	# with Koha; if not, write to the Free Software Foundation, Inc.,
19	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.	19	# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use strict;	22	use strict;
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use C4::Auth;	24	use C4::Auth;

Lines 31-37 the records from an import batch. Link Here

(-)a/tools/batch_records_ajax.pl (-1 / +1 lines)
31		31
32	use Modern::Perl;	32	use Modern::Perl;
33		33
34	use CGI;	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;

Lines 34-40 This script allows to do 2 things. Link Here

(-)a/tools/cleanborrowers.pl (-1 / +1 lines)
34	use strict;	34	use strict;
35		35
36	#use warnings; FIXME - Bug 2505	36	#use warnings; FIXME - Bug 2505
37	use CGI;	37	use CGI qw ( -utf8 );
38	use C4::Auth;	38	use C4::Auth;
39	use C4::Output;	39	use C4::Output;
40	use C4::Members; # GetBorrowersWhoHavexxxBorrowed.	40	use C4::Members; # GetBorrowersWhoHavexxxBorrowed.

Lines 20-26 Link Here

(-)a/tools/copy-holidays.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24		24
25	use C4::Auth;	25	use C4::Auth;
26	use C4::Output;	26	use C4::Output;

Lines 41-47 use Encode; Link Here

(-)a/tools/csv-profiles.pl (-1 / +1 lines)
41	use C4::Auth;	41	use C4::Auth;
42	use C4::Context;	42	use C4::Context;
43	use C4::Output;	43	use C4::Output;
44	use CGI;	44	use CGI qw ( -utf8 );
45	use C4::Koha;	45	use C4::Koha;
46	use C4::Csv;	46	use C4::Csv;
47		47

Lines 3-9 Link Here

(-)a/tools/exceptionHolidays.pl (-1 / +1 lines)
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5		5
6	use CGI;	6	use CGI qw ( -utf8 );
7		7
8	use C4::Auth;	8	use C4::Auth;
9	use C4::Output;	9	use C4::Output;

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

(-)a/tools/export.pl (-1 / +1 lines)
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;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::Auth;	24	use C4::Auth;
25	use C4::AuthoritiesMarc; # GetAuthority	25	use C4::AuthoritiesMarc; # GetAuthority
26	use C4::Biblio; # GetMarcBiblio	26	use C4::Biblio; # GetMarcBiblio

Lines 19-25 Link Here

(-)a/tools/holidays.pl (-1 / +1 lines)
19	use strict;	19	use strict;
20	use warnings;	20	use warnings;
21		21
22	use CGI;	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth;	24	use C4::Auth;
25	use C4::Output;	25	use C4::Output;

Lines 55-61 use Text::CSV; Link Here

(-)a/tools/import_borrowers.pl (-1 / +1 lines)
55	# ė	55	# ė
56	# č	56	# č
57		57
58	use CGI;	58	use CGI qw ( -utf8 );
59	# use encoding 'utf8'; # don't do this	59	# use encoding 'utf8'; # don't do this
60		60
61	my (@errors, @feedback);	61	my (@errors, @feedback);

Lines 22-28 use strict; Link Here

(-)a/tools/inventory.pl (-1 / +1 lines)
22	use warnings;	22	use warnings;
23		23
24	#need to open cgi and get the fh before anything else opens a new cgi context (see C4::Auth)	24	#need to open cgi and get the fh before anything else opens a new cgi context (see C4::Auth)
25	use CGI;	25	use CGI qw ( -utf8 );
26	my $input = CGI->new;	26	my $input = CGI->new;
27	my $uploadbarcodes = $input->param('uploadbarcodes');	27	my $uploadbarcodes = $input->param('uploadbarcodes');
28		28

Lines 24-30 Link Here

(-)a/tools/koha-news.pl (-1 / +1 lines)
24		24
25	use strict;	25	use strict;
26	# use warnings; FIXME - Bug 2505	26	# use warnings; FIXME - Bug 2505
27	use CGI;	27	use CGI qw ( -utf8 );
28	use C4::Auth;	28	use C4::Auth;
29	use C4::Koha;	29	use C4::Koha;
30	use C4::Context;	30	use C4::Context;

Lines 42-48 Link Here

(-)a/tools/letter.pl (-1 / +1 lines)
42		42
43	use strict;	43	use strict;
44	use warnings;	44	use warnings;
45	use CGI;	45	use CGI qw ( -utf8 );
46	use C4::Auth;	46	use C4::Auth;
47	use C4::Context;	47	use C4::Context;
48	use C4::Output;	48	use C4::Output;

Lines 21-27 use strict; Link Here

(-)a/tools/manage-marc-import.pl (-1 / +1 lines)
21	use warnings;	21	use warnings;
22		22
23	# standard or CPAN modules used	23	# standard or CPAN modules used
24	use CGI;	24	use CGI qw ( -utf8 );
25	use CGI::Cookie;	25	use CGI::Cookie;
26	use MARC::File::USMARC;	26	use MARC::File::USMARC;
27		27

Lines 18-24 Link Here

(-)a/tools/marc_modification_templates.pl (-1 / +1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22		22
23	use C4::Auth;	23	use C4::Auth;
24	use C4::Koha;	24	use C4::Koha;

Lines 26-32 Link Here

(-)a/tools/modborrowers.pl (-1 / +1 lines)
26	# And for patron attributes.	26	# And for patron attributes.
27		27
28	use Modern::Perl;	28	use Modern::Perl;
29	use CGI;	29	use CGI qw ( -utf8 );
30	use C4::Auth;	30	use C4::Auth;
31	use C4::Branch;	31	use C4::Branch;
32	use C4::Koha;	32	use C4::Koha;

Lines 3-9 Link Here

(-)a/tools/newHolidays.pl (-1 / +1 lines)
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5		5
6	use CGI;	6	use CGI qw ( -utf8 );
7		7
8	use C4::Auth;	8	use C4::Auth;
9	use C4::Output;	9	use C4::Output;

Lines 19-25 Link Here

(-)a/tools/overduerules.pl (-1 / +1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI;	22	use CGI qw ( -utf8 );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Auth;	25	use C4::Auth;

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

(-)a/tools/picture-upload.pl (-1 / +1 lines)
23		23
24	use File::Temp;	24	use File::Temp;
25	use File::Copy;	25	use File::Copy;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use GD;	27	use GD;
28	use C4::Context;	28	use C4::Context;
29	use C4::Auth;	29	use C4::Auth;

Lines 20-26 Link Here

(-)a/tools/quotes-upload.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use autouse 'Data::Dumper' => qw(Dumper);	24	use autouse 'Data::Dumper' => qw(Dumper);
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 20-26 Link Here

(-)a/tools/quotes.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use autouse 'Data::Dumper' => qw(Dumper);	24	use autouse 'Data::Dumper' => qw(Dumper);
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 20-26 Link Here

(-)a/tools/quotes/quotes-upload_ajax.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use JSON;	24	use JSON;
25	use autouse 'Data::Dumper' => qw(Dumper);	25	use autouse 'Data::Dumper' => qw(Dumper);
26		26

Lines 20-26 Link Here

(-)a/tools/quotes/quotes_ajax.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use JSON;	24	use JSON;
25	use autouse 'Data::Dumper' => qw(Dumper);	25	use autouse 'Data::Dumper' => qw(Dumper);
26		26

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

(-)a/tools/scheduler.pl (-1 / +1 lines)
23	use C4::Scheduler;	23	use C4::Scheduler;
24	use C4::Reports::Guided;	24	use C4::Reports::Guided;
25	use C4::Auth;	25	use C4::Auth;
26	use CGI;	26	use CGI qw ( -utf8 );
27	use C4::Output;	27	use C4::Output;
28	use C4::Dates;	28	use C4::Dates;
29		29

Lines 28-34 use strict; Link Here

(-)a/tools/stage-marc-import.pl (-1 / +1 lines)
28	#use warnings; FIXME - Bug 2505	28	#use warnings; FIXME - Bug 2505
29		29
30	# standard or CPAN modules used	30	# standard or CPAN modules used
31	use CGI;	31	use CGI qw ( -utf8 );
32	use CGI::Cookie;	32	use CGI::Cookie;
33	use MARC::File::USMARC;	33	use MARC::File::USMARC;
34		34

Lines 18-24 Link Here

(-)a/tools/tools-home.pl (-1 / +1 lines)
18	use strict;	18	use strict;
19	use warnings;	19	use warnings;
20		20
21	use CGI;	21	use CGI qw ( -utf8 );
22	use C4::Auth;	22	use C4::Auth;
23	use C4::Output;	23	use C4::Output;
24	use C4::Review qw/numberofreviews/;	24	use C4::Review qw/numberofreviews/;

Lines 41-47 use strict; Link Here

(-)a/tools/upload-cover-image.pl (-1 / +1 lines)
41	use warnings;	41	use warnings;
42		42
43	use File::Temp;	43	use File::Temp;
44	use CGI;	44	use CGI qw ( -utf8 );
45	use GD;	45	use GD;
46	use C4::Context;	46	use C4::Context;
47	use C4::Auth;	47	use C4::Auth;

Lines 22-28 use strict; Link Here

(-)a/tools/upload-file-progress.pl (-1 / +1 lines)
22		22
23	# standard or CPAN modules used	23	# standard or CPAN modules used
24	use IO::File;	24	use IO::File;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use CGI::Session;	26	use CGI::Session;
27	use C4::Context;	27	use C4::Context;
28	use C4::Auth qw/check_cookie_auth/;	28	use C4::Auth qw/check_cookie_auth/;

Lines 22-28 use strict; Link Here

(-)a/tools/upload-file.pl (-1 / +1 lines)
22		22
23	# standard or CPAN modules used	23	# standard or CPAN modules used
24	use IO::File;	24	use IO::File;
25	use CGI;	25	use CGI qw ( -utf8 );
26	use CGI::Session;	26	use CGI::Session;
27	use C4::Context;	27	use C4::Context;
28	use C4::Auth qw/check_cookie_auth/;	28	use C4::Auth qw/check_cookie_auth/;

Lines 21-27 Link Here

(-)a/tools/viewlog.pl (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use C4::Auth;	23	use C4::Auth;
24	use CGI;	24	use CGI qw ( -utf8 );
25	use Text::CSV::Encoded;	25	use Text::CSV::Encoded;
26	use C4::Context;	26	use C4::Context;
27	use C4::Koha;	27	use C4::Koha;

Lines 61-67 addbybiblionumber.pl Link Here

(-)a/virtualshelves/addbybiblionumber.pl (-1 / +1 lines)
61	use strict;	61	use strict;
62	use warnings;	62	use warnings;
63		63
64	use CGI;	64	use CGI qw ( -utf8 );
65	use C4::Biblio;	65	use C4::Biblio;
66	use C4::Output;	66	use C4::Output;
67	use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;	67	use C4::VirtualShelves qw/:DEFAULT GetAllShelves/;

Lines 20-26 Link Here

(-)a/virtualshelves/downloadshelf.pl (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(encode);	24	use Encode qw(encode);
25		25
26	use C4::Auth;	26	use C4::Auth;

Lines 20-27 Link Here

(-)a/virtualshelves/sendshelf.pl (-2 / +2 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use CGI;	23	use CGI qw ( -utf8 );
24	use Encode qw(decode encode);	24	use Encode qw(encode);
25	use Carp;	25	use Carp;
26		26
27	use Mail::Sendmail;	27	use Mail::Sendmail;

Lines 20-26 Link Here

(-)a/virtualshelves/shelves.pl (-2 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use CGI;	23	use CGI qw ( -utf8 );
24	use C4::VirtualShelves::Page;	24	use C4::VirtualShelves::Page;
25	use C4::Auth;	25	use C4::Auth;
26		26
27	-

Return to bug 11944