Attachment #121313 for bug #17600

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




use C4::Context;
use C4::Stats;
use C4::Members;
use C4::Log qw(logaction);
use Koha::Account;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::Items;

use Mojo::Util qw(deprecated);
use Data::Dumper qw(Dumper);

use vars qw(@ISA @EXPORT);







use Modern::Perl;
use Carp qw( carp croak );
use Text::CSV_XS ();
use C4::Context;
use C4::Suggestions qw( GetSuggestionFromBiblionumber ModSuggestion );
use C4::Biblio qw( GetMarcFromKohaField IsMarcStructureInternal );
use C4::Contract qw( GetContract );
use C4::Log qw( logaction );
use C4::Debug;
use C4::Log qw(logaction);
use C4::Templates qw(gettemplate);
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Acquisition::Baskets;

use C4::Koha qw( GetVariationsOfISBN );

use MARC::Field;
use JSON qw( to_json );
use JSON qw(to_json);

use Time::localtime;

use vars qw(@ISA @EXPORT);






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

use Digest::MD5 qw( md5_base64 );
use JSON qw/encode_json/;
use URI::Escape;
use CGI::Session;

use C4::Context;
use C4::Templates;    # to get the template
use C4::Languages ();
use C4::Search::History;
use Koha;
use Koha::Caches;
use Koha::AuthUtils qw( get_script_name hash_password );
use Koha::Checkouts;
use Koha::DateUtils qw( dt_from_string );
use Koha::Library::Groups;
use Koha::Libraries;
use Koha::Cash::Registers;
use Koha::Desks;
use Koha::Patrons;
use Koha::Patron::Consents;
use List::MoreUtils qw( any );
use Encode ();
use Encode qw( encode is_utf8);
use C4::Auth_with_shibboleth qw( shib_ok get_login_shib login_shib_url logout_shib checkpw_shib );
use Net::CIDR ();
use C4::Log qw( logaction );

# use utf8;
use vars qw($debug $ldap $cas $caslogout);




use strict;
use warnings;

use C4::Debug qw( $debug );
use C4::Context;
use Koha::AuthUtils qw( get_script_name );
use Authen::CAS::Client;
use CGI qw ( -utf8 );
use YAML::XS ();
use YAML::XS;


use vars qw($debug);




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

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

use C4::Debug qw( $debug );
use C4::Context;
use C4::Members::Messaging;
use C4::Auth qw( checkpw_internal );
use Koha::Patrons;
use Koha::AuthUtils qw( hash_password );
use List::MoreUtils qw( any );
use Net::LDAP;
use Net::LDAP::Filter;






use Modern::Perl;

use C4::Debug qw( $debug );
use C4::Context;
use Koha::AuthUtils qw( get_script_name );
use Koha::Database;
use Koha::Patrons;
use C4::Members::Messaging;
use Carp qw( carp );
use List::MoreUtils qw( any );
use List::MoreUtils qw(any);

use vars qw($debug);
our (@ISA, @EXPORT_OK);




use strict;
use warnings;
use C4::Context;
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode );
use C4::Search qw( FindDuplicate new_record_from_zebra );
use C4::AuthoritiesMarc::MARC21;
use C4::AuthoritiesMarc::UNIMARC;
use C4::Charset qw( SetUTF8Flag );
use C4::Log qw( logaction );
use Koha::MetadataRecord::Authority;
use Koha::Authorities;
use Koha::Authority::MergeRequests;

Lines 18-24 package C4::AuthoritiesMarc::MARC21; Link Here

