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

(-)a/C4/Auth.pm (-1 / +1 lines)
Lines 73-79 C4::Auth - Authenticates Koha users Link Here
73
73
74
=head1 SYNOPSIS
74
=head1 SYNOPSIS
75
75
76
  use CGI;
76
  use CGI qw ( -utf8 );
77
  use C4::Auth;
77
  use C4::Auth;
78
  use C4::Output;
78
  use C4::Output;
79
79
(-)a/C4/Auth_with_cas.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
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
(-)a/C4/Debug.pm (-1 / +1 lines)
Lines 22-28 use warnings; Link Here
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
(-)a/C4/Form/MessagingPreferences.pm (-1 / +1 lines)
Lines 20-26 package C4::Form::MessagingPreferences; Link Here
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;
(-)a/C4/ILSDI/Services.pm (-2 / +2 lines)
Lines 31-37 use C4::Context; Link Here
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
(-)a/C4/Input.pm (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
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
(-)a/C4/Reports.pm (-1 / +1 lines)
Lines 19-25 package C4::Reports; Link Here
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;
(-)a/C4/Reports/Guided.pm (-1 / +1 lines)
Lines 19-25 package C4::Reports::Guided; Link Here
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);
(-)a/C4/SIP/ILS/Transaction/Checkout.pm (-1 / +1 lines)
Lines 10-16 use strict; Link Here
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;
(-)a/C4/SIP/Sip/MsgType.pm (-1 / +1 lines)
Lines 16-22 use Sip::Constants qw(:all); Link Here
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.
(-)a/C4/SIP/t/03checkout.t (-1 / +1 lines)
Lines 5-11 use strict; Link Here
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(
(-)a/C4/SIP/t/SIPtest.pm (-1 / +1 lines)
Lines 38-44 BEGIN { Link Here
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);
(-)a/C4/Service.pm (-1 / +1 lines)
Lines 41-47 This module packages several useful functions for JSON webservices. Link Here
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;
(-)a/C4/Suggestions.pm (-1 / +1 lines)
Lines 21-27 package C4::Suggestions; Link Here
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;
(-)a/C4/Templates.pm (-1 / +1 lines)
Lines 3-9 package C4::Templates; Link Here
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/;
7
use List::MoreUtils qw/any/;
8
8
9
# Copyright 2009 Chris Cormack and The Koha Dev Team
9
# Copyright 2009 Chris Cormack and The Koha Dev Team
(-)a/C4/Utils/DataTables.pm (-1 / +1 lines)
Lines 35-41 C4::Utils::DataTables - Utility subs for building query when DataTables source i Link Here
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
(-)a/C4/VirtualShelves/Page.pm (-1 / +1 lines)
Lines 23-29 package C4::VirtualShelves::Page; Link Here
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
(-)a/about.pl (-1 / +1 lines)
Lines 23-29 Link Here
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;
(-)a/acqui/acqui-home.pl (-1 / +1 lines)
Lines 30-36 use strict; Link Here
30
use warnings;
30
use warnings;
31
use Number::Format;
31
use Number::Format;
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::Acquisition;
36
use C4::Acquisition;
(-)a/acqui/addorder.pl (-1 / +1 lines)
Lines 121-127 if it is an order from an existing suggestion : the id of this suggestion. Link Here
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;	# NewOrder DelOrder ModOrder
126
use C4::Acquisition;	# NewOrder DelOrder ModOrder
127
use C4::Suggestions;	# ModStatus
127
use C4::Suggestions;	# ModStatus
(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
Lines 23-29 Link Here
23
23
24
use strict;
24
use strict;
25
use warnings;
25
use warnings;
26
use CGI;
26
use CGI qw ( -utf8 );
27
use Carp;
27
use Carp;
28
use Number::Format qw(:all);
28
use Number::Format qw(:all);
29
29
(-)a/acqui/aqbasketuser_search.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/acqui/basket.pl (-1 / +1 lines)
Lines 25-31 use warnings; Link Here
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;
(-)a/acqui/basketgroup.pl (-1 / +1 lines)
Lines 50-56 use Carp; Link Here
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::Bookseller qw/GetBookSellerFromId/;
55
use C4::Bookseller qw/GetBookSellerFromId/;
56
use C4::Budgets qw/ConvertCurrency/;
56
use C4::Budgets qw/ConvertCurrency/;
(-)a/acqui/basketheader.pl (-1 / +1 lines)
Lines 47-53 If it exists, C<$basketno> is the basket we edit Link Here
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;
(-)a/acqui/booksellers.pl (-1 / +1 lines)
Lines 57-63 use C4::Auth; Link Here
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::Bookseller qw/ GetBookSellerFromId GetBookSeller /;
63
use C4::Bookseller qw/ GetBookSellerFromId GetBookSeller /;
(-)a/acqui/check_budget_total.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/acqui/check_duplicate_barcode_ajax.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/acqui/check_uniqueness.pl (-1 / +1 lines)
Lines 31-37 Link Here
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;
(-)a/acqui/currency.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/acqui/fetch_sort_dropbox.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/acqui/finishreceive.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/acqui/histsearch.pl (-1 / +1 lines)
Lines 51-57 to filter on ended date. Link Here
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;
(-)a/acqui/invoice.pl (-1 / +1 lines)
Lines 29-35 Invoice details Link Here
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;
(-)a/acqui/invoices.pl (-1 / +1 lines)
Lines 29-35 Search for invoices Link Here
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
(-)a/acqui/lateorders-export.pl (-1 / +1 lines)
Lines 16-22 Link Here
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;
(-)a/acqui/lateorders.pl (-1 / +1 lines)
Lines 44-50 To know on which branch this script have to display late order. Link Here
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;
(-)a/acqui/modordernotes.pl (-1 / +1 lines)
Lines 28-34 Modify just notes when basket is closed. Link Here
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;
(-)a/acqui/neworderbiblio.pl (-1 / +1 lines)
Lines 59-65 use strict; Link Here
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::Bookseller qw/ GetBookSellerFromId /;
63
use C4::Bookseller qw/ GetBookSellerFromId /;
64
use C4::Biblio;
64
use C4::Biblio;
65
use C4::Auth;
65
use C4::Auth;
(-)a/acqui/neworderempty.pl (-1 / +1 lines)
Lines 68-74 the item's id in the breeding reservoir Link Here
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
(-)a/acqui/newordersubscription.pl (-1 / +1 lines)
Lines 18-24 Link Here
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::Bookseller qw/GetBookSellerFromId/;
24
use C4::Bookseller qw/GetBookSellerFromId/;
(-)a/acqui/newordersuggestion.pl (-1 / +1 lines)
Lines 91-97 can be equal to Link Here
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;
(-)a/acqui/ordered.pl (-1 / +1 lines)
Lines 30-36 this script is to show orders ordered but not yet received Link Here
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
(-)a/acqui/orderreceive.pl (-1 / +1 lines)
Lines 61-67 The biblionumber of this order. Link Here
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;
(-)a/acqui/parcel.pl (-1 / +1 lines)
Lines 63-69 use C4::Budgets; Link Here
63
use C4::Bookseller qw/ GetBookSellerFromId /;
63
use C4::Bookseller qw/ GetBookSellerFromId /;
64
use C4::Biblio;
64
use C4::Biblio;
65
use C4::Items;
65
use C4::Items;
66
use CGI;
66
use CGI qw ( -utf8 );
67
use C4::Output;
67
use C4::Output;
68
use C4::Dates qw/format_date format_date_in_iso/;
68
use C4::Dates qw/format_date format_date_in_iso/;
69
use C4::Suggestions;
69
use C4::Suggestions;
(-)a/acqui/parcels.pl (-1 / +1 lines)
Lines 68-74 To know how many results have to be display / page. Link Here
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
(-)a/acqui/spent.pl (-1 / +1 lines)
Lines 34-40 use C4::Auth; Link Here
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;
(-)a/acqui/supplier.pl (-1 / +1 lines)
Lines 46-52 use C4::Auth; Link Here
46
use C4::Contract qw/GetContract/;
46
use C4::Contract qw/GetContract/;
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( GetBookSellerFromId DelBookseller );
51
use C4::Bookseller qw( GetBookSellerFromId DelBookseller );
52
use C4::Budgets;
52
use C4::Budgets;
(-)a/acqui/transferorder.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/acqui/uncertainprice.pl (-1 / +1 lines)
Lines 49-55 use warnings; Link Here
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 qw/GetBookSellerFromId/;
54
use C4::Bookseller qw/GetBookSellerFromId/;
55
use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
55
use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
(-)a/acqui/updatesupplier.pl (-1 / +1 lines)
Lines 52-58 use C4::Auth; Link Here
52
use C4::Bookseller qw( ModBookseller AddBookseller );
52
use C4::Bookseller qw( ModBookseller AddBookseller );
53
use C4::Biblio;
53
use C4::Biblio;
54
use C4::Output;
54
use C4::Output;
55
use CGI;
55
use CGI qw ( -utf8 );
56
56
57
my $input=new CGI;
57
my $input=new CGI;
58
my ($template, $loggedinuser, $cookie) = get_template_and_user(
58
my ($template, $loggedinuser, $cookie) = get_template_and_user(
(-)a/admin/admin-home.pl (-1 / +1 lines)
Lines 18-24 Link Here
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
(-)a/admin/aqbudget_user_search.pl (-1 / +1 lines)
Lines 23-29 use Modern::Perl; Link Here
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
(-)a/admin/aqbudgetperiods.pl (-1 / +1 lines)
Lines 48-54 script to administer the budget periods table Link Here
48
use strict;
48
use strict;
49
#use warnings; FIXME - Bug 2505
49
#use warnings; FIXME - Bug 2505
50
use Number::Format qw(format_price);
50
use Number::Format qw(format_price);
51
use CGI;
51
use CGI qw ( -utf8 );
52
use List::Util qw/min/;
52
use List::Util qw/min/;
53
use C4::Dates qw/format_date format_date_in_iso/;
53
use C4::Dates qw/format_date format_date_in_iso/;
54
use C4::Koha;
54
use C4::Koha;
(-)a/admin/aqbudgets.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
use Number::Format qw(format_price);
26
use Number::Format qw(format_price);
27
27
(-)a/admin/aqcontract.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/admin/aqplan.pl (-1 / +1 lines)
Lines 22-28 Link Here
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/;
(-)a/admin/auth_subfields_structure.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
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
(-)a/admin/auth_tag_structure.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/admin/authorised_values.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/admin/authtypes.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/admin/biblio_framework.pl (-1 / +1 lines)
Lines 23-29 Link Here
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;
(-)a/admin/branch_transfer_limits.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/admin/branches.pl (-1 / +1 lines)
Lines 39-45 Link Here
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;
(-)a/admin/categorie.pl (-1 / +1 lines)
Lines 38-44 Link Here
38
38
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use CGI;
41
use CGI qw ( -utf8 );
42
use C4::Context;
42
use C4::Context;
43
use C4::Auth;
43
use C4::Auth;
44
use C4::Branch;
44
use C4::Branch;
(-)a/admin/check_budget_parent.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/admin/check_parent_total.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/admin/checkmarc.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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
(-)a/admin/cities.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/admin/classsources.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/admin/clone-rules.pl (-1 / +1 lines)
Lines 27-33 Link Here
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;
(-)a/admin/currency.pl (-1 / +1 lines)
Lines 39-45 Link Here
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::Dates qw(format_date);
45
use C4::Dates qw(format_date);
(-)a/admin/didyoumean.pl (-1 / +1 lines)
Lines 2-8 Link Here
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;
(-)a/admin/env_tz_test.pl (-1 / +1 lines)
Lines 2-8 Link Here
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;
(-)a/admin/fieldmapping.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/admin/import_export_framework.pl (-1 / +1 lines)
Lines 20-26 Link Here
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/;
(-)a/admin/item_circulation_alerts.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/admin/itemtypes.pl (-1 / +1 lines)
Lines 42-48 written 20/02/2002 by paul.poulain@free.fr Link Here
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;
(-)a/admin/koha2marclinks.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
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
(-)a/admin/marc_subfields_structure.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
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
(-)a/admin/marctagstructure.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/admin/matching-rules.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/admin/oai_set_mappings.pl (-1 / +1 lines)
Lines 32-38 the OR operator will be applied. Link Here
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;
(-)a/admin/oai_sets.pl (-1 / +1 lines)
Lines 28-34 Admin page to describe OAI SETs Link Here
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;
(-)a/admin/patron-attr-types.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/admin/preferences.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/admin/printers.pl (-1 / +1 lines)
Lines 39-45 Link Here
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;
(-)a/admin/searchengine/solr/indexes.pl (-1 / +1 lines)
Lines 18-24 Link Here
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::Koha;
22
use C4::Koha;
23
use C4::Output;
23
use C4::Output;
24
use C4::Auth;
24
use C4::Auth;
(-)a/admin/smart-rules.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/admin/stopwords.pl (-1 / +1 lines)
Lines 23-29 Link Here
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;
(-)a/admin/systempreferences.pl (-1 / +1 lines)
Lines 43-49 ALSO : Link Here
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;
(-)a/admin/transport-cost-matrix.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/admin/z3950servers.pl (-1 / +1 lines)
Lines 21-27 Link Here
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::Context;
25
use C4::Context;
26
use C4::Auth;
26
use C4::Auth;
27
use C4::Output;
27
use C4::Output;
(-)a/authorities/auth_finder.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/authorities/authorities-home.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/authorities/authorities.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/authorities/blinddetail-biblio-search.pl (-1 / +1 lines)
Lines 43-49 use C4::AuthoritiesMarc; Link Here
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
(-)a/authorities/detail-biblio-search.pl (-1 / +1 lines)
Lines 44-50 use C4::AuthoritiesMarc; Link Here
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;
(-)a/authorities/detail.pl (-1 / +1 lines)
Lines 44-50 use C4::AuthoritiesMarc; Link Here
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
(-)a/authorities/export.pl (-1 / +1 lines)
Lines 6-12 use C4::Record; Link Here
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(
(-)a/authorities/merge.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/authorities/merge_ajax.pl (-1 / +1 lines)
Lines 3-9 Link Here
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/;
(-)a/authorities/ysearch.pl (-1 / +1 lines)
Lines 27-33 This script allows ajax call for dynamic authorities search Link Here
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
(-)a/basket/basket.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/basket/downloadcart.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/basket/sendbasket.pl (-1 / +1 lines)
Lines 18-24 Link Here
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
(-)a/catalogue/ISBDdetail.pl (-1 / +1 lines)
Lines 39-45 use strict; Link Here
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;
(-)a/catalogue/MARCdetail.pl (-1 / +1 lines)
Lines 49-55 use strict; Link Here
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;
(-)a/catalogue/cardview.pl (-1 / +1 lines)
Lines 18-24 use strict; Link Here
18
18
19
#use warnings; FIXME - Bug 2505
19
#use warnings; FIXME - Bug 2505
20
20
21
use CGI;
21
use CGI qw ( -utf8 );
22
use XML::LibXSLT;
22
use XML::LibXSLT;
23
use XML::LibXML;
23
use XML::LibXML;
24
use C4::Koha;
24
use C4::Koha;
(-)a/catalogue/detail.pl (-1 / +1 lines)
Lines 19-25 Link Here
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/;
(-)a/catalogue/export.pl (-1 / +1 lines)
Lines 6-12 use C4::Record; Link Here
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
(-)a/catalogue/getitem-ajax.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/catalogue/image.pl (-1 / +1 lines)
Lines 26-32 Link Here
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
(-)a/catalogue/imageviewer.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/catalogue/issuehistory.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
(-)a/catalogue/labeledMARCdetail.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/catalogue/moredetail.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/catalogue/search.pl (-1 / +1 lines)
Lines 156-162 use C4::Branch; # GetBranches Link Here
156
my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
156
my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
157
# create a new CGI object
157
# create a new CGI object
158
# FIXME: no_undef_params needs to be tested
158
# FIXME: no_undef_params needs to be tested
159
use CGI qw('-no_undef_params');
159
use CGI qw('-no_undef_params' -utf8 );
160
my $cgi = new CGI;
160
my $cgi = new CGI;
161
161
162
my ($template,$borrowernumber,$cookie);
162
my ($template,$borrowernumber,$cookie);
(-)a/catalogue/showmarc.pl (-1 / +1 lines)
Lines 24-30 use strict; Link Here
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
(-)a/catalogue/updateitem.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/cataloguing/addbooks.pl (-1 / +1 lines)
Lines 26-32 Link Here
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;
(-)a/cataloguing/additem.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/linkitem.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/merge.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/merge_ajax.pl (-1 / +1 lines)
Lines 5-11 use strict; Link Here
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;
(-)a/cataloguing/moveitem.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/plugin_launcher.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/cataloguing/value_builder/callnumber-KU.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/cataloguing/value_builder/callnumber.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/cataloguing/value_builder/labs_theses.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/macles.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/marc21_field_006.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/marc21_field_007.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_field_008.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_leader.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_leader_authorities.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_leader_book.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_leader_computerfile.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_leader_video.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/normarc_field_007.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/cataloguing/value_builder/normarc_field_008.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/cataloguing/value_builder/normarc_leader.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/stocknumberAV.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
(-)a/cataloguing/value_builder/stocknumberam123.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/cataloguing/value_builder/unimarc_field_010.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-1 / +1 lines)
Lines 21-27 Link Here
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::Output;
26
use C4::Output;
27
27
(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
use C4::Output;
24
use C4::Output;
25
25
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_116.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_117.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_120.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_122.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_125.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_130.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_141.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-1 / +1 lines)
Lines 25-31 use C4::AuthoritiesMarc; Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-1 / +1 lines)
Lines 44-50 use strict; Link Here
44
44
45
#use warnings; FIXME - Bug 2505
45
#use warnings; FIXME - Bug 2505
46
use C4::Auth;
46
use C4::Auth;
47
use CGI;
47
use CGI qw ( -utf8 );
48
use C4::Context;
48
use C4::Context;
49
49
50
use C4::AuthoritiesMarc;
50
use C4::AuthoritiesMarc;
(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-1 / +1 lines)
Lines 44-50 It need : Link Here
44
use strict;
44
use strict;
45
#use warnings; FIXME - Bug 2505
45
#use warnings; FIXME - Bug 2505
46
use C4::Auth;
46
use C4::Auth;
47
use CGI;
47
use CGI qw ( -utf8 );
48
use C4::Context;
48
use C4::Context;
49
49
50
use C4::AuthoritiesMarc;
50
use C4::AuthoritiesMarc;
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/cataloguing/value_builder/unimarc_leader.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/cataloguing/ysearch.pl (-1 / +1 lines)
Lines 25-31 Link Here
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/;
(-)a/cataloguing/z3950_search.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/changelanguage.pl (-1 / +1 lines)
Lines 19-25 use strict; Link Here
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');
(-)a/circ/add_message.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/circ/bookcount.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/circ/branchoverdues.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
(-)a/circ/branchtransfers.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/circ/circulation-home.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/circ/circulation.pl (-1 / +1 lines)
Lines 24-30 Link Here
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::Print;
29
use C4::Print;
30
use C4::Auth qw/:DEFAULT get_session/;
30
use C4::Auth qw/:DEFAULT get_session/;
(-)a/circ/del_message.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/circ/hold-transfer-slip.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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
(-)a/circ/offline-mf.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/circ/offline.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/circ/overdue.pl (-1 / +1 lines)
Lines 23-29 use strict; Link Here
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;
(-)a/circ/pendingreserves.pl (-1 / +1 lines)
Lines 31-37 use constant TWO_DAYS_AGO => -2; Link Here
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;
(-)a/circ/renew.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/circ/reserveratios.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/circ/returns.pl (-1 / +1 lines)
Lines 30-36 script to execute returns of books Link Here
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/;
(-)a/circ/selectbranchprinter.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/circ/stats.pl (-1 / +1 lines)
Lines 23-29 Link Here
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;
(-)a/circ/transfer-slip.pl (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
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
(-)a/circ/transferstoreceive.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/circ/view_holdsqueue.pl (-1 / +1 lines)
Lines 24-30 This script displays items in the tmp_holdsqueue table Link Here
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;
(-)a/circ/waitingreserves.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/circ/ypattrodue-attr-search-authvalue.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/circ/ysearch.pl (-1 / +1 lines)
Lines 27-33 Link Here
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/;
(-)a/course_reserves/add_items.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/course_reserves/course-details.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/course_reserves/course-reserves.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/course_reserves/course.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/course_reserves/mod_course.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/docs/CAS/CASProxy/examples/koha_webservice.pl (-1 / +1 lines)
Lines 39-45 binmode(STDOUT, ":utf8"); Link Here
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
(-)a/docs/CAS/CASProxy/examples/proxy_cas.pl (-1 / +1 lines)
Lines 30-36 Link Here
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
(-)a/docs/CAS/CASProxy/examples/proxy_cas_callback.pl (-1 / +1 lines)
Lines 27-33 Link Here
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
(-)a/docs/CAS/CASProxy/examples/proxy_cas_data.pl (-1 / +1 lines)
Lines 32-38 This PGTIOU will allow us to retrive the matching PGTID Link Here
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;
(-)a/edithelp.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
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);
(-)a/errors/400.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/errors/401.pl (-1 / +1 lines)
Lines 17-23 Link Here
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;
(-)a/errors/402.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/errors/403.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/errors/404.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/errors/500.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/help.pl (-1 / +1 lines)
Lines 23-29 use C4::Templates; Link Here
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;
(-)a/installer/InstallAuth.pm (-1 / +1 lines)
Lines 42-48 InstallAuth - Authenticates Koha users for Install process Link Here
42
42
43
=head1 SYNOPSIS
43
=head1 SYNOPSIS
44
44
45
  use CGI;
45
  use CGI qw ( -utf8 );
46
  use InstallAuth;
46
  use InstallAuth;
47
  use C4::Output;
47
  use C4::Output;
48
48
(-)a/installer/install.pl (-1 / +1 lines)
Lines 5-11 use warnings; Link Here
5
use diagnostics;
5
use diagnostics;
6
6
7
use InstallAuth;
7
use 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;
(-)a/labels/label-create-csv.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/labels/label-create-pdf.pl (-1 / +1 lines)
Lines 21-27 Link Here
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 Encode qw( decode );
27
use Encode qw( decode );
(-)a/labels/label-create-xml.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/labels/label-edit-batch.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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);
(-)a/labels/label-edit-layout.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/labels/label-edit-profile.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/labels/label-edit-template.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/labels/label-home.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/labels/label-item-search.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
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
(-)a/labels/label-manage.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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);
(-)a/labels/label-print.pl (-1 / +1 lines)
Lines 20-26 Link Here
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);
(-)a/labels/spinelabel-home.pl (-1 / +1 lines)
Lines 17-23 Link Here
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;
(-)a/labels/spinelabel-print.pl (-1 / +1 lines)
Lines 17-23 Link Here
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
(-)a/mainpage.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/members/boraccount.pl (-1 / +1 lines)
Lines 28-34 use warnings; Link Here
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;
(-)a/members/deletemem.pl (-1 / +1 lines)
Lines 24-30 Link Here
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;
(-)a/members/files.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/members/guarantor_search.pl (-1 / +1 lines)
Lines 24-30 use strict; Link Here
24
#use warnings; FIXME - Bug 2505
24
#use warnings; FIXME - Bug 2505
25
use C4::Auth;
25
use C4::Auth;
26
use C4::Output;
26
use C4::Output;
27
use CGI;
27
use CGI qw ( -utf8 );
28
use C4::Dates qw/format_date/;
28
use C4::Dates qw/format_date/;
29
use C4::Members;
29
use C4::Members;
30
30
(-)a/members/mancredit.pl (-1 / +1 lines)
Lines 27-33 use warnings; Link Here
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;
(-)a/members/maninvoice.pl (-1 / +1 lines)
Lines 27-33 use warnings; Link Here
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;
(-)a/members/member-flags.pl (-1 / +1 lines)
Lines 7-13 Link Here
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;
(-)a/members/member-password.pl (-1 / +1 lines)
Lines 14-20 use C4::Context; Link Here
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);
(-)a/members/member.pl (-1 / +1 lines)
Lines 26-32 Link Here
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::Members;
30
use C4::Members;
31
use C4::Branch;
31
use C4::Branch;
32
use C4::Category;
32
use C4::Category;
(-)a/members/memberentry.pl (-1 / +1 lines)
Lines 23-29 use strict; Link Here
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
(-)a/members/members-home.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/members/members-update-do.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/members/members-update.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/members/mod_debarment.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/members/moremember.pl (-1 / +1 lines)
Lines 34-40 Link Here
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;
39
use C4::Auth;
40
use C4::Output;
40
use C4::Output;
(-)a/members/notices.pl (-1 / +1 lines)
Lines 23-29 use strict; Link Here
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;
(-)a/members/patronimage.pl (-1 / +1 lines)
Lines 23-29 Link Here
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
(-)a/members/pay.pl (-1 / +1 lines)
Lines 33-39 use URI::Escape; Link Here
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;
(-)a/members/paycollect.pl (-1 / +1 lines)
Lines 23-29 use URI::Escape; Link Here
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::Accounts;
28
use C4::Accounts;
29
use C4::Koha;
29
use C4::Koha;
(-)a/members/printfeercpt.pl (-1 / +1 lines)
Lines 28-34 use warnings; Link Here
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;
(-)a/members/printinvoice.pl (-1 / +1 lines)
Lines 26-32 use warnings; Link Here
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;
(-)a/members/printslip.pl (-1 / +1 lines)
Lines 34-40 Link Here
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;
(-)a/members/purchase-suggestions.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/members/readingrec.pl (-1 / +1 lines)
Lines 23-29 Link Here
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;
(-)a/members/routing-lists.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
(-)a/members/setstatus.pl (-1 / +1 lines)
Lines 26-32 Link Here
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;
(-)a/members/statistics.pl (-1 / +1 lines)
Lines 22-28 Link Here
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
24
25
use CGI;
25
use CGI qw ( -utf8 );
26
use C4::Auth;
26
use C4::Auth;
27
use C4::Branch;
27
use C4::Branch;
28
use C4::Context;
28
use C4::Context;
(-)a/members/update-child.pl (-1 / +1 lines)
Lines 28-34 Link Here
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;
(-)a/misc/cronjobs/runreport.pl (-1 / +1 lines)
Lines 28-34 use Getopt::Long qw(:config auto_help auto_version); Link Here
28
use Pod::Usage;
28
use Pod::Usage;
29
use Mail::Sendmail;
29
use Mail::Sendmail;
30
use Text::CSV_XS;
30
use Text::CSV_XS;
31
use CGI;
31
use CGI qw ( -utf8 );
32
use Carp;
32
use Carp;
33
use Encode;
33
use Encode;
34
34
(-)a/offline_circ/download.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/offline_circ/enqueue_koc.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/offline_circ/list.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/offline_circ/process.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/offline_circ/process_koc.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/offline_circ/service.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/opac/errors/400.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/errors/401.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/errors/402.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/errors/403.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/errors/404.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/errors/500.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/ilsdi.pl (-1 / +1 lines)
Lines 27-33 use C4::Auth; Link Here
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
(-)a/opac/maintenance.pl (-1 / +1 lines)
Lines 20-26 use warnings; Link Here
20
20
21
# FIXME - Generates a warning from C4/Context.pm (uninitilized value).
21
# FIXME - Generates a warning from C4/Context.pm (uninitilized value).
22
22
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
(-)a/opac/oai.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/opac/opac-ISBDdetail.pl (-1 / +1 lines)
Lines 45-51 use warnings; Link Here
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;
(-)a/opac/opac-MARCdetail.pl (-1 / +1 lines)
Lines 48-54 use Modern::Perl; Link Here
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;
(-)a/opac/opac-account.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-addbybiblionumber.pl (-1 / +1 lines)
Lines 25-31 Link Here
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;
(-)a/opac/opac-alert-subscribe.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/opac/opac-authorities-home.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
26
27
use C4::Context;
27
use C4::Context;
(-)a/opac/opac-authoritiesdetail.pl (-1 / +1 lines)
Lines 43-49 use C4::AuthoritiesMarc; Link Here
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
(-)a/opac/opac-basket.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/opac/opac-browser.pl (-1 / +1 lines)
Lines 30-36 use warnings; Link Here
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
(-)a/opac/opac-changelanguage.pl (-1 / +1 lines)
Lines 18-24 Link Here
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');
(-)a/opac/opac-course-details.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-course-reserves.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-detail.pl (-1 / +1 lines)
Lines 23-29 Link Here
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::Auth qw(:DEFAULT get_session);
27
use C4::Auth qw(:DEFAULT get_session);
28
use C4::Branch;
28
use C4::Branch;
29
use C4::Koha;
29
use C4::Koha;
(-)a/opac/opac-downloadcart.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-downloadshelf.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-export.pl (-1 / +1 lines)
Lines 24-30 use C4::Record; Link Here
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
(-)a/opac/opac-ics.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/opac/opac-image.pl (-1 / +1 lines)
Lines 26-32 Link Here
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
(-)a/opac/opac-imageviewer.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-main.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
(-)a/opac/opac-memberentry.pl (-1 / +1 lines)
Lines 17-23 Link Here
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
(-)a/opac/opac-messaging.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-modrequest-suspend.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/opac/opac-modrequest.pl (-1 / +1 lines)
Lines 25-31 Link Here
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;
(-)a/opac/opac-mymessages.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-overdrive-search.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-passwd.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/opac/opac-patron-image.pl (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/opac/opac-privacy.pl (-1 / +1 lines)
Lines 17-23 Link Here
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;
(-)a/opac/opac-ratings-ajax.pl (-1 / +1 lines)
Lines 26-32 A script that takes an ajax json query, and then inserts or modifies a star-rati Link Here
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);
(-)a/opac/opac-ratings.pl (-1 / +1 lines)
Lines 27-33 note: there is currently no 'delete rating' functionality in this script Link Here
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;
(-)a/opac/opac-readingrecord.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/opac-registration-verify.pl (-1 / +1 lines)
Lines 17-23 Link Here
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;
(-)a/opac/opac-renew.pl (-1 / +1 lines)
Lines 24-30 Link Here
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::Items;
30
use C4::Items;
(-)a/opac/opac-reserve.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/opac-review.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/opac/opac-search-history.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use C4::Auth qw(:DEFAULT get_session ParseSearchHistorySession SetSearchHistorySession);
23
use C4::Auth qw(:DEFAULT get_session ParseSearchHistorySession SetSearchHistorySession);
24
use CGI;
24
use CGI qw ( -utf8 );
25
use JSON qw/decode_json encode_json/;
25
use JSON qw/decode_json encode_json/;
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output;
(-)a/opac/opac-search.pl (-1 / +1 lines)
Lines 61-67 use Business::ISBN; Link Here
61
my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
61
my $DisplayMultiPlaceHold = C4::Context->preference("DisplayMultiPlaceHold");
62
# create a new CGI object
62
# create a new CGI object
63
# FIXME: no_undef_params needs to be tested
63
# FIXME: no_undef_params needs to be tested
64
use CGI qw('-no_undef_params');
64
use CGI qw('-no_undef_params' -utf8);
65
my $cgi = new CGI;
65
my $cgi = new CGI;
66
66
67
my $branch_group_limit = $cgi->param("branch_group_limit");
67
my $branch_group_limit = $cgi->param("branch_group_limit");
(-)a/opac/opac-sendbasket.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/opac/opac-sendshelf.pl (-2 / +2 lines)
Lines 20-27 Link Here
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;
(-)a/opac/opac-serial-issues.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/opac/opac-shelves.pl (-1 / +1 lines)
Lines 19-25 Link Here
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
(-)a/opac/opac-showmarc.pl (-1 / +1 lines)
Lines 28-34 use strict; Link Here
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 Encode;
32
use Encode;
33
33
34
# Koha modules used
34
# Koha modules used
(-)a/opac/opac-showreviews.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/opac/opac-suggestions.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/opac/opac-tags.pl (-1 / +1 lines)
Lines 32-38 C4::Scrubber is used to remove all markup content from the sumitted text. Link Here
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);
(-)a/opac/opac-tags_subject.pl (-1 / +1 lines)
Lines 30-36 use warnings; Link Here
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
(-)a/opac/opac-topissues.pl (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/opac/opac-user.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/opac/sco/help.pl (-1 / +1 lines)
Lines 23-29 Link Here
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);
(-)a/opac/sco/printslip.pl (-1 / +1 lines)
Lines 28-34 It is called from sco-main.pl Link Here
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;
(-)a/opac/sco/sco-main.pl (-1 / +1 lines)
Lines 34-40 Link Here
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);
(-)a/opac/search.pl (-1 / +1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Context;
22
use C4::Context;
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::Output;
26
use C4::Output;
(-)a/opac/svc/login (-1 / +1 lines)
Lines 17-23 Link Here
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;
(-)a/opac/svc/overdrive_proxy (-1 / +1 lines)
Lines 35-41 JS side from having to deal with cross-origin/authentication issues. Link Here
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;
(-)a/opac/svc/report (-1 / +1 lines)
Lines 25-31 use Modern::Perl; Link Here
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
(-)a/opac/svc/shelfbrowser.pl (-1 / +1 lines)
Lines 1-7 Link Here
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;
(-)a/opac/svc/suggestion (-1 / +1 lines)
Lines 57-63 use warnings; Link Here
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
(-)a/opac/tracklinks.pl (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
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') || '';
(-)a/opac/unapi (-1 / +1 lines)
Lines 37-43 an XML format such as OAI DC, RSS2, MARCXML, or MODS. Link Here
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;
(-)a/patron_lists/add-modify.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/patron_lists/delete.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/patron_lists/list.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/patron_lists/lists.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/patron_lists/patrons.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/patroncards/card-print.pl (-1 / +1 lines)
Lines 20-26 Link Here
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);
(-)a/patroncards/create-pdf.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/patroncards/edit-batch.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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);
(-)a/patroncards/edit-layout.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/patroncards/edit-profile.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/patroncards/edit-template.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/patroncards/home.pl (-1 / +1 lines)
Lines 21-27 Link Here
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);
(-)a/patroncards/image-manage.pl (-1 / +1 lines)
Lines 3-9 Link Here
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);
(-)a/patroncards/manage.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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);
(-)a/patroncards/members-search.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/patroncards/print.pl (-1 / +1 lines)
Lines 20-26 Link Here
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);
(-)a/plugins/plugins-home.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/plugins/plugins-uninstall.pl (-1 / +1 lines)
Lines 21-27 use warnings; Link Here
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;
(-)a/plugins/plugins-upload.pl (-1 / +1 lines)
Lines 22-28 use warnings; Link Here
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;
(-)a/plugins/run.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/reports/acquisitions_stats.pl (-1 / +1 lines)
Lines 23-29 Link Here
23
use Modern::Perl;
23
use Modern::Perl;
24
24
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::Reports;
28
use C4::Reports;
29
use C4::Output;
29
use C4::Output;
(-)a/reports/bor_issues_top.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/reports/borrowers_out.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/reports/borrowers_stats.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/reports/cat_issues_top.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/reports/catalogue_out.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/reports/catalogue_stats.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/reports/dictionary.pl (-1 / +1 lines)
Lines 20-26 use CGI::Carp qw(fatalsToBrowser warningsToBrowser); Link Here
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;
(-)a/reports/issues_avg_stats.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/reports/issues_by_borrower_category.plugin (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/reports/issues_stats.pl (-1 / +1 lines)
Lines 21-27 Link Here
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 Date::Manip;
25
use Date::Manip;
26
26
27
use C4::Auth;
27
use C4::Auth;
(-)a/reports/itemslost.pl (-1 / +1 lines)
Lines 28-34 This script displays lost items. Link Here
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;
(-)a/reports/itemtypes.plugin (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/reports/manager.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/reports/reports-home.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/reports/reservereport.pl (-1 / +1 lines)
Lines 27-33 use strict; Link Here
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;
(-)a/reports/reserves_stats.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/reports/serials_stats.pl (-1 / +1 lines)
Lines 20-26 Link Here
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/;
(-)a/reports/stats.print.pl (-1 / +1 lines)
Lines 2-8 Link Here
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;
(-)a/reports/stats.screen.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/reserve/modrequest.pl (-1 / +1 lines)
Lines 24-30 Link Here
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;
(-)a/reserve/modrequest_suspendall.pl (-1 / +1 lines)
Lines 24-30 Link Here
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;
(-)a/reserve/placerequest.pl (-1 / +1 lines)
Lines 24-30 Link Here
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;
(-)a/reserve/renewscript.pl (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/reserve/request.pl (-1 / +1 lines)
Lines 29-35 script to place reserves/requests Link Here
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;
(-)a/reviews/reviewswaiting.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/rotating_collections/addItems.pl (-1 / +1 lines)
Lines 26-32 use C4::Context; Link Here
26
use C4::RotatingCollections;
26
use C4::RotatingCollections;
27
use C4::Items;
27
use C4::Items;
28
28
29
use CGI;
29
use CGI qw ( -utf8 );
30
30
31
my $query = new CGI;
31
my $query = new CGI;
32
my ($template, $loggedinuser, $cookie)
32
my ($template, $loggedinuser, $cookie)
(-)a/rotating_collections/editCollections.pl (-1 / +1 lines)
Lines 19-25 use strict; Link Here
19
#use warnings; FIXME - Bug 2505
19
#use warnings; FIXME - Bug 2505
20
require Exporter;
20
require Exporter;
21
21
22
use CGI;
22
use CGI qw ( -utf8 );
23
23
24
use C4::Output;
24
use C4::Output;
25
use C4::Auth;
25
use C4::Auth;
(-)a/rotating_collections/rotatingCollections.pl (-1 / +1 lines)
Lines 20-26 use strict; Link Here
20
#use warnings; FIXME - Bug 2505
20
#use warnings; FIXME - Bug 2505
21
require Exporter;
21
require Exporter;
22
22
23
use CGI;
23
use CGI qw ( -utf8 );
24
24
25
use C4::Output;
25
use C4::Output;
26
use C4::Auth;
26
use C4::Auth;
(-)a/rotating_collections/transferCollection.pl (-1 / +1 lines)
Lines 26-32 use C4::Context; Link Here
26
use C4::RotatingCollections;
26
use C4::RotatingCollections;
27
use C4::Branch;
27
use C4::Branch;
28
28
29
use CGI;
29
use CGI qw ( -utf8 );
30
30
31
my $query = new CGI;
31
my $query = new CGI;
32
32
(-)a/serials/acqui-search-result.pl (-1 / +1 lines)
Lines 44-50 use warnings; Link Here
44
use C4::Auth;
44
use C4::Auth;
45
use C4::Biblio;
45
use C4::Biblio;
46
use C4::Output;
46
use C4::Output;
47
use CGI;
47
use CGI qw ( -utf8 );
48
use C4::Acquisition qw( SearchOrders );
48
use C4::Acquisition qw( SearchOrders );
49
use C4::Dates qw/format_date/;
49
use C4::Dates qw/format_date/;
50
use C4::Bookseller qw( GetBookSeller );
50
use C4::Bookseller qw( GetBookSeller );
(-)a/serials/acqui-search.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/serials/checkexpiration.pl (-1 / +1 lines)
Lines 44-50 The date to filter on. Link Here
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;
(-)a/serials/claims.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/serials/create-numberpattern.pl (-1 / +1 lines)
Lines 18-24 Link Here
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/;
(-)a/serials/lateissues-export.pl (-1 / +1 lines)
Lines 16-22 Link Here
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;
(-)a/serials/member-search.pl (-1 / +1 lines)
Lines 25-31 Member Search.pl script used to search for members to add to a routing list Link Here
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
(-)a/serials/reorder_members.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/serials/routing-preview.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/serials/routing.pl (-1 / +1 lines)
Lines 27-33 printed out Link Here
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;
(-)a/serials/serial-issues.pl (-1 / +1 lines)
Lines 43-49 the biblionumber this script has to give more infos. Link Here
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;
(-)a/serials/serials-collection.pl (-1 / +1 lines)
Lines 21-27 Link Here
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/;
(-)a/serials/serials-edit.pl (-1 / +1 lines)
Lines 63-69 op can be : Link Here
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/;
(-)a/serials/serials-home.pl (-1 / +1 lines)
Lines 29-35 this script is the main page for serials/ Link Here
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;
(-)a/serials/serials-recieve.pl (-1 / +1 lines)
Lines 64-70 op can be : Link Here
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;
(-)a/serials/serials-search.pl (-1 / +1 lines)
Lines 29-35 this script is the search page for serials Link Here
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;
(-)a/serials/showpredictionpattern.pl (-1 / +1 lines)
Lines 30-36 publication date, based on frequency and first publication date. Link Here
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;
(-)a/serials/subscription-add.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/serials/subscription-bib-search.pl (-1 / +1 lines)
Lines 49-55 to multipage gestion. Link Here
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;
(-)a/serials/subscription-detail.pl (-1 / +1 lines)
Lines 16-22 Link Here
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::Bookseller qw/GetBookSellerFromId/;
22
use C4::Bookseller qw/GetBookSellerFromId/;
(-)a/serials/subscription-frequencies.pl (-1 / +1 lines)
Lines 29-35 Manage subscription frequencies Link Here
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;
(-)a/serials/subscription-frequency.pl (-1 / +1 lines)
Lines 18-24 Link Here
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/;
(-)a/serials/subscription-history.pl (-1 / +1 lines)
Lines 29-35 Modify subscription history Link Here
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
(-)a/serials/subscription-numberpattern.pl (-1 / +1 lines)
Lines 18-24 Link Here
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 );
(-)a/serials/subscription-numberpatterns.pl (-1 / +1 lines)
Lines 28-34 Manage numbering patterns Link Here
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;
(-)a/serials/subscription-renew.pl (-1 / +1 lines)
Lines 46-52 Id of the subscription this script has to renew Link Here
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;
(-)a/serials/viewalerts.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/services/itemrecorddisplay.pl (-1 / +1 lines)
Lines 30-36 It uses PrepareItemrecordDisplay Link Here
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;
(-)a/sms/sms.pl (-1 / +1 lines)
Lines 2-8 Link Here
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;
(-)a/sms/sms_listen_windows_start.pl (-1 / +1 lines)
Lines 7-13 use strict; Link Here
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";
(-)a/suggestion/suggestion.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/svc/authentication (-1 / +1 lines)
Lines 21-27 Link Here
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
(-)a/svc/bib (-1 / +1 lines)
Lines 22-28 Link Here
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;
(-)a/svc/bib_profile (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/svc/cover_images (-1 / +1 lines)
Lines 20-26 Link Here
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/;
(-)a/svc/import_bib (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/svc/new_bib (-1 / +1 lines)
Lines 21-27 Link Here
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;
(-)a/svc/report (-1 / +1 lines)
Lines 23-29 use Modern::Perl; Link Here
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
(-)a/t/Output.t (-1 / +1 lines)
Lines 4-10 use strict; Link Here
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');
(-)a/t/Templates.t (-1 / +1 lines)
Lines 19-25 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use Test::More tests => 3;
20
use Test::More tests => 3;
21
use Test::MockModule;
21
use Test::MockModule;
22
use CGI;
22
use CGI qw ( -utf8 );
23
23
24
BEGIN {
24
BEGIN {
25
    use_ok('C4::Templates');
25
    use_ok('C4::Templates');
(-)a/t/db_dependent/Auth.t (-1 / +1 lines)
Lines 5-11 Link Here
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;
(-)a/t/db_dependent/BackgroundJob.t (-1 / +1 lines)
Lines 6-12 Link Here
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 {
(-)a/t/db_dependent/ILSDI_Services.t (-1 / +1 lines)
Lines 4-10 use Modern::Perl; Link Here
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
(-)a/t/db_dependent/Serials.t (-1 / +1 lines)
Lines 6-12 Link Here
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;
(-)a/tags/list.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/tags/review.pl (-1 / +1 lines)
Lines 23-29 use warnings; Link Here
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);
(-)a/test/progressbar.pl (-1 / +1 lines)
Lines 28-34 use strict; Link Here
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
(-)a/test/progressbarsubmit.pl (-1 / +1 lines)
Lines 28-34 use strict; Link Here
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
(-)a/tools/ajax-inventory.pl (-1 / +1 lines)
Lines 1-7 Link Here
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
(-)a/tools/background-job-progress.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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/;
(-)a/tools/batchMod.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/tools/batch_records_ajax.pl (-1 / +1 lines)
Lines 31-37 the records from an import batch. Link Here
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;
(-)a/tools/cleanborrowers.pl (-1 / +1 lines)
Lines 34-40 This script allows to do 2 things. Link Here
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::Dates qw/format_date format_date_in_iso/;
40
use C4::Dates qw/format_date format_date_in_iso/;
(-)a/tools/copy-holidays.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/tools/csv-profiles.pl (-1 / +1 lines)
Lines 41-47 use Encode; Link Here
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
(-)a/tools/exceptionHolidays.pl (-1 / +1 lines)
Lines 3-9 Link Here
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;
(-)a/tools/export.pl (-1 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
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
(-)a/tools/holidays.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/tools/import_borrowers.pl (-1 / +1 lines)
Lines 52-58 use Text::CSV; Link Here
52
# ė
52
# ė
53
# č
53
# č
54
54
55
use CGI;
55
use CGI qw ( -utf8 );
56
# use encoding 'utf8';    # don't do this
56
# use encoding 'utf8';    # don't do this
57
57
58
my (@errors, @feedback);
58
my (@errors, @feedback);
(-)a/tools/inventory.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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
(-)a/tools/koha-news.pl (-1 / +1 lines)
Lines 24-30 Link Here
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;
(-)a/tools/letter.pl (-1 / +1 lines)
Lines 42-48 Link Here
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;
(-)a/tools/manage-marc-import.pl (-1 / +1 lines)
Lines 21-27 use strict; Link Here
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
(-)a/tools/marc_modification_templates.pl (-1 / +1 lines)
Lines 18-24 Link Here
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;
(-)a/tools/modborrowers.pl (-1 / +1 lines)
Lines 25-31 Link Here
25
# And for patron attributes.
25
# And for patron attributes.
26
26
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI;
28
use CGI qw ( -utf8 );
29
use C4::Auth;
29
use C4::Auth;
30
use C4::Branch;
30
use C4::Branch;
31
use C4::Koha;
31
use C4::Koha;
(-)a/tools/newHolidays.pl (-1 / +1 lines)
Lines 3-9 Link Here
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;
(-)a/tools/overduerules.pl (-1 / +1 lines)
Lines 19-25 Link Here
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;
(-)a/tools/picture-upload.pl (-1 / +1 lines)
Lines 24-30 Link Here
24
24
25
use File::Temp;
25
use File::Temp;
26
use File::Copy;
26
use File::Copy;
27
use CGI;
27
use CGI qw ( -utf8 );
28
use GD;
28
use GD;
29
use C4::Context;
29
use C4::Context;
30
use C4::Auth;
30
use C4::Auth;
(-)a/tools/quotes-upload.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/tools/quotes.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/tools/quotes/quotes-upload_ajax.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/tools/quotes/quotes_ajax.pl (-1 / +1 lines)
Lines 20-26 Link Here
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
(-)a/tools/scheduler.pl (-1 / +1 lines)
Lines 23-29 use C4::Context; Link Here
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
(-)a/tools/stage-marc-import.pl (-1 / +1 lines)
Lines 28-34 use strict; Link Here
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
(-)a/tools/tools-home.pl (-1 / +1 lines)
Lines 18-24 Link Here
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/;
(-)a/tools/upload-cover-image.pl (-1 / +1 lines)
Lines 41-47 use strict; Link Here
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;
(-)a/tools/upload-file-progress.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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/;
(-)a/tools/upload-file.pl (-1 / +1 lines)
Lines 22-28 use strict; Link Here
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/;
(-)a/tools/viewlog.pl (-1 / +1 lines)
Lines 21-27 Link Here
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::Koha;
26
use C4::Koha;
27
use C4::Dates;
27
use C4::Dates;
(-)a/virtualshelves/addbybiblionumber.pl (-1 / +1 lines)
Lines 61-67 Link Here
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/;
(-)a/virtualshelves/downloadshelf.pl (-1 / +1 lines)
Lines 20-26 Link Here
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;
(-)a/virtualshelves/sendshelf.pl (-2 / +2 lines)
Lines 20-27 Link Here
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;
(-)a/virtualshelves/shelves.pl (-2 / +1 lines)
Lines 20-26 Link Here
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