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

(-)a/C4/Accounts.pm (-2 / +1 lines)
Lines 18-25 package C4::Accounts; 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
20
21
use strict;
21
use Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
use C4::Context;
22
use C4::Context;
24
use C4::Stats;
23
use C4::Stats;
25
use C4::Members;
24
use C4::Members;
(-)a/C4/Auth_with_ldap.pm (-2 / +1 lines)
Lines 17-24 package C4::Auth_with_ldap; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use Carp;
21
use Carp;
23
22
24
use C4::Debug;
23
use C4::Debug;
(-)a/C4/AuthoritiesMarc/MARC21.pm (-2 / +1 lines)
Lines 17-24 package C4::AuthoritiesMarc::MARC21; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use MARC::Record;
21
use MARC::Record;
23
22
24
=head1 NAME
23
=head1 NAME
(-)a/C4/AuthoritiesMarc/UNIMARC.pm (-2 / +1 lines)
Lines 17-24 package C4::AuthoritiesMarc::UNIMARC; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
21
23
=head1 NAME
22
=head1 NAME
24
23
(-)a/C4/BackgroundJob.pm (-2 / +1 lines)
Lines 18-25 package C4::BackgroundJob; Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
use C4::Context;
22
use C4::Context;
24
use C4::Auth qw/get_session/;
23
use C4::Auth qw/get_session/;
25
use Digest::MD5;
24
use Digest::MD5;
(-)a/C4/Budgets.pm (-2 / +1 lines)
Lines 17-24 package C4::Budgets; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
21
use C4::Context;
23
use Koha::Database;
22
use Koha::Database;
24
use Koha::Patrons;
23
use Koha::Patrons;
(-)a/C4/Circulation.pm (-3 / +1 lines)
Lines 18-26 package C4::Circulation; Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
21
use Modern::Perl;
22
use strict;
23
#use warnings; FIXME - Bug 2505
24
use DateTime;
22
use DateTime;
25
use POSIX qw( floor );
23
use POSIX qw( floor );
26
use Koha::DateUtils;
24
use Koha::DateUtils;
(-)a/C4/Contract.pm (-2 lines)
Lines 18-25 package C4::Contract; 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 strict;
22
#use warnings; FIXME - Bug 2505
23
use C4::Context;
21
use C4::Context;
24
use Koha::Database;
22
use Koha::Database;
25
23
(-)a/C4/InstallAuth.pm (-2 / +1 lines)
Lines 17-24 package C4::InstallAuth; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use Digest::MD5 qw(md5_base64);
21
use Digest::MD5 qw(md5_base64);
23
use CGI::Session;
22
use CGI::Session;
24
use File::Spec;
23
use File::Spec;
(-)a/C4/Installer/UpgradeBackup.pm (-2 / +1 lines)
Lines 17-24 package C4::Installer::UpgradeBackup; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use File::Compare qw(compare);
21
use File::Compare qw(compare);
23
use Cwd qw(cwd);
22
use Cwd qw(cwd);
24
use File::Copy;
23
use File::Copy;
(-)a/C4/Items.pm (-2 / +1 lines)
Lines 18-25 package C4::Items; Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
22
24
use vars qw(@ISA @EXPORT);
23
use vars qw(@ISA @EXPORT);
25
BEGIN {
24
BEGIN {
(-)a/C4/Koha.pm (-2 / +1 lines)
Lines 20-27 package C4::Koha; 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
22
23
use strict;
23
use Modern::Perl;
24
#use warnings; FIXME - Bug 2505
25
24
26
use C4::Context;
25
use C4::Context;
27
use Koha::Caches;
26
use Koha::Caches;
(-)a/C4/Members.pm (-2 / +1 lines)
Lines 20-27 package C4::Members; 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
22
23
use strict;
23
use Modern::Perl;
24
#use warnings; FIXME - Bug 2505
25
use C4::Context;
24
use C4::Context;
26
use String::Random qw( random_string );
25
use String::Random qw( random_string );
27
use Scalar::Util qw( looks_like_number );
26
use Scalar::Util qw( looks_like_number );
(-)a/C4/Members/AttributeTypes.pm (-2 / +1 lines)
Lines 17-24 package C4::Members::AttributeTypes; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
21
use C4::Context;
23
22
24
23
(-)a/C4/Output.pm (-2 / +1 lines)
Lines 25-32 package C4::Output; Link Here
25
# NOTE: I'm pretty sure this module is deprecated in favor of
25
# NOTE: I'm pretty sure this module is deprecated in favor of
26
# templates.
26
# templates.
27
27
28
use strict;
28
use Modern::Perl;
29
#use warnings; FIXME - Bug 2505
30
29
31
use URI::Escape;
30
use URI::Escape;
32
use Scalar::Util qw( looks_like_number );
31
use Scalar::Util qw( looks_like_number );
(-)a/C4/Overdues.pm (-2 / +1 lines)
Lines 19-26 package C4::Overdues; Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
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 strict;
22
use Modern::Perl;
23
#use warnings; FIXME - Bug 2505
24
use Date::Calc qw/Today Date_to_Days/;
23
use Date::Calc qw/Today Date_to_Days/;
25
use Date::Manip qw/UnixDate/;
24
use Date::Manip qw/UnixDate/;
26
use List::MoreUtils qw( uniq );
25
use List::MoreUtils qw( uniq );
(-)a/C4/Print.pm (-2 / +1 lines)
Lines 17-24 package C4::Print; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use C4::Context;
21
use C4::Context;
23
22
24
use vars qw(@ISA @EXPORT);
23
use vars qw(@ISA @EXPORT);
(-)a/C4/Record.pm (-4 / +2 lines)
Lines 18-27 package C4::Record; Link Here
18
#
18
#
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
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
#
22
use Modern::Perl;
23
use strict;
24
#use warnings; FIXME - Bug 2505
25
23
26
# please specify in which methods a given module is used
24
# please specify in which methods a given module is used
27
use MARC::Record; # marc2marcxml, marcxml2marc, changeEncoding
25
use MARC::Record; # marc2marcxml, marcxml2marc, changeEncoding
(-)a/C4/Reports.pm (-2 / +1 lines)
Lines 17-24 package C4::Reports; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
22
24
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
23
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
(-)a/C4/Reserves.pm (-2 / +1 lines)
Lines 21-28 package C4::Reserves; Link Here
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
23
24
use strict;
24
use Modern::Perl;
25
#use warnings; FIXME - Bug 2505
26
25
27
use C4::Accounts;
26
use C4::Accounts;
28
use C4::Biblio;
27
use C4::Biblio;
(-)a/C4/Scheduler.pm (-2 / +1 lines)
Lines 17-24 package C4::Scheduler; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
21
23
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
22
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
24
use C4::Context;
23
use C4::Context;
(-)a/C4/Search.pm (-2 / +1 lines)
Lines 15-22 package C4::Search; Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
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 strict;
18
use Modern::Perl;
19
#use warnings; FIXME - Bug 2505
20
require Exporter;
19
require Exporter;
21
use C4::Context;
20
use C4::Context;
22
use C4::Biblio;    # GetMarcFromKohaField, GetBiblioData
21
use C4::Biblio;    # GetMarcFromKohaField, GetBiblioData
(-)a/C4/Search/PazPar2.pm (-2 / +1 lines)
Lines 17-24 package C4::Search::PazPar2; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
21
23
use LWP::UserAgent;
22
use LWP::UserAgent;
24
use URI;
23
use URI;
(-)a/C4/Suggestions.pm (-3 / +1 lines)
Lines 18-26 package C4::Suggestions; Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
23
#use warnings; FIXME - Bug 2505
24
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
25
23
26
use C4::Context;
24
use C4::Context;
(-)a/C4/TmplTokenType.pm (-2 / +1 lines)
Lines 17-24 package C4::TmplTokenType; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
require Exporter;
21
require Exporter;
23
22
24
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
23
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
(-)a/C4/XISBN.pm (-2 / +1 lines)
Lines 17-22 package C4::XISBN; Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
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 XML::Simple;
21
use XML::Simple;
21
#use LWP::Simple;
22
#use LWP::Simple;
22
use C4::Biblio;
23
use C4::Biblio;
Lines 30-37 use Koha::Biblios; Link Here
30
use Koha::SearchEngine;
31
use Koha::SearchEngine;
31
use Koha::SearchEngine::Search;
32
use Koha::SearchEngine::Search;
32
33
33
use strict;
34
#use warnings; FIXME - Bug 2505
35
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
34
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
36
35
37
BEGIN {
36
BEGIN {
(-)a/misc/translator/TmplTokenizer.pm (-2 / +1 lines)
Lines 1-7 Link Here
1
package TmplTokenizer;
1
package TmplTokenizer;
2
2
3
use strict;
3
use Modern::Perl;
4
#use warnings; FIXME - Bug 2505
5
use C4::TmplTokenType;
4
use C4::TmplTokenType;
6
use C4::TmplToken;
5
use C4::TmplToken;
7
use C4::TTParser;
6
use C4::TTParser;
(-)a/misc/translator/VerboseWarnings.pm (-3 / +1 lines)
Lines 1-7 Link Here
1
package VerboseWarnings;
1
package VerboseWarnings;
2
2
3
use strict;
3
use Modern::Perl;
4
#use warnings; FIXME - Bug 2505
5
require Exporter;
4
require Exporter;
6
5
7
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
6
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
8
- 

Return to bug 24217