(-)a/C4/AuthoritiesMarc/MARC21.pm (-1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use MARC::Record;
22		21
23	=head1 NAME	22	=head1 NAME
24		23

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

(-)a/C4/BackgroundJob.pm (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use C4::Context;	22	use C4::Context;
23	use C4::Auth qw( get_session );	23	use C4::Auth qw( get_session );
24	use Digest::MD5;	24	use Digest::MD5 ();
25		25
26		26
27		27

Lines 20-29 package C4::Barcodes; Link Here

(-)a/C4/Barcodes.pm (-2 / +2 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use Carp;	23	use Carp qw( carp );
24		24
25	use C4::Context;	25	use C4::Context;
26	use C4::Debug;	26	use C4::Debug qw( $debug );
27	use C4::Barcodes::hbyymmincr;	27	use C4::Barcodes::hbyymmincr;
28	use C4::Barcodes::annual;	28	use C4::Barcodes::annual;
29	use C4::Barcodes::incremental;	29	use C4::Barcodes::incremental;

Lines 21-30 use strict; Link Here

(-)a/C4/Barcodes/EAN13.pm (-3 / +3 lines)
21	use warnings;	21	use warnings;
22		22
23	use C4::Context;	23	use C4::Context;
24	use C4::Debug;	24	use C4::Debug qw( $debug );
25		25
26	use Algorithm::CheckDigits;	26	use Algorithm::CheckDigits qw( CheckDigits );
27	use Carp;	27	use Carp qw( carp );
28		28
29	use vars qw(@ISA);	29	use vars qw(@ISA);
30	use vars qw($debug $cgi_debug); # from C4::Debug, of course	30	use vars qw($debug $cgi_debug); # from C4::Debug, of course




use strict;
use warnings;

use Carp qw( carp );

use C4::Context;
use C4::Debug qw( $debug );

use Koha::DateUtils qw( dt_from_string output_pref );

use vars qw(@ISA);
use vars qw($debug $cgi_debug);	# from C4::Debug, of course





use Modern::Perl;

use Carp qw( carp );

use C4::Context;
use C4::Debug qw( $debug );

use Koha::DateUtils qw( dt_from_string output_pref );


    warn "HBYYMM Barcode created with no branchcode, default is blank" if ( $self->branch() eq '' );

    # take the branch from argument, or existing object, or default
    use Data::Dumper qw( Dumper );
    $debug and print STDERR "(hbyymmincr) new_object: ", Dumper($self), "\n";

    return $self;




    );
}

use Carp qw( carp );
use Try::Tiny qw( catch try );

use Encode ();
use List::MoreUtils qw( uniq );
use MARC::Record ();
use MARC::File::USMARC;
use MARC::File::XML;
use POSIX qw( strftime );
use Module::Load::Conditional qw( can_load );

use C4::Koha;
use C4::Log qw( logaction );    # logaction
use C4::Budgets;
use C4::ClassSource qw( GetClassSort );
use C4::Charset qw(
    nsb_clean
    SetMarcUnicodeFlag
    SetUTF8Flag
    StripNonXmlChars
);
use C4::Linker;
use C4::OAI::Sets ();
use C4::Debug qw( $debug );
use C4::Items ();

use Koha::Caches;
use Koha::Authority::Types;




use strict;
use warnings;

use C4::Biblio ();
use C4::Koha qw( GetNormalizedISBN );
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
use MARC::File::USMARC;
use MARC::Field;
use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
use C4::Languages ();
use Koha::Database;
use Koha::XSLT::Base;


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

(-)a/C4/Budgets.pm (-2 / +2 lines)
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::Patrons;	23	use Koha::Patrons;
24	use Koha::Acquisition::Invoice::Adjustments;	24	use Koha::Acquisition::Invoice::Adjustments;
25	use C4::Debug;	25	use C4::Debug qw( $debug );
26	use C4::Acquisition;	26	use C4::Acquisition ();
27	use vars qw(@ISA @EXPORT);	27	use vars qw(@ISA @EXPORT);
28		28
29	BEGIN {	29	BEGIN {

Lines 19-26 use strict; Link Here

(-)a/C4/Calendar.pm (-2 / +2 lines)
19	use warnings;	19	use warnings;
20	use vars qw(@EXPORT);	20	use vars qw(@EXPORT);
21		21
22	use Carp;	22	use Carp qw( croak );
23	use Date::Calc qw( Date_to_Days Today);	23	use Date::Calc qw( Today );
24		24
25	use C4::Context;	25	use C4::Context;
26	use Koha::Caches;	26	use Koha::Caches;

Lines 20-30 package C4::Charset; Link Here

(-)a/C4/Charset.pm (-5 / +5 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use MARC::Charset qw/marc8_to_utf8/;	23	use MARC::Charset ();
24	use Text::Iconv;	24	use Text::Iconv ();
25	use C4::Debug;	25	use C4::Debug qw( $debug );
26	use Unicode::Normalize;	26	use Unicode::Normalize qw( NFC NFD );
27	use Encode qw( decode encode is_utf8 );	27	use Encode ();
28		28
29	our (@ISA, @EXPORT_OK);	29	our (@ISA, @EXPORT_OK);
30	BEGIN {	30	BEGIN {




use Modern::Perl;
use DateTime;
use POSIX qw( floor );
use YAML::XS ();
use Encode ();

use Koha::DateUtils qw( dt_from_string output_pref );
use C4::Context;
use C4::Stats qw( UpdateStats );
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );
use C4::Biblio qw( UpdateTotalIssues );
use C4::Items qw( CartToShelf ModDateLastSeen ModItemTransfer );
use C4::Members ();
use C4::Accounts ();
use C4::ItemCirculationAlertPreference;
use C4::Message;
use C4::Debug qw( $debug );
use C4::Log qw( logaction ); # logaction
use C4::Overdues ();
use C4::RotatingCollections qw(GetCollectionItemBranches);
use Algorithm::CheckDigits qw( CheckDigits );

use Data::Dumper qw( Dumper );
use Koha::Account;
use Koha::AuthorisedValues;
use Koha::Biblioitems;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Calendar;
use Koha::Checkouts;
use Koha::Illrequests;
use Koha::Items;
use Koha::Patrons;
use Koha::Patron::Debarments qw( DelUniqueDebarment GetDebarments );
use Koha::Database;
use Koha::Libraries;
use Koha::Account::Lines;

use Koha::Checkouts::ReturnClaims;
use Koha::SearchEngine::Indexer;
use Koha::Exceptions::Checkout;
use Carp qw( carp );
use List::MoreUtils qw( any );
use Scalar::Util qw( looks_like_number );
use Date::Calc qw( Date_to_Days );
use Date::Calc qw(
  Today
  Today_and_Now
  Add_Delta_YM
  Add_Delta_DHMS
  Date_to_Days
  Day_of_Week
  Add_Delta_Days
);
our (@ISA, @EXPORT_OK);
BEGIN {


Lines 20-26 package C4::ClassSortRoutine; Link Here

(-)a/C4/ClassSortRoutine.pm (-1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use Class::Factory::Util;
24	use C4::Context;	23	use C4::Context;
25		24
26	our (@ISA, @EXPORT_OK);	25	our (@ISA, @EXPORT_OK);

Lines 20-26 package C4::ClassSplitRoutine; Link Here

(-)a/C4/ClassSplitRoutine.pm (-1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	require Exporter;	22	require Exporter;
23	use Class::Factory::Util;
24		23
25	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);	24	use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
26		25

Lines 19-25 package C4::ClassSplitRoutine::Dewey; Link Here

(-)a/C4/ClassSplitRoutine/Dewey.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Debug;	22	use C4::Debug qw( $debug );
23		23
24	=head1 NAME	24	=head1 NAME
25		25

Lines 19-25 package C4::ClassSplitRoutine::Generic; Link Here

(-)a/C4/ClassSplitRoutine/Generic.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Debug;	22	use C4::Debug qw( $debug );
23		23
24	=head1 NAME	24	=head1 NAME
25		25

Lines 20-26 package C4::ClassSplitRoutine::LCC; Link Here

(-)a/C4/ClassSplitRoutine/LCC.pm (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use Library::CallNumber::LC;	21	use Library::CallNumber::LC;
22		22
23	use C4::Debug;	23	use C4::Debug qw( $debug );
24		24
25	=head1 NAME	25	=head1 NAME
26		26

Lines 19-25 package C4::ClassSplitRoutine::RegEx; Link Here

(-)a/C4/ClassSplitRoutine/RegEx.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Debug;
23		22
24	=head1 NAME	23	=head1 NAME
25		24




    }
};

use Carp qw( carp );
use DateTime::TimeZone;
use Encode ();
use File::Spec ();
use Module::Load::Conditional qw(can_load);
use POSIX ();
use YAML::XS ();
use ZOOM ();

use C4::Debug qw( $debug );
use Koha::Caches;
use Koha::Config::SysPref;
use Koha::Config::SysPrefs;

Lines 17-23 package C4::CourseReserves; Link Here

(-)a/C4/CourseReserves.pm (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use List::MoreUtils qw(any);	20	use List::MoreUtils qw( any );
21		21
22	use C4::Context;	22	use C4::Context;
23	use C4::Circulation qw( GetOpenIssue );	23	use C4::Circulation qw( GetOpenIssue );




                     get_unit_values
                     html_table
    );
    use C4::Creators::Lib qw(
    get_all_image_names
    get_all_layouts
    get_all_profiles
    get_all_templates
    get_barcode_types
    get_batch_summary
    get_card_summary
    get_font_types
    get_label_summary
    get_label_types
    get_output_formats
    get_table_names
    get_text_justification_types
    get_unit_values
    html_table
);
    use C4::Creators::PDF;
}


Lines 6-12 use warnings; Link Here

(-)a/C4/Creators/Batch.pm (-1 lines)
6	use autouse 'Data::Dumper' => qw(Dumper);	6	use autouse 'Data::Dumper' => qw(Dumper);
7		7
8	use C4::Context;	8	use C4::Context;
9	use C4::Debug;
10		9
11		10
12	sub _check_params {	11	sub _check_params {

Lines 6-12 use warnings; Link Here

(-)a/C4/Creators/Layout.pm (-1 lines)
6	use autouse 'Data::Dumper' => qw(Dumper);	6	use autouse 'Data::Dumper' => qw(Dumper);
7		7
8	use C4::Context;	8	use C4::Context;
9	use C4::Debug;
10	use C4::Creators::PDF;	9	use C4::Creators::PDF;
11		10
12		11




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

use Modern::Perl;
use Storable qw( dclone );

use autouse 'Data::Dumper' => qw(Dumper);

use C4::Context;
use C4::Debug;

BEGIN {
    use base qw(Exporter);





use strict;
use warnings;
use PDF::Reuse qw(
    prAdd
    prAltJpeg
    prBookmark
    prCompress
    prDoc
    prDocDir
    prDocForm
    prEnd
    prExtract
    prField
    prFile
    prFont
    prFontSize
    prForm
    prGetLogBuffer
    prGraphState
    prImage
    prInit
    prInitVars
    prJpeg
    prJs
    prLink
    prLog
    prLogDir
    prMbox
    prPage
    prSinglePage
    prStrWidth
    prText
    prTTFont
);
use PDF::Reuse::Barcode;
use File::Temp ();
use List::Util qw( first );


sub _InitVars {

Lines 6-13 use warnings; Link Here

(-)a/C4/Creators/Profile.pm (-2 / +1 lines)
6	use autouse 'Data::Dumper' => qw(Dumper);	6	use autouse 'Data::Dumper' => qw(Dumper);
7		7
8	use C4::Context;	8	use C4::Context;
9	use C4::Debug;	9	use C4::Creators::Lib qw( get_unit_values );
10	use C4::Creators::Lib qw(get_unit_values);
11		10
12		11
13	sub _check_params {	12	sub _check_params {





use strict;
use warnings;
use POSIX qw( ceil );
use autouse 'Data::Dumper' => qw(Dumper);

use C4::Context;
use C4::Debug;
use C4::Creators::Profile;
use C4::Creators::Lib qw( get_unit_values );


sub _check_params {




# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use XML::Simple ();
use LWP::Simple qw( get );
use HTTP::Request::Common;

use C4::Context;
use C4::Debug qw( $debug );

use Modern::Perl;





use warnings;

use Koha;
use JSON qw( from_json );
use Koha::Caches;
use HTTP::Request;
use HTTP::Request::Common ();
use LWP::Authen::Basic;
use LWP::UserAgent ();

BEGIN {
    require Exporter;

Lines 17-27 package C4::External::Syndetics; Link Here

(-)a/C4/External/Syndetics.pm (-5 / +4 lines)
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 XML::Simple;	20	use XML::Simple qw( XMLout );
21	use XML::LibXML;	21	use XML::LibXML ();
22	use LWP::Simple;	22	use LWP::Simple qw( $ua );
23	use LWP::UserAgent;	23	use LWP::UserAgent ();
24	use HTTP::Request::Common;
25		24
26	use strict;	25	use strict;
27	use warnings;	26	use warnings;

Lines 23-29 use warnings; Link Here

(-)a/C4/Form/MessagingPreferences.pm (-1 lines)
23	use CGI qw ( -utf8 );	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;
27		26
28	use constant MAX_DAYS_IN_ADVANCE => 30;	27	use constant MAX_DAYS_IN_ADVANCE => 30;
29		28

Lines 19-29 package C4::Heading; Link Here

(-)a/C4/Heading.pm (-3 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use MARC::Record;
23	use MARC::Field;	22	use MARC::Field;
24	use C4::Context;	23	use C4::Context;
25	use Module::Load;	24	use Module::Load qw( load );
26	use Carp;
27		25
28		26
29	=head1 NAME	27	=head1 NAME

Lines 19-25 package C4::Heading::MARC21; Link Here

(-)a/C4/Heading/MARC21.pm (-1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use MARC::Record;
23	use MARC::Field;	22	use MARC::Field;
24		23
25		24

Lines 20-26 package C4::Heading::UNIMARC; Link Here

(-)a/C4/Heading/UNIMARC.pm (-1 lines)
20	use 5.010;	20	use 5.010;
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use MARC::Record;
24	use MARC::Field;	23	use MARC::Field;
25	use C4::Context;	24	use C4::Context;
26		25




use C4::Context;
use C4::Search;
use C4::Circulation qw( GetTransfers GetBranchItemRule );
use Koha::DateUtils qw( dt_from_string );
use C4::Biblio;
use Koha::DateUtils;
use Koha::Items;
use Koha::Patrons;
use Koha::Libraries;

use List::Util qw( shuffle );
use List::MoreUtils qw( any );
use Data::Dumper;

our (@ISA, @EXPORT_OK);
BEGIN {




use C4::Biblio qw( GetMarcBiblio );
use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved );
use C4::Context;
use C4::Auth ();
use XML::Simple;
use HTML::Entities;
use CGI qw ( -utf8 );
use DateTime;
use C4::Auth ();
use Koha::DateUtils qw( dt_from_string );

use Koha::Biblios;
use Koha::Checkouts;





use C4::Context;
use C4::Koha qw( GetNormalizedISBN );
use C4::Biblio qw(
    AddBiblio
    DelBiblio
    GetMarcFromKohaField
    GetXmlBiblio
    ModBiblio
    TransformMarcToKoha
);
use C4::Items qw( AddItemFromMarc ModItemFromMarc );
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag StripNonXmlChars );
use C4::AuthoritiesMarc;
use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate );
use Koha::Items;
use Koha::Plugins::Handler;
use Koha::Logger;





use strict;
use warnings;
use XML::LibXML ();
use XML::LibXML::XPathContext;
use Digest::MD5 ();
use POSIX qw( strftime );
use Text::CSV_XS ();
use List::MoreUtils qw( indexes );

use C4::Context;
use C4::Debug qw( $debug );


our (@ISA, @EXPORT_OK);




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

use Modern::Perl;
use Digest::MD5 qw(md5_base64);
use CGI::Session;
use File::Spec ();

require Exporter;

use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Templates;
use C4::Koha;

our (@ISA, @EXPORT_OK);
BEGIN {

Lines 19-29 package C4::Installer; Link Here

(-)a/C4/Installer.pm (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Encode qw( encode is_utf8 );	22	use Encode ();
23	use DBIx::RunSQL;	23	use DBIx::RunSQL;
24	use YAML::XS;	24	use YAML::XS ();
25	use C4::Context;	25	use C4::Context;
26	use DBI;	26	use DBI ();
27	use Koha;	27	use Koha;
28		28
29	use vars qw(@ISA @EXPORT);	29	use vars qw(@ISA @EXPORT);

Lines 3-10 package C4::Installer::PerlModules; Link Here

(-)a/C4/Installer/PerlModules.pm (-2 / +1 lines)
3	use warnings;	3	use warnings;
4	use strict;	4	use strict;
5		5
6	use File::Spec;	6	use File::Basename qw( dirname );
7	use File::Basename;
8	use Module::CPANfile;	7	use Module::CPANfile;
9		8
10	sub new {	9	sub new {

Lines 18-28 package C4::Installer::UpgradeBackup; Link Here

(-)a/C4/Installer/UpgradeBackup.pm (-5 / +5 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use File::Compare qw(compare);	21	use File::Compare qw( compare );
22	use Cwd qw(cwd);	22	use Cwd qw( cwd );
23	use File::Copy;	23	use File::Copy ();
24	use File::Find;	24	use File::Find qw( find );
25	use File::Spec;	25	use File::Spec ();
26	use Exporter;	26	use Exporter;
27		27
28	use vars qw(@ISA @EXPORT );	28	use vars qw(@ISA @EXPORT );

Lines 20-26 package C4::ItemCirculationAlertPreference; Link Here

(-)a/C4/ItemCirculationAlertPreference.pm (-1 / +1 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use C4::Context;	22	use C4::Context;
23	use Carp qw(carp croak);	23	use Carp qw( carp croak );
24		24
25	use Koha::ItemTypes;	25	use Koha::ItemTypes;
26	use Koha::Patron::Categories;	26	use Koha::Patron::Categories;




    );
}

use Carp qw( croak );
use Try::Tiny;
use C4::Context;
use C4::Koha;
use C4::Biblio qw( _disambiguate GetMarcStructure TransformMarcToKoha );
use Koha::DateUtils qw( dt_from_string output_pref );
use MARC::Record ();
use C4::ClassSource qw( GetClassSort GetClassSources GetClassSource );
use C4::Log qw( logaction );
use List::MoreUtils qw( any );
use DateTime::Format::MySQL;
use Data::Dumper; # used as part of logging item record changes, not just for
                  # debugging; so please don't remove this

use Koha::AuthorisedValues;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Database;

use Koha::Biblioitems;

Lines 27-34 use Koha::Caches; Link Here

(-)a/C4/Koha.pm (-2 / +2 lines)
27	use Koha::AuthorisedValues;	27	use Koha::AuthorisedValues;
28	use Koha::Libraries;	28	use Koha::Libraries;
29	use Koha::MarcSubfieldStructures;	29	use Koha::MarcSubfieldStructures;
30	use Business::ISBN;	30	use Business::ISBN ();
31	use Business::ISSN;	31	use Business::ISSN ();
32	use autouse 'Data::cselectall_arrayref' => qw(Dumper);	32	use autouse 'Data::cselectall_arrayref' => qw(Dumper);
33	our (@ISA, @EXPORT_OK);	33	our (@ISA, @EXPORT_OK);
34	BEGIN {	34	BEGIN {




use strict;
use warnings;

use Text::Wrap qw( wrap );
use Algorithm::CheckDigits qw( CheckDigits );
use Text::CSV_XS ();
use Data::Dumper;
use Text::Bidi qw( log2vis );

use C4::Context;
use C4::Debug qw( $debug );
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField );
use Koha::ClassSources;
use Koha::ClassSortRules;
use Koha::ClassSplitRules;

Lines 22-29 package C4::Languages; Link Here

(-)a/C4/Languages.pm (-2 / +2 lines)
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24		24
25	use Carp;	25	use Carp qw( carp );
26	use CGI;	26	use CGI ();
27	use List::MoreUtils qw( any );	27	use List::MoreUtils qw( any );
28	use C4::Context;	28	use C4::Context;
29	use Koha::Caches;	29	use Koha::Caches;




use Modern::Perl;

use MIME::Lite;
use Carp qw( carp croak );
use Encode;
use Carp;
use Template;
use Module::Load::Conditional qw( can_load );

use Try::Tiny qw( catch try );

use C4::Members;
use C4::Log qw( logaction );
use C4::SMS;
use C4::Templates;
use C4::Debug qw( $debug );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::SMS::Providers;

use Koha::Email;
use Koha::Notice::Messages;
use Koha::Notice::Templates;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::SMTP::Servers;
use Koha::Subscriptions;

Lines 47-53 to the preferred form. Link Here

(-)a/C4/Linker.pm (-1 lines)
47		47
48	use strict;	48	use strict;
49	use warnings;	49	use warnings;
50	use Carp;
51	use C4::Context;	50	use C4::Context;
52		51
53	use base qw(Class::Accessor);	52	use base qw(Class::Accessor);

Lines 19-25 package C4::Linker::Default; Link Here

(-)a/C4/Linker/Default.pm (-1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use Carp;
23	use MARC::Field;	22	use MARC::Field;
24	use C4::Heading;	23	use C4::Heading;
25		24

Lines 19-25 package C4::Linker::FirstMatch; Link Here

(-)a/C4/Linker/FirstMatch.pm (-1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use Carp;
23	use C4::Heading;	22	use C4::Heading;
24	use C4::Linker::Default; # Use Default for flipping	23	use C4::Linker::Default; # Use Default for flipping
25		24

Lines 19-25 package C4::Linker::LastMatch; Link Here

(-)a/C4/Linker/LastMatch.pm (-1 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use Carp;
23	use C4::Heading;	22	use C4::Heading;
24	use C4::Linker::Default; # Use Default for flipping	23	use C4::Linker::Default; # Use Default for flipping
25		24

Lines 27-33 use warnings; Link Here

(-)a/C4/Log.pm (-1 lines)
27	use JSON qw( to_json );	27	use JSON qw( to_json );
28		28
29	use C4::Context;	29	use C4::Context;
30	use Koha::DateUtils;
31	use Koha::Logger;	30	use Koha::Logger;
32		31
33	use vars qw(@ISA @EXPORT);	32	use vars qw(@ISA @EXPORT);




use DateTime;

use C4::Context;
use Koha::SimpleMARC qw(
    add_field
    copy_and_replace_field
    copy_field
    delete_field
    field_equals
    field_exists
    move_field
    update_field
);
use Koha::MoreUtils;
use Koha::DateUtils qw( dt_from_string );

use vars qw(@ISA @EXPORT);






use Modern::Perl;

use MARC::Record;

use Koha::SearchEngine;
use Koha::SearchEngine::Search;
use Koha::SearchEngine::QueryBuilder;
use Koha::Util::Normalize qw(
    ISBN
    legacy_default
    lower_case
    remove_spaces
    upper_case
);

=head1 NAME






use Modern::Perl;
use C4::Context;
use String::Random qw( random_string );
use Scalar::Util qw( looks_like_number );
use Date::Calc qw( check_date Date_to_Days );
use List::MoreUtils qw( uniq );
use JSON qw(to_json);
use C4::Log; # logaction
use C4::Overdues qw( checkoverdues );
use C4::Reserves;
use C4::Accounts;
use C4::Biblio;
use C4::Letters qw( GetPreparedLetter );
use C4::NewsChannels qw( GetNewsToDisplay ); #get slip news
use DateTime;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::AuthUtils qw(hash_password);
use Koha::Database;
use Koha::Holds;
use Koha::List::Patron;
use Koha::Patrons;
use Koha::Patron::Categories;


Lines 23-31 use strict; Link Here

(-)a/C4/Message.pm (-3 / +3 lines)
23	use warnings;	23	use warnings;
24	use C4::Context;	24	use C4::Context;
25	use C4::Letters qw( GetPreparedLetter EnqueueLetter getletter );	25	use C4::Letters qw( GetPreparedLetter EnqueueLetter getletter );
26	use YAML::XS;	26	use YAML::XS qw( Dump );
27	use Encode;	27	use Encode ();
28	use Carp;	28	use Carp qw( carp );
29		29
30	=head1 NAME	30	=head1 NAME
31		31

Lines 20-26 package C4::NewsChannels; Link Here

(-)a/C4/NewsChannels.pm (-1 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use C4::Context;	22	use C4::Context;
23	use Koha::DateUtils;	23	use Koha::DateUtils qw( dt_from_string output_pref );
24		24
25	use vars qw(@ISA @EXPORT);	25	use vars qw(@ISA @EXPORT);
26		26

Lines 27-33 package C4::Output; Link Here

(-)a/C4/Output.pm (-1 / +1 lines)
27		27
28	use Modern::Perl;	28	use Modern::Perl;
29		29
30	use URI::Escape;	30	use URI::Escape ();
31	use Scalar::Util qw( looks_like_number );	31	use Scalar::Util qw( looks_like_number );
32		32
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );

Lines 39-45 This module allows you to build JSON incrementally. Link Here

(-)a/C4/Output/JSONStream.pm (-1 / +1 lines)
39	use strict;	39	use strict;
40	use warnings;	40	use warnings;
41		41
42	use JSON;	42	use JSON qw( to_json );
43		43
44	sub new {	44	sub new {
45	my $class = shift;	45	my $class = shift;




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

use Modern::Perl;
use Date::Calc qw( Today );
use Date::Manip qw( UnixDate );
use List::MoreUtils qw( uniq );
use POSIX qw( ceil floor );
use Locale::Currency::Format 1.28 qw( currency_format FMT_SYMBOL );
use Carp qw( carp );

use C4::Circulation;
use C4::Context;
use C4::Accounts;
use C4::Debug qw( $debug );
use C4::Debug;
use Koha::DateUtils;
use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::Libraries;




    );
    use C4::Patroncards::Batch;
    use C4::Patroncards::Layout;
    use C4::Patroncards::Lib qw(
    box
    get_borrower_attributes
    get_image
    leading
    put_image
    rm_image
    text_alignment
    unpack_UTF8
);
    use C4::Patroncards::Patroncard;
    use C4::Patroncards::Profile;
    use C4::Patroncards::Template;

Lines 23-29 use warnings; Link Here

(-)a/C4/Patroncards/Lib.pm (-1 lines)
23	use autouse 'Data::Dumper' => qw(Dumper);	23	use autouse 'Data::Dumper' => qw(Dumper);
24		24
25	use C4::Context;	25	use C4::Context;
26	use C4::Debug;
27		26
28	BEGIN {	27	BEGIN {
29	use base qw(Exporter);	28	use base qw(Exporter);




use warnings;

use autouse 'Data::Dumper' => qw(Dumper);
use Text::Wrap qw(wrap);
#use Font::TTFMetrics;

use C4::Creators::Lib qw( get_unit_values );
use C4::Creators::PDF qw(StrWidth);
use C4::Patroncards::Lib qw(
    box
    get_borrower_attributes
    leading
    text_alignment
);

=head1 NAME





use Modern::Perl;

# please specify in which methods a given module is used
use MARC::Record (); # marc2marcxml, marcxml2marc, changeEncoding
use MARC::File::XML; # marc2marcxml, marcxml2marc, changeEncoding
use Biblio::EndnoteStyle;
use Unicode::Normalize qw( NFC ); # _entity_encode
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio );
use C4::Koha; #marc2csv
use C4::XSLT ();
use YAML::XS (); #marcrecords2csv
use Encode ();
use Template;
use Text::CSV::Encoded; #marc2csv
use Koha::Items;
use Koha::SimpleMARC qw( read_field );
use Koha::XSLT::Base;
use Koha::CsvProfiles;
use Koha::AuthorisedValues;
use Carp qw( carp croak );

use vars qw(@ISA @EXPORT);


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

(-)a/C4/Reports.pm (-1 lines)
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22		22
23	use C4::Context;	23	use C4::Context;
24	use C4::Debug;
25		24
26	our (@ISA, @EXPORT_OK);	25	our (@ISA, @EXPORT_OK);
27	BEGIN {	26	BEGIN {





use Modern::Perl;
use CGI qw ( -utf8 );
use Carp qw( carp croak );
use JSON qw( from_json );

use C4::Context;
use C4::Templates qw/themelanguage/;
use C4::Koha qw( GetAuthorisedValues );
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Reports;
use C4::Output;
use C4::Debug qw( $debug );
use C4::Log qw( logaction );
use Koha::Notice::Templates;
use C4::Letters;

use Koha::AuthorisedValues;
use Koha::Patron::Categories;




use Modern::Perl;

use C4::Accounts;
use C4::Biblio;
use C4::Circulation qw( CheckIfIssuedToPatron checkHighHolds GetAgeRestriction GetBranchItemRule );
use C4::Context;
use C4::Items qw( CartToShelf get_hostitemnumbers_of );
use C4::Letters ();
use C4::Log qw( logaction );
use C4::Members::Messaging;
use C4::Members ();
use Koha::Account::Lines;
use Koha::Biblios;
use Koha::Calendar;
use Koha::CirculationRules;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Hold;
use Koha::Holds;
use Koha::ItemTypes;

use Koha::Patrons;
use Koha::Plugins;

use Data::Dumper qw( Dumper );
use List::MoreUtils qw( any );
use List::MoreUtils qw( firstidx any );

=head1 NAME


Lines 62-70 package C4::Ris; Link Here

(-)a/C4/Ris.pm (-3 / +3 lines)
62		62
63	use Modern::Perl;	63	use Modern::Perl;
64		64
65	use List::MoreUtils qw/uniq/;	65	use List::MoreUtils qw( uniq );
66	use YAML::XS;	66	use YAML::XS ();
67	use Encode;	67	use Encode ();
68	use vars qw(@ISA @EXPORT);	68	use vars qw(@ISA @EXPORT);
69		69
70	use Koha::SimpleMARC qw( read_field );	70	use Koha::SimpleMARC qw( read_field );

Lines 29-36 use C4::Circulation; Link Here

(-)a/C4/RotatingCollections.pm (-2 / +1 lines)
29	use C4::Reserves qw(CheckReserves);	29	use C4::Reserves qw(CheckReserves);
30	use Koha::Database;	30	use Koha::Database;
31		31
32	use DBI;	32	use Try::Tiny qw( catch try );
33	use Try::Tiny;
34		33
35	use vars qw(@ISA @EXPORT);	34	use vars qw(@ISA @EXPORT);
36		35

Lines 7-13 package C4::SIP::ILS; Link Here

(-)a/C4/SIP/ILS.pm (-1 / +1 lines)
7	use warnings;	7	use warnings;
8	use strict;	8	use strict;
9	use C4::SIP::Sip qw( siplog );	9	use C4::SIP::Sip qw( siplog );
10	use Data::Dumper;	10	use Data::Dumper qw( Dumper );
11		11
12	use C4::SIP::ILS::Item;	12	use C4::SIP::ILS::Item;
13	use C4::SIP::ILS::Patron;	13	use C4::SIP::ILS::Patron;




use strict;
use warnings;

use C4::SIP::Sip qw( add_field siplog );
use Carp qw( croak );
use Template;

use C4::SIP::ILS::Transaction;
use C4::SIP::Sip qw( add_field siplog );

use C4::Biblio;
use C4::Circulation;
use C4::Context;
use C4::Debug qw( $debug );
use C4::Items;
use C4::Members;
use C4::Reserves;
use Koha::Biblios;
use Koha::Checkouts::ReturnClaims;
use Koha::Checkouts;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Holds;
use Koha::Items;
use Koha::Patrons;




use strict;
use warnings;
use Exporter;
use Carp qw( croak );

use C4::SIP::Sip qw( add_field maybe_add siplog );
use Data::Dumper qw( Dumper );

use C4::SIP::Sip qw( add_field maybe_add siplog );

use C4::Debug qw( $debug );
use C4::Context;
use C4::Koha;
use C4::Members;
use C4::Reserves;
use C4::Auth qw( checkpw );

use Koha::Items;
use Koha::Libraries;

Lines 4-14 Link Here

(-)a/C4/SIP/ILS/Transaction.pm (-2 / +2 lines)
4		4
5	package C4::SIP::ILS::Transaction;	5	package C4::SIP::ILS::Transaction;
6		6
7	use Carp;	7	use Carp qw( croak );
8	use strict;	8	use strict;
9	use warnings;	9	use warnings;
10	use C4::Context;	10	use C4::Context;
11	use Koha::DateUtils;	11	use Koha::DateUtils qw( dt_from_string );
12	use Koha::Checkouts;	12	use Koha::Checkouts;
13		13
14	my %fields = (	14	my %fields = (

Lines 12-18 use strict; Link Here

(-)a/C4/SIP/ILS/Transaction/Checkin.pm (-1 / +1 lines)
12	use C4::SIP::ILS::Transaction;	12	use C4::SIP::ILS::Transaction;
13		13
14	use C4::Circulation;	14	use C4::Circulation;
15	use C4::Debug;	15	use C4::Debug qw( $debug );
16	use C4::Items qw( ModItemTransfer );	16	use C4::Items qw( ModItemTransfer );
17	use C4::Reserves qw( ModReserveAffect );	17	use C4::Reserves qw( ModReserveAffect );
18	use Koha::DateUtils qw( dt_from_string );	18	use Koha::DateUtils qw( dt_from_string );




use warnings;
use strict;

use C4::SIP::Sip qw( siplog );
use Data::Dumper qw( Dumper );
use Data::Dumper;
use CGI qw ( -utf8 );

use C4::SIP::ILS::Transaction;

use C4::Circulation;
use C4::Members;
use C4::Reserves qw(ModReserveFill);
use C4::Debug qw( $debug );
use Koha::DateUtils;

use parent qw(C4::SIP::ILS::Transaction);


Lines 9-15 use strict; Link Here

(-)a/C4/SIP/ILS/Transaction/Renew.pm (-1 lines)
9		9
10	use C4::Circulation;	10	use C4::Circulation;
11	use Koha::Patrons;	11	use Koha::Patrons;
12	use Koha::DateUtils;
13		12
14	use parent qw(C4::SIP::ILS::Transaction);	13	use parent qw(C4::SIP::ILS::Transaction);
15		14

Lines 6-12 package C4::SIP::ILS::Transaction::RenewAll; Link Here

(-)a/C4/SIP/ILS/Transaction/RenewAll.pm (-1 / +1 lines)
6	use strict;	6	use strict;
7	use warnings;	7	use warnings;
8		8
9	use C4::SIP::Sip qw(siplog);	9	use C4::SIP::Sip qw( siplog );
10		10
11	use C4::SIP::ILS::Item;	11	use C4::SIP::ILS::Item;
12		12





use strict;
use warnings;
use FindBin qw( $Bin );
use lib "$Bin";
use Net::Server::PreFork;
use IO::Socket::INET qw( AF_INET6 inet_ntoa sockaddr_in sockaddr_in6 );
use Socket qw(:DEFAULT :crlf);
use Scalar::Util qw(blessed);
require UNIVERSAL::require;

use C4::Context;
use C4::SIP::Sip qw( siplog );
use C4::SIP::Sip::Constants qw(:all);
use C4::SIP::Sip::Configuration;
use C4::SIP::Sip::Checksum qw(checksum verify_cksum);
use C4::SIP::Sip::MsgType qw( handle login_core );
use C4::SIP::Logger qw( set_logger );

use Koha::Caches;





use strict;
use warnings;
use Exporter;
use Encode qw( encode );
use POSIX qw( strftime );
use Socket qw(:crlf);
use IO::Handle qw( print );
use List::Util qw( first );

use C4::SIP::Sip::Constants qw( FID_SCREEN_MSG SIP_DATETIME );
use C4::SIP::Sip::Checksum qw( checksum );
use C4::SIP::Logger ();

use base qw(Exporter);


Lines 10-16 use strict; Link Here

(-)a/C4/SIP/Sip/Configuration.pm (-1 / +1 lines)
10	use warnings;	10	use warnings;
11	use XML::Simple qw(:strict);	11	use XML::Simple qw(:strict);
12		12
13	use C4::SIP::Sip qw(siplog);	13	use C4::SIP::Sip qw( siplog );
14		14
15	my $parser = XML::Simple->new(	15	my $parser = XML::Simple->new(
16	KeyAttr => {	16	KeyAttr => {

Lines 12-20 use Exporter; Link Here

(-)a/C4/SIP/Sip/MsgType.pm (-2 / +2 lines)
12		12
13	use C4::SIP::Sip qw(:all);	13	use C4::SIP::Sip qw(:all);
14	use C4::SIP::Sip::Constants qw(:all);	14	use C4::SIP::Sip::Constants qw(:all);
15	use C4::SIP::Sip::Checksum qw(verify_cksum);	15	use C4::SIP::Sip::Checksum qw( verify_cksum );
16		16
17	use Data::Dumper;	17	use Data::Dumper qw( Dumper );
18	use CGI qw ( -utf8 );	18	use CGI qw ( -utf8 );
19	use C4::Auth qw(&check_api_auth);	19	use C4::Auth qw(&check_api_auth);
20		20




use Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);

use Data::Dumper qw( Dumper );

BEGIN {
	@ISA = qw(Exporter);


# The number of tests is set in run_sip_tests() below, based
# on the size of the array of tests.
use Test::More import => [ qw( BAIL_OUT diag fail pass plan ) ];
use CGI qw ( -utf8 );

use IO::Socket::INET qw( SOCK_STREAM );
use C4::SIP::Sip qw(:all);
use C4::SIP::Sip::Checksum qw( verify_cksum );
use C4::SIP::Sip::Constants qw(:all);

use C4::Auth qw(&check_api_auth);

Lines 54-60 use strict; Link Here

(-)a/C4/SMS.pm (-1 / +1 lines)
54	use warnings;	54	use warnings;
55		55
56	use C4::Context;	56	use C4::Context;
57	use File::Spec;	57	use File::Spec ();
58		58
59		59
60		60

Lines 21-31 package C4::Scrubber; Link Here

(-)a/C4/Scrubber.pm (-2 / +2 lines)
21		21
22	use strict;	22	use strict;
23	use warnings;	23	use warnings;
24	use Carp;	24	use Carp qw( carp croak );
25	use HTML::Scrubber;	25	use HTML::Scrubber;
26		26
27	use C4::Context;	27	use C4::Context;
28	use C4::Debug;	28	use C4::Debug qw( $debug );
29		29
30		30
31		31





use Modern::Perl;
use C4::Context;
use C4::Biblio qw(
    GetAuthorisedValueDesc
    GetFrameworkCode
    GetMarcFromKohaField
    TransformMarcToKoha
);
use C4::Koha qw( getFacets GetVariationsOfISBN GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation );
use Koha::DateUtils;
use Koha::Libraries;
use Lingua::Stem ();
use XML::Simple;
use C4::XSLT;
use C4::Reserves qw( GetReserveStatus );
use C4::Debug;
use C4::Charset qw( SetUTF8Flag );
use Koha::AuthorisedValues;
use Koha::ItemTypes;
use Koha::Libraries;
use Koha::Patrons;
use Koha::RecordProcessor;
use URI::Escape qw( uri_escape_utf8 );
use Business::ISBN ();
use MARC::Record ();
use MARC::Field;
use vars qw($DEBUG);


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

(-)a/C4/Search/History.pm (-4 / +3 lines)
4		4
5	use C4::Auth qw( get_session );	5	use C4::Auth qw( get_session );
6	use C4::Context;	6	use C4::Context;
7	use Koha::DateUtils;	7	use Koha::DateUtils qw( dt_from_string output_pref );
8		8
9	use JSON qw( encode_json decode_json );	9	use JSON qw( decode_json encode_json );
10	use URI::Escape;	10	use URI::Escape qw( uri_escape uri_unescape );
11	use Encode;
12		11
13	sub add {	12	sub add {
14	my ($params) = @_;	13	my ($params) = @_;

Lines 19-28 package C4::Search::PazPar2; Link Here

(-)a/C4/Search/PazPar2.pm (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use LWP::UserAgent;	22	use LWP::UserAgent ();
23	use URI;	23	use URI ();
24	use URI::QueryParam;	24	use URI::QueryParam;
25	use XML::Simple;	25	use XML::Simple qw( XMLin );
26		26
27	=head1 NAME	27	=head1 NAME
28		28




use C4::Context;
use DateTime;
use Date::Calc qw(:all);
use POSIX qw( strftime );
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio );
use C4::Log qw( logaction );    # logaction
use C4::Debug qw( $debug );
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
use C4::Serials::Numberpattern ();
use Koha::AdditionalFieldValues;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Serial;
use Koha::Subscriptions;
use Koha::Subscription::Histories;

Lines 45-51 use CGI qw ( -utf8 ); Link Here

(-)a/C4/Service.pm (-1 / +1 lines)
45	use C4::Auth qw( check_api_auth );	45	use C4::Auth qw( check_api_auth );
46	use C4::Output qw( output_with_http_headers );	46	use C4::Output qw( output_with_http_headers );
47	use C4::Output qw( output_with_http_headers );	47	use C4::Output qw( output_with_http_headers );
48	use JSON;	48	use JSON ();
49		49
50	our $debug;	50	our $debug;
51		51

Lines 18-24 package C4::SocialData; Link Here

(-)a/C4/SocialData.pm (-1 / +1 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use C4::Context;	20	use C4::Context;
21	use Business::ISBN;	21	use Business::ISBN ();
22	use C4::Koha qw( GetNormalizedISBN );	22	use C4::Koha qw( GetNormalizedISBN );
23		23
24	=head1 NAME	24	=head1 NAME

Lines 20-28 package C4::Stats; Link Here

(-)a/C4/Stats.pm (-2 / +2 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	require Exporter;	22	require Exporter;
23	use Carp;	23	use Carp qw( croak );
24	use C4::Context;	24	use C4::Context;
25	use C4::Debug;	25	use C4::Debug qw( $debug );
26		26
27	use Koha::DateUtils qw( dt_from_string );	27	use Koha::DateUtils qw( dt_from_string );
28	use Koha::Statistics;	28	use Koha::Statistics;





use C4::Context;
use C4::Output;
use C4::Debug qw( $debug );
use C4::Letters ();
use C4::Biblio qw( GetMarcFromKohaField );
use Koha::DateUtils qw( dt_from_string );
use Koha::Suggestions;

use List::MoreUtils qw(any);
use base qw(Exporter);

our @EXPORT  = qw(





use strict;
use warnings;
use Carp qw( carp );
use Exporter;

use C4::Context;
use C4::Debug qw( $debug );
use Module::Load::Conditional qw( check_install );
#use Data::Dumper;
use constant TAG_FIELDS => qw(tag_id borrowernumber biblionumber term language date_created);
use constant TAG_SELECT => "SELECT " . join(',', TAG_FIELDS) . "\n FROM   tags_all\n";





use strict;
use warnings;
use Carp qw( carp );
use CGI qw ( -utf8 );
use List::MoreUtils qw( uniq );

# Copyright 2009 Chris Cormack and The Koha Dev Team
#

use base qw(Class::Accessor);
use Template;
use Template::Constants qw( :debug );
use C4::Languages qw( get_bidi getTranslatedLanguages regex_lang_subtags );

use C4::Context;


Lines 20-26 package C4::TmplToken; Link Here

(-)a/C4/TmplToken.pm (-1 / +1 lines)
20		20
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use C4::TmplTokenType qw( DIRECTIVE TAG CDATA TEXT TEXT_PARAMETRIZED );	23	use C4::TmplTokenType ();
24		24
25	=head1 NAME	25	=head1 NAME
26		26

Lines 19-27 package C4::UsageStats; Link Here

(-)a/C4/UsageStats.pm (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use C4::Context;	21	use C4::Context;
22	use POSIX qw(strftime);	22	use POSIX qw( strftime );
23	use LWP::UserAgent;	23	use LWP::UserAgent ();
24	use JSON;	24	use JSON qw( decode_json encode_json );
25		25
26	use Koha::Libraries;	26	use Koha::Libraries;
27		27

Lines 2-9 package C4::Utils::DataTables::Members; Link Here

(-)a/C4/Utils/DataTables/Members.pm (-2 / +2 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use C4::Context;	4	use C4::Context;
5	use C4::Utils::DataTables;	5	use C4::Utils::DataTables qw( dt_build_orderby );
6	use Koha::DateUtils;	6	use Koha::DateUtils qw( dt_from_string output_pref );
7		7
8	sub search {	8	sub search {
9	my ( $params ) = @_;	9	my ( $params ) = @_;

Lines 2-8 package C4::Utils::DataTables::TablesSettings; Link Here

(-)a/C4/Utils/DataTables/TablesSettings.pm (-1 / +1 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use List::Util qw( first );	4	use List::Util qw( first );
5	use YAML::XS;	5	use YAML::XS ();
6	use C4::Context;	6	use C4::Context;
7	use Koha::Database;	7	use Koha::Database;
8	use Koha::Caches;	8	use Koha::Caches;

Lines 2-8 package C4::Utils::DataTables::VirtualShelves; Link Here

(-)a/C4/Utils/DataTables/VirtualShelves.pm (-1 / +1 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use C4::Context;	4	use C4::Context;
5	use C4::Utils::DataTables;	5	use C4::Utils::DataTables qw( dt_build_orderby );
6	use Koha::Virtualshelves;	6	use Koha::Virtualshelves;
7		7
8	sub search {	8	sub search {




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

use Modern::Perl;
use XML::Simple ();
#use LWP::Simple;
use C4::Biblio ();
use C4::Koha qw( GetNormalizedISBN );
use C4::Search qw( new_record_from_zebra );
use C4::External::Syndetics qw( get_syndetics_editions );
use LWP::UserAgent ();
use HTTP::Request::Common;

use Koha::Biblios;
use Koha::SearchEngine;

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

(-)a/C4/XSLT.pm (-2 / +1 lines)
25		25
26	use C4::Context;	26	use C4::Context;
27	use C4::Koha qw( xml_escape );	27	use C4::Koha qw( xml_escape );
28	use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc );	28	use C4::Biblio qw( GetAuthorisedValueDesc GetFrameworkCode GetMarcStructure );
29	use C4::Circulation;	29	use C4::Circulation;
30	use C4::Reserves;	30	use C4::Reserves;
31	use Koha::AuthorisedValues;	31	use Koha::AuthorisedValues;
Lines 33-39 use Koha::ItemTypes; Link Here
33	use Koha::XSLT::Base;	33	use Koha::XSLT::Base;
34	use Koha::Libraries;	34	use Koha::Libraries;
35		35
36	use Encode;
37		36
38	use vars qw(@ISA @EXPORT);	37	use vars qw(@ISA @EXPORT);
39		38





use Modern::Perl;

use Carp ();
use Data::Dumper qw( Dumper );
use Try::Tiny qw( catch try );
use Try::Tiny;

use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal );
use C4::Letters ();
use C4::Log qw( logaction );
use C4::Stats qw( UpdateStats );
use C4::Overdues qw(GetFine);

use Koha::Account::Lines;
use Koha::Account::Offsets;
use Koha::Account::DebitTypes;
use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions;
use Koha::Exceptions::Account;


Lines 18-24 package Koha::Account::CreditType; Link Here

(-)a/Koha/Account/CreditType.pm (-1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use List::Util qw/any/;
22		21
23	use Koha::Database;	22	use Koha::Database;
24	use Koha::Exceptions;	23	use Koha::Exceptions;

Lines 18-24 package Koha::Account::CreditTypes; Link Here

(-)a/Koha/Account/CreditTypes.pm (-1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use List::Util qw/any/;
22		21
23	use Koha::Database;	22	use Koha::Database;
24	use Koha::Account::CreditType;	23	use Koha::Account::CreditType;

Lines 18-24 package Koha::Account::DebitType; Link Here

(-)a/Koha/Account/DebitType.pm (-1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use List::Util qw/any/;
22		21
23	use Koha::Database;	22	use Koha::Database;
24	use Koha::Exceptions;	23	use Koha::Exceptions;

Lines 18-24 package Koha::Account::DebitTypes; Link Here

(-)a/Koha/Account/DebitTypes.pm (-1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use List::Util qw/any/;
22		21
23	use Koha::Database;	22	use Koha::Database;
24	use Koha::Account::DebitType;	23	use Koha::Account::DebitType;





use Modern::Perl;

use Data::Dumper qw( Dumper );
use Data::Dumper;

use C4::Log qw( logaction );
use C4::Overdues qw( UpdateFine );

use Koha::Account::CreditType;
use Koha::Account::DebitType;
use Koha::Account::Offsets;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Account;
use Koha::Items;


Lines 17-23 package Koha::Account::Lines; Link Here

(-)a/Koha/Account/Lines.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Account::Line;	22	use Koha::Account::Line;

Lines 17-23 package Koha::Account::Offset; Link Here

(-)a/Koha/Account/Offset.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Account::Lines;	22	use Koha::Account::Lines;

Lines 17-23 package Koha::Account::Offsets; Link Here

(-)a/Koha/Account/Offsets.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 25-31 use Koha::Acquisition::BasketGroups; Link Here

(-)a/Koha/Acquisition/Basket.pm (-1 / +1 lines)
25	use Koha::Acquisition::Orders;	25	use Koha::Acquisition::Orders;
26	use Koha::Exceptions::Acquisition::Basket;	26	use Koha::Exceptions::Acquisition::Basket;
27	use Koha::Patrons;	27	use Koha::Patrons;
28	use C4::Log qw(logaction);	28	use C4::Log qw( logaction );
29		29
30	use base qw( Koha::Object Koha::Object::Mixin::AdditionalFields );	30	use base qw( Koha::Object Koha::Object::Mixin::AdditionalFields );
31		31

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

(-)a/Koha/Acquisition/Bookseller/Contact.pm (-1 lines)
4		4
5	use base qw( Koha::Object );	5	use base qw( Koha::Object );
6		6
7	use Carp qw( croak );
8		7
9	sub _type {	8	sub _type {
10	return 'Aqcontact';	9	return 'Aqcontact';

Lines 2-8 package Koha::Acquisition::Bookseller::Contacts; Link Here

(-)a/Koha/Acquisition/Bookseller/Contacts.pm (-1 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use Carp;
6		5
7	use base qw( Koha::Objects );	6	use base qw( Koha::Objects );
8		7

Lines 17-23 package Koha::Acquisition::Currencies; Link Here

(-)a/Koha/Acquisition/Currencies.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Acquisition::Currency; Link Here

(-)a/Koha/Acquisition/Currency.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Acquisition::Invoice::Adjustment; Link Here

(-)a/Koha/Acquisition/Invoice/Adjustment.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Acquisition::Invoices;	22	use Koha::Acquisition::Invoices;

Lines 18-24 package Koha::Acquisition::Invoice::Adjustments; Link Here

(-)a/Koha/Acquisition/Invoice/Adjustments.pm (-1 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19	use Koha::Acquisition::Invoice::Adjustment;	19	use Koha::Acquisition::Invoice::Adjustment;
20		20
21	use Carp;
22		21
23	use Koha::Database;	22	use Koha::Database;
24		23

Lines 18-24 package Koha::Acquisition::Order; Link Here

(-)a/Koha/Acquisition/Order.pm (-2 / +1 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp qw( croak );	20	use Carp qw( croak );
21	use Try::Tiny;
22		21
23	use C4::Biblio qw( DelBiblio );	22	use C4::Biblio qw( DelBiblio );
24		23
Lines 27-33 use Koha::Acquisition::Funds; Link Here
27	use Koha::Acquisition::Invoices;	26	use Koha::Acquisition::Invoices;
28	use Koha::Acquisition::Order::Claims;	27	use Koha::Acquisition::Order::Claims;
29	use Koha::Database;	28	use Koha::Database;
30	use Koha::DateUtils qw( dt_from_string output_pref );	29	use Koha::DateUtils qw( dt_from_string );
31	use Koha::Exceptions::Object;	30	use Koha::Exceptions::Object;
32	use Koha::Biblios;	31	use Koha::Biblios;
33	use Koha::Holds;	32	use Koha::Holds;

Lines 17-23 package Koha::Acquisition::Order::Claim; Link Here

(-)a/Koha/Acquisition/Order/Claim.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Acquisition::Order::Claims; Link Here

(-)a/Koha/Acquisition/Order/Claims.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Acquisition::Orders; Link Here

(-)a/Koha/Acquisition/Orders.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 16-22 package Koha::AdvancedEditorMacro; Link Here

(-)a/Koha/AdvancedEditorMacro.pm (-1 lines)
16		16
17	use Modern::Perl;	17	use Modern::Perl;
18		18
19	use Carp;
20		19
21	use Koha::Database;	20	use Koha::Database;
22		21

Lines 16-22 package Koha::AdvancedEditorMacros; Link Here

(-)a/Koha/AdvancedEditorMacros.pm (-1 lines)
16		16
17	use Modern::Perl;	17	use Modern::Perl;
18		18
19	use Carp;
20		19
21	use Koha::Database;	20	use Koha::Database;
22		21





use Modern::Perl;

use Carp;

use Koha::Database;
use Koha::Exceptions;

use UUID ();

use base qw(Koha::Object);


Lines 19-25 package Koha::ApiKeys; Link Here

(-)a/Koha/ApiKeys.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::ApiKey;	24	use Koha::ApiKey;

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

(-)a/Koha/App/Plugin/CGIBinKoha.pm (-1 / +1 lines)
21		21
22	use Mojo::Base 'Mojolicious::Plugin';	22	use Mojo::Base 'Mojolicious::Plugin';
23		23
24	use CGI;	24	use CGI ();
25	use CGI::Compile;	25	use CGI::Compile;
26	use CGI::Emulate::PSGI;	26	use CGI::Emulate::PSGI;
27	use IO::Scalar;	27	use IO::Scalar;





use Modern::Perl;

use Carp;

use Koha::Database;
use Koha::Patrons;
use Koha::Biblios;
use Koha::Items;
use Koha::Libraries;
use Koha::DateUtils qw( dt_from_string );

use base qw(Koha::Object);


Lines 19-25 package Koha::ArticleRequests; Link Here

(-)a/Koha/ArticleRequests.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::AudioAlert; Link Here

(-)a/Koha/AudioAlert.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::AudioAlerts; Link Here

(-)a/Koha/AudioAlerts.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 18-27 package Koha::AuthUtils; Link Here

(-)a/Koha/AuthUtils.pm (-4 / +4 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);	21	use Crypt::Eksblowfish::Bcrypt qw( bcrypt en_base64 );
22	use Encode qw( encode is_utf8 );	22	use Encode ();
23	use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt	23	use Fcntl qw( O_RDONLY ); # O_RDONLY is used in generate_salt
24	use List::MoreUtils qw/ any /;	24	use List::MoreUtils qw( any );
25	use String::Random qw( random_string );	25	use String::Random qw( random_string );
26	use Koha::Exceptions::Password;	26	use Koha::Exceptions::Password;
27		27

Lines 19-25 package Koha::AuthorisedValue; Link Here

(-)a/Koha/AuthorisedValue.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 17-23 package Koha::AuthorisedValueCategories; Link Here

(-)a/Koha/AuthorisedValueCategories.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Exceptions;	22	use Koha::Exceptions;

Lines 17-23 package Koha::AuthorisedValueCategory; Link Here

(-)a/Koha/AuthorisedValueCategory.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Exceptions;	22	use Koha::Exceptions;

Lines 19-25 package Koha::AuthorisedValues; Link Here

(-)a/Koha/AuthorisedValues.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Authorities; Link Here

(-)a/Koha/Authorities.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24





use Modern::Perl;
use MARC::File::XML;
use MARC::Record;

use C4::Context;
use Koha::Authority::MergeRequest;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );

use parent qw(Koha::Objects);


Lines 17-23 package Koha::Authority::Type; Link Here

(-)a/Koha/Authority/Type.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Authority::Types; Link Here

(-)a/Koha/Authority/Types.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 16-25 package Koha::BackgroundJob; Link Here

(-)a/Koha/BackgroundJob.pm (-2 / +2 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use JSON qw( encode_json decode_json );	19	use JSON qw( decode_json encode_json );
20	use Carp qw( croak );	20	use Carp qw( croak );
21	use Net::Stomp;	21	use Net::Stomp;
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	use C4::Context;	24	use C4::Context;
25	use Koha::DateUtils qw( dt_from_string );	25	use Koha::DateUtils qw( dt_from_string );

Lines 16-24 package Koha::BackgroundJob::BatchUpdateAuthority; Link Here

(-)a/Koha/BackgroundJob/BatchUpdateAuthority.pm (-2 / +2 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use JSON qw( encode_json decode_json );	19	use JSON qw( decode_json encode_json );
20		20
21	use C4::MarcModificationTemplates;	21	use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate );
22	use C4::AuthoritiesMarc;	22	use C4::AuthoritiesMarc;
23	use Koha::BackgroundJobs;	23	use Koha::BackgroundJobs;
24	use Koha::DateUtils qw( dt_from_string );	24	use Koha::DateUtils qw( dt_from_string );




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

use Modern::Perl;
use JSON qw( decode_json encode_json );

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

use base 'Koha::BackgroundJob';






use Modern::Perl;

use List::MoreUtils qw( any );
use URI ();
use URI::Escape qw( uri_escape_utf8 );
use URI::Escape;

use C4::Koha qw( GetNormalizedISBN );
use C4::Biblio qw();

use Koha::Database;
use Koha::DateUtils qw( dt_from_string );

Lines 17-23 package Koha::Biblio::Metadata; Link Here

(-)a/Koha/Biblio/Metadata.pm (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use MARC::Record;	20	use MARC::Record ();
21	use MARC::File::XML;	21	use MARC::File::XML;
22		22
23	use Koha::Database;	23	use Koha::Database;

Lines 17-23 package Koha::Biblio::Metadatas; Link Here

(-)a/Koha/Biblio/Metadatas.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::BiblioFramework; Link Here

(-)a/Koha/BiblioFramework.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::BiblioFrameworks; Link Here

(-)a/Koha/BiblioFrameworks.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22





=cut

use C4::Biblio ();
use Koha::MetadataIterator;
use Koha::Database;
use Modern::Perl;

use Data::Dumper; # TODO remove

use base qw(Koha::MetadataRecord);


Lines 43-52 Returns biblionumber and marc in list context. Link Here

(-)a/Koha/BiblioUtils/Iterator.pm (-3 / +3 lines)
43		43
44	=cut	44	=cut
45		45
46	use C4::Biblio qw( GetXmlBiblio EmbedItemsInMarcBiblio );	46	use C4::Biblio ();
47		47
48	use Carp;	48	use Carp qw( confess );
49	use MARC::Record;	49	use MARC::Record ();
50	use MARC::File::XML;	50	use MARC::File::XML;
51	use Modern::Perl;	51	use Modern::Perl;
52		52

Lines 17-23 package Koha::Biblioitem; Link Here

(-)a/Koha/Biblioitem.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Biblioitems; Link Here

(-)a/Koha/Biblioitems.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::Biblios; Link Here

(-)a/Koha/Biblios.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 40-49 The first, traditional OO interface provides the following functions: Link Here

(-)a/Koha/Cache.pm (-4 / +4 lines)
40		40
41	use strict;	41	use strict;
42	use warnings;	42	use warnings;
43	use Carp;	43	use Carp qw( carp croak );
44	use Module::Load::Conditional qw(can_load);	44	use Module::Load::Conditional qw( can_load );
45	use Sereal::Encoder;	45	use Sereal::Encoder ();
46	use Sereal::Decoder;	46	use Sereal::Decoder ();
47		47
48	use C4::Context;	48	use C4::Context;
49	use Koha::Cache::Object;	49	use Koha::Cache::Object;

Lines 52-58 scalars and hashes, with arrays a potential future addition. Link Here

(-)a/Koha/Cache/Object.pm (-1 / +1 lines)
52		52
53	use strict;	53	use strict;
54	use warnings;	54	use warnings;
55	use Carp;	55	use Carp qw( carp );
56		56
57	use base qw(Class::Accessor);	57	use base qw(Class::Accessor);
58		58

Lines 2-8 package Koha::Calendar; Link Here

(-)a/Koha/Calendar.pm (-1 / +1 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use Carp;	5	use Carp qw( croak );
6	use DateTime;	6	use DateTime;
7	use DateTime::Duration;	7	use DateTime::Duration;
8	use C4::Context;	8	use C4::Context;

Lines 17-23 package Koha::Cash::Register; Link Here

(-)a/Koha/Cash/Register.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Account::Lines;	21	use Koha::Account::Lines;
23	use Koha::Account::Offsets;	22	use Koha::Account::Offsets;

Lines 17-23 package Koha::Cash::Register::Action; Link Here

(-)a/Koha/Cash/Register/Action.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Cash::Register::Actions; Link Here

(-)a/Koha/Cash/Register/Actions.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Cash::Register::Cashup; Link Here

(-)a/Koha/Cash/Register/Cashup.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Cash::Register::Cashups; Link Here

(-)a/Koha/Cash/Register/Cashups.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Cash::Register::Cashup;	22	use Koha::Cash::Register::Cashup;

Lines 17-23 package Koha::Cash::Registers; Link Here

(-)a/Koha/Cash/Registers.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::Charges::Fees; Link Here

(-)a/Koha/Charges/Fees.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp qw( carp confess );	22	use Carp ();
23		23
24	use Koha::Calendar;	24	use Koha::Calendar;
25	use Koha::DateUtils qw( dt_from_string );	25	use Koha::DateUtils qw( dt_from_string );





use Modern::Perl;

use Carp;
use DateTime;
use Try::Tiny qw( catch try );

use C4::Circulation qw( LostItem MarkIssueReturned );
use Koha::Checkouts::ReturnClaims;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Items;
use Koha::Libraries;






use Modern::Perl;

use Carp;

use C4::Context;
use C4::Circulation qw( AddReturn );
use Koha::Checkout;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );

use base qw(Koha::Objects);


Lines 19-25 package Koha::Checkouts::ReturnClaims; Link Here

(-)a/Koha/Checkouts/ReturnClaims.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 18-24 package Koha::CirculationRules; Link Here

(-)a/Koha/CirculationRules.pm (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Carp qw(croak);	21	use Carp qw( croak );
22		22
23	use Koha::Exceptions;	23	use Koha::Exceptions;
24	use Koha::CirculationRule;	24	use Koha::CirculationRule;

Lines 17-23 package Koha::Cities; Link Here

(-)a/Koha/Cities.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::City; Link Here

(-)a/Koha/City.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::ClassSortRule; Link Here

(-)a/Koha/ClassSortRule.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::ClassSortRules; Link Here

(-)a/Koha/ClassSortRules.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::ClassSource; Link Here

(-)a/Koha/ClassSource.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::ClassSources; Link Here

(-)a/Koha/ClassSources.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::ClassSplitRule; Link Here

(-)a/Koha/ClassSplitRule.pm (-1 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use JSON qw(to_json from_json);	20	use JSON qw( from_json to_json );
21		21
22	use Koha::Database;	22	use Koha::Database;
23		23

Lines 19-25 package Koha::Club; Link Here

(-)a/Koha/Club.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24





use Modern::Perl;

use Carp;

use Koha::Database;
use Koha::Clubs;
use Koha::Patrons;
use Koha::DateUtils qw( dt_from_string );
use DateTime;

use base qw(Koha::Object);

Lines 19-25 package Koha::Club::Enrollment::Field; Link Here

(-)a/Koha/Club/Enrollment/Field.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Enrollment::Fields; Link Here

(-)a/Koha/Club/Enrollment/Fields.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Enrollments; Link Here

(-)a/Koha/Club/Enrollments.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Field; Link Here

(-)a/Koha/Club/Field.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Fields; Link Here

(-)a/Koha/Club/Fields.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Hold; Link Here

(-)a/Koha/Club/Hold.pm (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24
Lines 32-38 use Koha::Club::Hold::PatronHold; Link Here
32	use Koha::Clubs;	31	use Koha::Clubs;
33	use Koha::Patrons;	32	use Koha::Patrons;
34		33
35	use List::Util 'shuffle';	34	use List::Util qw( shuffle );
36		35
37	=head1 NAME	36	=head1 NAME
38		37

Lines 19-25 package Koha::Club::Hold::PatronHold; Link Here

(-)a/Koha/Club/Hold/PatronHold.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Hold::PatronHolds; Link Here

(-)a/Koha/Club/Hold/PatronHolds.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Holds; Link Here

(-)a/Koha/Club/Holds.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Template; Link Here

(-)a/Koha/Club/Template.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Template::EnrollmentField; Link Here

(-)a/Koha/Club/Template/EnrollmentField.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Template::EnrollmentFields; Link Here

(-)a/Koha/Club/Template/EnrollmentFields.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Template::Field; Link Here

(-)a/Koha/Club/Template/Field.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Template::Fields; Link Here

(-)a/Koha/Club/Template/Fields.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Club::Templates; Link Here

(-)a/Koha/Club/Templates.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Clubs; Link Here

(-)a/Koha/Clubs.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::DateUtils qw( dt_from_string );	24	use Koha::DateUtils qw( dt_from_string );

Lines 19-29 package Koha::Config::SysPref; Link Here

(-)a/Koha/Config/SysPref.pm (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24
26	use C4::Log;	25	use C4::Log ();
27		26
28	use base qw(Koha::Object);	27	use base qw(Koha::Object);
29		28

Lines 19-25 package Koha::Config::SysPrefs; Link Here

(-)a/Koha/Config/SysPrefs.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 17-23 package Koha::Course; Link Here

(-)a/Koha/Course.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Course::Instructor; Link Here

(-)a/Koha/Course/Instructor.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Course::Instructors; Link Here

(-)a/Koha/Course/Instructors.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Course::Instructor;	21	use Koha::Course::Instructor;
23		22

Lines 17-23 package Koha::Course::Item; Link Here

(-)a/Koha/Course/Item.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Course::Items; Link Here

(-)a/Koha/Course/Items.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Course::Item;	21	use Koha::Course::Item;
23		22

Lines 17-23 package Koha::Course::Reserve; Link Here

(-)a/Koha/Course/Reserve.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Course::Reserves; Link Here

(-)a/Koha/Course/Reserves.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Course::Reserve;	21	use Koha::Course::Reserve;
23		22

Lines 17-23 package Koha::Courses; Link Here

(-)a/Koha/Courses.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Course;	21	use Koha::Course;
23		22

Lines 17-24 package Koha::CoverImage; Link Here

(-)a/Koha/CoverImage.pm (-2 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;	20	use GD ();
21	use GD;
22		21
23	use Koha::Database;	22	use Koha::Database;
24		23

Lines 17-23 package Koha::CoverImages; Link Here

(-)a/Koha/CoverImages.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::CsvProfile; Link Here

(-)a/Koha/CsvProfile.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::CsvProfiles; Link Here

(-)a/Koha/CsvProfiles.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 33-39 Koha::Database Link Here

(-)a/Koha/Database.pm (-1 lines)
33	=cut	33	=cut
34		34
35	use Modern::Perl;	35	use Modern::Perl;
36	use Carp;
37	use C4::Context;	36	use C4::Context;
38	use base qw(Class::Accessor);	37	use base qw(Class::Accessor);
39		38

Lines 18-24 package Koha::Desk; Link Here

(-)a/Koha/Desk.pm (-1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use Carp;
22		21
23	use Koha::Database;	22	use Koha::Database;
24		23

Lines 19-25 package Koha::Desks; Link Here

(-)a/Koha/Desks.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24




use warnings;
use base qw(Exporter);
use utf8;
use Carp qw( carp );
use English qw{ -no_match_vars };
use Business::ISBN ();
use DateTime;
use C4::Context;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use C4::Acquisition qw( NewBasket ModOrder);
use C4::Suggestions qw( ModSuggestion );
use C4::Biblio qw(
    AddBiblio
    GetFrameworkCode
    GetMarcFromKohaField
    TransformKohaToMarc
);
use Koha::Edifact::Order;
use Koha::Edifact;
use C4::Log qw( logaction );
use Log::Log4perl;
use Text::Unidecode qw( unidecode );
use Koha::Plugins::Handler;
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Booksellers;

Lines 19-27 package Koha::Edifact; Link Here

(-)a/Koha/Edifact.pm (-3 / +2 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use File::Slurp;	22	use File::Slurp qw( read_file );
23	use Carp;	23	use Carp qw( carp croak );
24	use Encode qw( from_to );
25	use Koha::Edifact::Segment;	24	use Koha::Edifact::Segment;
26	use Koha::Edifact::Message;	25	use Koha::Edifact::Message;
27		26

Lines 21-29 use strict; Link Here

(-)a/Koha/Edifact/Line.pm (-2 / +2 lines)
21	use warnings;	21	use warnings;
22	use utf8;	22	use utf8;
23		23
24	use MARC::Record;	24	use MARC::Record ();
25	use MARC::Field;	25	use MARC::Field;
26	use Carp;	26	use Carp qw( carp );
27		27
28	sub new {	28	sub new {
29	my ( $class, $data_array_ref ) = @_;	29	my ( $class, $data_array_ref ) = @_;




# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Carp qw( carp );
use DateTime;
use Readonly qw( Readonly );
use Business::ISBN;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use C4::Budgets qw( GetBudget );

use Koha::Acquisition::Orders;




use warnings;
use utf8;
use DateTime;
use Carp qw( carp );
use English qw{ -no_match_vars };
use Net::FTP;
use Net::SFTP::Foreign;
use File::Slurp qw( read_file );
use File::Copy qw( copy move );
use File::Basename qw( fileparse );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Encode qw( from_to );

sub new {

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

(-)a/Koha/Email.pm (-1 / +1 lines)
22		22
23	use Email::Valid;	23	use Email::Valid;
24	use Email::MessageID;	24	use Email::MessageID;
25	use List::Util qw(pairs);	25	use List::Util qw( pairs );
26		26
27	use Koha::Exceptions;	27	use Koha::Exceptions;
28		28

Lines 5-15 use MARC::File::XML; Link Here

(-)a/Koha/Exporter/Record.pm (-2 / +2 lines)
5	use MARC::File::USMARC;	5	use MARC::File::USMARC;
6		6
7	use C4::AuthoritiesMarc;	7	use C4::AuthoritiesMarc;
8	use C4::Biblio qw( RemoveAllNsb GetMarcBiblio EmbedItemsInMarcBiblio GetMarcFromKohaField );	8	use C4::Biblio qw( GetMarcFromKohaField );
9	use C4::Record;	9	use C4::Record;
10	use Koha::CsvProfiles;	10	use Koha::CsvProfiles;
11	use Koha::Logger;	11	use Koha::Logger;
12	use List::Util qw(all any);	12	use List::Util qw( all any );
13		13
14	sub _get_record_for_export {	14	sub _get_record_for_export {
15	my ($params) = @_;	15	my ($params) = @_;




package Koha::ExternalContent;

use Modern::Perl;
use Carp qw( croak );
use base qw(Class::Accessor);

use Koha;
use Koha::Logger;
use Koha::Patrons;
use C4::Auth ();

__PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger));


Lines 18-24 Link Here

(-)a/Koha/ExternalContent/OverDrive.pm (-1 / +1 lines)
18	package Koha::ExternalContent::OverDrive;	18	package Koha::ExternalContent::OverDrive;
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Carp;	21	use Carp qw( croak );
22		22
23	use base qw(Koha::ExternalContent);	23	use base qw(Koha::ExternalContent);
24	use WebService::ILS::OverDrive::Patron;	24	use WebService::ILS::OverDrive::Patron;

Lines 18-24 Link Here

(-)a/Koha/ExternalContent/RecordedBooks.pm (-1 / +1 lines)
18	package Koha::ExternalContent::RecordedBooks;	18	package Koha::ExternalContent::RecordedBooks;
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Carp;	21	use Carp qw( croak );
22		22
23	use base qw(Koha::ExternalContent);	23	use base qw(Koha::ExternalContent);
24	use WebService::ILS::RecordedBooks::PartnerPatron;	24	use WebService::ILS::RecordedBooks::PartnerPatron;

Lines 52-58 Filter to embed items information into MARC::Record objects. Link Here

(-)a/Koha/Filter/MARC/EmbedItems.pm (-1 / +1 lines)
52		52
53	use Modern::Perl;	53	use Modern::Perl;
54		54
55	use C4::Biblio;	55	use C4::Biblio ();
56		56
57	use base qw(Koha::RecordProcessor::Base);	57	use base qw(Koha::RecordProcessor::Base);
58	our $NAME = 'EmbedItems';	58	our $NAME = 'EmbedItems';

Lines 32-38 Filter to embed items not on loan count information into MARC records. Link Here

(-)a/Koha/Filter/MARC/EmbedItemsAvailability.pm (-1 / +1 lines)
32		32
33	use Modern::Perl;	33	use Modern::Perl;
34		34
35	use C4::Biblio qw/GetMarcFromKohaField/;	35	use C4::Biblio qw( GetMarcFromKohaField );
36	use Koha::Items;	36	use Koha::Items;
37		37
38	use base qw(Koha::RecordProcessor::Base);	38	use base qw(Koha::RecordProcessor::Base);

Lines 32-40 Filter to embed see from headings into MARC records. Link Here

(-)a/Koha/Filter/MARC/EmbedSeeFromHeadings.pm (-2 / +1 lines)
32		32
33	use strict;	33	use strict;
34	use warnings;	34	use warnings;
35	use Carp;
36	use Koha::MetadataRecord::Authority;	35	use Koha::MetadataRecord::Authority;
37	use C4::Biblio qw/GetMarcFromKohaField/;	36	use C4::Biblio qw( GetMarcFromKohaField );
38		37
39	use base qw(Koha::RecordProcessor::Base);	38	use base qw(Koha::RecordProcessor::Base);
40	our $NAME = 'EmbedSeeFromHeadings';	39	our $NAME = 'EmbedSeeFromHeadings';

Lines 33-39 RecordProcessor. Link Here

(-)a/Koha/Filter/MARC/Null.pm (-1 lines)
33		33
34	use strict;	34	use strict;
35	use warnings;	35	use warnings;
36	use Carp;
37		36
38	use base qw(Koha::RecordProcessor::Base);	37	use base qw(Koha::RecordProcessor::Base);
39	our $NAME = 'Null';	38	our $NAME = 'Null';

Lines 39-45 menu. Link Here

(-)a/Koha/Filter/MARC/ViewPolicy.pm (-1 lines)
39	=cut	39	=cut
40		40
41	use Modern::Perl;	41	use Modern::Perl;
42	use Carp;
43	use C4::Biblio qw( GetMarcStructure );	42	use C4::Biblio qw( GetMarcStructure );
44		43
45	use base qw(Koha::RecordProcessor::Base);	44	use base qw(Koha::RecordProcessor::Base);





use Modern::Perl;

use Data::Dumper qw( Dumper );
use List::MoreUtils qw( any );
use List::MoreUtils qw(any);

use C4::Context qw(preference);
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
use C4::Log qw( logaction );

use Koha::AuthorisedValues;
use Koha::DateUtils qw( dt_from_string );
use Koha::Patrons;
use Koha::Biblios;
use Koha::Items;

Lines 19-25 package Koha::Holds; Link Here

(-)a/Koha/Holds.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24





use Modern::Perl;

use C4::Languages ();
use C4::Languages qw( getlanguage );
use C4::Context;

use Encode ();
use List::Util qw( first );
use Locale::Messages qw(:locale_h LC_MESSAGES);
use POSIX ();
use Koha::Cache::Memory::Lite;

use parent 'Exporter';





use Modern::Perl;

use Clone qw( clone );
use Try::Tiny qw( catch try );
use Encode qw( encode );
use Try::Tiny;
use DateTime;

use C4::Letters ();
use C4::Members ();
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Ill;
use Koha::Illcomments;
use Koha::Illrequestattributes;

Lines 19-25 package Koha::Illrequest::Availability; Link Here

(-)a/Koha/Illrequest/Availability.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use JSON;	22	use JSON ();
23	use MIME::Base64 qw( encode_base64 );	23	use MIME::Base64 qw( encode_base64 );
24	use URI::Escape qw( uri_escape );	24	use URI::Escape qw( uri_escape );
25	use Encode qw( encode );	25	use Encode qw( encode );

Lines 19-25 package Koha::Illrequest::Config; Link Here

(-)a/Koha/Illrequest/Config.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use File::Basename qw/basename/;	22	use File::Basename qw( basename );
23		23
24	use C4::Context;	24	use C4::Context;
25		25

Lines 18-25 package Koha::Illrequest::Logger; Link Here

(-)a/Koha/Illrequest/Logger.pm (-2 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use JSON qw( to_json from_json );	21	use JSON qw( from_json to_json );
22	use Time::Local;
23		22
24	use C4::Koha qw( GetAuthorisedValues );	23	use C4::Koha qw( GetAuthorisedValues );
25	use C4::Context;	24	use C4::Context;

Lines 20-26 use strict; Link Here

(-)a/Koha/Indexer/Utils.pm (-1 / +1 lines)
20	use warnings;	20	use warnings;
21	use 5.010;	21	use 5.010;
22		22
23	use XML::LibXML;	23	use XML::LibXML ();
24		24
25	=head1 Koha::Indexer::Utils	25	=head1 Koha::Indexer::Utils
26		26





use Modern::Perl;

use List::MoreUtils qw( any );
use Data::Dumper qw( Dumper );
use Data::Dumper;
use Try::Tiny;

use Koha::Database;
use Koha::DateUtils qw( dt_from_string );

use C4::Context;
use C4::Circulation qw( GetBranchItemRule );
use C4::Reserves ();
use C4::ClassSource qw( GetClassSort );
use C4::Log qw( logaction );






use Modern::Perl;

use Try::Tiny qw( try );
use Try::Tiny;

use C4::Items qw( CartToShelf ModDateLastSeen );

use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Item::Transfer;

use base qw(Koha::Object);

Lines 18-24 package Koha::Item::Transfer::Limit; Link Here

(-)a/Koha/Item/Transfer/Limit.pm (-1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use Carp;
22		21
23	use Koha::Database;	22	use Koha::Database;
24		23

Lines 17-23 package Koha::Item::Transfers; Link Here

(-)a/Koha/Item/Transfers.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-26 package Koha::ItemType; Link Here

(-)a/Koha/ItemType.pm (-2 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use C4::Koha qw( getitemtypeimagelocation );	21	use C4::Koha qw( getitemtypeimagelocation );
23	use C4::Languages qw( getlanguage );	22	use C4::Languages ();
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::CirculationRules;	24	use Koha::CirculationRules;
26	use Koha::Localizations;	25	use Koha::Localizations;

Lines 17-25 package Koha::ItemTypes; Link Here

(-)a/Koha/ItemTypes.pm (-2 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use C4::Languages qw( getlanguage );	21	use C4::Languages ();
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::ItemType;	24	use Koha::ItemType;

Lines 19-25 package Koha::Items; Link Here

(-)a/Koha/Items.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 17-23 package Koha::KeyboardShortcut; Link Here

(-)a/Koha/KeyboardShortcut.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::KeyboardShortcuts; Link Here

(-)a/Koha/KeyboardShortcuts.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::Libraries; Link Here

(-)a/Koha/Libraries.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use C4::Context;	23	use C4::Context;
25		24

Lines 19-25 package Koha::Library; Link Here

(-)a/Koha/Library.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use C4::Context;	23	use C4::Context;
25		24

Lines 19-28 package Koha::Library::Group; Link Here

(-)a/Koha/Library/Group.pm (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::DateUtils qw(dt_from_string);	24	use Koha::DateUtils qw( dt_from_string );
26	use Koha::Libraries;	25	use Koha::Libraries;
27		26
28	use base qw(Koha::Object);	27	use base qw(Koha::Object);

Lines 19-25 package Koha::Library::Groups; Link Here

(-)a/Koha/Library/Groups.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 17-23 package Koha::Library::OverDriveInfo; Link Here

(-)a/Koha/Library/OverDriveInfo.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Library::OverDriveInfos; Link Here

(-)a/Koha/Library/OverDriveInfos.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 32-38 Koha::Linktracker Link Here

(-)a/Koha/Linktracker.pm (-1 lines)
32	=cut	32	=cut
33		33
34	use Modern::Perl;	34	use Modern::Perl;
35	use Carp;
36	use C4::Context;	35	use C4::Context;
37	use base qw(Class::Accessor);	36	use base qw(Class::Accessor);
38		37

Lines 27-33 Koha::List::Patron - Management of lists of patrons Link Here

(-)a/Koha/List/Patron.pm (-1 / +1 lines)
27		27
28	use Modern::Perl;	28	use Modern::Perl;
29		29
30	use Carp;	30	use Carp qw( carp croak );
31		31
32	use Koha::Database;	32	use Koha::Database;
33		33

Lines 37-43 Koha::Logger Link Here

(-)a/Koha/Logger.pm (-1 lines)
37	use Modern::Perl;	37	use Modern::Perl;
38		38
39	use Log::Log4perl;	39	use Log::Log4perl;
40	use Carp;
41		40
42	use C4::Context;	41	use C4::Context;
43		42

Lines 17-23 package Koha::MarcSubfieldStructure; Link Here

(-)a/Koha/MarcSubfieldStructure.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::MarcSubfieldStructures; Link Here

(-)a/Koha/MarcSubfieldStructures.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::MessageAttribute; Link Here

(-)a/Koha/MessageAttribute.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use base qw(Koha::Object);	23	use base qw(Koha::Object);
25		24

Lines 19-25 package Koha::MessageAttributes; Link Here

(-)a/Koha/MessageAttributes.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use base qw(Koha::Objects);	23	use base qw(Koha::Objects);
25	use Koha::MessageAttribute;	24	use Koha::MessageAttribute;

Lines 29-37 use Koha::Caches; Link Here

(-)a/Koha/MetaSearcher.pm (-2 / +2 lines)
29	use Koha::Database;	29	use Koha::Database;
30	use Koha::MetadataRecord;	30	use Koha::MetadataRecord;
31	use MARC::File::XML;	31	use MARC::File::XML;
32	use Storable qw( store_fd fd_retrieve );	32	use Storable qw( fd_retrieve store_fd );
33	use Time::HiRes qw( clock_gettime CLOCK_MONOTONIC );	33	use Time::HiRes qw( clock_gettime CLOCK_MONOTONIC );
34	use UUID;	34	use UUID ();
35	use ZOOM;	35	use ZOOM;
36		36
37	use sort 'stable';	37	use sort 'stable';

Lines 34-41 and authority) records in Koha. Link Here

(-)a/Koha/MetadataRecord.pm (-2 / +2 lines)
34		34
35	use Modern::Perl;	35	use Modern::Perl;
36		36
37	use Carp;	37	use Carp qw( carp );
38	use C4::Biblio qw( TransformMarcToKoha TransformMarcToKohaOneField );	38	use C4::Biblio ();
39	use Koha::Util::MARC;	39	use Koha::Util::MARC;
40		40
41	use base qw(Class::Accessor);	41	use base qw(Class::Accessor);

Lines 33-41 Authority data. Link Here

(-)a/Koha/MetadataRecord/Authority.pm (-2 / +1 lines)
33		33
34	use strict;	34	use strict;
35	use warnings;	35	use warnings;
36	use Carp;
37	use C4::Context;	36	use C4::Context;
38	use MARC::Record;	37	use MARC::Record ();
39	use MARC::File::XML;	38	use MARC::File::XML;
40	use C4::Charset qw( StripNonXmlChars );	39	use C4::Charset qw( StripNonXmlChars );
41	use Koha::Util::MARC;	40	use Koha::Util::MARC;

Lines 23-30 use parent qw(Plack::Middleware); Link Here

(-)a/Koha/Middleware/RealIP.pm (-2 / +1 lines)
23		23
24	use C4::Context;	24	use C4::Context;
25		25
26	use Net::Netmask;	26	use Net::Netmask ();
27	use Plack::Util::Accessor qw( trusted_proxy );
28		27
29	=head1 METHODS	28	=head1 METHODS
30		29

Lines 19-25 package Koha::News; Link Here

(-)a/Koha/News.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::NewsItem; Link Here

(-)a/Koha/NewsItem.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::Patrons;	24	use Koha::Patrons;

Lines 17-23 package Koha::Notice::Message; Link Here

(-)a/Koha/Notice/Message.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Notice::Messages; Link Here

(-)a/Koha/Notice/Messages.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Notice::Template; Link Here

(-)a/Koha/Notice/Template.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Notice::Templates; Link Here

(-)a/Koha/Notice/Templates.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::Number::Price; Link Here

(-)a/Koha/Number/Price.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Number::Format;	22	use Number::Format ();
23	use C4::Context;	23	use C4::Context;
24	use Koha::Acquisition::Currencies;	24	use Koha::Acquisition::Currencies;
25		25

Lines 20-27 package Koha::OAI::Server::GetRecord; Link Here

(-)a/Koha/OAI/Server/GetRecord.pm (-2 / +1 lines)
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use HTTP::OAI;	22	use HTTP::OAI;
23	use C4::Biblio;	23	use C4::OAI::Sets qw( GetOAISetsBiblio );
24	use C4::OAI::Sets;
25	use MARC::File::XML;	24	use MARC::File::XML;
26		25
27	use base ("HTTP::OAI::GetRecord");	26	use base ("HTTP::OAI::GetRecord");




=cut

use Modern::Perl;
use C4::Biblio;
use HTTP::OAI;
use Koha::OAI::Server::ResumptionToken;
use Koha::OAI::Server::Record;
use Koha::OAI::Server::DeletedRecord;
use C4::OAI::Sets qw( GetOAISetBySpec GetOAISetsBiblio );
use MARC::File::XML;

sub GetRecords {

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

(-)a/Koha/OAI/Server/ListSets.pm (-1 / +1 lines)
22	use HTTP::OAI;	22	use HTTP::OAI;
23	use Koha::OAI::Server::ResumptionToken;	23	use Koha::OAI::Server::ResumptionToken;
24	use Koha::OAI::Server::Description;	24	use Koha::OAI::Server::Description;
25	use C4::OAI::Sets;	25	use C4::OAI::Sets qw( GetOAISets );
26		26
27	use base ("HTTP::OAI::ListSets");	27	use base ("HTTP::OAI::ListSets");
28		28

Lines 21-27 package Koha::OAI::Server::Record; Link Here

(-)a/Koha/OAI/Server/Record.pm (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use HTTP::OAI;	22	use HTTP::OAI;
23	use HTTP::OAI::Metadata::OAI_DC;	23	use HTTP::OAI::Metadata::OAI_DC;
24	use XML::LibXML;	24	use XML::LibXML ();
25		25
26	use base ("HTTP::OAI::Record");	26	use base ("HTTP::OAI::Record");
27		27

Lines 32-41 use Koha::OAI::Server::GetRecord; Link Here

(-)a/Koha/OAI/Server/Repository.pm (-2 / +2 lines)
32	use Koha::OAI::Server::ListRecords;	32	use Koha::OAI::Server::ListRecords;
33	use Koha::OAI::Server::ListIdentifiers;	33	use Koha::OAI::Server::ListIdentifiers;
34	use XML::SAX::Writer;	34	use XML::SAX::Writer;
35	use YAML::XS;	35	use YAML::XS ();
36	use CGI qw/:standard -oldstyle_urls/;	36	use CGI qw/:standard -oldstyle_urls/;
37	use C4::Context;	37	use C4::Context;
38	use C4::Biblio;	38	use C4::Biblio qw( GetMarcBiblio );
39	use Koha::XSLT::Base;	39	use Koha::XSLT::Base;
40		40
41	=head1 NAME	41	=head1 NAME





use Modern::Perl;

use Carp qw( croak );
use Mojo::JSON ();
use Scalar::Util qw( blessed looks_like_number );
use Try::Tiny qw( catch try );

use Koha::Database;
use Koha::Exceptions::Object;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Object::Message;

=head1 NAME

Lines 21-27 use Koha::Database; Link Here

(-)a/Koha/Object/Limit/Library.pm (-1 / +1 lines)
21	use Koha::Exceptions;	21	use Koha::Exceptions;
22	use Koha::Libraries;	22	use Koha::Libraries;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 NAME	26	=head1 NAME
27		27

Lines 19-25 package Koha::Objects; Link Here

(-)a/Koha/Objects.pm (-1 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;	22	use Carp qw( carp );
23	use List::MoreUtils qw( none );	23	use List::MoreUtils qw( none );
24	use Class::Inspector;	24	use Class::Inspector;
25		25

Lines 19-25 package Koha::Old::Holds; Link Here

(-)a/Koha/Old/Holds.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24





use Modern::Perl;

use Carp;
use List::MoreUtils qw( any uniq );
use JSON qw( to_json );
use Unicode::Normalize qw( NFKD );

use C4::Context;
use C4::Log qw( logaction );
use Koha::Account;
use Koha::ArticleRequests;
use C4::Letters ();
use Koha::AuthUtils ();
use Koha::Checkouts;
use Koha::Club::Enrollments;
use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions::Password;
use Koha::Holds;
use Koha::Old::Checkouts;
use Koha::Patron::Attributes;
use Koha::Patron::Categories;
use Koha::Patron::Debarments ();
use Koha::Patron::HouseboundProfile;
use Koha::Patron::HouseboundRole;
use Koha::Patron::Images;





use Modern::Perl;

use List::MoreUtils qw( any );
use List::MoreUtils qw(any);

use C4::Members::Messaging;

use Koha::Database;
use Koha::DateUtils qw( dt_from_string );

use base qw(Koha::Object Koha::Object::Limit::Library);





package Koha::Patron::Discharge;

use Modern::Perl;
use CGI ();
use File::Temp qw( :POSIX );
use Carp qw( carp );

use C4::Templates qw ( gettemplate );
use C4::Letters qw( GetPreparedLetter );

use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Patron::Debarments ();

sub count {
    my ($params) = @_;

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

(-)a/Koha/Patron/Files.pm (-1 lines)
22		22
23	use C4::Context;	23	use C4::Context;
24	use C4::Output;	24	use C4::Output;
25	use C4::Debug;
26		25
27		26
28	=head1 NAME	27	=head1 NAME

Lines 17-23 package Koha::Patron::Image; Link Here

(-)a/Koha/Patron/Image.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Patron::Images; Link Here

(-)a/Koha/Patron/Images.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-26 package Koha::Patron::Message; Link Here

(-)a/Koha/Patron/Message.pm (-2 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use C4::Context;	21	use C4::Context;
23	use C4::Log qw( logaction );	22	use C4::Log ();
24		23
25	use Koha::Database;	24	use Koha::Database;
26		25

Lines 17-23 package Koha::Patron::Messages; Link Here

(-)a/Koha/Patron/Messages.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22





use Modern::Perl;

use Carp;

use Koha::Database;
use Koha::Exceptions::Patron::Modification;

use Koha::Patron::Attributes;
use Koha::Patron::Modifications;

use JSON qw( from_json );
use List::MoreUtils qw( any uniq );
use Try::Tiny qw( catch try );

use base qw(Koha::Object);


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

(-)a/Koha/Patron/Modifications.pm (-2 / +2 lines)
29	use Koha::Patron::Attribute;	29	use Koha::Patron::Attribute;
30	use Koha::Patron::Modification;	30	use Koha::Patron::Modification;
31		31
32	use JSON;	32	use JSON qw( from_json );
33	use List::Util qw /any none/;	33	use List::Util qw( none );
34		34
35	use base qw(Koha::Objects);	35	use base qw(Koha::Objects);
36		36

Lines 20-27 package Koha::Patron::Password::Recovery; Link Here

(-)a/Koha/Patron/Password/Recovery.pm (-2 / +2 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use C4::Context;	21	use C4::Context;
22	use C4::Letters;	22	use C4::Letters;
23	use Crypt::Eksblowfish::Bcrypt qw(en_base64);	23	use Crypt::Eksblowfish::Bcrypt qw( en_base64 );
24	use Koha::DateUtils;	24	use Koha::DateUtils qw( dt_from_string );
25		25
26	our (@ISA, @EXPORT_OK);	26	our (@ISA, @EXPORT_OK);
27	BEGIN {	27	BEGIN {

Lines 17-25 package Koha::Patron::Relationship; Link Here

(-)a/Koha/Patron/Relationship.pm (-2 / +1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21	use List::MoreUtils qw( any );	20	use List::MoreUtils qw( any );
22	use Try::Tiny;	21	use Try::Tiny qw( catch try );
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::Exceptions::Patron::Relationship;	24	use Koha::Exceptions::Patron::Relationship;

Lines 17-23 package Koha::Patron::Relationships; Link Here

(-)a/Koha/Patron/Relationships.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21	use List::MoreUtils qw( uniq );	20	use List::MoreUtils qw( uniq );
22		21
23	use Koha::Database;	22	use Koha::Database;





use Modern::Perl;

use Carp;

use Koha::Database;
use Koha::DateUtils qw( dt_from_string );

use Koha::ArticleRequests;
use Koha::ArticleRequest::Status;
use Koha::Patron;
use Koha::Exceptions::Patron;
use Koha::Patron::Categories;
use Date::Calc qw( Today Add_Delta_YMD );

use base qw(Koha::Objects);






use Modern::Perl;
use Moo;
use namespace::clean;

use Carp qw( carp );
use Text::CSV;
use Encode qw( decode_utf8 );
use Try::Tiny qw( catch try );

use C4::Members qw( checkcardnumber );

use Koha::Libraries;
use Koha::Patrons;
use Koha::Patron::Categories;
use Koha::Patron::Debarments qw( AddDebarment GetDebarments );
use Koha::DateUtils qw( dt_from_string output_pref );

=head1 NAME






use Modern::Perl;

use Array::Utils qw( array_minus );
use Class::Inspector;
use List::MoreUtils qw( any );
use Module::Load::Conditional qw( can_load );
use Module::Load ();
use Module::Pluggable search_path => ['Koha::Plugin'], except => qr/::Edifact(|::Line|::Message|::Order|::Segment|::Transport)$/;

use C4::Context;
use C4::Output;

Lines 19-27 package Koha::Plugins::Base; Link Here

(-)a/Koha/Plugins/Base.pm (-3 / +2 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Module::Pluggable require => 1;	22	use Cwd qw( abs_path );
23	use Cwd qw(abs_path);	23	use List::Util qw( max );
24	use List::Util qw(max);
25		24
26	use base qw{Module::Bundled::Files};	25	use base qw{Module::Bundled::Files};
27		26

Lines 19-28 package Koha::Plugins::Handler; Link Here

(-)a/Koha/Plugins/Handler.pm (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Array::Utils qw(array_minus);	22	use Array::Utils qw( array_minus );
23	use File::Path qw(remove_tree);	23	use File::Path qw( remove_tree );
24		24
25	use Module::Load qw(load);	25	use Module::Load qw( load );
26		26
27	use C4::Context;	27	use C4::Context;
28	use Koha::Plugins::Methods;	28	use Koha::Plugins::Methods;

Lines 17-23 package Koha::Plugins::Method; Link Here

(-)a/Koha/Plugins/Method.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Plugins::Methods; Link Here

(-)a/Koha/Plugins/Methods.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 16-23 package Koha::PseudonymizedTransaction; Link Here

(-)a/Koha/PseudonymizedTransaction.pm (-2 / +1 lines)
16		16
17	use Modern::Perl;	17	use Modern::Perl;
18		18
19	use Carp;	19	use Crypt::Eksblowfish::Bcrypt qw( bcrypt );
20	use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64);
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Exceptions::Config;	22	use Koha::Exceptions::Config;

Lines 16-22 package Koha::PseudonymizedTransactions; Link Here

(-)a/Koha/PseudonymizedTransactions.pm (-1 lines)
16		16
17	use Modern::Perl;	17	use Modern::Perl;
18		18
19	use Carp;
20		19
21	use Koha::Database;	20	use Koha::Database;
22	use Koha::PseudonymizedTransaction;	21	use Koha::PseudonymizedTransaction;

Lines 16-22 package Koha::Quote; Link Here

(-)a/Koha/Quote.pm (-1 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use Carp;
20		19
21	use Koha::Database;	20	use Koha::Database;
22	use Koha::Quotes;	21	use Koha::Quotes;

Lines 16-25 package Koha::Quotes; Link Here

(-)a/Koha/Quotes.pm (-2 / +1 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use Carp;
20		19
21	use Koha::Database;	20	use Koha::Database;
22	use Koha::DateUtils qw(dt_from_string);	21	use Koha::DateUtils qw( dt_from_string );
23	use Koha::Quote;	22	use Koha::Quote;
24		23
25	use base qw(Koha::Objects);	24	use base qw(Koha::Objects);

Lines 18-24 package Koha::RDF; Link Here

(-)a/Koha/RDF.pm (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use URI;	21	use URI ();
22		22
23	use C4::Context;	23	use C4::Context;
24		24

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

(-)a/Koha/REST/Plugin/Objects.pm (-1 / +1 lines)
19		19
20	use Mojo::Base 'Mojolicious::Plugin';	20	use Mojo::Base 'Mojolicious::Plugin';
21		21
22	use JSON;	22	use JSON ();
23		23
24	=head1 NAME	24	=head1 NAME
25		25

Lines 23-30 use Koha::Exceptions::Plugin; Link Here

(-)a/Koha/REST/Plugin/PluginRoutes.pm (-2 / +2 lines)
23	use Koha::Plugins;	23	use Koha::Plugins;
24	use Koha::Logger;	24	use Koha::Logger;
25		25
26	use Clone qw(clone);	26	use Clone qw( clone );
27	use Try::Tiny;	27	use Try::Tiny qw( catch try );
28		28
29	=head1 NAME	29	=head1 NAME
30		30

Lines 18-26 package Koha::REST::Plugin::Query; Link Here

(-)a/Koha/REST/Plugin/Query.pm (-3 / +3 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Mojo::Base 'Mojolicious::Plugin';	20	use Mojo::Base 'Mojolicious::Plugin';
21	use List::MoreUtils qw(any);	21	use List::MoreUtils qw( any );
22	use Scalar::Util qw(reftype);	22	use Scalar::Util qw( reftype );
23	use JSON qw(decode_json);	23	use JSON qw( decode_json );
24		24
25	use Koha::Exceptions;	25	use Koha::Exceptions;
26		26

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

(-)a/Koha/REST/V1.pm (-1 / +1 lines)
23	use Koha::Logger;	23	use Koha::Logger;
24		24
25	use JSON::Validator::OpenAPI::Mojolicious;	25	use JSON::Validator::OpenAPI::Mojolicious;
26	use Try::Tiny;	26	use Try::Tiny qw( catch try );
27		27
28	=head1 NAME	28	=head1 NAME
29		29

Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Acquisitions/Funds.pm (-1 / +1 lines)
21		21
22	use Koha::Acquisition::Funds;	22	use Koha::Acquisition::Funds;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 NAME	26	=head1 NAME
27		27




use Mojo::Base 'Mojolicious::Controller';

use Koha::Acquisition::Orders;
use Koha::DateUtils;

use Clone qw( clone );
use JSON qw(decode_json);
use Scalar::Util qw( blessed );
use Try::Tiny qw( catch try );

=head1 NAME


Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Acquisitions/Vendors.pm (-1 / +1 lines)
21		21
22	use Koha::Acquisition::Booksellers;	22	use Koha::Acquisition::Booksellers;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 NAME	26	=head1 NAME
27		27

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

(-)a/Koha/REST/V1/AdvancedEditorMacro.pm (-1 / +1 lines)
19	use Mojo::Base 'Mojolicious::Controller';	19	use Mojo::Base 'Mojolicious::Controller';
20	use Koha::AdvancedEditorMacros;	20	use Koha::AdvancedEditorMacros;
21		21
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	=head1 Name	24	=head1 Name
25		25

Lines 38-47 use Koha::Exceptions; Link Here

(-)a/Koha/REST/V1/Auth.pm (-3 / +3 lines)
38	use Koha::Exceptions::Authentication;	38	use Koha::Exceptions::Authentication;
39	use Koha::Exceptions::Authorization;	39	use Koha::Exceptions::Authorization;
40		40
41	use MIME::Base64;	41	use MIME::Base64 qw( decode_base64 );
42	use Module::Load::Conditional;	42	use Module::Load::Conditional ();
43	use Scalar::Util qw( blessed );	43	use Scalar::Util qw( blessed );
44	use Try::Tiny;	44	use Try::Tiny qw( catch try );
45		45
46	=head1 NAME	46	=head1 NAME
47		47





use Koha::Biblios;
use Koha::RecordProcessor;
use C4::Biblio qw( DelBiblio );

use List::MoreUtils qw( any );
use MARC::Record::MiJ;

use Try::Tiny qw( catch try );

=head1 API


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

(-)a/Koha/REST/V1/CashRegisters/Cashups.pm (-2 / +1 lines)
19		19
20	use Mojo::Base 'Mojolicious::Controller';	20	use Mojo::Base 'Mojolicious::Controller';
21		21
22	use Scalar::Util qw(blessed);	22	use Try::Tiny qw( catch try );
23	use Try::Tiny;
24		23
25	use Koha::Cash::Registers;	24	use Koha::Cash::Registers;
26		25

Lines 18-24 package Koha::REST::V1::Checkouts; Link Here

(-)a/Koha/REST/V1/Checkouts.pm (-2 / +2 lines)
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Mojo::Base 'Mojolicious::Controller';	20	use Mojo::Base 'Mojolicious::Controller';
21	use Mojo::JSON;	21	use Mojo::JSON ();
22		22
23	use C4::Auth qw( haspermission );	23	use C4::Auth qw( haspermission );
24	use C4::Context;	24	use C4::Context;
Lines 26-32 use C4::Circulation; Link Here
26	use Koha::Checkouts;	26	use Koha::Checkouts;
27	use Koha::Old::Checkouts;	27	use Koha::Old::Checkouts;
28		28
29	use Try::Tiny;	29	use Try::Tiny qw( catch try );
30		30
31	=head1 NAME	31	=head1 NAME
32		32

Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/CirculationRules.pm (-1 lines)
21		21
22	use Koha::CirculationRules;	22	use Koha::CirculationRules;
23		23
24	use Try::Tiny;
25		24
26	=head1 API	25	=head1 API
27		26

Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Cities.pm (-1 / +1 lines)
21		21
22	use Koha::Cities;	22	use Koha::Cities;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 API	26	=head1 API
27		27





use Mojo::Base 'Mojolicious::Controller';

use C4::Biblio;
use C4::Reserves;

use Koha::Items;

use Koha::Holds;
use Koha::Clubs;
use Koha::Club::Hold;
use Koha::DateUtils qw( dt_from_string output_pref );

use Scalar::Util qw( blessed );
use Try::Tiny qw( catch try );
use List::Util 'shuffle';

=head1 API


Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Config/SMTP/Servers.pm (-1 / +1 lines)
21		21
22	use Koha::SMTP::Servers;	22	use Koha::SMTP::Servers;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 API	26	=head1 API
27		27





use Mojo::Base 'Mojolicious::Controller';

use Mojo::JSON ();

use C4::Biblio;
use C4::Reserves;

use Koha::Items;
use Koha::Patrons;
use Koha::Holds;
use Koha::DateUtils qw( dt_from_string output_pref );

use List::MoreUtils qw( any );
use Try::Tiny qw( catch try );

=head1 API


Lines 22-28 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/ImportBatchProfiles.pm (-1 / +1 lines)
22	use Koha::ImportBatchProfiles;	22	use Koha::ImportBatchProfiles;
23	use Koha::ImportBatchProfile;	23	use Koha::ImportBatchProfile;
24		24
25	use Try::Tiny;	25	use Try::Tiny qw( catch try );
26		26
27	=head1 NAME	27	=head1 NAME
28		28

Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Items.pm (-1 / +1 lines)
21		21
22	use Koha::Items;	22	use Koha::Items;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 NAME	26	=head1 NAME
27		27

Lines 22-28 use Koha::Libraries; Link Here

(-)a/Koha/REST/V1/Libraries.pm (-1 / +1 lines)
22		22
23	use Scalar::Util qw( blessed );	23	use Scalar::Util qw( blessed );
24		24
25	use Try::Tiny;	25	use Try::Tiny qw( catch try );
26		26
27	=head1 NAME	27	=head1 NAME
28		28

Lines 17-27 package Koha::REST::V1::OAuth; Link Here

(-)a/Koha/REST/V1/OAuth.pm (-2 / +2 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Module::Load::Conditional;	20	use Module::Load::Conditional ();
21		21
22	use C4::Context;	22	use C4::Context;
23	use Koha::OAuth;	23	use Koha::OAuth;
24	use MIME::Base64;	24	use MIME::Base64 qw( decode_base64 );
25		25
26	use Mojo::Base 'Mojolicious::Controller';	26	use Mojo::Base 'Mojolicious::Controller';
27		27

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

(-)a/Koha/REST/V1/Patrons.pm (-3 / +2 lines)
20	use Mojo::Base 'Mojolicious::Controller';	20	use Mojo::Base 'Mojolicious::Controller';
21		21
22	use Koha::Database;	22	use Koha::Database;
23	use Koha::DateUtils;
24	use Koha::Patrons;	23	use Koha::Patrons;
25		24
26	use Scalar::Util qw(blessed);	25	use Scalar::Util qw( blessed );
27	use Try::Tiny;	26	use Try::Tiny qw( catch try );
28		27
29	=head1 NAME	28	=head1 NAME
30		29

Lines 21-28 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Patrons/Account.pm (-2 / +1 lines)
21		21
22	use Koha::Patrons;	22	use Koha::Patrons;
23		23
24	use Scalar::Util qw(blessed);	24	use Try::Tiny qw( catch try );
25	use Try::Tiny;
26		25
27	=head1 NAME	26	=head1 NAME
28		27

Lines 22-29 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Patrons/Attributes.pm (-2 / +2 lines)
22	use Koha::Patron::Attributes;	22	use Koha::Patron::Attributes;
23	use Koha::Patrons;	23	use Koha::Patrons;
24		24
25	use Scalar::Util qw(blessed);	25	use Scalar::Util qw( blessed );
26	use Try::Tiny;	26	use Try::Tiny qw( catch try );
27		27
28	=head1 NAME	28	=head1 NAME
29		29

Lines 23-30 use C4::Auth qw(checkpw_internal); Link Here

(-)a/Koha/REST/V1/Patrons/Password.pm (-2 / +2 lines)
23		23
24	use Koha::Patrons;	24	use Koha::Patrons;
25		25
26	use Scalar::Util qw(blessed);	26	use Scalar::Util qw( blessed );
27	use Try::Tiny;	27	use Try::Tiny qw( catch try );
28		28
29	=head1 NAME	29	=head1 NAME
30		30

Lines 21-27 use Mojo::Base 'Mojolicious::Controller'; Link Here

(-)a/Koha/REST/V1/Quotes.pm (-1 / +1 lines)
21		21
22	use Koha::Quotes;	22	use Koha::Quotes;
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	=head1 API	26	=head1 API
27		27

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

(-)a/Koha/REST/V1/ReturnClaims.pm (-2 / +1 lines)
19		19
20	use Mojo::Base 'Mojolicious::Controller';	20	use Mojo::Base 'Mojolicious::Controller';
21		21
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	use Koha::Checkouts::ReturnClaims;	24	use Koha::Checkouts::ReturnClaims;
25	use Koha::Checkouts;	25	use Koha::Checkouts;
26	use Koha::DateUtils qw( dt_from_string output_pref );
27		26
28	=head1 NAME	27	=head1 NAME
29		28

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

(-)a/Koha/REST/V1/Static.pm (-1 / +1 lines)
19		19
20	use Mojo::Base 'Mojolicious::Controller';	20	use Mojo::Base 'Mojolicious::Controller';
21		21
22	use Try::Tiny;	22	use Try::Tiny qw( catch try );
23		23
24	=head1 API	24	=head1 API
25		25

Lines 25-31 use Koha::Exceptions::TransferLimit; Link Here

(-)a/Koha/REST/V1/TransferLimits.pm (-1 / +1 lines)
25		25
26	use Scalar::Util qw( blessed );	26	use Scalar::Util qw( blessed );
27		27
28	use Try::Tiny;	28	use Try::Tiny qw( catch try );
29		29
30	=head1 NAME	30	=head1 NAME
31		31

Lines 17-23 package Koha::Rating; Link Here

(-)a/Koha/Rating.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Ratings; Link Here

(-)a/Koha/Ratings.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 59-65 clone it I<prior> to passing it off to the RecordProcessor. Link Here

(-)a/Koha/RecordProcessor.pm (-1 / +1 lines)
59		59
60	use Modern::Perl;	60	use Modern::Perl;
61		61
62	use Module::Load::Conditional qw(can_load);	62	use Module::Load::Conditional qw( can_load );
63	use Module::Pluggable::Object;	63	use Module::Pluggable::Object;
64		64
65	use base qw(Class::Accessor);	65	use base qw(Class::Accessor);

Lines 17-26 package Koha::Report; Link Here

(-)a/Koha/Report.pm (-2 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use JSON;
24	use Koha::Reports;	22	use Koha::Reports;
25	use Koha::DateUtils qw( dt_from_string output_pref );	23	use Koha::DateUtils qw( dt_from_string output_pref );
26		24

Lines 17-23 package Koha::Reports; Link Here

(-)a/Koha/Reports.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Review; Link Here

(-)a/Koha/Review.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Reviews; Link Here

(-)a/Koha/Reviews.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::SMS::Provider; Link Here

(-)a/Koha/SMS/Provider.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Patrons;	23	use Koha::Patrons;
25		24

Lines 19-25 package Koha::SMS::Providers; Link Here

(-)a/Koha/SMS/Providers.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::SMS::Provider;	23	use Koha::SMS::Provider;
25		24

Lines 21-27 use Koha::Database; Link Here

(-)a/Koha/SMTP/Server.pm (-1 / +1 lines)
21	use Koha::Exceptions::Object;	21	use Koha::Exceptions::Object;
22	use Koha::SMTP::Servers;	22	use Koha::SMTP::Servers;
23		23
24	use Email::Sender::Transport::SMTP;	24	use Email::Sender::Transport::SMTP ();
25		25
26	use base qw(Koha::Object);	26	use base qw(Koha::Object);
27		27

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

(-)a/Koha/Schema/Loader/mysql.pm (-1 / +1 lines)
24	use base 'DBIx::Class::Schema::Loader::DBI::mysql';	24	use base 'DBIx::Class::Schema::Loader::DBI::mysql';
25	use mro 'c3';	25	use mro 'c3';
26		26
27	use Scalar::Util 'blessed';	27	use Scalar::Util qw( blessed );
28		28
29	# This is being upstreamed, but for now lets make sure whatever version of DBIx::Class::Schema::Loader you are using,	29	# This is being upstreamed, but for now lets make sure whatever version of DBIx::Class::Schema::Loader you are using,
30	# we will catch MariaDB current_timestamp() and convert it to \"current_timestamp" correctly.	30	# we will catch MariaDB current_timestamp() and convert it to \"current_timestamp" correctly.

Lines 35-41 This class should be used in all scripts. It sets the interface and userenv appr Link Here

(-)a/Koha/Script.pm (-1 / +1 lines)
35		35
36	=cut	36	=cut
37		37
38	use File::Basename;	38	use File::Basename qw( fileparse );
39	use Fcntl qw(:flock);	39	use Fcntl qw(:flock);
40		40
41	use C4::Context;	41	use C4::Context;

Lines 19-25 package Koha::SearchEngine; Link Here

(-)a/Koha/SearchEngine.pm (-1 / +1 lines)
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 Modern::Perl;	21	use Modern::Perl;
22	use Readonly;	22	use Readonly qw( Readonly );
23		23
24	=head1 NAME	24	=head1 NAME
25		25




use C4::Heading;
use C4::AuthoritiesMarc;

use Carp qw( carp croak );
use Clone qw( clone );
use JSON;
use Modern::Perl;
use Readonly qw( Readonly );
use Search::Elasticsearch;
use Try::Tiny qw( catch try );
use YAML::XS ();

use List::Util qw( sum0 );
use MARC::File::XML;
use MIME::Base64 qw( encode_base64 );
use Encode qw( encode );
use Business::ISBN ();
use Scalar::Util qw( looks_like_number );

__PACKAGE__->mk_ro_accessors(qw( index index_name ));
__PACKAGE__->mk_accessors(qw( sort_fields ));




# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Carp qw( carp croak );
use Modern::Perl;
use Try::Tiny qw( catch try );
use List::Util qw( any );
use base qw(Koha::SearchEngine::Elasticsearch);
use Data::Dumper;

use Koha::Exceptions;
use Koha::Exceptions::Elasticsearch;
use Koha::SearchEngine::Zebra::Indexer;
use C4::AuthoritiesMarc qw//;
use C4::Biblio ();
use C4::Context;

=head1 NAME

Lines 40-50 provides something that can be given to elasticsearch to get answers. Link Here

(-)a/Koha/SearchEngine/Elasticsearch/QueryBuilder.pm (-4 / +3 lines)
40	=cut	40	=cut
41		41
42	use base qw(Koha::SearchEngine::Elasticsearch);	42	use base qw(Koha::SearchEngine::Elasticsearch);
43	use Carp;	43	use JSON ();
44	use JSON;	44	use List::MoreUtils qw( each_array );
45	use List::MoreUtils qw/ each_array /;
46	use Modern::Perl;	45	use Modern::Perl;
47	use URI::Escape;	46	use URI::Escape qw( uri_escape_utf8 );
48		47
49	use C4::Context;	48	use C4::Context;
50	use Koha::Exceptions;	49	use Koha::Exceptions;

Lines 48-58 use Koha::AuthorisedValues; Link Here

(-)a/Koha/SearchEngine/Elasticsearch/Search.pm (-4 / +2 lines)
48	use Koha::SearchEngine::QueryBuilder;	48	use Koha::SearchEngine::QueryBuilder;
49	use Koha::SearchEngine::Search;	49	use Koha::SearchEngine::Search;
50	use Koha::Exceptions::Elasticsearch;	50	use Koha::Exceptions::Elasticsearch;
51	use MARC::Record;	51	use MARC::Record ();
52	use MARC::File::XML;	52	use MARC::File::XML;
53	use Data::Dumper; #TODO remove	53	use MIME::Base64 qw( decode_base64 );
54	use Carp qw(cluck);
55	use MIME::Base64;
56		54
57	Koha::SearchEngine::Elasticsearch::Search->mk_accessors(qw( store ));	55	Koha::SearchEngine::Elasticsearch::Search->mk_accessors(qw( store ));
58		56

Lines 45-51 Creates a new C<Search> of whatever the relevant type is. Link Here

(-)a/Koha/SearchEngine/Indexer.pm (-1 lines)
45		45
46	use Modern::Perl;	46	use Modern::Perl;
47	use C4::Context;	47	use C4::Context;
48	use C4::Biblio qw//;
49		48
50	sub new {	49	sub new {
51	my $engine = C4::Context->preference("SearchEngine") // 'Zebra';	50	my $engine = C4::Context->preference("SearchEngine") // 'Zebra';

Lines 45-51 Creates a new C<QueryBuilder> of whatever the relevant type is. Link Here

(-)a/Koha/SearchEngine/QueryBuilder.pm (-1 / +1 lines)
45		45
46	use C4::Context;	46	use C4::Context;
47	use Modern::Perl;	47	use Modern::Perl;
48	use Carp;	48	use Carp qw( croak );
49		49
50	sub new {	50	sub new {
51	my $engine = C4::Context->preference("SearchEngine");	51	my $engine = C4::Context->preference("SearchEngine");

Lines 45-52 Creates a new C<Search> of whatever the relevant type is. Link Here

(-)a/Koha/SearchEngine/Search.pm (-2 / +2 lines)
45		45
46	use Modern::Perl;	46	use Modern::Perl;
47	use C4::Context;	47	use C4::Context;
48	use C4::Biblio qw( GetMarcFromKohaField );	48	use C4::Biblio ();
49	use POSIX qw(ceil floor);	49	use POSIX qw( ceil );
50		50
51	sub new {	51	sub new {
52	my $engine = C4::Context->preference("SearchEngine") // 'Zebra';	52	my $engine = C4::Context->preference("SearchEngine") // 'Zebra';

Lines 18-24 package Koha::SearchEngine::Zebra::Indexer; Link Here

(-)a/Koha/SearchEngine/Zebra/Indexer.pm (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use C4::Biblio qw(ModZebra); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio	21	use C4::Biblio qw( ModZebra ); # FIXME This is terrible, we should move the indexation code outside of C4::Biblio
22	use base qw(Class::Accessor);	22	use base qw(Class::Accessor);
23		23
24	=head1 NAME	24	=head1 NAME

Lines 17-23 package Koha::SearchField; Link Here

(-)a/Koha/SearchField.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::SearchFields; Link Here

(-)a/Koha/SearchFields.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::SearchMarcMap; Link Here

(-)a/Koha/SearchMarcMap.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::SearchMarcMaps; Link Here

(-)a/Koha/SearchMarcMaps.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::Serial; Link Here

(-)a/Koha/Serial.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Serial::Item; Link Here

(-)a/Koha/Serial/Item.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Serial::Items; Link Here

(-)a/Koha/Serial/Items.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Serials; Link Here

(-)a/Koha/Serials.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 18-26 package Koha::SharedContent; Link Here

(-)a/Koha/SharedContent.pm (-2 / +2 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use JSON;	21	use JSON qw( from_json to_json );
22	use HTTP::Request;	22	use HTTP::Request;
23	use LWP::UserAgent;	23	use LWP::UserAgent ();
24		24
25	use Koha::Serials;	25	use Koha::Serials;
26	use Koha::Reports;	26	use Koha::Reports;

Lines 20-26 package Koha::Sitemapper; Link Here

(-)a/Koha/Sitemapper.pm (-1 / +1 lines)
20		20
21	use Moo;	21	use Moo;
22	use Modern::Perl;	22	use Modern::Perl;
23	use Koha::Sitemapper::Writer;	23	use Koha::Sitemapper::Writer ();
24	use C4::Context;	24	use C4::Context;
25		25
26		26

Lines 22-29 package Koha::Sitemapper::Writer; Link Here

(-)a/Koha/Sitemapper/Writer.pm (-2 / +2 lines)
22	use Moo;	22	use Moo;
23	use Modern::Perl;	23	use Modern::Perl;
24	use XML::Writer;	24	use XML::Writer;
25	use IO::File;	25	use IO::File ();
26	use Koha::DateUtils;	26	use Koha::DateUtils qw( dt_from_string );
27		27
28		28
29	my $MAX = 50000;	29	my $MAX = 50000;

Lines 17-23 package Koha::Statistic; Link Here

(-)a/Koha/Statistic.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Items;	22	use Koha::Items;

Lines 17-23 package Koha::Statistics; Link Here

(-)a/Koha/Statistics.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

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

(-)a/Koha/StockRotationItem.pm (-2 / +2 lines)
22	use DateTime;	22	use DateTime;
23	use DateTime::Duration;	23	use DateTime::Duration;
24	use Koha::Database;	24	use Koha::Database;
25	use Koha::DateUtils qw/dt_from_string/;	25	use Koha::DateUtils qw( dt_from_string );
26	use Koha::Item::Transfer;	26	use Koha::Item::Transfer;
27	use Koha::Item;	27	use Koha::Item;
28	use Koha::StockRotationStage;	28	use Koha::StockRotationStage;
29	use Try::Tiny;	29	use Try::Tiny qw( catch try );
30		30
31	use base qw(Koha::Object);	31	use base qw(Koha::Object);
32		32

Lines 19-25 package Koha::Subscription; Link Here

(-)a/Koha/Subscription.pm (-2 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::Biblios;	24	use Koha::Biblios;
Lines 28-34 use Koha::Biblioitems; Link Here
28	use Koha::Subscriptions;	27	use Koha::Subscriptions;
29	use Koha::Subscription::Frequencies;	28	use Koha::Subscription::Frequencies;
30	use Koha::Subscription::Numberpatterns;	29	use Koha::Subscription::Numberpatterns;
31	use JSON;
32		30
33	use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);	31	use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
34		32

Lines 17-23 package Koha::Subscription::Frequencies; Link Here

(-)a/Koha/Subscription/Frequencies.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Subscription::Frequency; Link Here

(-)a/Koha/Subscription/Frequency.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 19-25 package Koha::Subscription::Histories; Link Here

(-)a/Koha/Subscription/Histories.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-25 package Koha::Subscription::History; Link Here

(-)a/Koha/Subscription/History.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 18-24 package Koha::Subscription::Routinglist; Link Here

(-)a/Koha/Subscription/Routinglist.pm (-1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use Carp;
22		21
23	use Koha::Database;	22	use Koha::Database;
24	use Koha::Subscriptions;	23	use Koha::Subscriptions;

Lines 18-24 package Koha::Subscription::Routinglists; Link Here

(-)a/Koha/Subscription/Routinglists.pm (-1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use Carp;
22		21
23	use Koha::Database;	22	use Koha::Database;
24	use Koha::Subscription::Routinglist;	23	use Koha::Subscription::Routinglist;

Lines 19-25 package Koha::Subscriptions; Link Here

(-)a/Koha/Subscriptions.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 19-28 package Koha::Suggestion; Link Here

(-)a/Koha/Suggestion.pm (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25	use Koha::DateUtils qw(dt_from_string);	24	use Koha::DateUtils qw( dt_from_string );
26	use Koha::Patrons;	25	use Koha::Patrons;
27		26
28	use base qw(Koha::Object);	27	use base qw(Koha::Object);

Lines 53-59 B<new ()> - create a new plugin object Link Here

(-)a/Koha/SuggestionEngine.pm (-1 / +1 lines)
53		53
54	use strict;	54	use strict;
55	use warnings;	55	use warnings;
56	use Module::Load::Conditional qw(can_load);	56	use Module::Load::Conditional qw( can_load );
57	use Module::Pluggable::Object;	57	use Module::Pluggable::Object;
58		58
59	use base qw(Class::Accessor);	59	use base qw(Class::Accessor);

Lines 31-37 Plugin to get suggestions from Koha's authority file Link Here

(-)a/Koha/SuggestionEngine/Plugin/AuthorityFile.pm (-1 lines)
31	=cut	31	=cut
32		32
33	use Modern::Perl;	33	use Modern::Perl;
34	use Carp;
35		34
36	use base qw(Koha::SuggestionEngine::Base);	35	use base qw(Koha::SuggestionEngine::Base);
37		36

Lines 32-38 subjects to subject searches. Link Here

(-)a/Koha/SuggestionEngine/Plugin/ExplodedTerms.pm (-1 lines)
32	=cut	32	=cut
33		33
34	use Modern::Perl;	34	use Modern::Perl;
35	use Carp;
36	use C4::Templates qw(gettemplate); # This is necessary for translatability	35	use C4::Templates qw(gettemplate); # This is necessary for translatability
37		36
38	use base qw(Koha::SuggestionEngine::Base);	37	use base qw(Koha::SuggestionEngine::Base);

Lines 17-24 package Koha::SuggestionEngine::Plugin::LibrisSpellcheck; Link Here

(-)a/Koha/SuggestionEngine/Plugin/LibrisSpellcheck.pm (-2 / +2 lines)
17	# along with Koha; if not, see <http://www.gnu.org/licenses>.	17	# along with Koha; if not, see <http://www.gnu.org/licenses>.
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use LWP::UserAgent;	20	use LWP::UserAgent ();
21	use XML::Simple qw(XMLin);	21	use XML::Simple qw( XMLin );
22	use C4::Context;	22	use C4::Context;
23	use base qw(Koha::SuggestionEngine::Base);	23	use base qw(Koha::SuggestionEngine::Base);
24		24

Lines 33-39 SuggestionEngine. Link Here

(-)a/Koha/SuggestionEngine/Plugin/Null.pm (-1 lines)
33		33
34	use strict;	34	use strict;
35	use warnings;	35	use warnings;
36	use Carp;
37		36
38	use base qw(Koha::SuggestionEngine::Base);	37	use base qw(Koha::SuggestionEngine::Base);
39		38

Lines 19-25 package Koha::Suggestions; Link Here

(-)a/Koha/Suggestions.pm (-1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;
23		22
24	use Koha::Database;	23	use Koha::Database;
25		24

Lines 17-23 package Koha::Tag; Link Here

(-)a/Koha/Tag.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Tags; Link Here

(-)a/Koha/Tags.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Tag;	21	use Koha::Tag;
23		22

Lines 17-23 package Koha::Tags::Approval; Link Here

(-)a/Koha/Tags/Approval.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Tags::Approvals; Link Here

(-)a/Koha/Tags/Approvals.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Tags::Approval;	21	use Koha::Tags::Approval;
23		22

Lines 17-23 package Koha::Tags::Index; Link Here

(-)a/Koha/Tags/Index.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use base qw(Koha::Object);	21	use base qw(Koha::Object);
23		22

Lines 17-23 package Koha::Tags::Indexes; Link Here

(-)a/Koha/Tags/Indexes.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Tags::Index;	21	use Koha::Tags::Index;
23		22

Lines 45-52 use Modern::Perl; Link Here

(-)a/Koha/Template/Plugin/Asset.pm (-2 / +2 lines)
45	use Template::Plugin;	45	use Template::Plugin;
46	use base qw( Template::Plugin );	46	use base qw( Template::Plugin );
47		47
48	use File::Basename;	48	use File::Basename qw( fileparse );
49	use File::Spec;	49	use File::Spec ();
50	use C4::Context;	50	use C4::Context;
51	use Koha;	51	use Koha;
52		52

Lines 19-26 package Koha::Template::Plugin::AudioAlerts; Link Here

(-)a/Koha/Template/Plugin/AudioAlerts.pm (-2 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Encode qw( encode );	22	use JSON qw( encode_json );
23	use JSON;
24		23
25	use base qw( Template::Plugin );	24	use base qw( Template::Plugin );
26		25

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

(-)a/Koha/Template/Plugin/Categories.pm (-1 / +1 lines)
20	use Template::Plugin;	20	use Template::Plugin;
21	use base qw( Template::Plugin );	21	use base qw( Template::Plugin );
22		22
23	use List::Util qw(any);	23	use List::Util qw( any );
24	use Koha::Patron::Categories;	24	use Koha::Patron::Categories;
25		25
26	sub all {	26	sub all {

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

(-)a/Koha/Template/Plugin/I18N.pm (-1 / +1 lines)
22	use base qw( Template::Plugin );	22	use base qw( Template::Plugin );
23		23
24	use C4::Context;	24	use C4::Context;
25	use Koha::I18N;	25	use Koha::I18N qw( __ __n __np __npx __nx __p __px __x __xn );
26		26
27	=head1 NAME	27	=head1 NAME
28		28

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

(-)a/Koha/Template/Plugin/KohaDates.pm (-1 / +1 lines)
22	use Template::Plugin::Filter;	22	use Template::Plugin::Filter;
23	use base qw( Template::Plugin::Filter );	23	use base qw( Template::Plugin::Filter );
24		24
25	use Koha::DateUtils;	25	use Koha::DateUtils qw( dt_from_string output_pref );
26	use C4::Context;	26	use C4::Context;
27	our $DYNAMIC = 1;	27	our $DYNAMIC = 1;
28		28

Lines 26-32 use base qw( Template::Plugin ); Link Here

(-)a/Koha/Template/Plugin/KohaNews.pm (-1 / +1 lines)
26		26
27	use C4::Koha;	27	use C4::Koha;
28	use C4::Context;	28	use C4::Context;
29	use C4::NewsChannels; # GetNewsToDisplay	29	use C4::NewsChannels qw( GetNewsToDisplay ); # GetNewsToDisplay
30		30
31	sub get {	31	sub get {
32	my ( $self, $params ) = @_;	32	my ( $self, $params ) = @_;

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

(-)a/Koha/Template/Plugin/KohaPlugins.pm (-1 / +1 lines)
21		21
22	use base qw( Template::Plugin );	22	use base qw( Template::Plugin );
23		23
24	use Try::Tiny;	24	use Try::Tiny qw( catch try );
25		25
26	use Koha::Plugins;	26	use Koha::Plugins;
27		27

Lines 22-28 use Template::Plugin; Link Here

(-)a/Koha/Template/Plugin/Languages.pm (-1 / +1 lines)
22	use base qw( Template::Plugin );	22	use base qw( Template::Plugin );
23		23
24	use C4::Koha;	24	use C4::Koha;
25	use C4::Languages;	25	use C4::Languages ();
26		26
27	sub GetByISOCode {	27	sub GetByISOCode {
28	my ( $self, $lang, $code ) = @_;	28	my ( $self, $lang, $code ) = @_;

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

(-)a/Koha/Template/Plugin/To.pm (-1 / +1 lines)
22	use Template::Plugin::Filter;	22	use Template::Plugin::Filter;
23	use base qw( Template::Plugin::Filter );	23	use base qw( Template::Plugin::Filter );
24		24
25	use JSON qw( to_json );	25	use JSON ();
26	our $DYNAMIC = 1;	26	our $DYNAMIC = 1;
27		27
28	sub json {	28	sub json {

Lines 52-59 use Modern::Perl; Link Here

(-)a/Koha/Token.pm (-2 / +2 lines)
52	use Bytes::Random::Secure ();	52	use Bytes::Random::Secure ();
53	use String::Random ();	53	use String::Random ();
54	use WWW::CSRF ();	54	use WWW::CSRF ();
55	use Digest::MD5 qw(md5_base64);	55	use Digest::MD5 qw( md5_base64 );
56	use Encode qw( encode );	56	use Encode ();
57	use Koha::Exceptions::Token;	57	use Koha::Exceptions::Token;
58	use base qw(Class::Accessor);	58	use base qw(Class::Accessor);
59	use constant HMAC_SHA1_LENGTH => 20;	59	use constant HMAC_SHA1_LENGTH => 20;

Lines 18-24 package Koha::UploadedFile; Link Here

(-)a/Koha/UploadedFile.pm (-1 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use File::Spec;	21	use File::Spec ();
22		22
23	use parent qw(Koha::Object);	23	use parent qw(Koha::Object);
24		24

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

(-)a/Koha/UploadedFiles.pm (-1 / +1 lines)
21		21
22	use C4::Koha qw( GetAuthorisedValues );	22	use C4::Koha qw( GetAuthorisedValues );
23	use Koha::Database;	23	use Koha::Database;
24	use Koha::DateUtils;	24	use Koha::DateUtils qw( dt_from_string );
25	use Koha::UploadedFile;	25	use Koha::UploadedFile;
26		26
27	use parent qw(Koha::Objects);	27	use parent qw(Koha::Objects);




use constant ERR_TEMP     => 'UPLERR_NO_TEMP_DIR';

use Modern::Perl;
use Digest::MD5 ();
use Encode ();
use IO::File ();
use Time::HiRes ();
use IO::File;
use Time::HiRes;

use base qw(Class::Accessor);


Lines 18-24 package Koha::Util::MARC; Link Here

(-)a/Koha/Util/MARC.pm (-1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use MARC::Record;
22		21
23	=head1 NAME	22	=head1 NAME
24		23

Lines 19-28 package Koha::Util::OpenDocument; Link Here

(-)a/Koha/Util/OpenDocument.pm (-3 / +1 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Encode qw( decode );
23	use File::Temp;
24	use File::Basename qw( dirname );	22	use File::Basename qw( dirname );
25	use OpenOffice::OODoc;	23	use OpenOffice::OODoc qw( odfDocument odfWorkingDirectory );
26		24
27	use parent qw( Exporter );	25	use parent qw( Exporter );
28		26

Lines 17-23 package Koha::Virtualshelf; Link Here

(-)a/Koha/Virtualshelf.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use C4::Auth qw( haspermission );	21	use C4::Auth qw( haspermission );
23		22

Lines 17-23 package Koha::Virtualshelfcontent; Link Here

(-)a/Koha/Virtualshelfcontent.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23	use Koha::Exceptions;	22	use Koha::Exceptions;

Lines 17-23 package Koha::Virtualshelfcontents; Link Here

(-)a/Koha/Virtualshelfcontents.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22





use Modern::Perl;

use Carp;
use DateTime;
use DateTime::Duration;

use Koha::Database;
use Koha::DateUtils qw( dt_from_string );
use Koha::Exceptions;

use base qw(Koha::Object);

Lines 17-23 package Koha::Virtualshelfshares; Link Here

(-)a/Koha/Virtualshelfshares.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Virtualshelves; Link Here

(-)a/Koha/Virtualshelves.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 116-122 Koha::XSLT::Base - Facilitate use of XSLT transformations Link Here

(-)a/Koha/XSLT/Base.pm (-1 / +1 lines)
116	=cut	116	=cut
117		117
118	use Modern::Perl;	118	use Modern::Perl;
119	use XML::LibXML;	119	use XML::LibXML ();
120	use XML::LibXSLT;	120	use XML::LibXSLT;
121	use Koha::XSLT::Security;	121	use Koha::XSLT::Security;
122		122

Lines 36-42 Koha::XSLT::Security - Add security features to Koha::XSLT::Base Link Here

(-)a/Koha/XSLT/Security.pm (-1 lines)
36	=cut	36	=cut
37		37
38	use Modern::Perl;	38	use Modern::Perl;
39	use Data::Dumper qw/Dumper/;
40	use XML::LibXSLT;	39	use XML::LibXSLT;
41	use C4::Context;	40	use C4::Context;
42		41

Lines 17-23 package Koha::Z3950Server; Link Here

(-)a/Koha/Z3950Server.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22

Lines 17-23 package Koha::Z3950Servers; Link Here

(-)a/Koha/Z3950Servers.pm (-1 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Carp;
21		20
22	use Koha::Database;	21	use Koha::Database;
23		22





#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
use vars qw(@ISA @EXPORT);
use MIME::Base64;
use Modern::Perl;
use utf8;

use Koha::Number::Price;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;

BEGIN {




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

#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
use MIME::Base64;
use Modern::Perl;
use utf8;

use Koha::Number::Price;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;

our (@ISA, @EXPORT_OK);





#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.
use vars qw(@ISA @EXPORT);
use List::MoreUtils qw( uniq );
use List::MoreUtils qw/uniq/;
use Modern::Perl;
use utf8;

use C4::Acquisition;
use Koha::Number::Price;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;

BEGIN {




#you can use any PDF::API2 module, all you need to do is return the stringifyed pdf object from the printpdf sub.

use vars qw(@ISA @EXPORT);
use List::MoreUtils qw( uniq );
use List::MoreUtils qw/uniq/;
use Modern::Perl;
use utf8;

use C4::Acquisition;
use Koha::Number::Price;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Libraries;

BEGIN {

Lines 34-40 use YAML::XS (); Link Here

(-)a/about.pl (-1 / +1 lines)
34	use Encode ();	34	use Encode ();
35		35
36	use C4::Output qw( output_html_with_http_headers );	36	use C4::Output qw( output_html_with_http_headers );
37	use C4::Auth qw( get_template_and_user get_user_subpermissions );	37	use C4::Auth qw( get_template_and_user );
38	use C4::Context;	38	use C4::Context;
39	use C4::Installer::PerlModules;	39	use C4::Installer::PerlModules;
40		40

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

(-)a/acqui/acqui-home.pl (-3 / +1 lines)
31	use CGI qw ( -utf8 );	31	use CGI qw ( -utf8 );
32	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
33	use C4::Output qw( output_html_with_http_headers );	33	use C4::Output qw( output_html_with_http_headers );
34	use C4::Acquisition;	34	use C4::Budgets qw( CanUserUseBudget GetBudgetHierarchy );
35	use C4::Budgets;
36	use C4::Members;
37	use Koha::Acquisition::Currencies;	35	use Koha::Acquisition::Currencies;
38	use Koha::Patrons;	36	use Koha::Patrons;
39	use Koha::Suggestions;	37	use Koha::Suggestions;

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

(-)a/acqui/add_user_search.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Members;
26		25
27	use Koha::Patron::Categories;	26	use Koha::Patron::Categories;
28		27




use CGI qw ( -utf8 );
use JSON qw( to_json );
use C4::Auth qw( get_template_and_user );
use C4::Acquisition qw( ModOrder ModOrderUsers );    # ModOrder
use C4::Suggestions qw( ModSuggestion );    # ModStatus
use C4::Biblio qw(
    AddBiblio
    GetMarcFromKohaField
    TransformHtmlToXml
    TransformKohaToMarc
);
use C4::Budgets qw( GetBudget GetBudgetOrdered GetBudgetSpent );
use C4::Items qw( AddItemFromMarc );
use C4::Output qw( output_html_with_http_headers );
use C4::Log qw( logaction );




use C4::Context;
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::ImportBatch qw(
    GetImportBatch
    GetImportBatchItemAction
    GetImportBatchNoMatchAction
    GetImportBatchOverlayAction
    GetImportBatchRangeDesc
    GetImportRecordMarc
    GetImportRecordMatches
    GetImportRecordsRange
    GetNumberOfNonZ3950ImportBatches
    SetImportBatchStatus
    SetImportRecordStatus
    SetMatchedBiblionumber
);
use C4::Matcher;
use C4::Search qw( FindDuplicate );
use C4::Acquisition ();
use C4::Biblio qw(
    AddBiblio
    GetMarcFromKohaField

    TransformHtmlToXml
);
use C4::Items qw( AddItemFromMarc PrepareItemrecordDisplay );
use C4::Budgets qw(
    CanUserUseBudget
    GetBudget
    GetBudgetByCode
    GetBudgetHierarchy
    GetBudgets
);
use C4::Acquisition ();

use Koha::Number::Price;
use Koha::Libraries;





use Modern::Perl;
use C4::Auth qw( get_template_and_user haspermission );
use C4::Output qw( output_and_exit output_html_with_http_headers );
use CGI qw ( -utf8 );
use C4::Acquisition qw(
    CanUserManageBasket
    get_rounded_price
    GetBasket
    GetBasketAsCSV
    GetBasketgroup
    GetBasketgroups
    GetBasketUsers
    GetOrder
    GetOrders
    ModBasket
    ModBasketUsers
    NewBasketgroup
    ReopenBasket
);
use C4::Budgets qw( CanUserUseBudget GetBudget GetBudgetHierarchy );
use C4::Contract qw( GetContract );
use C4::Debug qw( $debug );
use C4::Suggestions qw( GetSuggestionInfoFromBiblionumber );
use Koha::Biblios;
use Koha::Acquisition::Baskets;
use Koha::Acquisition::Booksellers;

Lines 50-56 use CGI qw ( -utf8 ); Link Here

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

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

(-)a/acqui/booksellers.pl (-2 / +2 lines)
53		53
54	use Modern::Perl;	54	use Modern::Perl;
55	use C4::Auth qw( get_template_and_user );	55	use C4::Auth qw( get_template_and_user );
56	use C4::Budgets;	56	use C4::Budgets qw( CanUserUseBudget GetBudgetHierarchy );
57	use C4::Output qw( output_html_with_http_headers );	57	use C4::Output qw( output_html_with_http_headers );
58	use CGI qw ( -utf8 );	58	use CGI qw ( -utf8 );
59		59
60	use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;	60	use C4::Acquisition qw( CanUserManageBasket GetBasketsInfosByBookseller );
61	use C4::Context;	61	use C4::Context;
62		62
63	use Koha::Acquisition::Booksellers;	63	use Koha::Acquisition::Booksellers;

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

(-)a/acqui/cancelorder.pl (-1 lines)
34	use CGI ();	34	use CGI ();
35	use C4::Auth qw( get_template_and_user );	35	use C4::Auth qw( get_template_and_user );
36	use C4::Output qw( output_html_with_http_headers );	36	use C4::Output qw( output_html_with_http_headers );
37	use C4::Acquisition;
38	use Koha::Acquisition::Baskets;	37	use Koha::Acquisition::Baskets;
39		38
40	my $input = CGI->new;	39	my $input = CGI->new;

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

(-)a/acqui/check_budget_total.pl (-1 / +1 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Budgets;	25	use C4::Budgets qw( GetBudget );
26		26
27	=head1 DESCRIPTION	27	=head1 DESCRIPTION
28		28

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

(-)a/acqui/duplicate_orders.pl (-2 / +2 lines)
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_and_exit output_html_with_http_headers );	25	use C4::Output qw( output_and_exit output_html_with_http_headers );
26	use C4::Acquisition qw(GetHistory);	26	use C4::Acquisition ();
27	use C4::Budgets qw(GetBudgetPeriods GetBudgetHierarchy CanUserUseBudget);	27	use C4::Budgets qw( GetBudgetHierarchy );
28	use Koha::Acquisition::Baskets;	28	use Koha::Acquisition::Baskets;
29	use Koha::Acquisition::Currencies;	29	use Koha::Acquisition::Currencies;
30	use Koha::Acquisition::Orders;	30	use Koha::Acquisition::Orders;

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

(-)a/acqui/edimsg.pl (-1 lines)
20		20
21	use CGI ();	21	use CGI ();
22	use Koha::Database;	22	use Koha::Database;
23	use C4::Koha;
24	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
26		25





use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth qw( checkauth );
use C4::Output;
use C4::Context;
use C4::Acquisition qw( GetInvoice GetOrder ModReceiveOrder );
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
use C4::Items qw( AddItemFromMarc );
use C4::Search;

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

Lines 53-59 use Modern::Perl; Link Here

(-)a/acqui/histsearch.pl (-1 / +1 lines)
53	use CGI qw ( -utf8 );	53	use CGI qw ( -utf8 );
54	use C4::Auth qw( get_template_and_user );	54	use C4::Auth qw( get_template_and_user );
55	use C4::Output qw( output_html_with_http_headers );	55	use C4::Output qw( output_html_with_http_headers );
56	use C4::Acquisition;	56	use C4::Acquisition qw( GetHistory );
57	use Koha::AdditionalFields;	57	use Koha::AdditionalFields;
58	use Koha::DateUtils qw( dt_from_string output_pref );	58	use Koha::DateUtils qw( dt_from_string output_pref );
59		59

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

(-)a/acqui/invoice-files.pl (-1 / +1 lines)
32	use CGI ();	32	use CGI ();
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_html_with_http_headers );	34	use C4::Output qw( output_html_with_http_headers );
35	use C4::Acquisition;	35	use C4::Acquisition qw( GetInvoiceDetails );
36	use Koha::Misc::Files;	36	use Koha::Misc::Files;
37		37
38	my $input = CGI->new;	38	my $input = CGI->new;




use CGI qw ( -utf8 );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Acquisition qw(
    CloseInvoice
    DelInvoice
    get_rounded_price
    GetInvoiceDetails
    MergeInvoices
    ModInvoice
    ReopenInvoice
);
use C4::Budgets qw( CanUserUseBudget GetBudget GetBudgetHierarchy );

use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Currencies;

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

(-)a/acqui/invoices.pl (-2 / +2 lines)
32	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
33	use C4::Output qw( output_html_with_http_headers );	33	use C4::Output qw( output_html_with_http_headers );
34		34
35	use C4::Acquisition qw/GetInvoices/;	35	use C4::Acquisition qw( GetInvoices );
36	use C4::Budgets;	36	use C4::Budgets qw( CanUserUseBudget GetBudgets );
37	use Koha::DateUtils qw( dt_from_string output_pref );	37	use Koha::DateUtils qw( dt_from_string output_pref );
38	use Koha::Acquisition::Booksellers;	38	use Koha::Acquisition::Booksellers;
39		39

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

(-)a/acqui/lateorders-export.pl (-2 / +1 lines)
20	use Encode ();	20	use Encode ();
21		21
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Acquisition;	23	use C4::Acquisition qw( GetOrder );
24	use C4::Output;
25	use C4::Context;	24	use C4::Context;
26		25
27	my $input = CGI->new;	26	my $input = CGI->new;

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

(-)a/acqui/lateorders.pl (-1 lines)
48	use C4::Auth qw( get_template_and_user );	48	use C4::Auth qw( get_template_and_user );
49	use C4::Output qw( output_html_with_http_headers );	49	use C4::Output qw( output_html_with_http_headers );
50	use C4::Context;	50	use C4::Context;
51	use C4::Acquisition;
52	use C4::Letters qw( GetLetters SendAlerts );	51	use C4::Letters qw( GetLetters SendAlerts );
53	use Koha::DateUtils qw( dt_from_string output_pref );	52	use Koha::DateUtils qw( dt_from_string output_pref );
54	use Koha::Acquisition::Orders;	53	use Koha::Acquisition::Orders;

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

(-)a/acqui/modordernotes.pl (-1 / +1 lines)
31	use CGI qw ( -utf8 );	31	use CGI qw ( -utf8 );
32	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
33	use C4::Output qw( output_html_with_http_headers );	33	use C4::Output qw( output_html_with_http_headers );
34	use C4::Acquisition;	34	use C4::Acquisition qw( GetBasket GetOrder ModOrder );
35		35
36	use Koha::Acquisition::Booksellers;	36	use Koha::Acquisition::Booksellers;
37		37




use C4::Context;

use C4::Auth qw( get_template_and_user );
use C4::Budgets qw( CanUserUseBudget GetBudget GetBudgetHierarchy );

use C4::Acquisition qw( GetBasket GetOrder GetOrderUsers );
use C4::Contract qw( GetContract );
use C4::Suggestions qw( GetSuggestion GetSuggestionInfo );	# GetSuggestion
use C4::Biblio qw(
    AddBiblio
    GetBiblioData

    IsMarcStructureInternal
);
use C4::Output qw( output_and_exit output_html_with_http_headers );
use C4::Members;
use C4::Search qw( FindDuplicate );

#needed for z3950 import:
use C4::ImportBatch qw(
    GetImportRecordMarc
    SetImportRecordStatus
    SetMatchedBiblionumber
);

use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Currencies;

Lines 19-29 Link Here

(-)a/acqui/newordersubscription.pl (-2 / +6 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Acquisition;	22	use C4::Acquisition qw( GetBasket );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Serials qw( SearchSubscriptions subscriptionCurrentlyOnOrder check_routing );	26	use C4::Serials qw(
		27	check_routing
		28	SearchSubscriptions
		29	subscriptionCurrentlyOnOrder
		30	);
27		31
28	use Koha::Acquisition::Booksellers;	32	use Koha::Acquisition::Booksellers;
29		33

Lines 93-100 use Modern::Perl; Link Here

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

Lines 33-39 use CGI qw ( -utf8 ); Link Here

(-)a/acqui/ordered.pl (-1 / +1 lines)
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_html_with_http_headers );	34	use C4::Output qw( output_html_with_http_headers );
35	use Koha::Acquisition::Invoice::Adjustments;	35	use Koha::Acquisition::Invoice::Adjustments;
36	use C4::Acquisition;	36	use C4::Acquisition qw( get_rounded_price );
37		37
38	my $dbh = C4::Context->dbh;	38	my $dbh = C4::Context->dbh;
39	my $input = CGI->new;	39	my $input = CGI->new;





use CGI qw ( -utf8 );
use C4::Context;
use C4::Acquisition qw( GetInvoice );
use C4::Auth qw( get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Budgets qw(
    CanUserUseBudget
    GetBudget
    GetBudgetHierarchy
    GetBudgetPeriods
);
use C4::Biblio qw( GetMarcStructure );
use C4::Suggestions qw( GetSuggestionInfoFromBiblionumber );

use Koha::Acquisition::Booksellers;
use Koha::Acquisition::Currencies;

Lines 57-67 To filter the results list on this given date. Link Here

(-)a/acqui/parcel.pl (-3 / +3 lines)
57	use Modern::Perl;	57	use Modern::Perl;
58		58
59	use C4::Auth qw( get_template_and_user );	59	use C4::Auth qw( get_template_and_user );
60	use C4::Acquisition;	60	use C4::Acquisition qw( CancelReceipt get_rounded_price GetInvoiceDetails );
61	use C4::Budgets;	61	use C4::Budgets qw( GetBudgetByOrderNumber GetBudgetName );
62	use CGI qw ( -utf8 );	62	use CGI qw ( -utf8 );
63	use C4::Output qw( output_html_with_http_headers );	63	use C4::Output qw( output_html_with_http_headers );
64	use C4::Suggestions;	64	use C4::Suggestions qw( GetSuggestionInfoFromBiblionumber );
65		65
66	use Koha::Acquisition::Baskets;	66	use Koha::Acquisition::Baskets;
67	use Koha::Acquisition::Bookseller;	67	use Koha::Acquisition::Bookseller;

Lines 71-78 use CGI qw ( -utf8 ); Link Here

(-)a/acqui/parcels.pl (-2 / +2 lines)
71	use C4::Auth qw( get_template_and_user );	71	use C4::Auth qw( get_template_and_user );
72	use C4::Output qw( output_html_with_http_headers );	72	use C4::Output qw( output_html_with_http_headers );
73		73
74	use C4::Acquisition;	74	use C4::Acquisition qw( AddInvoice GetInvoices );
75	use C4::Budgets;	75	use C4::Budgets qw( CanUserUseBudget GetBudgetHierarchy );
76		76
77	use Koha::Acquisition::Booksellers;	77	use Koha::Acquisition::Booksellers;
78	use Koha::DateUtils qw( dt_from_string output_pref );	78	use Koha::DateUtils qw( dt_from_string output_pref );

Lines 34-40 use C4::Auth qw( get_template_and_user ); Link Here

(-)a/acqui/spent.pl (-1 / +1 lines)
34	use C4::Output qw( output_html_with_http_headers );	34	use C4::Output qw( output_html_with_http_headers );
35	use Modern::Perl;	35	use Modern::Perl;
36	use CGI qw ( -utf8 );	36	use CGI qw ( -utf8 );
37	use C4::Acquisition;	37	use C4::Acquisition qw( get_rounded_price );
38	use Koha::Acquisition::Invoice::Adjustments;	38	use Koha::Acquisition::Invoice::Adjustments;
39		39
40	my $dbh = C4::Context->dbh;	40	my $dbh = C4::Context->dbh;

Lines 46-52 use C4::Contract qw( GetContracts ); Link Here

(-)a/acqui/supplier.pl (-1 lines)
46	use C4::Output qw( output_html_with_http_headers );	46	use C4::Output qw( output_html_with_http_headers );
47	use CGI qw ( -utf8 );	47	use CGI qw ( -utf8 );
48		48
49	use C4::Budgets;
50		49
51	use Koha::Acquisition::Bookseller::Contacts;	50	use Koha::Acquisition::Bookseller::Contacts;
52	use Koha::Acquisition::Booksellers;	51	use Koha::Acquisition::Booksellers;

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

(-)a/acqui/transferorder.pl (-1 / +7 lines)
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Context;	27	use C4::Context;
28	use C4::Acquisition;	28	use C4::Acquisition qw(
		29	GetBasket
		30	GetBasketsByBookseller
		31	GetOrder
		32	SearchOrders
		33	TransferOrder
		34	);
29	use Koha::Acquisition::Booksellers;	35	use Koha::Acquisition::Booksellers;
30		36
31	my $input = CGI->new;	37	my $input = CGI->new;

Lines 49-55 use C4::Auth qw( get_template_and_user ); Link Here

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

Lines 48-56 contact_serialsprimary. Link Here

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

Lines 53-59 use C4::Context; Link Here

(-)a/admin/aqbudgetperiods.pl (-1 / +9 lines)
53	use C4::Auth qw( get_template_and_user );	53	use C4::Auth qw( get_template_and_user );
54	use C4::Output qw( output_html_with_http_headers );	54	use C4::Output qw( output_html_with_http_headers );
55	use C4::Acquisition;	55	use C4::Acquisition;
56	use C4::Budgets;	56	use C4::Budgets qw(
		57	AddBudgetPeriod
		58	DelBudgetPeriod
		59	GetBudgetHierarchy
		60	GetBudgetPeriod
		61	GetBudgetPeriods
		62	GetBudgets
		63	ModBudgetPeriod
		64	);
57	use Koha::Acquisition::Currencies;	65	use Koha::Acquisition::Currencies;
58		66
59	my $dbh = C4::Context->dbh;	67	my $dbh = C4::Context->dbh;




use Koha::Database;
use C4::Auth qw( get_template_and_user );
use C4::Auth qw( get_template_and_user );
use C4::Budgets qw(
    AddBudget
    BudgetHasChildren
    CanUserModifyBudget
    CanUserUseBudget
    DelBudget
    GetBudget
    GetBudgetAuthCats
    GetBudgetHierarchy
    GetBudgetPeriod
    GetBudgetPeriods
    GetBudgetUsers
    ModBudget
    ModBudgetUsers
);
use C4::Context;
use C4::Output qw( output_and_exit output_html_with_http_headers );
use Koha::Acquisition::Currencies;
use Koha::Patrons;





use Text::CSV_XS ();

use C4::Acquisition;
use C4::Budgets qw(
    CanUserUseBudget
    GetBudgetAuthCats
    GetBudgetHierarchy
    GetBudgetPeriod
    GetBudgetsPlanCell
    GetCols
    GetPeriodsCount
    HideCols
    ModBudgetPlan
);
use C4::Context;
use C4::Output qw( output_html_with_http_headers );
use C4::Koha;
use C4::Auth qw( get_template_and_user );
use Koha::Acquisition::Currencies;


Lines 25-31 use Try::Tiny qw( catch try ); Link Here

(-)a/admin/cash_registers.pl (-1 lines)
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use Koha::Libraries;	27	use Koha::Libraries;
28	use C4::Koha;
29	use C4::Context;	28	use C4::Context;
30	use C4::Output qw( output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers );
31	use Koha::Cash::Registers;	30	use Koha::Cash::Registers;

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

(-)a/admin/check_budget_parent.pl (-1 / +1 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Budgets;	25	use C4::Budgets qw( CheckBudgetParent GetBudget );
26		26
27	=head1 DESCRIPTION	27	=head1 DESCRIPTION
28		28

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

(-)a/admin/check_parent_total.pl (-1 / +1 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Budgets;	25	use C4::Budgets qw( GetBudget GetBudgetPeriod );
26		26
27	=head1 DESCRIPTION	27	=head1 DESCRIPTION
28		28

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

(-)a/admin/searchengine/elasticsearch/mappings.pl (-2 / +1 lines)
19	use CGI ();	19	use CGI ();
20	use Scalar::Util qw( looks_like_number );	20	use Scalar::Util qw( looks_like_number );
21	use List::Util qw( first );	21	use List::Util qw( first );
22	use C4::Koha;	22	use C4::Output qw( output_and_exit output_html_with_http_headers );
23	use C4::Output;
24	use C4::Auth;	23	use C4::Auth;
25	use C4::Log ();	24	use C4::Log ();
26		25

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

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

Lines 18-24 Link Here

(-)a/basket/basket.pl (-1 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use C4::Koha;
22	use C4::Biblio qw(	21	use C4::Biblio qw(
23	GetBiblioData	22	GetBiblioData
24	GetMarcAuthors	23	GetMarcAuthors

Lines 59-65 use C4::Biblio qw( Link Here

(-)a/catalogue/MARCdetail.pl (-1 lines)
59	GetMarcFromKohaField	59	GetMarcFromKohaField
60	GetMarcStructure	60	GetMarcStructure
61	);	61	);
62	use C4::Acquisition;
63	use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );	62	use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
64	use C4::Search qw( z3950_search_args enabled_staff_search_views );	63	use C4::Search qw( z3950_search_args enabled_staff_search_views );
65		64

Lines 45-51 use C4::XSLT; Link Here

(-)a/catalogue/detail.pl (-1 lines)
45	use Koha::DateUtils qw( format_sqldatetime );	45	use Koha::DateUtils qw( format_sqldatetime );
46	use C4::HTML5Media;	46	use C4::HTML5Media;
47	use C4::CourseReserves qw( GetItemCourseReservesInfo );	47	use C4::CourseReserves qw( GetItemCourseReservesInfo );
48	use C4::Acquisition qw(GetOrdersByBiblionumber);
49	use Koha::AuthorisedValues;	48	use Koha::AuthorisedValues;
50	use Koha::Biblios;	49	use Koha::Biblios;
51	use Koha::CoverImages;	50	use Koha::CoverImages;

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

(-)a/catalogue/item-export.pl (-1 lines)
22	use CGI ();	22	use CGI ();
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output;
26		25
27	my $cgi = CGI->new;	26	my $cgi = CGI->new;
28		27

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

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

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

(-)a/cataloguing/additem.pl (-1 / +1 lines)
23		23
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Auth qw( get_template_and_user haspermission );	25	use C4::Auth qw( get_template_and_user haspermission );
26	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	26	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
27	use C4::Biblio qw(	27	use C4::Biblio qw(
28	GetAuthorisedValueDesc	28	GetAuthorisedValueDesc
29	GetFrameworkCode	29	GetFrameworkCode

Lines 36-42 use C4::Biblio qw( Link Here

(-)a/cataloguing/merge.pl (-1 / +1 lines)
36	);	36	);
37	use C4::Serials qw( CountSubscriptionFromBiblionumber );	37	use C4::Serials qw( CountSubscriptionFromBiblionumber );
38	use C4::Reserves qw( MergeHolds );	38	use C4::Reserves qw( MergeHolds );
39	use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;	39	use C4::Acquisition qw( GetOrdersByBiblionumber ModOrder );
40		40
41	use Koha::BiblioFrameworks;	41	use Koha::BiblioFrameworks;
42	use Koha::Items;	42	use Koha::Items;

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

(-)a/cataloguing/moveitem.pl (-1 lines)
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Items qw( MoveItemFromBiblio );	27	use C4::Items qw( MoveItemFromBiblio );
28	use C4::Context;	28	use C4::Context;
29	use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/;
30		29
31	use Koha::Biblios;	30	use Koha::Biblios;
32		31

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

(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-1 / +1 lines)
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( pagination_bar output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers pagination_bar );
26	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
27	use C4::Search;	27	use C4::Search;
28	use C4::Koha qw( getnbpages );	28	use C4::Koha qw( getnbpages );

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

(-)a/circ/add_message.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output;
26	use Koha::Patron::Message;	25	use Koha::Patron::Message;
27		26
28	my $input = CGI->new;	27	my $input = CGI->new;

Lines 23-29 Link Here

(-)a/circ/bookcount.pl (-1 lines)
23	use Modern::Perl;	23	use Modern::Perl;
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Context;	25	use C4::Context;
26	use C4::Circulation;
27	use C4::Output qw( output_and_exit output_html_with_http_headers );	26	use C4::Output qw( output_and_exit output_html_with_http_headers );
28	use C4::Auth qw( get_template_and_user );	27	use C4::Auth qw( get_template_and_user );
29	use Koha::Biblios;	28	use Koha::Biblios;

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

(-)a/circ/branchtransfers.pl (-2 / +1 lines)
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Circulation qw( transferbook );	25	use C4::Circulation qw( transferbook );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Reserves qw( ModReserve ModReserveAffect );	27	use C4::Reserves qw( ModReserveAffect );
28	use C4::Auth qw( get_session get_template_and_user );	28	use C4::Auth qw( get_session get_template_and_user );
29	use C4::Members;
30	use Koha::BiblioFrameworks;	29	use Koha::BiblioFrameworks;
31	use Koha::AuthorisedValues;	30	use Koha::AuthorisedValues;
32	use Koha::Holds;	31	use Koha::Holds;




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

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

(-)a/circ/del_message.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output;
26	use Koha::Patron::Messages;	25	use Koha::Patron::Messages;
27		26
28	my $input = CGI->new;	27	my $input = CGI->new;

Lines 19-25 Link Here

(-)a/circ/on-site_checkouts.pl (-1 / +1 lines)
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Circulation qw( GetPendingOnSiteCheckouts );	22	use C4::Circulation ();
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use Koha::BiblioFrameworks;	24	use Koha::BiblioFrameworks;
25		25

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

(-)a/circ/pendingreserves.pl (-1 lines)
29	use CGI qw ( -utf8 );	29	use CGI qw ( -utf8 );
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
31	use C4::Items ();	31	use C4::Items ();
32	use C4::Reserves qw( ModReserveCancelAll );
33	use Koha::Biblios;	32	use Koha::Biblios;
34	use Koha::DateUtils qw( dt_from_string );	33	use Koha::DateUtils qw( dt_from_string );
35	use Koha::Holds;	34	use Koha::Holds;

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

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

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

(-)a/circ/request-article.pl (-1 / +1 lines)
22	use C4::Output qw( output_and_exit output_html_with_http_headers );	22	use C4::Output qw( output_and_exit output_html_with_http_headers );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Utils::DataTables::Members;	24	use C4::Utils::DataTables::Members;
25	use C4::Search qw( enabled_staff_search_views );	25	use C4::Search ();
26	use C4::Serials qw( CountSubscriptionFromBiblionumber );	26	use C4::Serials qw( CountSubscriptionFromBiblionumber );
27	use Koha::Biblios;	27	use Koha::Biblios;
28	use Koha::Patrons;	28	use Koha::Patrons;

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

(-)a/circ/reserveratios.pl (-1 / +1 lines)
27	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
28	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
29	use C4::Debug qw( $debug );	29	use C4::Debug qw( $debug );
30	use C4::Acquisition qw/GetOrdersByBiblionumber/;	30	use C4::Acquisition qw( GetOrdersByBiblionumber );
31	use Koha::DateUtils qw( dt_from_string output_pref );	31	use Koha::DateUtils qw( dt_from_string output_pref );
32	use Koha::Acquisition::Baskets;	32	use Koha::Acquisition::Baskets;
33		33




use CGI qw ( -utf8 );
use DateTime;

use C4::Auth qw( get_session get_template_and_user );
use C4::Output qw( output_html_with_http_headers );
use C4::Circulation qw(
    AddReturn
    barcodedecode
    GetBranchItemRule
    updateWrongTransfer
);
use C4::Reserves qw( GetOtherReserves ModReserveAffect );
use C4::Circulation qw(
    AddReturn
    barcodedecode
    GetBranchItemRule
    updateWrongTransfer
);
use C4::Context;
use C4::Items qw( ModItemTransfer );
use C4::Members::Messaging;
use C4::Members ();
use C4::Output qw( output_html_with_http_headers );
use C4::Reserves qw( GetOtherReserves ModReserveAffect );
use C4::RotatingCollections qw( GetCollectionItemBranches );
use Koha::AuthorisedValues;
use Koha::BiblioFrameworks;
use Koha::Calendar;

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

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

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

(-)a/circ/transferstoreceive.pl (-3 / +1 lines)
23	use C4::Context;	23	use C4::Context;
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Circulation qw( GetTransfers GetTransfersFromTo );	26	use C4::Circulation qw( GetTransfersFromTo );
27	use C4::Members;
28	use Date::Calc qw( Add_Delta_Days Date_to_Days Today );	27	use Date::Calc qw( Add_Delta_Days Date_to_Days Today );
29		28
30	use C4::Reserves;
31	use Koha::Items;	29	use Koha::Items;
32	use Koha::ItemTypes;	30	use Koha::ItemTypes;
33	use Koha::Libraries;	31	use Koha::Libraries;

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

(-)a/circ/waitingreserves.pl (-3 / +1 lines)
23	use C4::Context;	23	use C4::Context;
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Circulation;
27	use C4::Members;
28	use C4::Items qw( ModItemTransfer );	26	use C4::Items qw( ModItemTransfer );
29	use Date::Calc qw( Date_to_Days Today );	27	use Date::Calc qw( Date_to_Days Today );
30	use C4::Reserves qw( ModReserve ModReserveCancelAll );	28	use C4::Reserves qw( ModReserveCancelAll );
31	use Koha::DateUtils qw( dt_from_string output_pref );	29	use Koha::DateUtils qw( dt_from_string output_pref );
32	use Koha::BiblioFrameworks;	30	use Koha::BiblioFrameworks;
33	use Koha::Items;	31	use Koha::Items;

Lines 39-46 use utf8; Link Here

(-)a/docs/CAS/CASProxy/examples/koha_webservice.pl (-2 / +1 lines)
39	use Modern::Perl;	39	use Modern::Perl;
40	binmode(STDOUT, ":encoding(UTF-8)");	40	binmode(STDOUT, ":encoding(UTF-8)");
41		41
42	use C4::Auth qw(check_api_auth);	42	use C4::Auth qw( check_api_auth );
43	use C4::Output;
44	use C4::Context;	43	use C4::Context;
45	use CGI qw ( -utf8 );	44	use CGI qw ( -utf8 );
46		45

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

(-)a/members/boraccount.pl (-1 / +1 lines)
26	use URI::Escape qw( uri_unescape );	26	use URI::Escape qw( uri_unescape );
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_and_exit_if_error output_and_exit output_html_with_http_headers );	29	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
30	use CGI qw ( -utf8 );	30	use CGI qw ( -utf8 );
31	use Koha::Cash::Registers;	31	use Koha::Cash::Registers;
32	use Koha::Patrons;	32	use Koha::Patrons;

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

(-)a/members/deletemem.pl (-3 / +7 lines)
28	use Try::Tiny qw( catch try );	28	use Try::Tiny qw( catch try );
29		29
30	use C4::Context;	30	use C4::Context;
31	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	31	use C4::Output qw(
32	use C4::Auth qw( get_template_and_user haspermission );	32	output_and_exit
33	use C4::Suggestions qw( SearchSuggestion );	33	output_and_exit_if_error
		34	output_html_with_http_headers
		35	);
		36	use C4::Auth qw( get_template_and_user );
		37	use C4::Suggestions ();
34	use Koha::Patrons;	38	use Koha::Patrons;
35	use Koha::Token;	39	use Koha::Token;
36	use Koha::Patron::Categories;	40	use Koha::Patron::Categories;

Lines 32-38 use Carp qw( carp ); Link Here

(-)a/members/discharge.pl (-1 / +1 lines)
32		32
33	use CGI qw( -utf8 );	33	use CGI qw( -utf8 );
34	use C4::Auth qw( get_template_and_user );	34	use C4::Auth qw( get_template_and_user );
35	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	35	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
36	use C4::Reserves;	36	use C4::Reserves;
37	use Koha::Patron::Discharge;	37	use Koha::Patron::Discharge;
38	use Koha::Patrons;	38	use Koha::Patrons;

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

(-)a/members/discharges.pl (-1 / +1 lines)
21		21
22	use CGI ();	22	use CGI ();
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
25	use C4::Context;	25	use C4::Context;
26	use Koha::Patron::Discharge;	26	use Koha::Patron::Discharge;
27		27

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

(-)a/members/files.pl (-1 / +1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	25	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
26	use C4::Members;	26	use C4::Members;
27		27
28	use Koha::Patrons;	28	use Koha::Patrons;

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

(-)a/members/housebound.pl (-1 / +1 lines)
28	use CGI ();	28	use CGI ();
29	use C4::Auth qw( get_template_and_user );	29	use C4::Auth qw( get_template_and_user );
30	use C4::Context;	30	use C4::Context;
31	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	31	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
32	use DateTime;	32	use DateTime;
33	use Koha::DateUtils qw( dt_from_string );	33	use Koha::DateUtils qw( dt_from_string );
34	use Koha::Libraries;	34	use Koha::Libraries;

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

(-)a/members/ill-requests.pl (-1 / +1 lines)
21		21
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
25	use Koha::Patrons;	25	use Koha::Patrons;
26		26
27	my $input = CGI->new;	27	my $input = CGI->new;

Lines 24-30 Link Here

(-)a/members/mancredit.pl (-1 / +5 lines)
24	use Modern::Perl;	24	use Modern::Perl;
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	27	use C4::Output qw(
		28	output_and_exit
		29	output_and_exit_if_error
		30	output_html_with_http_headers
		31	);
28	use CGI qw ( -utf8 );	32	use CGI qw ( -utf8 );
29		33
30	use C4::Members;	34	use C4::Members;

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

(-)a/members/maninvoice.pl (-1 / +5 lines)
26	use Try::Tiny qw( catch try );	26	use Try::Tiny qw( catch try );
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_and_exit_if_error output_and_exit output_html_with_http_headers );	29	use C4::Output qw(
		30	output_and_exit
		31	output_and_exit_if_error
		32	output_html_with_http_headers
		33	);
30	use CGI qw ( -utf8 );	34	use CGI qw ( -utf8 );
31	use C4::Members;	35	use C4::Members;
32	use C4::Accounts;	36	use C4::Accounts;

Lines 7-13 Link Here

(-)a/members/member-password.pl (-1 / +5 lines)
7	use Modern::Perl;	7	use Modern::Perl;
8		8
9	use C4::Auth qw( get_template_and_user );	9	use C4::Auth qw( get_template_and_user );
10	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	10	use C4::Output qw(
		11	output_and_exit
		12	output_and_exit_if_error
		13	output_html_with_http_headers
		14	);
11	use C4::Context;	15	use C4::Context;
12	use C4::Members;	16	use C4::Members;
13	use C4::Circulation;	17	use C4::Circulation;

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

(-)a/members/memberentry.pl (-1 / +5 lines)
27	# internal modules	27	# internal modules
28	use C4::Auth qw( get_template_and_user haspermission );	28	use C4::Auth qw( get_template_and_user haspermission );
29	use C4::Context;	29	use C4::Context;
30	use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers );	30	use C4::Output qw(
		31	output_and_exit
		32	output_and_exit_if_error
		33	output_html_with_http_headers
		34	);
31	use C4::Members qw( checkcardnumber get_cardnumber_length );	35	use C4::Members qw( checkcardnumber get_cardnumber_length );
32	use C4::Koha qw( GetAuthorisedValues );	36	use C4::Koha qw( GetAuthorisedValues );
33	use C4::Letters qw( SendAlerts );	37	use C4::Letters qw( SendAlerts );

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

(-)a/members/members-update-do.pl (-1 lines)
20		20
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output;
24	use C4::Context;	23	use C4::Context;
25	use Koha::Patrons;	24	use Koha::Patrons;
26	use Koha::Patron::Modifications;	25	use Koha::Patron::Modifications;

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

(-)a/members/moremember.pl (-1 / +1 lines)
31	use CGI qw ( -utf8 );	31	use CGI qw ( -utf8 );
32	use C4::Context;	32	use C4::Context;
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	34	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
35	use C4::Form::MessagingPreferences;	35	use C4::Form::MessagingPreferences;
36	use List::MoreUtils qw( uniq );	36	use List::MoreUtils qw( uniq );
37	use Koha::Patron::Attribute::Types;	37	use Koha::Patron::Attribute::Types;

Lines 21-27 Link Here

(-)a/members/notices.pl (-1 / +1 lines)
21		21
22	use Modern::Perl;	22	use Modern::Perl;
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use C4::Members;	26	use C4::Members;
27	use C4::Letters ();	27	use C4::Letters ();

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

(-)a/members/pay.pl (-1 / +1 lines)
31	use URI::Escape qw( uri_escape_utf8 uri_unescape );	31	use URI::Escape qw( uri_escape_utf8 uri_unescape );
32	use C4::Context;	32	use C4::Context;
33	use C4::Auth qw( get_template_and_user );	33	use C4::Auth qw( get_template_and_user );
34	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	34	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
35	use CGI qw ( -utf8 );	35	use CGI qw ( -utf8 );
36	use Koha::Patrons;	36	use Koha::Patrons;
37	use Koha::Items;	37	use Koha::Items;

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

(-)a/members/paycollect.pl (-1 / +5 lines)
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	26	use C4::Output qw(
		27	output_and_exit
		28	output_and_exit_if_error
		29	output_html_with_http_headers
		30	);
27		31
28	use Koha::Cash::Registers;	32	use Koha::Cash::Registers;
29	use Koha::Patrons;	33	use Koha::Patrons;

Lines 23-29 use CGI (); Link Here

(-)a/members/print_overdues.pl (-1 / +1 lines)
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	26	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
27	use C4::Overdues qw( parse_overdues_letter );	27	use C4::Overdues qw( parse_overdues_letter );
28		28
29	use Koha::Patrons;	29	use Koha::Patrons;

Lines 21-27 Link Here

(-)a/members/printfeercpt.pl (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use C4::Letters ();	26	use C4::Letters ();
27	use Koha::Account::Lines;	27	use Koha::Account::Lines;

Lines 21-27 Link Here

(-)a/members/printinvoice.pl (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	24	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
26	use C4::Letters ();	26	use C4::Letters ();
27	use Koha::Account::Lines;	27	use Koha::Account::Lines;

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

(-)a/members/printslip.pl (-1 / +1 lines)
36	use CGI qw ( -utf8 );	36	use CGI qw ( -utf8 );
37	use C4::Context;	37	use C4::Context;
38	use C4::Auth qw( get_session get_template_and_user );	38	use C4::Auth qw( get_session get_template_and_user );
39	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	39	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
40	use C4::Members qw( IssueSlip );	40	use C4::Members qw( IssueSlip );
41		41
42	#use Smart::Comments;	42	#use Smart::Comments;

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

(-)a/members/purchase-suggestions.pl (-2 / +2 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	25	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
26	use C4::Members;	26	use C4::Members;
27	use C4::Suggestions;	27	use C4::Suggestions qw( SearchSuggestion );
28	use Koha::Patrons;	28	use Koha::Patrons;
29		29
30	my $input = CGI->new;	30	my $input = CGI->new;

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

(-)a/members/readingrec.pl (-1 / +1 lines)
25	use CGI qw ( -utf8 );	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_and_exit_if_error output_and_exit output_html_with_http_headers );	28	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
29	use C4::Members qw( GetAllIssues );	29	use C4::Members qw( GetAllIssues );
30	use List::MoreUtils qw( uniq );	30	use List::MoreUtils qw( uniq );
31	use Koha::DateUtils qw( dt_from_string );	31	use Koha::DateUtils qw( dt_from_string );

Lines 33-39 use C4::Members::Statistics qw( Link Here

(-)a/members/statistics.pl (-1 / +1 lines)
33	GetTotalIssuesReturnedTodayByBorrower	33	GetTotalIssuesReturnedTodayByBorrower
34	GetTotalIssuesTodayByBorrower	34	GetTotalIssuesTodayByBorrower
35	);	35	);
36	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	36	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
37	use Koha::Patrons;	37	use Koha::Patrons;
38	use Koha::Patron::Categories;	38	use Koha::Patron::Categories;
39		39

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

(-)a/members/summary-print.pl (-1 / +1 lines)
20	use CGI ();	20	use CGI ();
21		21
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	23	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
24	use C4::Members;	24	use C4::Members;
25	use C4::Circulation qw( GetIssuingCharges );	25	use C4::Circulation qw( GetIssuingCharges );
26	use C4::Reserves;	26	use C4::Reserves;

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

(-)a/members/update-child.pl (-1 / +1 lines)
30	use CGI qw ( -utf8 );	30	use CGI qw ( -utf8 );
31	use C4::Context;	31	use C4::Context;
32	use C4::Auth qw( get_template_and_user );	32	use C4::Auth qw( get_template_and_user );
33	use C4::Output qw( output_html_with_http_headers output_and_exit_if_error output_and_exit );	33	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
34	use Koha::Patrons;	34	use Koha::Patrons;
35	use Koha::Patron::Categories;	35	use Koha::Patron::Categories;
36	use Koha::Patrons;	36	use Koha::Patrons;

Lines 47-56 BEGIN { Link Here

(-)a/misc/cronjobs/advance_notices.pl (-3 / +2 lines)
47	}	47	}
48	use Koha::Script -cron;	48	use Koha::Script -cron;
49	use C4::Context;	49	use C4::Context;
50	use C4::Letters qw( get_item_content EnqueueLetter GetPreparedLetter );	50	use C4::Letters ();
51	use C4::Members;	51	use C4::Members ();
52	use C4::Members::Messaging;	52	use C4::Members::Messaging;
53	use C4::Overdues;
54	use C4::Log qw( cronlogaction );	53	use C4::Log qw( cronlogaction );
55	use Koha::Items;	54	use Koha::Items;
56	use Koha::Libraries;	55	use Koha::Libraries;




# WARNING: Any other tested YAML library fails to work properly in this
# script content
# FIXME Really?
use YAML::XS ();
use Locale::PO;
use FindBin qw( $Bin );
use File::Basename;
use File::Path qw( make_path );
use File::Copy ();

sub set_lang {
    my ($self, $lang) = @_;

Lines 1-7 Link Here

(-)a/misc/translator/TmplTokenizer.pm (-1 / +1 lines)
1	package TmplTokenizer;	1	package TmplTokenizer;
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use C4::TmplTokenType qw( CDATA UNKNOWN DIRECTIVE TEXT TAG TEXT_PARAMETRIZED to_string );	4	use C4::TmplTokenType ();
5	use C4::TmplToken;	5	use C4::TmplToken;
6	use C4::TTParser;	6	use C4::TTParser;
7	use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );	7	use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );

Lines 20-27 Link Here

(-)a/offline_circ/download.pl (-2 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use JSON qw( to_json );	22	use JSON qw( to_json );
23	use C4::Auth qw( checkauth );
24	use C4::Output;
25	use C4::Context;	23	use C4::Context;
26		24
27	my $query = CGI->new;	25	my $query = CGI->new;

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

(-)a/offline_circ/enqueue_koc.pl (-3 lines)
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Auth qw( get_template_and_user );	25	use C4::Auth qw( get_template_and_user );
26	use C4::Context;	26	use C4::Context;
27	use C4::Accounts;
28	use C4::Circulation qw( AddOfflineOperation );	27	use C4::Circulation qw( AddOfflineOperation );
29	use C4::Members;
30	use C4::Stats;
31	use Koha::Checkouts;	28	use Koha::Checkouts;
32	use Koha::UploadedFiles;	29	use Koha::UploadedFiles;
33	use Koha::Items;	30	use Koha::Items;

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

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

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

(-)a/offline_circ/process.pl (-1 / +5 lines)
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Circulation qw( GetOfflineOperation ProcessOfflineOperation DeleteOfflineOperation );	25	use C4::Circulation qw(
		26	DeleteOfflineOperation
		27	GetOfflineOperation
		28	ProcessOfflineOperation
		29	);
26		30
27	my $query = CGI->new;	31	my $query = CGI->new;
28		32

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

(-)a/offline_circ/process_koc.pl (-4 / +1 lines)
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Context;	27	use C4::Context;
28	use C4::Accounts;	28	use C4::Circulation qw( barcodedecode GetOpenIssue );
29	use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned );
30	use C4::Items qw( ModDateLastSeen );	29	use C4::Items qw( ModDateLastSeen );
31	use C4::Members;
32	use C4::Stats;
33	use C4::BackgroundJob;	30	use C4::BackgroundJob;
34	use Koha::UploadedFiles;	31	use Koha::UploadedFiles;
35	use Koha::Account;	32	use Koha::Account;

Lines 21-27 Link Here

(-)a/offline_circ/service.pl (-1 / +1 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22		22
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Auth qw( check_api_auth check_cookie_auth );	24	use C4::Auth ();
25	use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );	25	use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );
26	use Koha::DateUtils qw( dt_from_string );	26	use Koha::DateUtils qw( dt_from_string );
27	use DateTime::TimeZone;	27	use DateTime::TimeZone;

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

(-)a/opac/opac-ISBDdetail.pl (-2 / +1 lines)
43		43
44	use C4::Auth qw( get_template_and_user );	44	use C4::Auth qw( get_template_and_user );
45	use C4::Context;	45	use C4::Context;
46	use C4::Output qw( parametrized_url output_html_with_http_headers );	46	use C4::Output qw( output_html_with_http_headers parametrized_url );
47	use CGI qw ( -utf8 );	47	use CGI qw ( -utf8 );
48	use C4::Biblio qw(	48	use C4::Biblio qw(
49	CountItemsIssued	49	CountItemsIssued
Lines 53-59 use C4::Biblio qw( Link Here
53	TransformMarcToKoha	53	TransformMarcToKoha
54	);	54	);
55	use C4::Reserves;	55	use C4::Reserves;
56	use C4::Acquisition;
57	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );	56	use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
58	use C4::Koha qw(	57	use C4::Koha qw(
59	GetNormalizedEAN	58	GetNormalizedEAN

Lines 47-53 use Modern::Perl; Link Here

(-)a/opac/opac-MARCdetail.pl (-2 / +1 lines)
47		47
48	use C4::Auth qw( get_template_and_user );	48	use C4::Auth qw( get_template_and_user );
49	use C4::Context;	49	use C4::Context;
50	use C4::Output qw( parametrized_url output_html_with_http_headers );	50	use C4::Output qw( output_html_with_http_headers parametrized_url );
51	use CGI qw ( -utf8 );	51	use CGI qw ( -utf8 );
52	use C4::Biblio qw(	52	use C4::Biblio qw(
53	CountItemsIssued	53	CountItemsIssued
Lines 61-67 use C4::Biblio qw( Link Here
61	);	61	);
62	use C4::Reserves;	62	use C4::Reserves;
63	use C4::Members;	63	use C4::Members;
64	use C4::Acquisition;
65	use C4::Koha qw( GetNormalizedISBN );	64	use C4::Koha qw( GetNormalizedISBN );
66	use List::MoreUtils qw( uniq );	65	use List::MoreUtils qw( uniq );
67	use Koha::Biblios;	66	use Koha::Biblios;

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

(-)a/opac/opac-account-pay.pl (-1 lines)
24	use CGI ();	24	use CGI ();
25		25
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output;
28	use C4::Context;	27	use C4::Context;
29	use Koha::Acquisition::Currencies;	28	use Koha::Acquisition::Currencies;
30	use Koha::Database;	29	use Koha::Database;

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

(-)a/opac/opac-authorities-home.pl (-2 / +1 lines)
26		26
27	use C4::Context;	27	use C4::Context;
28	use C4::Auth qw( get_template_and_user );	28	use C4::Auth qw( get_template_and_user );
29	use C4::Output qw( pagination_bar output_html_with_http_headers );	29	use C4::Output qw( output_html_with_http_headers pagination_bar );
30	use C4::Auth qw( get_template_and_user );	30	use C4::Auth qw( get_template_and_user );
31	use C4::Koha;
32	use C4::Search::History;	31	use C4::Search::History;
33		32
34	use Koha::Authority::Types;	33	use Koha::Authority::Types;

Lines 26-32 use String::Random qw( random_string ); Link Here

(-)a/opac/opac-memberentry.pl (-1 / +1 lines)
26	use C4::Auth qw( get_template_and_user );	26	use C4::Auth qw( get_template_and_user );
27	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
28	use C4::Context;	28	use C4::Context;
29	use C4::Members qw( get_cardnumber_length checkcardnumber );	29	use C4::Members qw( checkcardnumber );
30	use C4::Form::MessagingPreferences;	30	use C4::Form::MessagingPreferences;
31	use Koha::AuthUtils ();	31	use Koha::AuthUtils ();
32	use Koha::Patrons;	32	use Koha::Patrons;

Lines 41-48 my ($builder, $searcher); Link Here

(-)a/opac/opac-search.pl (-2 / +2 lines)
41	$builder = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});	41	$builder = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});
42	$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});	42	$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});
43		43
44	use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http_headers );	44	use C4::Output qw( output_html_with_http_headers output_with_http_headers );
45	use C4::Auth qw( get_template_and_user get_session );	45	use C4::Auth qw( get_session get_template_and_user );
46	use C4::Languages qw( getLanguages );	46	use C4::Languages qw( getLanguages );
47	use C4::Search qw( searchResults );	47	use C4::Search qw( searchResults );
48	use C4::Search qw( searchResults );	48	use C4::Search qw( searchResults );

Lines 31-37 use C4::Koha qw( Link Here

(-)a/opac/opac-shelves.pl (-1 / +1 lines)
31	);	31	);
32	use C4::Items qw( GetItemsLocationInfo );	32	use C4::Items qw( GetItemsLocationInfo );
33	use C4::Members;	33	use C4::Members;
34	use C4::Output qw( pagination_bar output_with_http_headers );	34	use C4::Output qw( output_with_http_headers pagination_bar );
35	use C4::Tags qw( get_tags );	35	use C4::Tags qw( get_tags );
36	use C4::XSLT;	36	use C4::XSLT;
37		37

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

(-)a/opac/opac-suggestions.pl (-1 / +6 lines)
24	use C4::Members;	24	use C4::Members;
25	use C4::Koha qw( GetAuthorisedValues );	25	use C4::Koha qw( GetAuthorisedValues );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Suggestions;	27	use C4::Suggestions qw(
		28	DelSuggestion
		29	MarcRecordFromNewSuggestion
		30	NewSuggestion
		31	SearchSuggestion
		32	);
28	use C4::Koha qw( GetAuthorisedValues );	33	use C4::Koha qw( GetAuthorisedValues );
29	use C4::Scrubber;	34	use C4::Scrubber;
30	use C4::Search qw( FindDuplicate );	35	use C4::Search qw( FindDuplicate );

Lines 38-44 use CGI::Cookie; # need to check cookies before having CGI parse the POST reques Link Here

(-)a/opac/opac-tags.pl (-1 / +5 lines)
38	use C4::Auth qw( check_cookie_auth get_template_and_user );	38	use C4::Auth qw( check_cookie_auth get_template_and_user );
39	use C4::Context;	39	use C4::Context;
40	use C4::Debug qw( $debug );	40	use C4::Debug qw( $debug );
41	use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );	41	use C4::Output qw(
		42	is_ajax
		43	output_html_with_http_headers
		44	output_with_http_headers
		45	);
42	use C4::Scrubber;	46	use C4::Scrubber;
43	use C4::Biblio qw( GetMarcBiblio );	47	use C4::Biblio qw( GetMarcBiblio );
44	use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );	48	use C4::Items qw( GetHiddenItemnumbers GetItemsInfo );

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

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

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

(-)a/patroncards/add_user_search.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Members;
26		25
27	use Koha::Patron::Categories;	26	use Koha::Patron::Categories;
28		27

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

(-)a/plugins/plugins-uninstall.pl (-1 lines)
22		22
23	use C4::Context;	23	use C4::Context;
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Output;
26	use C4::Members;	25	use C4::Members;
27	use Koha::Plugins::Handler;	26	use Koha::Plugins::Handler;
28		27

Lines 20-26 Link Here

(-)a/pos/printreceipt.pl (-1 / +1 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );	23	use C4::Output qw( output_and_exit_if_error output_html_with_http_headers );
24	use CGI qw ( -utf8 );	24	use CGI qw ( -utf8 );
25	use C4::Letters ();	25	use C4::Letters ();
26	use Koha::Account::Lines;	26	use Koha::Account::Lines;

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

(-)a/reports/acquisitions_stats.pl (-1 lines)
25	use C4::Reports qw( GetDelimiterChoices );	25	use C4::Reports qw( GetDelimiterChoices );
26	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
27	use C4::Koha qw( GetAuthorisedValues );	27	use C4::Koha qw( GetAuthorisedValues );
28	use C4::Circulation;
29	use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );	28	use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );
30	use Koha::ItemTypes;	29	use Koha::ItemTypes;
31	use Koha::DateUtils qw( dt_from_string output_pref );	30	use Koha::DateUtils qw( dt_from_string output_pref );

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

(-)a/reports/bor_issues_top.pl (-2 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Context;	25	use C4::Context;
26	use C4::Circulation;
27	use C4::Members;
28	use C4::Reports qw( GetDelimiterChoices );	26	use C4::Reports qw( GetDelimiterChoices );
29	use C4::Debug qw( $debug );	27	use C4::Debug qw( $debug );
30		28

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

(-)a/reports/borrowers_out.pl (-2 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Circulation;
27	use C4::Reports qw( GetDelimiterChoices );	26	use C4::Reports qw( GetDelimiterChoices );
28	use C4::Members;
29		27
30	use Koha::DateUtils qw( dt_from_string output_pref );	28	use Koha::DateUtils qw( dt_from_string output_pref );
31	use Koha::Patron::Categories;	29	use Koha::Patron::Categories;

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

(-)a/reports/borrowers_stats.pl (-2 lines)
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Context;	24	use C4::Context;
25	use C4::Koha qw( GetAuthorisedValues );	25	use C4::Koha qw( GetAuthorisedValues );
26	use C4::Acquisition;
27	use C4::Output qw( output_html_with_http_headers );	26	use C4::Output qw( output_html_with_http_headers );
28	use C4::Reports qw( GetDelimiterChoices );	27	use C4::Reports qw( GetDelimiterChoices );
29	use C4::Circulation;
30		28
31	use Koha::AuthorisedValues;	29	use Koha::AuthorisedValues;
32	use Koha::DateUtils qw( dt_from_string output_pref );	30	use Koha::DateUtils qw( dt_from_string output_pref );

Lines 21-27 use CGI (); Link Here

(-)a/reports/cash_register_stats.pl (-1 lines)
21	use C4::Context;	21	use C4::Context;
22	use C4::Reports qw( GetDelimiterChoices );	22	use C4::Reports qw( GetDelimiterChoices );
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Circulation;
25	use DateTime;	24	use DateTime;
26	use Koha::DateUtils qw( dt_from_string output_pref );	25	use Koha::DateUtils qw( dt_from_string output_pref );
27	use Text::CSV::Encoded;	26	use Text::CSV::Encoded;

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

(-)a/reports/cat_issues_top.pl (-2 lines)
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Koha qw( GetAuthorisedValues );	26	use C4::Koha qw( GetAuthorisedValues );
27	use C4::Circulation;
28	use C4::Reports qw( GetDelimiterChoices );	27	use C4::Reports qw( GetDelimiterChoices );
29	use C4::Members;
30	use Koha::DateUtils qw( dt_from_string output_pref );	28	use Koha::DateUtils qw( dt_from_string output_pref );
31	use Koha::ItemTypes;	29	use Koha::ItemTypes;
32		30

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

(-)a/reports/catalogue_stats.pl (-1 lines)
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Koha qw( GetAuthorisedValues );	26	use C4::Koha qw( GetAuthorisedValues );
27	use C4::Reports qw( GetDelimiterChoices );	27	use C4::Reports qw( GetDelimiterChoices );
28	use C4::Circulation;
29	use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );	28	use C4::Biblio qw( GetMarcSubfieldStructureFromKohaField );
30		29
31	use Koha::AuthorisedValues;	30	use Koha::AuthorisedValues;

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

(-)a/reports/dictionary.pl (-1 / +9 lines)
20	use C4::Auth qw( get_template_and_user );	20	use C4::Auth qw( get_template_and_user );
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Output qw( output_html_with_http_headers );	22	use C4::Output qw( output_html_with_http_headers );
23	use C4::Reports::Guided qw( get_from_dictionary get_columns get_column_type get_distinct_values save_dictionary delete_definition get_report_areas );	23	use C4::Reports::Guided qw(
		24	delete_definition
		25	get_column_type
		26	get_columns
		27	get_distinct_values
		28	get_from_dictionary
		29	get_report_areas
		30	save_dictionary
		31	);
24	use Koha::DateUtils qw( dt_from_string output_pref );	32	use Koha::DateUtils qw( dt_from_string output_pref );
25		33
26	=head1 NAME	34	=head1 NAME




use Encode qw( decode );
use URI::Escape ();
use File::Temp ();
use C4::Reports::Guided qw(
    build_query
    delete_report
    execute_query
    format_results
    get_columns
    get_criteria
    get_from_dictionary
    get_report_areas
    get_report_groups
    get_report_types
    get_saved_reports
    nb_rows
    save_report
    update_sql
    ValidateSQLParameters
);
use Koha::Reports;
use C4::Auth qw( get_session get_template_and_user );
use C4::Output qw( output_html_with_http_headers pagination_bar );
use C4::Context;
use Koha::Caches;
use C4::Log qw( logaction );

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

(-)a/reports/issues_avg_stats.pl (-1 lines)
23	use CGI qw ( -utf8 );	23	use CGI qw ( -utf8 );
24	use C4::Context;	24	use C4::Context;
25	use C4::Output qw( output_html_with_http_headers );	25	use C4::Output qw( output_html_with_http_headers );
26	use C4::Circulation;
27	use C4::Reports qw( GetDelimiterChoices );	26	use C4::Reports qw( GetDelimiterChoices );
28	use Koha::DateUtils qw( dt_from_string output_pref );	27	use Koha::DateUtils qw( dt_from_string output_pref );
29	use Koha::ItemTypes;	28	use Koha::ItemTypes;

Lines 26-34 use C4::Debug qw( $debug ); Link Here

(-)a/reports/issues_stats.pl (-2 lines)
26	use C4::Context;	26	use C4::Context;
27	use C4::Koha qw( GetAuthorisedValues );	27	use C4::Koha qw( GetAuthorisedValues );
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29	use C4::Circulation;
30	use C4::Reports qw( GetDelimiterChoices );	29	use C4::Reports qw( GetDelimiterChoices );
31	use C4::Members;
32		30
33	use Koha::AuthorisedValues;	31	use Koha::AuthorisedValues;
34	use Koha::DateUtils qw( dt_from_string output_pref );	32	use Koha::DateUtils qw( dt_from_string output_pref );

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

(-)a/reports/manager.pl (-1 lines)
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Context;	23	use C4::Context;
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Circulation;
26		25
27		26
28	my $input = CGI->new;	27	my $input = CGI->new;

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

(-)a/reports/orders_by_fund.pl (-2 / +2 lines)
30	use CGI qw( -utf8 );	30	use CGI qw( -utf8 );
31	use C4::Auth qw( get_template_and_user );	31	use C4::Auth qw( get_template_and_user );
32	use C4::Output qw( output_html_with_http_headers );	32	use C4::Output qw( output_html_with_http_headers );
33	use C4::Budgets;	33	use C4::Budgets qw( GetBudgetHierarchy );
34	use C4::Acquisition; #GetBasket()	34	use C4::Acquisition qw( get_rounded_price ); #GetBasket()
35	use Koha::Biblios;	35	use Koha::Biblios;
36	use Koha::DateUtils qw( dt_from_string output_pref );	36	use Koha::DateUtils qw( dt_from_string output_pref );
37		37

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

(-)a/reports/reserves_stats.pl (-1 lines)
27	use C4::Koha qw( GetAuthorisedValues );	27	use C4::Koha qw( GetAuthorisedValues );
28	use C4::Output qw( output_html_with_http_headers );	28	use C4::Output qw( output_html_with_http_headers );
29	use C4::Reports qw( GetDelimiterChoices );	29	use C4::Reports qw( GetDelimiterChoices );
30	use C4::Members;
31	use Koha::AuthorisedValues;	30	use Koha::AuthorisedValues;
32	use Koha::DateUtils qw( dt_from_string output_pref );	31	use Koha::DateUtils qw( dt_from_string output_pref );
33	use Koha::ItemTypes;	32	use Koha::ItemTypes;

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

(-)a/reviews/reviewswaiting.pl (-1 / +1 lines)
19		19
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( pagination_bar output_html_with_http_headers );	22	use C4::Output qw( output_html_with_http_headers pagination_bar );
23	use C4::Context;	23	use C4::Context;
24	use Koha::Biblios;	24	use Koha::Biblios;
25	use Koha::Patrons;	25	use Koha::Patrons;

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

(-)a/rotating_collections/addItems.pl (-1 / +6 lines)
21	use C4::Output qw( output_html_with_http_headers );	21	use C4::Output qw( output_html_with_http_headers );
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Context;	23	use C4::Context;
24	use C4::RotatingCollections;	24	use C4::RotatingCollections qw(
		25	AddItemToCollection
		26	GetCollection
		27	GetItemsInCollection
		28	RemoveItemFromCollection
		29	);
25		30
26	use Koha::Items;	31	use Koha::Items;
27		32

Lines 24-30 use C4::Output qw( output_html_with_http_headers ); Link Here

(-)a/rotating_collections/editCollections.pl (-1 / +6 lines)
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26		26
27	use C4::RotatingCollections;	27	use C4::RotatingCollections qw(
		28	CreateCollection
		29	DeleteCollection
		30	GetCollection
		31	UpdateCollection
		32	);
28		33
29	my $query = CGI->new;	34	my $query = CGI->new;
30		35

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

(-)a/rotating_collections/rotatingCollections.pl (-1 / +1 lines)
23	use C4::Output qw( output_html_with_http_headers );	23	use C4::Output qw( output_html_with_http_headers );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Context;	25	use C4::Context;
26	use C4::RotatingCollections;	26	use C4::RotatingCollections qw( GetCollections );
27		27
28	my $query = CGI->new;	28	my $query = CGI->new;
29		29

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

(-)a/rotating_collections/transferCollection.pl (-1 / +1 lines)
21	use C4::Output qw( output_html_with_http_headers );	21	use C4::Output qw( output_html_with_http_headers );
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Context;	23	use C4::Context;
24	use C4::RotatingCollections;	24	use C4::RotatingCollections qw( GetCollection TransferCollection );
25		25
26	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
27		27

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

(-)a/serials/claims.pl (-1 lines)
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
22	use C4::Auth qw( get_template_and_user );	22	use C4::Auth qw( get_template_and_user );
23	use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription );	23	use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription );
24	use C4::Acquisition;
25	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
26	use C4::Context;	25	use C4::Context;
27	use C4::Letters qw( GetLetters SendAlerts );	26	use C4::Letters qw( GetLetters SendAlerts );

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

(-)a/serials/lateissues-export.pl (-2 lines)
19	use CGI qw ( -utf8 );	19	use CGI qw ( -utf8 );
20	use C4::Auth;	20	use C4::Auth;
21	use C4::Serials qw( GetLateOrMissingIssues updateClaim );	21	use C4::Serials qw( GetLateOrMissingIssues updateClaim );
22	use C4::Acquisition;
23	use C4::Output;
24	use C4::Context;	22	use C4::Context;
25		23
26	use Koha::CsvProfiles;	24	use Koha::CsvProfiles;

Lines 22-28 use Date::Calc qw( Add_Delta_Days Add_Delta_YM ); Link Here

(-)a/serials/subscription-add.pl (-1 lines)
22	use C4::Koha qw( GetAuthorisedValues );	22	use C4::Koha qw( GetAuthorisedValues );
23	use C4::Biblio qw( GetMarcBiblio );	23	use C4::Biblio qw( GetMarcBiblio );
24	use C4::Auth qw( get_template_and_user );	24	use C4::Auth qw( get_template_and_user );
25	use C4::Acquisition;
26	use C4::Output qw( output_and_exit output_html_with_http_headers );	25	use C4::Output qw( output_and_exit output_html_with_http_headers );
27	use C4::Context;	26	use C4::Context;
28	use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );	27	use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );

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

(-)a/serials/subscription-detail.pl (-1 lines)
19	use CGI qw ( -utf8 );	19	use CGI qw ( -utf8 );
20	use C4::Acquisition;	20	use C4::Acquisition;
21	use C4::Auth qw( get_template_and_user checkauth );	21	use C4::Auth qw( get_template_and_user checkauth );
22	use C4::Budgets;
23	use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription );	22	use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription );
24	use C4::Output qw( output_and_exit output_html_with_http_headers );	23	use C4::Output qw( output_and_exit output_html_with_http_headers );
25	use C4::Context;	24	use C4::Context;

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

(-)a/suggestion/add_user_search.pl (-1 lines)
20	use CGI qw ( -utf8 );	20	use CGI qw ( -utf8 );
21	use C4::Auth qw( get_template_and_user );	21	use C4::Auth qw( get_template_and_user );
22	use C4::Output qw( output_html_with_http_headers );	22	use C4::Output qw( output_html_with_http_headers );
23	use C4::Members;
24		23
25	use Koha::Patron::Categories;	24	use Koha::Patron::Categories;
26		25

Lines 22-32 require Exporter; Link Here

(-)a/suggestion/suggestion.pl (-3 / +14 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23	use C4::Auth qw( get_template_and_user );	23	use C4::Auth qw( get_template_and_user );
24	use C4::Output qw( output_html_with_http_headers );	24	use C4::Output qw( output_html_with_http_headers );
25	use C4::Suggestions;	25	use C4::Suggestions qw(
		26	DelSuggestion
		27	GetSuggestion
		28	MarcRecordFromNewSuggestion
		29	ModSuggestion
		30	NewSuggestion
		31	SearchSuggestion
		32	);
26	use C4::Koha qw( GetAuthorisedValues );	33	use C4::Koha qw( GetAuthorisedValues );
27	use C4::Budgets;	34	use C4::Budgets qw(
		35	CanUserUseBudget
		36	GetBudget
		37	GetBudgetHierarchy
		38	GetBudgets
		39	);
28	use C4::Search qw( FindDuplicate GetDistinctValues );	40	use C4::Search qw( FindDuplicate GetDistinctValues );
29	use C4::Members;
30	use Koha::DateUtils qw( dt_from_string );	41	use Koha::DateUtils qw( dt_from_string );
31	use Koha::AuthorisedValues;	42	use Koha::AuthorisedValues;
32	use Koha::Acquisition::Currencies;	43	use Koha::Acquisition::Currencies;

Lines 1-7 Link Here

(-)a/t/lib/Dates.pm (-1 / +1 lines)
1	package t::lib::Dates;	1	package t::lib::Dates;
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use Koha::DateUtils;	4	use Koha::DateUtils qw( dt_from_string );
5	use DateTime;	5	use DateTime;
6		6
7	=head1 NAME	7	=head1 NAME

Lines 16-22 package t::lib::Koha::BackgroundJob::BatchTest; Link Here

(-)a/t/lib/Koha/BackgroundJob/BatchTest.pm (-1 / +1 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19	use JSON qw( encode_json decode_json );	19	use JSON qw( decode_json encode_json );
20		20
21	use Koha::BackgroundJobs;	21	use Koha::BackgroundJobs;
22	use Koha::DateUtils qw( dt_from_string );	22	use Koha::DateUtils qw( dt_from_string );

Lines 2-8 package Koha::Plugin::BadAPIRoute; Link Here

(-)a/t/lib/Koha/Plugin/BadAPIRoute.pm (-1 / +1 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4		4
5	use Mojo::JSON qw(decode_json);	5	use Mojo::JSON qw( decode_json );
6		6
7	use base qw(Koha::Plugins::Base);	7	use base qw(Koha::Plugins::Base);
8		8

Lines 2-8 package Koha::Plugin::MarcFieldValues; Link Here

(-)a/t/lib/Koha/Plugin/MarcFieldValues.pm (-1 / +1 lines)
2		2
3	use Modern::Perl;	3	use Modern::Perl;
4	use MARC::Field;	4	use MARC::Field;
5	use MARC::Record;	5	use MARC::Record ();
6		6
7	use base qw(Koha::Plugins::Base);	7	use base qw(Koha::Plugins::Base);
8		8

Lines 6-12 use Modern::Perl; Link Here

(-)a/t/lib/Koha/Plugin/Test.pm (-1 / +1 lines)
6	use Koha::Exceptions::Exception;	6	use Koha::Exceptions::Exception;
7	use Koha::Plugins::Tab;	7	use Koha::Plugins::Tab;
8		8
9	use Mojo::JSON qw(decode_json);	9	use Mojo::JSON qw( decode_json );
10		10
11	## Required for all plugins	11	## Required for all plugins
12	use base qw(Koha::Plugins::Base);	12	use base qw(Koha::Plugins::Base);

Lines 18-25 package t::lib::Selenium; Link Here

(-)a/t/lib/Selenium.pm (-2 lines)
18		18
19	use Modern::Perl;	19	use Modern::Perl;
20	use Carp qw( croak );	20	use Carp qw( croak );
21	use JSON qw( from_json );
22	use File::Slurp qw( write_file );
23		21
24	use C4::Context;	22	use C4::Context;
25		23




use Modern::Perl;

use Koha::Database;
use C4::Biblio ();
use Koha::Biblios;
use Koha::Items;
use Koha::DateUtils qw( dt_from_string );

use Bytes::Random::Secure ();
use Carp qw( carp );
use Module::Load qw( load );
use String::Random ();

use constant {
    SIZE_BARCODE => 20, # Not perfect but avoid to fetch the value when creating a new item

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

(-)a/tags/review.pl (-1 / +6 lines)
29	use C4::Context;	29	use C4::Context;
30	use Koha::DateUtils qw( dt_from_string output_pref );	30	use Koha::DateUtils qw( dt_from_string output_pref );
31	# use C4::Koha;	31	# use C4::Koha;
32	use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers );	32	use C4::Output qw(
		33	is_ajax
		34	output_html_with_http_headers
		35	output_with_http_headers
		36	pagination_bar
		37	);
33	use C4::Debug qw( $debug );	38	use C4::Debug qw( $debug );
34	use C4::Tags qw(	39	use C4::Tags qw(
35	approval_counts	40	approval_counts

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

(-)a/tools/batchMod.pl (-1 lines)
38	use C4::Koha;	38	use C4::Koha;
39	use C4::BackgroundJob;	39	use C4::BackgroundJob;
40	use C4::ClassSource qw( GetClassSources );	40	use C4::ClassSource qw( GetClassSources );
41	use C4::Members;
42	use MARC::File::XML;	41	use MARC::File::XML;
43	use List::MoreUtils qw( uniq );	42	use List::MoreUtils qw( uniq );
44		43

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

(-)a/tools/copy-holidays.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw( checkauth );	24	use C4::Auth qw( checkauth );
25	use C4::Output;
26		25
27		26
28	use C4::Calendar;	27	use C4::Calendar;

Lines 5-11 use Modern::Perl; Link Here

(-)a/tools/exceptionHolidays.pl (-1 lines)
5	use CGI qw ( -utf8 );	5	use CGI qw ( -utf8 );
6		6
7	use C4::Auth qw( checkauth );	7	use C4::Auth qw( checkauth );
8	use C4::Output;
9	use DateTime;	8	use DateTime;
10		9
11	use C4::Calendar;	10	use C4::Calendar;

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

(-)a/tools/newHolidays.pl (-1 lines)
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
23		23
24	use C4::Auth qw( checkauth );	24	use C4::Auth qw( checkauth );
25	use C4::Output;
26		25
27	use C4::Calendar;	26	use C4::Calendar;
28	use DateTime;	27	use DateTime;

Lines 28-36 use C4::Koha qw( Link Here

(-)a/virtualshelves/shelves.pl (-4 / +2 lines)
28	GetNormalizedUPC	28	GetNormalizedUPC
29	);	29	);
30	use C4::Items qw( GetItemsLocationInfo );	30	use C4::Items qw( GetItemsLocationInfo );
31	use C4::Members;	31	use C4::Output qw( output_html_with_http_headers pagination_bar );
32	use C4::Output qw( pagination_bar output_html_with_http_headers );	32	use C4::XSLT qw( XSLTParse4Display );
33	use C4::XSLT;
34		33
35	use Koha::Biblios;	34	use Koha::Biblios;
36	use Koha::Biblioitems;	35	use Koha::Biblioitems;
37	-

Return to bug 17600

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

(-)a/C4/Accounts.pm (-3 lines)
22	use C4::Context;	22	use C4::Context;
23	use C4::Stats;	23	use C4::Stats;
24	use C4::Members;	24	use C4::Members;
25	use C4::Log qw(logaction);
26	use Koha::Account;	25	use Koha::Account;
27	use Koha::Account::Lines;	26	use Koha::Account::Lines;
28	use Koha::Account::Offsets;	27	use Koha::Account::Offsets;
29	use Koha::Items;	28	use Koha::Items;
30		29
31	use Mojo::Util qw(deprecated);
32	use Data::Dumper qw(Dumper);
33		30
34	use vars qw(@ISA @EXPORT);	31	use vars qw(@ISA @EXPORT);
35		32

Lines 19-33 package C4::Acquisition; Link Here

(-)a/C4/Acquisition.pm (-11 / +7 lines)
19		19
20		20
21	use Modern::Perl;	21	use Modern::Perl;
22	use Carp;	22	use Carp qw( carp croak );
23	use Text::CSV_XS;	23	use Text::CSV_XS ();
24	use C4::Context;	24	use C4::Context;
25	use C4::Debug;	25	use C4::Suggestions qw( GetSuggestionFromBiblionumber ModSuggestion );
26	use C4::Suggestions;	26	use C4::Biblio qw( GetMarcFromKohaField IsMarcStructureInternal );
27	use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal );	27	use C4::Contract qw( GetContract );
28	use C4::Contract;	28	use C4::Log qw( logaction );
29	use C4::Debug;
30	use C4::Log qw(logaction);
31	use C4::Templates qw(gettemplate);	29	use C4::Templates qw(gettemplate);
32	use Koha::DateUtils qw( dt_from_string output_pref );	30	use Koha::DateUtils qw( dt_from_string output_pref );
33	use Koha::Acquisition::Baskets;	31	use Koha::Acquisition::Baskets;
Lines 44-53 use Koha::Patrons; Link Here
44	use C4::Koha qw( GetVariationsOfISBN );	42	use C4::Koha qw( GetVariationsOfISBN );
45		43
46	use MARC::Field;	44	use MARC::Field;
47	use MARC::Record;	45	use JSON qw( to_json );
48	use JSON qw(to_json);
49		46
50	use Time::localtime;
51		47
52	use vars qw(@ISA @EXPORT);	48	use vars qw(@ISA @EXPORT);
53		49

Lines 19-52 package C4::Auth; Link Here

(-)a/C4/Auth.pm (-11 / +8 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use Carp qw/croak/;	22	use Carp qw( croak );
23		23
24	use Digest::MD5 qw(md5_base64);	24	use Digest::MD5 qw( md5_base64 );
25	use JSON qw/encode_json/;
26	use URI::Escape;
27	use CGI::Session;	25	use CGI::Session;
28		26
29	use C4::Context;	27	use C4::Context;
30	use C4::Templates; # to get the template	28	use C4::Templates; # to get the template
31	use C4::Languages qw( getlanguage );	29	use C4::Languages ();
32	use C4::Search::History;	30	use C4::Search::History;
33	use Koha;	31	use Koha;
34	use Koha::Caches;	32	use Koha::Caches;
35	use Koha::AuthUtils qw( get_script_name hash_password );	33	use Koha::AuthUtils qw( get_script_name hash_password );
36	use Koha::Checkouts;	34	use Koha::Checkouts;
37	use Koha::DateUtils qw(dt_from_string);	35	use Koha::DateUtils qw( dt_from_string );
38	use Koha::Library::Groups;	36	use Koha::Library::Groups;
39	use Koha::Libraries;	37	use Koha::Libraries;
40	use Koha::Cash::Registers;	38	use Koha::Cash::Registers;
41	use Koha::Desks;	39	use Koha::Desks;
42	use Koha::Patrons;	40	use Koha::Patrons;
43	use Koha::Patron::Consents;	41	use Koha::Patron::Consents;
44	use POSIX qw/strftime/;	42	use List::MoreUtils qw( any );
45	use List::MoreUtils qw/ any /;	43	use Encode ();
46	use Encode qw( encode is_utf8);
47	use C4::Auth_with_shibboleth qw( shib_ok get_login_shib login_shib_url logout_shib checkpw_shib );	44	use C4::Auth_with_shibboleth qw( shib_ok get_login_shib login_shib_url logout_shib checkpw_shib );
48	use Net::CIDR;	45	use Net::CIDR ();
49	use C4::Log qw/logaction/;	46	use C4::Log qw( logaction );
50		47
51	# use utf8;	48	# use utf8;
52	use vars qw($debug $ldap $cas $caslogout);	49	use vars qw($debug $ldap $cas $caslogout);

Lines 20-32 package C4::Auth_with_cas; Link Here

(-)a/C4/Auth_with_cas.pm (-3 / +2 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use C4::Debug;	23	use C4::Debug qw( $debug );
24	use C4::Context;	24	use C4::Context;
25	use Koha::AuthUtils qw( get_script_name );	25	use Koha::AuthUtils qw( get_script_name );
26	use Authen::CAS::Client;	26	use Authen::CAS::Client;
27	use CGI qw ( -utf8 );	27	use CGI qw ( -utf8 );
28	use FindBin;	28	use YAML::XS ();
29	use YAML::XS;
30		29
31		30
32	use vars qw($debug);	31	use vars qw($debug);

Lines 18-32 package C4::Auth_with_ldap; Link Here

(-)a/C4/Auth_with_ldap.pm (-4 / +3 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Carp;	21	use Carp qw( croak );
22		22
23	use C4::Debug;	23	use C4::Debug qw( $debug );
24	use C4::Context;	24	use C4::Context;
25	use C4::Members::Messaging;	25	use C4::Members::Messaging;
26	use C4::Auth qw( checkpw checkpw_internal );	26	use C4::Auth qw( checkpw_internal );
27	use Koha::Patrons;	27	use Koha::Patrons;
28	use Koha::AuthUtils qw( hash_password );	28	use Koha::AuthUtils qw( hash_password );
29	use List::MoreUtils qw( any );
30	use Net::LDAP;	29	use Net::LDAP;
31	use Net::LDAP::Filter;	30	use Net::LDAP::Filter;
32		31

Lines 19-33 package C4::Auth_with_shibboleth; Link Here

(-)a/C4/Auth_with_shibboleth.pm (-4 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use C4::Debug;	22	use C4::Debug qw( $debug );
23	use C4::Context;	23	use C4::Context;
24	use Koha::AuthUtils qw( get_script_name );	24	use Koha::AuthUtils qw( get_script_name );
25	use Koha::Database;	25	use Koha::Database;
26	use Koha::Patrons;	26	use Koha::Patrons;
27	use C4::Members::Messaging;	27	use C4::Members::Messaging;
28	use Carp;	28	use Carp qw( carp );
29	use CGI;	29	use List::MoreUtils qw( any );
30	use List::MoreUtils qw(any);
31		30
32	use vars qw($debug);	31	use vars qw($debug);
33	our (@ISA, @EXPORT_OK);	32	our (@ISA, @EXPORT_OK);

Lines 21-33 package C4::AuthoritiesMarc; Link Here

(-)a/C4/AuthoritiesMarc.pm (-3 / +2 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23	use C4::Context;	23	use C4::Context;
24	use MARC::Record;	24	use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
25	use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode );
26	use C4::Search qw( FindDuplicate new_record_from_zebra );	25	use C4::Search qw( FindDuplicate new_record_from_zebra );
27	use C4::AuthoritiesMarc::MARC21;	26	use C4::AuthoritiesMarc::MARC21;
28	use C4::AuthoritiesMarc::UNIMARC;	27	use C4::AuthoritiesMarc::UNIMARC;
29	use C4::Charset qw( SetUTF8Flag );	28	use C4::Charset qw( SetUTF8Flag );
30	use C4::Log;	29	use C4::Log qw( logaction );
31	use Koha::MetadataRecord::Authority;	30	use Koha::MetadataRecord::Authority;
32	use Koha::Authorities;	31	use Koha::Authorities;
33	use Koha::Authority::MergeRequests;	32	use Koha::Authority::MergeRequests;

Lines 20-31 package C4::Barcodes::annual; Link Here

(-)a/C4/Barcodes/annual.pm (-3 / +3 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22		22
23	use Carp;	23	use Carp qw( carp );
24		24
25	use C4::Context;	25	use C4::Context;
26	use C4::Debug;	26	use C4::Debug qw( $debug );
27		27
28	use Koha::DateUtils qw( output_pref dt_from_string );	28	use Koha::DateUtils qw( dt_from_string output_pref );
29		29
30	use vars qw(@ISA);	30	use vars qw(@ISA);
31	use vars qw($debug $cgi_debug); # from C4::Debug, of course	31	use vars qw($debug $cgi_debug); # from C4::Debug, of course

Lines 19-28 package C4::Barcodes::hbyymmincr; Link Here

(-)a/C4/Barcodes/hbyymmincr.pm (-3 / +3 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use Carp;	22	use Carp qw( carp );
23		23
24	use C4::Context;	24	use C4::Context;
25	use C4::Debug;	25	use C4::Debug qw( $debug );
26		26
27	use Koha::DateUtils qw( dt_from_string output_pref );	27	use Koha::DateUtils qw( dt_from_string output_pref );
28		28
Lines 128-134 sub new_object { Link Here
128	warn "HBYYMM Barcode created with no branchcode, default is blank" if ( $self->branch() eq '' );	128	warn "HBYYMM Barcode created with no branchcode, default is blank" if ( $self->branch() eq '' );
129		129
130	# take the branch from argument, or existing object, or default	130	# take the branch from argument, or existing object, or default
131	use Data::Dumper;	131	use Data::Dumper qw( Dumper );
132	$debug and print STDERR "(hbyymmincr) new_object: ", Dumper($self), "\n";	132	$debug and print STDERR "(hbyymmincr) new_object: ", Dumper($self), "\n";
133		133
134	return $self;	134	return $self;

Lines 76-101 BEGIN { Link Here

(-)a/C4/Biblio.pm (-11 / +16 lines)
76	);	76	);
77	}	77	}
78		78
79	use Carp;	79	use Carp qw( carp );
80	use Try::Tiny;	80	use Try::Tiny qw( catch try );
81		81
82	use Encode qw( decode is_utf8 );	82	use Encode ();
83	use List::MoreUtils qw( uniq );	83	use List::MoreUtils qw( uniq );
84	use MARC::Record;	84	use MARC::Record ();
85	use MARC::File::USMARC;	85	use MARC::File::USMARC;
86	use MARC::File::XML;	86	use MARC::File::XML;
87	use POSIX qw(strftime);	87	use POSIX qw( strftime );
88	use Module::Load::Conditional qw(can_load);	88	use Module::Load::Conditional qw( can_load );
89		89
90	use C4::Koha;	90	use C4::Koha;
91	use C4::Log; # logaction	91	use C4::Log qw( logaction ); # logaction
92	use C4::Budgets;	92	use C4::Budgets;
93	use C4::ClassSource qw( GetClassSort );	93	use C4::ClassSource qw( GetClassSort );
94	use C4::Charset qw( SetUTF8Flag SetMarcUnicodeFlag StripNonXmlChars nsb_clean );	94	use C4::Charset qw(
		95	nsb_clean
		96	SetMarcUnicodeFlag
		97	SetUTF8Flag
		98	StripNonXmlChars
		99	);
95	use C4::Linker;	100	use C4::Linker;
96	use C4::OAI::Sets;	101	use C4::OAI::Sets ();
97	use C4::Debug;	102	use C4::Debug qw( $debug );
98	use C4::Items qw( GetHiddenItemnumbers GetMarcItem );	103	use C4::Items ();
99		104
100	use Koha::Caches;	105	use Koha::Caches;
101	use Koha::Authority::Types;	106	use Koha::Authority::Types;

Lines 21-34 package C4::Breeding; Link Here

(-)a/C4/Breeding.pm (-2 / +2 lines)
21	use strict;	21	use strict;
22	use warnings;	22	use warnings;
23		23
24	use C4::Biblio qw( AddBiblio TransformMarcToKoha TransformMarcToKohaOneField );	24	use C4::Biblio ();
25	use C4::Koha qw( GetNormalizedISBN );	25	use C4::Koha qw( GetNormalizedISBN );
26	use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );	26	use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
27	use MARC::File::USMARC;	27	use MARC::File::USMARC;
28	use MARC::Field;	28	use MARC::Field;
29	use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );	29	use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
30	use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority	30	use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
31	use C4::Languages qw( getlanguage );	31	use C4::Languages ();
32	use Koha::Database;	32	use Koha::Database;
33	use Koha::XSLT::Base;	33	use Koha::XSLT::Base;
34		34

Lines 21-56 package C4::Circulation; Link Here

(-)a/C4/Circulation.pm (-27 / +18 lines)
21	use Modern::Perl;	21	use Modern::Perl;
22	use DateTime;	22	use DateTime;
23	use POSIX qw( floor );	23	use POSIX qw( floor );
24	use YAML::XS;	24	use YAML::XS ();
25	use Encode;	25	use Encode ();
26		26
27	use Koha::DateUtils;	27	use Koha::DateUtils qw( dt_from_string output_pref );
28	use C4::Context;	28	use C4::Context;
29	use C4::Stats;	29	use C4::Stats qw( UpdateStats );
30	use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );	30	use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );
31	use C4::Biblio qw( UpdateTotalIssues ModZebra );	31	use C4::Biblio qw( UpdateTotalIssues );
32	use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf );	32	use C4::Items qw( CartToShelf ModDateLastSeen ModItemTransfer );
33	use C4::Members;	33	use C4::Members ();
34	use C4::Accounts;	34	use C4::Accounts ();
35	use C4::ItemCirculationAlertPreference;	35	use C4::ItemCirculationAlertPreference;
36	use C4::Message;	36	use C4::Message;
37	use C4::Debug;	37	use C4::Debug qw( $debug );
38	use C4::Log; # logaction	38	use C4::Log qw( logaction ); # logaction
39	use C4::Overdues qw( UpdateFine get_chargeable_units CalcFine );	39	use C4::Overdues ();
40	use C4::RotatingCollections qw(GetCollectionItemBranches);	40	use C4::RotatingCollections qw(GetCollectionItemBranches);
41	use Algorithm::CheckDigits;	41	use Algorithm::CheckDigits qw( CheckDigits );
42		42
43	use Data::Dumper;	43	use Data::Dumper qw( Dumper );
44	use Koha::Account;	44	use Koha::Account;
45	use Koha::AuthorisedValues;	45	use Koha::AuthorisedValues;
46	use Koha::Biblioitems;	46	use Koha::Biblioitems;
47	use Koha::DateUtils;	47	use Koha::DateUtils qw( dt_from_string output_pref );
48	use Koha::Calendar;	48	use Koha::Calendar;
49	use Koha::Checkouts;	49	use Koha::Checkouts;
50	use Koha::Illrequests;	50	use Koha::Illrequests;
51	use Koha::Items;	51	use Koha::Items;
52	use Koha::Patrons;	52	use Koha::Patrons;
53	use Koha::Patron::Debarments;	53	use Koha::Patron::Debarments qw( DelUniqueDebarment GetDebarments );
54	use Koha::Database;	54	use Koha::Database;
55	use Koha::Libraries;	55	use Koha::Libraries;
56	use Koha::Account::Lines;	56	use Koha::Account::Lines;
Lines 63-81 use Koha::Config::SysPref; Link Here
63	use Koha::Checkouts::ReturnClaims;	63	use Koha::Checkouts::ReturnClaims;
64	use Koha::SearchEngine::Indexer;	64	use Koha::SearchEngine::Indexer;
65	use Koha::Exceptions::Checkout;	65	use Koha::Exceptions::Checkout;
66	use Carp;	66	use Carp qw( carp );
67	use List::MoreUtils qw( uniq any );	67	use List::MoreUtils qw( any );
68	use Scalar::Util qw( looks_like_number );	68	use Scalar::Util qw( looks_like_number );
69	use Try::Tiny;	69	use Date::Calc qw( Date_to_Days );
70	use Date::Calc qw(
71	Today
72	Today_and_Now
73	Add_Delta_YM
74	Add_Delta_DHMS
75	Date_to_Days
76	Day_of_Week
77	Add_Delta_Days
78	);
79	our (@ISA, @EXPORT_OK);	70	our (@ISA, @EXPORT_OK);
80	BEGIN {	71	BEGIN {
81		72

Lines 35-50 BEGIN { Link Here

(-)a/C4/Context.pm (-7 / +6 lines)
35	}	35	}
36	};	36	};
37		37
38	use Carp;	38	use Carp qw( carp );
39	use DateTime::TimeZone;	39	use DateTime::TimeZone;
40	use Encode;	40	use Encode ();
41	use File::Spec;	41	use File::Spec ();
42	use Module::Load::Conditional qw(can_load);
43	use POSIX ();	42	use POSIX ();
44	use YAML::XS;	43	use YAML::XS ();
45	use ZOOM;	44	use ZOOM ();
46		45
47	use C4::Debug;	46	use C4::Debug qw( $debug );
48	use Koha::Caches;	47	use Koha::Caches;
49	use Koha::Config::SysPref;	48	use Koha::Config::SysPref;
50	use Koha::Config::SysPrefs;	49	use Koha::Config::SysPrefs;

Lines 38-44 BEGIN { Link Here

(-)a/C4/Creators.pm (-1 / +17 lines)
38	get_unit_values	38	get_unit_values
39	html_table	39	html_table
40	);	40	);
41	use C4::Creators::Lib;	41	use C4::Creators::Lib qw(
		42	get_all_image_names
		43	get_all_layouts
		44	get_all_profiles
		45	get_all_templates
		46	get_barcode_types
		47	get_batch_summary
		48	get_card_summary
		49	get_font_types
		50	get_label_summary
		51	get_label_types
		52	get_output_formats
		53	get_table_names
		54	get_text_justification_types
		55	get_unit_values
		56	html_table
		57	);
42	use C4::Creators::PDF;	58	use C4::Creators::PDF;
43	}	59	}
44		60

Lines 18-29 package C4::Creators::Lib; Link Here

(-)a/C4/Creators/Lib.pm (-2 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Storable qw(dclone);	21	use Storable qw( dclone );
22		22
23	use autouse 'Data::Dumper' => qw(Dumper);	23	use autouse 'Data::Dumper' => qw(Dumper);
24		24
25	use C4::Context;	25	use C4::Context;
26	use C4::Debug;
27		26
28	BEGIN {	27	BEGIN {
29	use base qw(Exporter);	28	use base qw(Exporter);

Lines 19-28 package C4::Creators::PDF; Link Here

(-)a/C4/Creators/PDF.pm (-3 / +34 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use PDF::Reuse;	22	use PDF::Reuse qw(
		23	prAdd
		24	prAltJpeg
		25	prBookmark
		26	prCompress
		27	prDoc
		28	prDocDir
		29	prDocForm
		30	prEnd
		31	prExtract
		32	prField
		33	prFile
		34	prFont
		35	prFontSize
		36	prForm
		37	prGetLogBuffer
		38	prGraphState
		39	prImage
		40	prInit
		41	prInitVars
		42	prJpeg
		43	prJs
		44	prLink
		45	prLog
		46	prLogDir
		47	prMbox
		48	prPage
		49	prSinglePage
		50	prStrWidth
		51	prText
		52	prTTFont
		53	);
23	use PDF::Reuse::Barcode;	54	use PDF::Reuse::Barcode;
24	use File::Temp;	55	use File::Temp ();
25	use List::Util qw/first/;	56	use List::Util qw( first );
26		57
27		58
28	sub _InitVars {	59	sub _InitVars {

Lines 2-14 package C4::Creators::Template; Link Here

(-)a/C4/Creators/Template.pm (-3 / +2 lines)
2		2
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5	use POSIX qw(ceil);	5	use POSIX qw( ceil );
6	use autouse 'Data::Dumper' => qw(Dumper);	6	use autouse 'Data::Dumper' => qw(Dumper);
7		7
8	use C4::Context;	8	use C4::Context;
9	use C4::Debug;
10	use C4::Creators::Profile;	9	use C4::Creators::Profile;
11	use C4::Creators::Lib qw(get_unit_values);	10	use C4::Creators::Lib qw( get_unit_values );
12		11
13		12
14	sub _check_params {	13	sub _check_params {

Lines 18-29 package C4::External::BakerTaylor; Link Here

(-)a/C4/External/BakerTaylor.pm (-4 / +3 lines)
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 XML::Simple;	21	use XML::Simple ();
22	use LWP::Simple;	22	use LWP::Simple qw( get );
23	use HTTP::Request::Common;
24		23
25	use C4::Context;	24	use C4::Context;
26	use C4::Debug;	25	use C4::Debug qw( $debug );
27		26
28	use Modern::Perl;	27	use Modern::Perl;
29		28

Lines 21-32 use strict; Link Here

(-)a/C4/External/OverDrive.pm (-3 / +3 lines)
21	use warnings;	21	use warnings;
22		22
23	use Koha;	23	use Koha;
24	use JSON;	24	use JSON qw( from_json );
25	use Koha::Caches;	25	use Koha::Caches;
26	use HTTP::Request;	26	use HTTP::Request;
27	use HTTP::Request::Common;	27	use HTTP::Request::Common ();
28	use LWP::Authen::Basic;	28	use LWP::Authen::Basic;
29	use LWP::UserAgent;	29	use LWP::UserAgent ();
30		30
31	BEGIN {	31	BEGIN {
32	require Exporter;	32	require Exporter;

Lines 25-40 use warnings; Link Here

(-)a/C4/HoldsQueue.pm (-6 / +3 lines)
25	use C4::Context;	25	use C4::Context;
26	use C4::Search;	26	use C4::Search;
27	use C4::Circulation qw( GetTransfers GetBranchItemRule );	27	use C4::Circulation qw( GetTransfers GetBranchItemRule );
28	use C4::Members;	28	use Koha::DateUtils qw( dt_from_string );
29	use C4::Biblio;
30	use Koha::DateUtils;
31	use Koha::Items;	29	use Koha::Items;
32	use Koha::Patrons;	30	use Koha::Patrons;
33	use Koha::Libraries;	31	use Koha::Libraries;
34		32
35	use List::Util qw(shuffle);	33	use List::Util qw( shuffle );
36	use List::MoreUtils qw(any);	34	use List::MoreUtils qw( any );
37	use Data::Dumper;
38		35
39	our (@ISA, @EXPORT_OK);	36	our (@ISA, @EXPORT_OK);
40	BEGIN {	37	BEGIN {

Lines 27-39 use C4::Accounts; Link Here

(-)a/C4/ILSDI/Services.pm (-5 / +3 lines)
27	use C4::Biblio qw( GetMarcBiblio );	27	use C4::Biblio qw( GetMarcBiblio );
28	use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved );	28	use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved );
29	use C4::Context;	29	use C4::Context;
30	use C4::Auth qw( checkpw );	30	use C4::Auth ();
31	use XML::Simple;
32	use HTML::Entities;
33	use CGI qw ( -utf8 );	31	use CGI qw ( -utf8 );
34	use DateTime;	32	use DateTime;
35	use C4::Auth qw( checkpw );	33	use C4::Auth ();
36	use Koha::DateUtils;	34	use Koha::DateUtils qw( dt_from_string );
37		35
38	use Koha::Biblios;	36	use Koha::Biblios;
39	use Koha::Checkouts;	37	use Koha::Checkouts;

Lines 22-32 use warnings; Link Here

(-)a/C4/ImportBatch.pm (-4 / +11 lines)
22		22
23	use C4::Context;	23	use C4::Context;
24	use C4::Koha qw( GetNormalizedISBN );	24	use C4::Koha qw( GetNormalizedISBN );
25	use C4::Biblio qw( AddBiblio ModBiblio GetMarcFromKohaField GetXmlBiblio TransformMarcToKoha DelBiblio );	25	use C4::Biblio qw(
26	use C4::Items qw( ModItemFromMarc AddItemFromMarc );	26	AddBiblio
27	use C4::Charset qw( SetUTF8Flag StripNonXmlChars MarcToUTF8Record );	27	DelBiblio
		28	GetMarcFromKohaField
		29	GetXmlBiblio
		30	ModBiblio
		31	TransformMarcToKoha
		32	);
		33	use C4::Items qw( AddItemFromMarc ModItemFromMarc );
		34	use C4::Charset qw( MarcToUTF8Record SetUTF8Flag StripNonXmlChars );
28	use C4::AuthoritiesMarc;	35	use C4::AuthoritiesMarc;
29	use C4::MarcModificationTemplates;	36	use C4::MarcModificationTemplates qw( ModifyRecordWithTemplate );
30	use Koha::Items;	37	use Koha::Items;
31	use Koha::Plugins::Handler;	38	use Koha::Plugins::Handler;
32	use Koha::Logger;	39	use Koha::Logger;

Lines 19-33 package C4::ImportExportFramework; Link Here

(-)a/C4/ImportExportFramework.pm (-6 / +6 lines)
19		19
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use XML::LibXML;	22	use XML::LibXML ();
23	use XML::LibXML::XPathContext;	23	use XML::LibXML::XPathContext;
24	use Digest::MD5 qw();	24	use Digest::MD5 ();
25	use POSIX qw(strftime);	25	use POSIX qw( strftime );
26	use Text::CSV_XS;	26	use Text::CSV_XS ();
27	use List::MoreUtils qw(indexes);	27	use List::MoreUtils qw( indexes );
28		28
29	use C4::Context;	29	use C4::Context;
30	use C4::Debug;	30	use C4::Debug qw( $debug );
31		31
32		32
33	our (@ISA, @EXPORT_OK);	33	our (@ISA, @EXPORT_OK);

Lines 18-33 package C4::InstallAuth; Link Here

(-)a/C4/InstallAuth.pm (-3 / +1 lines)
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21	use Digest::MD5 qw(md5_base64);
22	use CGI::Session;	21	use CGI::Session;
23	use File::Spec;	22	use File::Spec ();
24		23
25	require Exporter;	24	require Exporter;
26		25
27	use C4::Context;	26	use C4::Context;
28	use C4::Output qw( output_html_with_http_headers );	27	use C4::Output qw( output_html_with_http_headers );
29	use C4::Templates;	28	use C4::Templates;
30	use C4::Koha;
31		29
32	our (@ISA, @EXPORT_OK);	30	our (@ISA, @EXPORT_OK);
33	BEGIN {	31	BEGIN {

Lines 48-69 BEGIN { Link Here

(-)a/C4/Items.pm (-9 / +7 lines)
48	);	48	);
49	}	49	}
50		50
51	use Carp;	51	use Carp qw( croak );
52	use Try::Tiny;
53	use C4::Context;	52	use C4::Context;
54	use C4::Koha;	53	use C4::Koha;
55	use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformMarcToKoha _disambiguate AddBiblio GetMarcBiblio TransformKohaToMarc GetMarcStructure );	54	use C4::Biblio qw( _disambiguate GetMarcStructure TransformMarcToKoha );
56	use Koha::DateUtils;	55	use Koha::DateUtils qw( dt_from_string output_pref );
57	use MARC::Record;	56	use MARC::Record ();
58	use C4::ClassSource qw( GetClassSort GetClassSources GetClassSource );	57	use C4::ClassSource qw( GetClassSort GetClassSources GetClassSource );
59	use C4::Log;	58	use C4::Log qw( logaction );
60	use List::MoreUtils qw(any);	59	use List::MoreUtils qw( any );
61	use DateTime::Format::MySQL;	60	use DateTime::Format::MySQL;
62	use Data::Dumper; # used as part of logging item record changes, not just for
63	# debugging; so please don't remove this	61	# debugging; so please don't remove this
64		62
65	use Koha::AuthorisedValues;	63	use Koha::AuthorisedValues;
66	use Koha::DateUtils qw(dt_from_string);	64	use Koha::DateUtils qw( dt_from_string output_pref );
67	use Koha::Database;	65	use Koha::Database;
68		66
69	use Koha::Biblioitems;	67	use Koha::Biblioitems;

Lines 3-17 package C4::Labels::Label; Link Here

(-)a/C4/Labels/Label.pm (-6 / +5 lines)
3	use strict;	3	use strict;
4	use warnings;	4	use warnings;
5		5
6	use Text::Wrap;	6	use Text::Wrap qw( wrap );
7	use Algorithm::CheckDigits;	7	use Algorithm::CheckDigits qw( CheckDigits );
8	use Text::CSV_XS;	8	use Text::CSV_XS ();
9	use Data::Dumper;
10	use Text::Bidi qw( log2vis );	9	use Text::Bidi qw( log2vis );
11		10
12	use C4::Context;	11	use C4::Context;
13	use C4::Debug;	12	use C4::Debug qw( $debug );
14	use C4::Biblio qw( GetAuthorisedValueDesc GetMarcFromKohaField GetMarcBiblio );	13	use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField );
15	use Koha::ClassSources;	14	use Koha::ClassSources;
16	use Koha::ClassSortRules;	15	use Koha::ClassSortRules;
17	use Koha::ClassSplitRules;	16	use Koha::ClassSplitRules;

Lines 20-45 package C4::Letters; Link Here

(-)a/C4/Letters.pm (-9 / +7 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use MIME::Lite;	22	use MIME::Lite;
23	use Date::Calc qw( Add_Delta_Days );	23	use Carp qw( carp croak );
24	use Encode;
25	use Carp;
26	use Template;	24	use Template;
27	use Module::Load::Conditional qw(can_load);	25	use Module::Load::Conditional qw( can_load );
28		26
29	use Try::Tiny;	27	use Try::Tiny qw( catch try );
30		28
31	use C4::Members;	29	use C4::Members;
32	use C4::Log;	30	use C4::Log qw( logaction );
33	use C4::SMS;	31	use C4::SMS;
34	use C4::Templates;	32	use C4::Templates;
35	use C4::Debug;	33	use C4::Debug qw( $debug );
36	use Koha::DateUtils;	34	use Koha::DateUtils qw( dt_from_string output_pref );
37	use Koha::SMS::Providers;	35	use Koha::SMS::Providers;
38		36
39	use Koha::Email;	37	use Koha::Email;
40	use Koha::Notice::Messages;	38	use Koha::Notice::Messages;
41	use Koha::Notice::Templates;	39	use Koha::Notice::Templates;
42	use Koha::DateUtils qw( format_sqldatetime dt_from_string );	40	use Koha::DateUtils qw( dt_from_string output_pref );
43	use Koha::Patrons;	41	use Koha::Patrons;
44	use Koha::SMTP::Servers;	42	use Koha::SMTP::Servers;
45	use Koha::Subscriptions;	43	use Koha::Subscriptions;

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

(-)a/C4/MarcModificationTemplates.pm (-2 / +11 lines)
22	use DateTime;	22	use DateTime;
23		23
24	use C4::Context;	24	use C4::Context;
25	use Koha::SimpleMARC qw( field_exists field_equals copy_field copy_and_replace_field add_field update_field move_field delete_field );	25	use Koha::SimpleMARC qw(
		26	add_field
		27	copy_and_replace_field
		28	copy_field
		29	delete_field
		30	field_equals
		31	field_exists
		32	move_field
		33	update_field
		34	);
26	use Koha::MoreUtils;	35	use Koha::MoreUtils;
27	use Koha::DateUtils;	36	use Koha::DateUtils qw( dt_from_string );
28		37
29	use vars qw(@ISA @EXPORT);	38	use vars qw(@ISA @EXPORT);
30		39

Lines 19-30 package C4::Matcher; Link Here

(-)a/C4/Matcher.pm (-2 / +7 lines)
19		19
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use MARC::Record;
23		22
24	use Koha::SearchEngine;	23	use Koha::SearchEngine;
25	use Koha::SearchEngine::Search;	24	use Koha::SearchEngine::Search;
26	use Koha::SearchEngine::QueryBuilder;	25	use Koha::SearchEngine::QueryBuilder;
27	use Koha::Util::Normalize qw/legacy_default remove_spaces upper_case lower_case ISBN/;	26	use Koha::Util::Normalize qw(
		27	ISBN
		28	legacy_default
		29	lower_case
		30	remove_spaces
		31	upper_case
		32	);
28		33
29	=head1 NAME	34	=head1 NAME
30		35

Lines 22-46 package C4::Members; Link Here

(-)a/C4/Members.pm (-10 / +3 lines)
22		22
23	use Modern::Perl;	23	use Modern::Perl;
24	use C4::Context;	24	use C4::Context;
25	use String::Random qw( random_string );
26	use Scalar::Util qw( looks_like_number );	25	use Scalar::Util qw( looks_like_number );
27	use Date::Calc qw/Today check_date Date_to_Days/;	26	use Date::Calc qw( check_date Date_to_Days );
28	use List::MoreUtils qw( uniq );
29	use JSON qw(to_json);
30	use C4::Log; # logaction
31	use C4::Overdues qw( checkoverdues );	27	use C4::Overdues qw( checkoverdues );
32	use C4::Reserves;	28	use C4::Reserves;
33	use C4::Accounts;	29	use C4::Accounts;
34	use C4::Biblio;
35	use C4::Letters qw( GetPreparedLetter );	30	use C4::Letters qw( GetPreparedLetter );
36	use C4::NewsChannels; #get slip news	31	use C4::NewsChannels qw( GetNewsToDisplay ); #get slip news
37	use DateTime;	32	use DateTime;
38	use Koha::Database;	33	use Koha::Database;
39	use Koha::DateUtils;	34	use Koha::DateUtils qw( dt_from_string );
40	use Koha::AuthUtils qw(hash_password);
41	use Koha::Database;	35	use Koha::Database;
42	use Koha::Holds;	36	use Koha::Holds;
43	use Koha::List::Patron;
44	use Koha::Patrons;	37	use Koha::Patrons;
45	use Koha::Patron::Categories;	38	use Koha::Patron::Categories;
46		39