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

(-)a/C4/Accounts.pm (-3 lines)
Lines 20-27 package C4::Accounts; Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use C4::Context;
22
use C4::Context;
23
use C4::Stats;
24
use C4::Members;
25
use Koha::Account;
23
use Koha::Account;
26
use Koha::Account::Lines;
24
use Koha::Account::Lines;
27
use Koha::Account::Offsets;
25
use Koha::Account::Offsets;
Lines 178-181 __END__ Link Here
178
DBI(3)
176
DBI(3)
179
177
180
=cut
178
=cut
181
(-)a/C4/Acquisition.pm (-1 lines)
Lines 39-45 use Koha::Libraries; Link Here
39
use Koha::CsvProfiles;
39
use Koha::CsvProfiles;
40
use Koha::Patrons;
40
use Koha::Patrons;
41
41
42
use C4::Koha;
43
42
44
use MARC::Field;
43
use MARC::Field;
45
use JSON qw( to_json );
44
use JSON qw( to_json );
(-)a/C4/Auth.pm (-2 lines)
Lines 29-36 use URI::QueryParam; Link Here
29
29
30
use C4::Context;
30
use C4::Context;
31
use C4::Templates;    # to get the template
31
use C4::Templates;    # to get the template
32
use C4::Languages;
33
use C4::Search::History;
34
use Koha;
32
use Koha;
35
use Koha::Logger;
33
use Koha::Logger;
36
use Koha::Caches;
34
use Koha::Caches;
(-)a/C4/Auth_with_ldap.pm (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use Carp qw( croak );
21
use Carp qw( croak );
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Members::Messaging;
25
use C4::Auth qw( checkpw_internal );
24
use C4::Auth qw( checkpw_internal );
26
use Koha::Patrons;
25
use Koha::Patrons;
27
use Koha::AuthUtils qw( hash_password );
26
use Koha::AuthUtils qw( hash_password );
(-)a/C4/Auth_with_shibboleth.pm (-1 lines)
Lines 23-29 use C4::Context; Link Here
23
use Koha::AuthUtils qw( get_script_name );
23
use Koha::AuthUtils qw( get_script_name );
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::Patrons;
25
use Koha::Patrons;
26
use C4::Members::Messaging;
27
use Carp qw( carp );
26
use Carp qw( carp );
28
use List::MoreUtils qw( any );
27
use List::MoreUtils qw( any );
29
28
(-)a/C4/AuthoritiesMarc.pm (-3 lines)
Lines 25-32 use MARC::Field; Link Here
25
use C4::Context;
25
use C4::Context;
26
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
26
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio );
27
use C4::Search qw( FindDuplicate new_record_from_zebra );
27
use C4::Search qw( FindDuplicate new_record_from_zebra );
28
use C4::AuthoritiesMarc::MARC21;
29
use C4::AuthoritiesMarc::UNIMARC;
30
use C4::Charset qw( SetUTF8Flag );
28
use C4::Charset qw( SetUTF8Flag );
31
use C4::Log qw( logaction );
29
use C4::Log qw( logaction );
32
use Koha::MetadataRecord::Authority;
30
use Koha::MetadataRecord::Authority;
Lines 1646-1649 Paul POULAIN paul.poulain@free.fr Link Here
1646
Ere Maijala ere.maijala@helsinki.fi
1644
Ere Maijala ere.maijala@helsinki.fi
1647
1645
1648
=cut
1646
=cut
1649
(-)a/C4/BackgroundJob.pm (-1 lines)
Lines 19-25 package C4::BackgroundJob; Link Here
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 C4::Context;
23
use C4::Auth qw( get_session );
22
use C4::Auth qw( get_session );
24
use Digest::MD5;
23
use Digest::MD5;
25
24
(-)a/C4/Barcodes.pm (-1 lines)
Lines 257-260 like the IBM "Boulder" format can cause problems for sprintf. Basically, the va Link Here
257
(64-bit integers).  So we have to use floats or increment a piece of it and return the rejoined fragments.
257
(64-bit integers).  So we have to use floats or increment a piece of it and return the rejoined fragments.
258
258
259
=cut
259
=cut
260
(-)a/C4/Biblio.pm (-4 lines)
Lines 88-96 use MARC::File::XML; Link Here
88
use POSIX qw( strftime );
88
use POSIX qw( strftime );
89
use Module::Load::Conditional qw( can_load );
89
use Module::Load::Conditional qw( can_load );
90
90
91
use C4::Koha;
92
use C4::Log qw( logaction );    # logaction
91
use C4::Log qw( logaction );    # logaction
93
use C4::Budgets;
94
use C4::ClassSource qw( GetClassSort GetClassSource );
92
use C4::ClassSource qw( GetClassSort GetClassSource );
95
use C4::Charset qw(
93
use C4::Charset qw(
96
    nsb_clean
94
    nsb_clean
Lines 98-105 use C4::Charset qw( Link Here
98
    SetUTF8Flag
96
    SetUTF8Flag
99
    StripNonXmlChars
97
    StripNonXmlChars
100
);
98
);
101
use C4::Linker;
102
use C4::OAI::Sets;
103
use C4::Items qw( GetHiddenItemnumbers GetMarcItem );
99
use C4::Items qw( GetHiddenItemnumbers GetMarcItem );
104
100
105
use Koha::Logger;
101
use Koha::Logger;
(-)a/C4/Breeding.pm (-3 lines)
Lines 21-34 package C4::Breeding; Link Here
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
23
24
use C4::Biblio;
25
use C4::Koha qw( GetVariationsOfISBN );
24
use C4::Koha qw( GetVariationsOfISBN );
26
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
25
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
27
use MARC::File::USMARC;
26
use MARC::File::USMARC;
28
use MARC::Field;
27
use MARC::Field;
29
use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
28
use C4::ImportBatch qw( GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
30
use C4::AuthoritiesMarc qw( GuessAuthTypeCode );
29
use C4::AuthoritiesMarc qw( GuessAuthTypeCode );
31
use C4::Languages;
32
use Koha::Database;
30
use Koha::Database;
33
use Koha::XSLT::Base;
31
use Koha::XSLT::Base;
34
32
Lines 661-664 sub Z3950SearchAuth { Link Here
661
659
662
1;
660
1;
663
__END__
661
__END__
664
(-)a/C4/Budgets.pm (-1 lines)
Lines 23-29 use C4::Context; Link Here
23
use Koha::Database;
23
use Koha::Database;
24
use Koha::Patrons;
24
use Koha::Patrons;
25
use Koha::Acquisition::Invoice::Adjustments;
25
use Koha::Acquisition::Invoice::Adjustments;
26
use C4::Acquisition;
27
use C4::Log qw(logaction);
26
use C4::Log qw(logaction);
28
27
29
our (@ISA, @EXPORT_OK);
28
our (@ISA, @EXPORT_OK);
(-)a/C4/Calendar.pm (-1 lines)
Lines 733-736 __END__ Link Here
733
Koha Physics Library UNLP <matias_veleda@hotmail.com>
733
Koha Physics Library UNLP <matias_veleda@hotmail.com>
734
734
735
=cut
735
=cut
736
(-)a/C4/Circulation.pm (-3 lines)
Lines 30-40 use C4::Stats qw( UpdateStats ); Link Here
30
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ItemsAnyAvailableAndNotRestricted );
30
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest ItemsAnyAvailableAndNotRestricted );
31
use C4::Biblio qw( UpdateTotalIssues );
31
use C4::Biblio qw( UpdateTotalIssues );
32
use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf );
32
use C4::Items qw( ModItemTransfer ModDateLastSeen CartToShelf );
33
use C4::Accounts;
34
use C4::ItemCirculationAlertPreference;
35
use C4::Message;
33
use C4::Message;
36
use C4::Log qw( logaction ); # logaction
34
use C4::Log qw( logaction ); # logaction
37
use C4::Overdues;
38
use C4::RotatingCollections qw(GetCollectionItemBranches);
35
use C4::RotatingCollections qw(GetCollectionItemBranches);
39
use Algorithm::CheckDigits qw( CheckDigits );
36
use Algorithm::CheckDigits qw( CheckDigits );
40
37
(-)a/C4/ClassSortRoutine.pm (-2 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use Class::Factory::Util;
23
use Class::Factory::Util;
24
use C4::Context;
25
24
26
our (@ISA, @EXPORT_OK);
25
our (@ISA, @EXPORT_OK);
27
BEGIN {
26
BEGIN {
Lines 126-129 sub _get_class_sort_key { Link Here
126
Koha Development Team <http://koha-community.org/>
125
Koha Development Team <http://koha-community.org/>
127
126
128
=cut
127
=cut
129
(-)a/C4/Context.pm (-1 lines)
Lines 1025-1028 Specifies the configuration file to read. Link Here
1025
Andrew Arensburger <arensb at ooblick dot com>
1025
Andrew Arensburger <arensb at ooblick dot com>
1026
1026
1027
Joshua Ferraro <jmf at liblime dot com>
1027
Joshua Ferraro <jmf at liblime dot com>
1028
(-)a/C4/Contract.pm (-1 lines)
Lines 18-24 package C4::Contract; Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Context;
22
use Koha::Database;
21
use Koha::Database;
23
22
24
use vars qw(@ISA @EXPORT);
23
use vars qw(@ISA @EXPORT);
(-)a/C4/ImportExportFramework.pm (-2 lines)
Lines 1205-1209 __END__ Link Here
1205
Koha Development Team <http://koha-community.org/>
1205
Koha Development Team <http://koha-community.org/>
1206
1206
1207
=cut
1207
=cut
1208
1209
(-)a/C4/Items.pm (-1 lines)
Lines 50-56 BEGIN { Link Here
50
50
51
use Carp qw( croak );
51
use Carp qw( croak );
52
use C4::Context;
52
use C4::Context;
53
use C4::Koha;
54
use C4::Biblio qw( GetMarcStructure TransformMarcToKoha );
53
use C4::Biblio qw( GetMarcStructure TransformMarcToKoha );
55
use Koha::DateUtils qw( dt_from_string output_pref );
54
use Koha::DateUtils qw( dt_from_string output_pref );
56
use MARC::Record;
55
use MARC::Record;
(-)a/C4/Letters.pm (-2 lines)
Lines 25-34 use Module::Load::Conditional qw( can_load ); Link Here
25
25
26
use Try::Tiny qw( catch try );
26
use Try::Tiny qw( catch try );
27
27
28
use C4::Members;
29
use C4::Log qw( logaction );
28
use C4::Log qw( logaction );
30
use C4::SMS;
29
use C4::SMS;
31
use C4::Templates;
32
use Koha::DateUtils qw( dt_from_string output_pref );
30
use Koha::DateUtils qw( dt_from_string output_pref );
33
use Koha::SMS::Providers;
31
use Koha::SMS::Providers;
34
32
(-)a/C4/Members.pm (-2 lines)
Lines 25-32 use C4::Context; Link Here
25
use Scalar::Util qw( looks_like_number );
25
use Scalar::Util qw( looks_like_number );
26
use Date::Calc qw( check_date Date_to_Days );
26
use Date::Calc qw( check_date Date_to_Days );
27
use C4::Overdues qw( checkoverdues );
27
use C4::Overdues qw( checkoverdues );
28
use C4::Reserves;
29
use C4::Accounts;
30
use C4::Letters qw( GetPreparedLetter );
28
use C4::Letters qw( GetPreparedLetter );
31
use DateTime;
29
use DateTime;
32
use Koha::Database;
30
use Koha::Database;
(-)a/C4/Output.pm (-1 lines)
Lines 32-38 use Scalar::Util qw( looks_like_number ); Link Here
32
32
33
use C4::Auth qw( get_template_and_user );
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Templates;
36
35
37
our (@ISA, @EXPORT_OK);
36
our (@ISA, @EXPORT_OK);
38
37
(-)a/C4/Overdues.pm (-1 lines)
Lines 28-34 use Locale::Currency::Format 1.28 qw( currency_format FMT_SYMBOL ); Link Here
28
use Carp qw( carp );
28
use Carp qw( carp );
29
29
30
use C4::Context;
30
use C4::Context;
31
use C4::Accounts;
32
use Koha::Logger;
31
use Koha::Logger;
33
use Koha::Account::Lines;
32
use Koha::Account::Lines;
34
use Koha::Account::Offsets;
33
use Koha::Account::Offsets;
(-)a/C4/Record.pm (-1 lines)
Lines 28-34 use Biblio::EndnoteStyle; Link Here
28
use Unicode::Normalize qw( NFC ); # _entity_encode
28
use Unicode::Normalize qw( NFC ); # _entity_encode
29
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio );
29
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio );
30
use C4::Koha; #marc2csv
30
use C4::Koha; #marc2csv
31
use C4::XSLT;
32
use YAML::XS; #marcrecords2csv
31
use YAML::XS; #marcrecords2csv
33
use Encode;
32
use Encode;
34
use Template;
33
use Template;
(-)a/C4/Reserves.pm (-4 lines)
Lines 23-37 package C4::Reserves; Link Here
23
23
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Accounts;
27
use C4::Biblio qw( GetMarcFromKohaField );
26
use C4::Biblio qw( GetMarcFromKohaField );
28
use C4::Circulation qw( CheckIfIssuedToPatron GetAgeRestriction GetBranchItemRule );
27
use C4::Circulation qw( CheckIfIssuedToPatron GetAgeRestriction GetBranchItemRule );
29
use C4::Context;
28
use C4::Context;
30
use C4::Items qw( CartToShelf get_hostitemnumbers_of );
29
use C4::Items qw( CartToShelf get_hostitemnumbers_of );
31
use C4::Letters;
32
use C4::Log qw( logaction );
30
use C4::Log qw( logaction );
33
use C4::Members::Messaging;
34
use C4::Members;
35
use Koha::Account::Lines;
31
use Koha::Account::Lines;
36
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue;
32
use Koha::BackgroundJob::BatchUpdateBiblioHoldsQueue;
37
use Koha::Biblios;
33
use Koha::Biblios;
(-)a/C4/SMS.pm (-1 lines)
Lines 148-151 sub driver { Link Here
148
1;
148
1;
149
149
150
__END__
150
__END__
151
(-)a/C4/Scheduler.pm (-1 lines)
Lines 19-25 package C4::Scheduler; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Context;
23
use Schedule::At;
22
use Schedule::At;
24
23
25
our (@ISA, @EXPORT_OK);
24
our (@ISA, @EXPORT_OK);
(-)a/C4/Scrubber.pm (-2 lines)
Lines 24-30 use warnings; Link Here
24
use Carp qw( croak );
24
use Carp qw( croak );
25
use HTML::Scrubber;
25
use HTML::Scrubber;
26
26
27
use C4::Context;
28
27
29
my %scrubbertypes = (
28
my %scrubbertypes = (
30
    default => {}, # place holder, default settings are below as fallbacks in call to constructor
29
    default => {}, # place holder, default settings are below as fallbacks in call to constructor
Lines 68-71 for Tags. Link Here
68
=head2 TODO: Add real perldoc
67
=head2 TODO: Add real perldoc
69
68
70
=cut
69
=cut
71
(-)a/C4/Serials.pm (-1 lines)
Lines 35-41 use POSIX qw( strftime ); Link Here
35
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio );
35
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio );
36
use C4::Log qw( logaction );    # logaction
36
use C4::Log qw( logaction );    # logaction
37
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
37
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
38
use C4::Serials::Numberpattern;
39
use Koha::AdditionalFieldValues;
38
use Koha::AdditionalFieldValues;
40
use Koha::DateUtils qw( dt_from_string output_pref );
39
use Koha::DateUtils qw( dt_from_string output_pref );
41
use Koha::Serial;
40
use Koha::Serial;
(-)a/C4/Stats.pm (-1 lines)
Lines 155-158 __END__ Link Here
155
Koha Development Team <http://koha-community.org/>
155
Koha Development Team <http://koha-community.org/>
156
156
157
=cut
157
=cut
158
(-)a/C4/Suggestions.pm (-3 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
26
use C4::Letters;
27
use C4::Biblio qw( GetMarcFromKohaField );
25
use C4::Biblio qw( GetMarcFromKohaField );
28
use Koha::DateUtils qw( dt_from_string );
26
use Koha::DateUtils qw( dt_from_string );
29
use Koha::Suggestions;
27
use Koha::Suggestions;
Lines 652-655 __END__ Link Here
652
Koha Development Team <http://koha-community.org/>
650
Koha Development Team <http://koha-community.org/>
653
651
654
=cut
652
=cut
655
(-)a/C4/Tags.pm (-1 lines)
Lines 705-708 perl -ne 'use C4::Tags qw(get_tags add_tag); use Data::Dumper;chomp; add_tag($_, Link Here
705
Note, the borrowernumber in this example is 51.  Use your own or any arbitrary valid borrowernumber.
705
Note, the borrowernumber in this example is 51.  Use your own or any arbitrary valid borrowernumber.
706
706
707
=cut
707
=cut
708
(-)a/C4/TmplToken.pm (-1 lines)
Lines 20-26 package C4::TmplToken; Link Here
20
20
21
use strict;
21
use strict;
22
use warnings;
22
use warnings;
23
use C4::TmplTokenType;
24
23
25
=head1 NAME
24
=head1 NAME
26
25
(-)a/C4/XISBN.pm (-2 lines)
Lines 20-26 package C4::XISBN; Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use XML::Simple;
21
use XML::Simple;
22
#use LWP::Simple;
22
#use LWP::Simple;
23
use C4::Biblio;
24
use C4::Koha qw( GetNormalizedISBN );
23
use C4::Koha qw( GetNormalizedISBN );
25
use C4::Search qw( new_record_from_zebra );
24
use C4::Search qw( new_record_from_zebra );
26
use C4::External::Syndetics qw( get_syndetics_editions );
25
use C4::External::Syndetics qw( get_syndetics_editions );
Lines 149-152 __END__ Link Here
149
Joshua Ferraro <jmf@liblime.com>
148
Joshua Ferraro <jmf@liblime.com>
150
149
151
=cut
150
=cut
152
(-)a/Koha/Account.pm (-1 lines)
Lines 24-30 use Data::Dumper qw( Dumper ); Link Here
24
use Try::Tiny qw( catch try );
24
use Try::Tiny qw( catch try );
25
25
26
use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal );
26
use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal );
27
use C4::Letters;
28
use C4::Log qw( logaction );
27
use C4::Log qw( logaction );
29
use C4::Stats qw( UpdateStats );
28
use C4::Stats qw( UpdateStats );
30
use C4::Overdues qw(GetFine);
29
use C4::Overdues qw(GetFine);
(-)a/Koha/ActionLog.pm (-1 lines)
Lines 19-25 package Koha::ActionLog; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Context;
23
22
24
use base qw(Koha::Object);
23
use base qw(Koha::Object);
25
24
(-)a/Koha/ActionLogs.pm (-1 lines)
Lines 19-25 package Koha::ActionLogs; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Context;
23
22
24
use base qw(Koha::Objects);
23
use base qw(Koha::Objects);
25
24
(-)a/Koha/AdditionalField.pm (-1 lines)
Lines 10-16 use Modern::Perl; Link Here
10
10
11
use base qw(Koha::Object);
11
use base qw(Koha::Object);
12
12
13
use C4::Context;
14
13
15
sub _type { 'AdditionalField' }
14
sub _type { 'AdditionalField' }
16
15
(-)a/Koha/AuthUtils.pm (-1 lines)
Lines 25-31 use List::MoreUtils qw( any ); Link Here
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
28
use C4::Context;
29
28
30
29
31
our (@ISA, @EXPORT_OK);
30
our (@ISA, @EXPORT_OK);
(-)a/Koha/ExternalContent.pm (-1 lines)
Lines 24-30 use base qw(Class::Accessor); Link Here
24
use Koha;
24
use Koha;
25
use Koha::Logger;
25
use Koha::Logger;
26
use Koha::Patrons;
26
use Koha::Patrons;
27
use C4::Auth;
28
27
29
__PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger));
28
__PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger));
30
29
(-)a/Koha/I18N.pm (-1 lines)
Lines 19-25 package Koha::I18N; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Languages;
23
use C4::Context;
22
use C4::Context;
24
23
25
use Encode;
24
use Encode;
(-)a/Koha/Illrequest.pm (-1 lines)
Lines 23-29 use Clone qw( clone ); Link Here
23
use Try::Tiny qw( catch try );
23
use Try::Tiny qw( catch try );
24
use DateTime;
24
use DateTime;
25
25
26
use C4::Letters;
27
use Koha::Database;
26
use Koha::Database;
28
use Koha::DateUtils qw( dt_from_string );
27
use Koha::DateUtils qw( dt_from_string );
29
use Koha::Exceptions::Ill;
28
use Koha::Exceptions::Ill;
(-)a/Koha/ImportBatch.pm (-1 / +1 lines)
Lines 38-41 sub _type { Link Here
38
    return 'ImportBatch';
38
    return 'ImportBatch';
39
}
39
}
40
40
41
1;
41
1;
(-)a/Koha/ImportBatchProfile.pm (-1 / +1 lines)
Lines 51-54 sub _type { Link Here
51
    return 'ImportBatchProfile';
51
    return 'ImportBatchProfile';
52
}
52
}
53
53
54
1;
54
1;
(-)a/Koha/ImportBatchProfiles.pm (-1 / +1 lines)
Lines 48-51 sub object_class { Link Here
48
    return 'Koha::ImportBatchProfile';
48
    return 'Koha::ImportBatchProfile';
49
}
49
}
50
50
51
1;
51
1;
(-)a/Koha/ImportBatches.pm (-1 / +1 lines)
Lines 48-51 sub object_class { Link Here
48
    return 'Koha::ImportBatch';
48
    return 'Koha::ImportBatch';
49
}
49
}
50
50
51
1;
51
1;
(-)a/Koha/Item.pm (-1 lines)
Lines 26-32 use Koha::DateUtils qw( dt_from_string output_pref ); Link Here
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Circulation qw( barcodedecode GetBranchItemRule );
28
use C4::Circulation qw( barcodedecode GetBranchItemRule );
29
use C4::Reserves;
30
use C4::ClassSource qw( GetClassSort );
29
use C4::ClassSource qw( GetClassSort );
31
use C4::Log qw( logaction );
30
use C4::Log qw( logaction );
32
31
(-)a/Koha/ItemType.pm (-1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
20
21
use C4::Koha qw( getitemtypeimagelocation );
21
use C4::Koha qw( getitemtypeimagelocation );
22
use C4::Languages;
23
use Koha::Database;
22
use Koha::Database;
24
use Koha::CirculationRules;
23
use Koha::CirculationRules;
25
use Koha::Localizations;
24
use Koha::Localizations;
(-)a/Koha/ItemTypes.pm (-1 lines)
Lines 18-24 package Koha::ItemTypes; Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
20
21
use C4::Languages;
22
21
23
use Koha::Database;
22
use Koha::Database;
24
use Koha::ItemType;
23
use Koha::ItemType;
(-)a/Koha/Items.pm (-1 lines)
Lines 24-30 use Try::Tiny; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField );
26
use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField );
27
use C4::Circulation;
28
27
29
use Koha::Database;
28
use Koha::Database;
30
use Koha::SearchEngine::Indexer;
29
use Koha::SearchEngine::Indexer;
(-)a/Koha/MetadataRecord.pm (-1 lines)
Lines 35-41 and authority) records in Koha. Link Here
35
use Modern::Perl;
35
use Modern::Perl;
36
36
37
use Carp qw( carp );
37
use Carp qw( carp );
38
use C4::Biblio;
39
use Koha::Util::MARC;
38
use Koha::Util::MARC;
40
39
41
use base qw(Class::Accessor);
40
use base qw(Class::Accessor);
(-)a/Koha/Patron.pm (-1 lines)
Lines 29-35 use C4::Context; Link Here
29
use C4::Log qw( logaction );
29
use C4::Log qw( logaction );
30
use Koha::Account;
30
use Koha::Account;
31
use Koha::ArticleRequests;
31
use Koha::ArticleRequests;
32
use C4::Letters;
33
use Koha::AuthUtils;
32
use Koha::AuthUtils;
34
use Koha::Checkouts;
33
use Koha::Checkouts;
35
use Koha::CirculationRules;
34
use Koha::CirculationRules;
(-)a/Koha/Plugins.pm (-1 lines)
Lines 28-34 use Module::Pluggable search_path => ['Koha::Plugin'], except => qr/::Edifact(|: Link Here
28
use Try::Tiny;
28
use Try::Tiny;
29
29
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
32
31
33
use Koha::Exceptions::Plugin;
32
use Koha::Exceptions::Plugin;
34
use Koha::Plugins::Methods;
33
use Koha::Plugins::Methods;
(-)a/Koha/Uploader.pm (-1 lines)
Lines 75-81 use Time::HiRes; Link Here
75
use base qw(Class::Accessor);
75
use base qw(Class::Accessor);
76
76
77
use C4::Context;
77
use C4::Context;
78
use C4::Koha;
79
use Koha::UploadedFile;
78
use Koha::UploadedFile;
80
use Koha::UploadedFiles;
79
use Koha::UploadedFiles;
81
80
(-)a/acqui/acqui-home.pl (-1 lines)
Lines 32-38 use CGI qw ( -utf8 ); Link Here
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::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
34
use C4::Budgets qw( GetBudgetHierarchy GetBudget CanUserUseBudget );
35
use C4::Members;
36
use Koha::Acquisition::Currencies;
35
use Koha::Acquisition::Currencies;
37
use Koha::Patrons;
36
use Koha::Patrons;
38
use Koha::Suggestions;
37
use Koha::Suggestions;
(-)a/acqui/addorderiso2709.pl (-1 lines)
Lines 45-51 use C4::Items qw( PrepareItemrecordDisplay AddItemFromMarc ); Link Here
45
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
45
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget GetBudgetByCode );
46
use C4::Acquisition qw( populate_order_with_prices );
46
use C4::Acquisition qw( populate_order_with_prices );
47
use C4::Suggestions;    # GetSuggestion
47
use C4::Suggestions;    # GetSuggestion
48
use C4::Members;
49
48
50
use Koha::Number::Price;
49
use Koha::Number::Price;
51
use Koha::Libraries;
50
use Koha::Libraries;
(-)a/acqui/check_budget_total.pl (-1 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
23
use C4::Output qw( output_html_with_http_headers );
22
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
25
use C4::Budgets qw( GetBudget );
24
use C4::Budgets qw( GetBudget );
(-)a/acqui/edimsg.pl (-1 lines)
Lines 20-26 use Modern::Perl; Link Here
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
(-)a/acqui/finishreceive.pl (-2 lines)
Lines 24-36 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw( checkauth );
25
use C4::Auth qw( checkauth );
26
use JSON qw( encode_json );
26
use JSON qw( encode_json );
27
use C4::Output;
28
use C4::Context;
27
use C4::Context;
29
use C4::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder );
28
use C4::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder );
30
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
29
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
31
use C4::Items qw( GetMarcItem ModItemFromMarc AddItemFromMarc );
30
use C4::Items qw( GetMarcItem ModItemFromMarc AddItemFromMarc );
32
use C4::Log qw(logaction);
31
use C4::Log qw(logaction);
33
use C4::Search;
34
32
35
use Koha::Number::Price;
33
use Koha::Number::Price;
36
use Koha::Acquisition::Booksellers;
34
use Koha::Acquisition::Booksellers;
(-)a/acqui/lateorders-export.pl (-2 lines)
Lines 21-28 use Encode; Link Here
21
21
22
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
23
use C4::Acquisition qw( GetOrder );
23
use C4::Acquisition qw( GetOrder );
24
use C4::Output;
25
use C4::Context;
26
24
27
my $input = CGI->new;
25
my $input = CGI->new;
28
my ($template, $loggedinuser, $cookie) = get_template_and_user({
26
my ($template, $loggedinuser, $cookie) = get_template_and_user({
(-)a/acqui/neworderempty.pl (-1 lines)
Lines 84-90 use C4::Biblio qw( Link Here
84
    IsMarcStructureInternal
84
    IsMarcStructureInternal
85
);
85
);
86
use C4::Output qw( output_and_exit output_html_with_http_headers );
86
use C4::Output qw( output_and_exit output_html_with_http_headers );
87
use C4::Members;
88
use C4::Search qw( FindDuplicate );
87
use C4::Search qw( FindDuplicate );
89
88
90
#needed for z3950 import:
89
#needed for z3950 import:
(-)a/acqui/newordersuggestion.pl (-1 lines)
Lines 94-100 use CGI qw ( -utf8 ); Link Here
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 qw( ConnectSuggestionAndBiblio SearchSuggestion );
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
(-)a/acqui/orderreceive.pl (-1 lines)
Lines 66-72 use C4::Acquisition qw( GetInvoice ); Link Here
66
use C4::Auth qw( get_template_and_user );
66
use C4::Auth qw( get_template_and_user );
67
use C4::Output qw( output_html_with_http_headers );
67
use C4::Output qw( output_html_with_http_headers );
68
use C4::Budgets qw( GetBudget GetBudgetPeriods GetBudgetPeriod GetBudgetHierarchy CanUserUseBudget );
68
use C4::Budgets qw( GetBudget GetBudgetPeriods GetBudgetPeriod GetBudgetHierarchy CanUserUseBudget );
69
use C4::Members;
70
use C4::Biblio qw( GetMarcStructure );
69
use C4::Biblio qw( GetMarcStructure );
71
use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
70
use C4::Suggestions qw( GetSuggestion GetSuggestionInfoFromBiblionumber GetSuggestionInfo );
72
71
(-)a/acqui/supplier.pl (-1 lines)
Lines 46-52 use C4::Contract qw( GetContracts GetContract ); Link Here
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;
(-)a/acqui/transferorder.pl (-1 lines)
Lines 139-142 $template->param( Link Here
139
);
139
);
140
140
141
output_html_with_http_headers $input, $cookie, $template->output;
141
output_html_with_http_headers $input, $cookie, $template->output;
142
(-)a/acqui/updatesupplier.pl (-2 lines)
Lines 47-56 contact_serialsprimary. Link Here
47
=cut
47
=cut
48
48
49
use Modern::Perl;
49
use Modern::Perl;
50
use C4::Context;
51
use C4::Auth qw( checkauth );
50
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;
(-)a/acqui/z3950_search.pl (-1 lines)
Lines 24-30 use CGI qw/-utf8/; Link Here
24
24
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
28
use C4::Breeding qw( Z3950Search );
27
use C4::Breeding qw( Z3950Search );
29
28
30
use Koha::Acquisition::Booksellers;
29
use Koha::Acquisition::Booksellers;
(-)a/admin/adveditorshortcuts.pl (-1 lines)
Lines 36-42 This script allows the user to redefine the keyboard shortcuts for the advacned Link Here
36
use Modern::Perl;
36
use Modern::Perl;
37
37
38
use C4::Auth qw( get_template_and_user );
38
use C4::Auth qw( get_template_and_user );
39
use C4::Context;
40
use C4::Output qw( output_html_with_http_headers );
39
use C4::Output qw( output_html_with_http_headers );
41
use CGI qw ( -utf8 );
40
use CGI qw ( -utf8 );
42
use Koha::KeyboardShortcuts;
41
use Koha::KeyboardShortcuts;
(-)a/admin/aqbudgetperiods.pl (-2 lines)
Lines 50-60 use CGI qw ( -utf8 ); Link Here
50
use Koha::DateUtils qw( dt_from_string );
50
use Koha::DateUtils qw( dt_from_string );
51
use JSON qw( encode_json );
51
use JSON qw( encode_json );
52
use Koha::Database;
52
use Koha::Database;
53
use C4::Koha;
54
use C4::Context;
53
use C4::Context;
55
use C4::Auth qw( get_template_and_user );
54
use C4::Auth qw( get_template_and_user );
56
use C4::Output qw( output_html_with_http_headers );
55
use C4::Output qw( output_html_with_http_headers );
57
use C4::Acquisition;
58
use C4::Budgets qw( GetBudgetPeriod GetBudgetHierarchy GetBudgetPeriods ModBudgetPeriod AddBudgetPeriod GetBudgets DelBudgetPeriod CloneBudgetPeriod MoveOrders );
56
use C4::Budgets qw( GetBudgetPeriod GetBudgetHierarchy GetBudgetPeriods ModBudgetPeriod AddBudgetPeriod GetBudgets DelBudgetPeriod CloneBudgetPeriod MoveOrders );
59
use C4::Log qw(logaction);
57
use C4::Log qw(logaction);
60
use Koha::Acquisition::Currencies;
58
use Koha::Acquisition::Currencies;
(-)a/admin/aqcontract.pl (-2 lines)
Lines 22-28 Link Here
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
26
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
28
use C4::Contract qw(
27
use C4::Contract qw(
Lines 177-180 if ( $op eq 'list' ) { Link Here
177
}
176
}
178
177
179
output_html_with_http_headers $input, $cookie, $template->output;
178
output_html_with_http_headers $input, $cookie, $template->output;
180
(-)a/admin/auth_tag_structure.pl (-1 lines)
Lines 251-254 sub duplicate_auth_framework { Link Here
251
        $sth_insert->execute($newauthtype, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory,$kohafield, $tab, $authorised_value, $thesaurus_category, $seealso,$hidden);
251
        $sth_insert->execute($newauthtype, $tagfield, $tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory,$kohafield, $tab, $authorised_value, $thesaurus_category, $seealso,$hidden);
252
    }
252
    }
253
}
253
}
254
(-)a/admin/authorised_values.pl (-1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
23
use List::MoreUtils qw( any );
23
use List::MoreUtils qw( any );
24
24
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
27
use C4::Koha qw( getitemtypeimagelocation );
26
use C4::Koha qw( getitemtypeimagelocation );
28
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
29
28
(-)a/admin/authtypes.pl (-1 lines)
Lines 21-27 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
26
(-)a/admin/background_jobs.pl (-1 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
20
21
use C4::Context;
22
use C4::Auth qw( get_template_and_user );
21
use C4::Auth qw( get_template_and_user );
23
use C4::Output qw( output_html_with_http_headers );
22
use C4::Output qw( output_html_with_http_headers );
24
23
(-)a/admin/biblio_framework.pl (-1 lines)
Lines 125-128 $template->param( Link Here
125
);
125
);
126
126
127
output_html_with_http_headers $input, $cookie, $template->output;
127
output_html_with_http_headers $input, $cookie, $template->output;
128
(-)a/admin/branch_transfer_limits.pl (-1 lines)
Lines 122-125 $template->param( Link Here
122
		);
122
		);
123
123
124
output_html_with_http_headers $input, $cookie, $template->output;
124
output_html_with_http_headers $input, $cookie, $template->output;
125
(-)a/admin/branches.pl (-2 lines)
Lines 24-32 use CGI qw ( -utf8 ); Link Here
24
use Try::Tiny qw( catch try );
24
use Try::Tiny qw( catch try );
25
25
26
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( get_template_and_user );
27
use C4::Context;
28
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
29
use C4::Koha;
30
28
31
use Koha::Database;
29
use Koha::Database;
32
use Koha::Patrons;
30
use Koha::Patrons;
(-)a/admin/cash_registers.pl (-1 lines)
Lines 25-31 use Try::Tiny qw( catch try ); Link Here
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;
(-)a/admin/categories.pl (-1 lines)
Lines 24-30 use CGI qw ( -utf8 ); Link Here
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_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Form::MessagingPreferences;
28
use Koha::Patrons;
27
use Koha::Patrons;
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 output_pref );
(-)a/admin/check_budget_parent.pl (-1 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
23
use C4::Output qw( output_html_with_http_headers );
22
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
25
use C4::Budgets qw( CheckBudgetParent GetBudget );
24
use C4::Budgets qw( CheckBudgetParent GetBudget );
(-)a/admin/classsources.pl (-1 lines)
Lines 22-28 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
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::Context;
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
use C4::ClassSortRoutine qw( GetSortRoutineNames );
26
use C4::ClassSortRoutine qw( GetSortRoutineNames );
28
use C4::ClassSplitRoutine qw( GetSplitRoutineNames );
27
use C4::ClassSplitRoutine qw( GetSplitRoutineNames );
(-)a/admin/clone-rules.pl (-2 lines)
Lines 27-33 Link Here
27
27
28
use Modern::Perl;
28
use Modern::Perl;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Context;
31
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
32
use C4::Auth qw( get_template_and_user );
31
use C4::Auth qw( get_template_and_user );
33
use Koha::CirculationRules;
32
use Koha::CirculationRules;
Lines 63-66 $template->param(result => 1); Link Here
63
62
64
63
65
output_html_with_http_headers $input, $cookie, $template->output;
64
output_html_with_http_headers $input, $cookie, $template->output;
66
(-)a/admin/columns_settings.pl (-1 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI;
4
use CGI;
5
use C4::Auth qw( get_template_and_user );
5
use C4::Auth qw( get_template_and_user );
6
use C4::Context;
7
use C4::Output qw( output_html_with_http_headers );
6
use C4::Output qw( output_html_with_http_headers );
8
use C4::Utils::DataTables::TablesSettings qw( get_modules );
7
use C4::Utils::DataTables::TablesSettings qw( get_modules );
9
my $input = CGI->new;
8
my $input = CGI->new;
(-)a/admin/credit_types.pl (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Try::Tiny qw( catch try );
22
use Try::Tiny qw( catch try );
23
23
24
use C4::Context;
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
26
(-)a/admin/currency.pl (-1 lines)
Lines 22-28 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
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::Context;
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
26
28
use Koha::Acquisition::Booksellers;
27
use Koha::Acquisition::Booksellers;
(-)a/admin/debit_types.pl (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Try::Tiny qw( catch try );
22
use Try::Tiny qw( catch try );
23
23
24
use C4::Context;
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
26
(-)a/admin/desks.pl (-1 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
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
(-)a/admin/import_export_authtype.pl (-1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use CGI::Cookie;
22
use CGI::Cookie;
23
use C4::Context;
24
use C4::Auth qw/check_cookie_auth/;
23
use C4::Auth qw/check_cookie_auth/;
25
use C4::ImportExportFramework qw( ExportFramework ImportFramework createODS );
24
use C4::ImportExportFramework qw( ExportFramework ImportFramework createODS );
26
25
(-)a/admin/import_export_framework.pl (-1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use CGI::Cookie;
22
use CGI::Cookie;
23
use C4::Context;
24
use C4::Auth qw( check_cookie_auth );
23
use C4::Auth qw( check_cookie_auth );
25
use C4::ImportExportFramework qw( createODS ExportFramework ImportFramework );
24
use C4::ImportExportFramework qw( createODS ExportFramework ImportFramework );
26
25
(-)a/admin/item_circulation_alerts.pl (-1 lines)
Lines 23-29 use JSON qw( encode_json ); Link Here
23
23
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::ItemCirculationAlertPreference;
27
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
28
27
29
use Koha::ItemTypes;
28
use Koha::ItemTypes;
(-)a/admin/library_groups.pl (-1 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
23
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
24
(-)a/admin/marc-overlay-rules.pl (-2 lines)
Lines 20-29 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use Try::Tiny;
21
use Try::Tiny;
22
22
23
use C4::Context;
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
use C4::ImportBatch;
27
use Koha::MarcOverlayRules;
25
use Koha::MarcOverlayRules;
28
use Koha::Patron::Categories;
26
use Koha::Patron::Categories;
29
27
(-)a/admin/marctagstructure.pl (-1 lines)
Lines 337-340 sub duplicate_framework { Link Here
337
        SELECT ?,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,important,kohafield,tab,authorised_value,authtypecode,value_builder,isurl,seealso,hidden,link,defaultvalue,maxlength from marc_subfield_structure where frameworkcode=?
337
        SELECT ?,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,important,kohafield,tab,authorised_value,authtypecode,value_builder,isurl,seealso,hidden,link,defaultvalue,maxlength from marc_subfield_structure where frameworkcode=?
338
    |, undef, $newframeworkcode, $oldframeworkcode );
338
    |, undef, $newframeworkcode, $oldframeworkcode );
339
}
339
}
340
(-)a/admin/matching-rules.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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::Context;
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
use C4::Matcher qw/valid_normalization_routines/;
26
use C4::Matcher qw/valid_normalization_routines/;
28
27
(-)a/admin/overdrive.pl (-1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
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::Context;
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
24
26
use Koha::Libraries;
25
use Koha::Libraries;
(-)a/admin/preferences.pl (-1 lines)
Lines 26-32 use C4::Koha qw( getallthemes ); Link Here
26
use C4::Languages qw( getTranslatedLanguages );
26
use C4::Languages qw( getTranslatedLanguages );
27
use C4::ClassSource qw( GetClassSources GetClassSource );
27
use C4::ClassSource qw( GetClassSources GetClassSource );
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Templates;
30
use Koha::Acquisition::Currencies;
29
use Koha::Acquisition::Currencies;
31
use Koha::Database::Columns;
30
use Koha::Database::Columns;
32
use IO::File;
31
use IO::File;
(-)a/admin/sms_providers.pl (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Context;
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
26
(-)a/admin/systempreferences.pl (-1 lines)
Lines 451-454 sub get_local_prefs { Link Here
451
451
452
    return @names;
452
    return @names;
453
}
453
}
454
(-)a/admin/z3950servers.pl (-1 lines)
Lines 26-32 Link Here
26
26
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
30
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
31
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
32
use Koha::Database;
31
use Koha::Database;
(-)a/authorities/authorities-home.pl (-2 lines)
Lines 27-34 use C4::Context; Link Here
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 pagination_bar output_html_with_http_headers );
28
use C4::Output qw( output_and_exit pagination_bar output_html_with_http_headers );
29
use C4::AuthoritiesMarc qw( DelAuthority );
29
use C4::AuthoritiesMarc qw( DelAuthority );
30
use C4::Search::History;
31
use C4::Languages;
32
30
33
use Koha::Authority::Types;
31
use Koha::Authority::Types;
34
use Koha::SearchEngine::Search;
32
use Koha::SearchEngine::Search;
(-)a/authorities/detail-biblio-search.pl (-1 lines)
Lines 123-126 $template->param( Link Here
123
    index           => $index,
123
    index           => $index,
124
);
124
);
125
output_html_with_http_headers $query, $cookie, $template->output;
125
output_html_with_http_headers $query, $cookie, $template->output;
126
(-)a/authorities/detail.pl (-2 lines)
Lines 43-49 use C4::AuthoritiesMarc qw( GetAuthority GenerateHierarchy GetTagsLabels ); Link Here
43
use C4::Context;
43
use C4::Context;
44
use C4::Output qw( output_html_with_http_headers );
44
use C4::Output qw( output_html_with_http_headers );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use C4::Koha;
47
use Koha::Authorities;
46
use Koha::Authorities;
48
47
49
use Koha::Authority::Types;
48
use Koha::Authority::Types;
Lines 236-239 $template->param( Link Here
236
235
237
$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
236
$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
238
output_html_with_http_headers $query, $cookie, $template->output;
237
output_html_with_http_headers $query, $cookie, $template->output;
239
(-)a/authorities/export.pl (-2 lines)
Lines 1-9 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use Modern::Perl;
2
use Modern::Perl;
3
3
4
use C4::Record;
5
use C4::Auth qw( get_template_and_user );
4
use C4::Auth qw( get_template_and_user );
6
use C4::Output;
7
use C4::AuthoritiesMarc qw( GetAuthority );
5
use C4::AuthoritiesMarc qw( GetAuthority );
8
use CGI qw ( -utf8 );
6
use CGI qw ( -utf8 );
9
7
(-)a/authorities/merge_ajax.pl (-1 lines)
Lines 6-12 use CGI qw ( -utf8 ); Link Here
6
use CGI::Cookie; # need to check cookies before CGI parses the POST request
6
use CGI::Cookie; # need to check cookies before CGI parses the POST request
7
use JSON qw( encode_json );
7
use JSON qw( encode_json );
8
8
9
use C4::Context;
10
use C4::Auth qw( check_cookie_auth );
9
use C4::Auth qw( check_cookie_auth );
11
use C4::AuthoritiesMarc qw( GetTagsLabels );
10
use C4::AuthoritiesMarc qw( GetTagsLabels );
12
11
(-)a/authorities/ysearch.pl (-1 lines)
Lines 31-37 use CGI qw ( -utf8 ); Link Here
31
use Modern::Perl;
31
use Modern::Perl;
32
use JSON qw( to_json );
32
use JSON qw( to_json );
33
33
34
use C4::Context;
35
use C4::Charset qw( nsb_clean );
34
use C4::Charset qw( nsb_clean );
36
use C4::Auth qw( check_cookie_auth );
35
use C4::Auth qw( check_cookie_auth );
37
use C4::Output qw( output_with_http_headers );
36
use C4::Output qw( output_with_http_headers );
(-)a/basket/basket.pl (-1 lines)
Lines 18-24 Link Here
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
    GetMarcBiblio
22
    GetMarcBiblio
24
    GetMarcSeries
23
    GetMarcSeries
(-)a/basket/downloadcart.pl (-1 lines)
Lines 25-31 use Encode qw( encode ); Link Here
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio qw( GetMarcBiblio );
26
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Record;
29
use C4::Ris qw( marc2ris );
28
use C4::Ris qw( marc2ris );
30
29
31
use Koha::CsvProfiles;
30
use Koha::CsvProfiles;
(-)a/basket/sendbasket.pl (-1 lines)
Lines 29-35 use C4::Biblio qw( Link Here
29
use C4::Items qw( GetItemsInfo );
29
use C4::Items qw( GetItemsInfo );
30
use C4::Auth qw( get_template_and_user );
30
use C4::Auth qw( get_template_and_user );
31
use C4::Output qw( output_and_exit output_html_with_http_headers );
31
use C4::Output qw( output_and_exit output_html_with_http_headers );
32
use C4::Templates;
33
use Koha::Email;
32
use Koha::Email;
34
use Koha::Token;
33
use Koha::Token;
35
34
(-)a/catalogue/ISBDdetail.pl (-1 lines)
Lines 184-187 my $holds = $biblio->holds; Link Here
184
$template->param( holdcount => $holds->count );
184
$template->param( holdcount => $holds->count );
185
185
186
output_html_with_http_headers $query, $cookie, $template->output;
186
output_html_with_http_headers $query, $cookie, $template->output;
187
(-)a/catalogue/MARCdetail.pl (-1 lines)
Lines 50-56 use HTML::Entities; Link Here
50
use C4::Auth qw( get_template_and_user );
50
use C4::Auth qw( get_template_and_user );
51
use C4::Context;
51
use C4::Context;
52
use C4::Output qw( output_html_with_http_headers );
52
use C4::Output qw( output_html_with_http_headers );
53
use C4::Koha;
54
use C4::Biblio qw(
53
use C4::Biblio qw(
55
    GetAuthorisedValueDesc
54
    GetAuthorisedValueDesc
56
    GetBiblioData
55
    GetBiblioData
(-)a/catalogue/detail.pl (-1 lines)
Lines 35-41 use C4::Output qw( output_html_with_http_headers ); Link Here
35
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
35
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
36
use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo );
36
use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo );
37
use C4::Circulation qw( GetTransfers );
37
use C4::Circulation qw( GetTransfers );
38
use C4::Reserves;
39
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
38
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
40
use C4::XISBN qw( get_xisbns );
39
use C4::XISBN qw( get_xisbns );
41
use C4::External::Amazon qw( get_amazon_tld );
40
use C4::External::Amazon qw( get_amazon_tld );
(-)a/catalogue/export.pl (-2 lines)
Lines 1-9 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
use Modern::Perl;
2
use Modern::Perl;
3
3
4
use C4::Record;
5
use C4::Auth qw( get_template_and_user );
4
use C4::Auth qw( get_template_and_user );
6
use C4::Output;
7
use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber );
5
use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber );
8
use CGI qw ( -utf8 );
6
use CGI qw ( -utf8 );
9
use C4::Ris qw( marc2ris );
7
use C4::Ris qw( marc2ris );
(-)a/catalogue/item-export.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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
(-)a/catalogue/moredetail.pl (-1 lines)
Lines 312-315 my $holds = $biblio->holds; Link Here
312
$template->param( holdcount => $holds->count );
312
$template->param( holdcount => $holds->count );
313
313
314
output_html_with_http_headers $query, $cookie, $template->output;
314
output_html_with_http_headers $query, $cookie, $template->output;
315
(-)a/catalogue/search-history.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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::Search::History;
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
26
28
my $cgi = CGI->new;
27
my $cgi = CGI->new;
(-)a/catalogue/showmarc.pl (-1 lines)
Lines 32-38 use C4::Output qw( output_html_with_http_headers ); Link Here
32
use C4::Auth qw( get_template_and_user );
32
use C4::Auth qw( get_template_and_user );
33
use C4::Biblio qw( GetMarcBiblio GetXmlBiblio );
33
use C4::Biblio qw( GetMarcBiblio GetXmlBiblio );
34
use C4::ImportBatch qw( GetRecordFromImportBiblio );
34
use C4::ImportBatch qw( GetRecordFromImportBiblio );
35
use C4::XSLT;
36
35
37
my $input= CGI->new;
36
my $input= CGI->new;
38
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
37
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/catalogue/updateitem.pl (-2 lines)
Lines 21-29 use Modern::Perl; Link Here
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;
27
25
28
my $cgi= CGI->new;
26
my $cgi= CGI->new;
29
27
(-)a/cataloguing/addbooks.pl (-2 lines)
Lines 31-37 use C4::Auth qw( get_template_and_user ); Link Here
31
use C4::Breeding qw( BreedingSearch );
31
use C4::Breeding qw( BreedingSearch );
32
use C4::Output qw( output_html_with_http_headers pagination_bar );
32
use C4::Output qw( output_html_with_http_headers pagination_bar );
33
use C4::Koha qw( getnbpages );
33
use C4::Koha qw( getnbpages );
34
use C4::Languages;
35
use C4::Search qw( searchResults z3950_search_args );
34
use C4::Search qw( searchResults z3950_search_args );
36
35
37
use Koha::BiblioFrameworks;
36
use Koha::BiblioFrameworks;
Lines 136-139 $template->param( Link Here
136
);
135
);
137
136
138
output_html_with_http_headers $input, $cookie, $template->output;
137
output_html_with_http_headers $input, $cookie, $template->output;
139
(-)a/cataloguing/additem.pl (-2 lines)
Lines 35-41 use C4::Biblio qw( Link Here
35
use C4::Context;
35
use C4::Context;
36
use C4::Circulation qw( barcodedecode LostItem );
36
use C4::Circulation qw( barcodedecode LostItem );
37
use C4::Barcodes;
37
use C4::Barcodes;
38
use C4::Barcodes::ValueBuilder;
39
use Koha::DateUtils qw( dt_from_string );
38
use Koha::DateUtils qw( dt_from_string );
40
use Koha::Items;
39
use Koha::Items;
41
use Koha::ItemTypes;
40
use Koha::ItemTypes;
Lines 45-51 use Koha::SearchEngine::Indexer; Link Here
45
use C4::Search qw( enabled_staff_search_views );
44
use C4::Search qw( enabled_staff_search_views );
46
use Storable qw( freeze thaw );
45
use Storable qw( freeze thaw );
47
use URI::Escape qw( uri_escape_utf8 );
46
use URI::Escape qw( uri_escape_utf8 );
48
use C4::Members;
49
use Koha::UI::Form::Builder::Item;
47
use Koha::UI::Form::Builder::Item;
50
48
51
use MARC::File::XML;
49
use MARC::File::XML;
(-)a/cataloguing/merge_ajax.pl (-1 lines)
Lines 6-12 use CGI qw ( -utf8 ); Link Here
6
use CGI::Cookie; # need to check cookies before CGI parses the POST request
6
use CGI::Cookie; # need to check cookies before CGI parses the POST request
7
use JSON qw( encode_json );
7
use JSON qw( encode_json );
8
8
9
use C4::Context;
10
use C4::Biblio qw( GetMarcStructure );
9
use C4::Biblio qw( GetMarcStructure );
11
use C4::Auth qw( check_cookie_auth );
10
use C4::Auth qw( check_cookie_auth );
12
11
(-)a/cataloguing/z3950_search.pl (-1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
23
23
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
27
use C4::Breeding qw( Z3950Search );
26
use C4::Breeding qw( Z3950Search );
28
27
29
my $input        = CGI->new;
28
my $input        = CGI->new;
(-)a/circ/add_message.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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;
(-)a/circ/article-request-slip.pl (-2 lines)
Lines 21-30 use Modern::Perl; Link Here
21
21
22
use CGI qw( -utf8 );
22
use CGI qw( -utf8 );
23
23
24
use C4::Context;
25
use C4::Output qw( output_html_with_http_headers );
24
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
27
use C4::Letters;
28
use Koha::ArticleRequests;
26
use Koha::ArticleRequests;
29
use Koha::Patrons;
27
use Koha::Patrons;
30
28
(-)a/circ/branchtransfers.pl (-2 lines)
Lines 26-32 use C4::Circulation qw( transferbook ); Link Here
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Reserves qw( ModReserve ModReserveAffect );
27
use C4::Reserves qw( ModReserve ModReserveAffect );
28
use C4::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;
Lines 246-249 $template->param( Link Here
246
$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' );
245
$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' );
247
246
248
output_html_with_http_headers $query, $cookie, $template->output;
247
output_html_with_http_headers $query, $cookie, $template->output;
249
(-)a/circ/checkout-notes.pl (-1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use Koha::Checkouts;
25
use Koha::Checkouts;
(-)a/circ/circulation.pl (-3 lines)
Lines 32-43 use DateTime::Duration; Link Here
32
use Scalar::Util qw( looks_like_number );
32
use Scalar::Util qw( looks_like_number );
33
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
33
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
34
use C4::Auth qw( get_session get_template_and_user );
34
use C4::Auth qw( get_session get_template_and_user );
35
use C4::Koha;
36
use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue );
35
use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue );
37
use C4::Members;
38
use C4::Biblio qw( TransformMarcToKoha );
36
use C4::Biblio qw( TransformMarcToKoha );
39
use C4::Search qw( new_record_from_zebra );
37
use C4::Search qw( new_record_from_zebra );
40
use C4::Reserves;
41
use Koha::Holds;
38
use Koha::Holds;
42
use C4::Context;
39
use C4::Context;
43
use CGI::Session;
40
use CGI::Session;
(-)a/circ/del_message.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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;
(-)a/circ/hold-transfer-slip.pl (-1 lines)
Lines 54-57 $template->param( caller => 'hold-transfer' ); Link Here
54
$template->param( plain => !$is_html );
54
$template->param( plain => !$is_html );
55
55
56
output_html_with_http_headers $input, $cookie, $template->output;
56
output_html_with_http_headers $input, $cookie, $template->output;
57
(-)a/circ/pendingreserves.pl (-1 lines)
Lines 28-34 use C4::Context; Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Auth qw( get_template_and_user );
30
use C4::Auth qw( get_template_and_user );
31
use C4::Items;
32
use C4::Reserves qw( ModReserveCancelAll );
31
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 );
(-)a/circ/returns.pl (-3 lines)
Lines 38-48 use C4::Auth qw( get_template_and_user get_session haspermission ); Link Here
38
use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem );
38
use C4::Circulation qw( barcodedecode GetBranchItemRule AddReturn updateWrongTransfer LostItem );
39
use C4::Context;
39
use C4::Context;
40
use C4::Items qw( ModItemTransfer );
40
use C4::Items qw( ModItemTransfer );
41
use C4::Members::Messaging;
42
use C4::Members;
43
use C4::Output qw( output_html_with_http_headers );
41
use C4::Output qw( output_html_with_http_headers );
44
use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
42
use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
45
use C4::RotatingCollections;
46
use Koha::AuthorisedValues;
43
use Koha::AuthorisedValues;
47
use Koha::BiblioFrameworks;
44
use Koha::BiblioFrameworks;
48
use Koha::Calendar;
45
use Koha::Calendar;
(-)a/circ/transferstoreceive.pl (-3 lines)
Lines 24-33 use C4::Context; Link Here
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( GetTransfers 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 138-141 $template->param( Link Here
138
$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' );
136
$template->param( fast_cataloging => 1 ) if Koha::BiblioFrameworks->find( 'FA' );
139
137
140
output_html_with_http_headers $input, $cookie, $template->output;
138
output_html_with_http_headers $input, $cookie, $template->output;
141
(-)a/course_reserves/mod_course.pl (-2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Output;
25
use C4::Reserves;
26
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
27
25
28
use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
26
use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
(-)a/installer/install.pl (-1 lines)
Lines 26-32 use POSIX; Link Here
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Templates;
30
use C4::Languages qw( getAllLanguages getTranslatedLanguages );
29
use C4::Languages qw( getAllLanguages getTranslatedLanguages );
31
use C4::Installer;
30
use C4::Installer;
32
use C4::Installer::PerlModules;
31
use C4::Installer::PerlModules;
(-)a/labels/barcode-print.pl (-1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Auth qw( get_template_and_user );
20
use C4::Auth qw( get_template_and_user );
21
use C4::Output qw( output_html_with_http_headers );
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Context;
23
22
24
my $query = CGI->new;
23
my $query = CGI->new;
25
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
24
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-create-csv.pl (-1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Text::CSV_XS;
24
use Text::CSV_XS;
25
25
26
use C4::Labels;
27
26
28
my $cgi = CGI->new;
27
my $cgi = CGI->new;
29
28
(-)a/labels/label-create-pdf.pl (-2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Creators;
26
use C4::Labels;
27
25
28
my $cgi = CGI->new;
26
my $cgi = CGI->new;
29
27
(-)a/labels/label-create-xml.pl (-1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use XML::Simple;
24
use XML::Simple;
25
25
26
use C4::Labels;
27
26
28
my $cgi = CGI->new;
27
my $cgi = CGI->new;
29
28
(-)a/labels/label-edit-batch.pl (-1 lines)
Lines 25-31 use CGI qw ( -utf8 ); Link Here
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Creators qw( get_label_summary html_table );
27
use C4::Creators qw( get_label_summary html_table );
28
use C4::Labels;
29
28
30
use Koha::Items;
29
use Koha::Items;
31
30
(-)a/labels/label-edit-layout.pl (-1 lines)
Lines 31-37 use C4::Creators qw( Link Here
31
    get_label_types
31
    get_label_types
32
    get_text_justification_types
32
    get_text_justification_types
33
);
33
);
34
use C4::Labels;
35
34
36
my $cgi = CGI->new;
35
my $cgi = CGI->new;
37
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-edit-profile.pl (-1 lines)
Lines 25-31 use CGI qw ( -utf8 ); Link Here
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Creators qw( get_all_templates get_unit_values );
27
use C4::Creators qw( get_all_templates get_unit_values );
28
use C4::Labels;
29
28
30
my $cgi = CGI->new;
29
my $cgi = CGI->new;
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-edit-template.pl (-1 lines)
Lines 25-31 use CGI qw ( -utf8 ); Link Here
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Creators qw( get_all_profiles get_unit_values );
27
use C4::Creators qw( get_all_profiles get_unit_values );
28
use C4::Labels;
29
28
30
my $cgi = CGI->new;
29
my $cgi = CGI->new;
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-manage.pl (-1 lines)
Lines 31-37 use C4::Creators qw( Link Here
31
    get_batch_summary
31
    get_batch_summary
32
    html_table
32
    html_table
33
);
33
);
34
use C4::Labels;
35
34
36
my $cgi = CGI->new;
35
my $cgi = CGI->new;
37
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
36
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-print.pl (-1 lines)
Lines 29-35 use C4::Creators::Lib qw( Link Here
29
    get_all_templates
29
    get_all_templates
30
    get_output_formats
30
    get_output_formats
31
);
31
);
32
use C4::Labels::Batch;
33
32
34
my $cgi = CGI->new;
33
my $cgi = CGI->new;
35
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
34
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/spinelabel-home.pl (-1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Auth qw( get_template_and_user );
20
use C4::Auth qw( get_template_and_user );
21
use C4::Output qw( output_html_with_http_headers );
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Context;
23
22
24
my $query = CGI->new;
23
my $query = CGI->new;
25
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
24
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/members/accountline-details.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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::Context;
26
use Koha::Patrons;
25
use Koha::Patrons;
27
use Koha::Account::Lines;
26
use Koha::Account::Lines;
28
27
(-)a/members/boraccount.pl (-2 lines)
Lines 28-35 use URI::Escape qw( uri_unescape ); Link Here
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_and_exit output_html_with_http_headers );
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Members;
32
use C4::Accounts;
33
use Koha::Cash::Registers;
31
use Koha::Cash::Registers;
34
use Koha::Patrons;
32
use Koha::Patrons;
35
use Koha::Patron::Categories;
33
use Koha::Patron::Categories;
(-)a/members/default_messageprefs.pl (-2 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use C4::Service;
22
use C4::Service;
23
use C4::Form::MessagingPreferences;
24
23
25
# Simple JSON service to get the default messaging preferences
24
# Simple JSON service to get the default messaging preferences
26
# for a patron category - used by the patron editing form to
25
# for a patron category - used by the patron editing form to
Lines 31-34 my ($query, $response) = C4::Service->init(borrowers => 'edit_borrowers'); Link Here
31
my ($categorycode) = C4::Service->require_params('categorycode');
30
my ($categorycode) = C4::Service->require_params('categorycode');
32
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode }, $response);
31
C4::Form::MessagingPreferences::set_form_values({ categorycode => $categorycode }, $response);
33
C4::Service->return_success( $response );
32
C4::Service->return_success( $response );
34
(-)a/members/deletemem.pl (-1 lines)
Lines 30-36 use Try::Tiny qw( catch try ); Link Here
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_and_exit output_html_with_http_headers );
32
use C4::Auth qw( get_template_and_user );
32
use C4::Auth qw( get_template_and_user );
33
use C4::Suggestions;
34
use Koha::Patrons;
33
use Koha::Patrons;
35
use Koha::Token;
34
use Koha::Token;
36
use Koha::Patron::Categories;
35
use Koha::Patron::Categories;
(-)a/members/discharge.pl (-3 lines)
Lines 33-41 use Carp qw( carp ); Link Here
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_and_exit output_html_with_http_headers );
36
use C4::Members;
37
use C4::Reserves;
38
use C4::Letters;
39
use Koha::Patron::Discharge;
36
use Koha::Patron::Discharge;
40
use Koha::Patrons;
37
use Koha::Patrons;
41
38
(-)a/members/files.pl (-1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
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_and_exit output_html_with_http_headers );
26
use C4::Members;
27
26
28
use Koha::Patrons;
27
use Koha::Patrons;
29
use Koha::Patron::Files;
28
use Koha::Patron::Files;
(-)a/members/housebound.pl (-1 lines)
Lines 27-33 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
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;
31
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
30
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
32
use DateTime;
31
use DateTime;
33
use Koha::DateUtils qw( dt_from_string );
32
use Koha::DateUtils qw( dt_from_string );
(-)a/members/mancredit.pl (-2 lines)
Lines 27-34 use C4::Auth qw( get_template_and_user ); Link Here
27
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
27
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
29
30
use C4::Members;
31
use C4::Accounts;
32
30
33
use Koha::Items;
31
use Koha::Items;
34
use Koha::Patrons;
32
use Koha::Patrons;
(-)a/members/maninvoice.pl (-2 lines)
Lines 29-36 use URI::Escape qw( uri_escape_utf8 ); Link Here
29
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
30
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Members;
33
use C4::Accounts;
34
use Koha::Token;
32
use Koha::Token;
35
33
36
use Koha::Patrons;
34
use Koha::Patrons;
(-)a/members/member-password.pl (-1 lines)
Lines 8-14 use Modern::Perl; Link Here
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( output_and_exit_if_error output_and_exit output_html_with_http_headers );
11
use C4::Context;
12
use CGI qw ( -utf8 );
11
use CGI qw ( -utf8 );
13
use Koha::Token;
12
use Koha::Token;
14
13
(-)a/members/memberentry.pl (-1 lines)
Lines 31-37 use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_htt Link Here
31
use C4::Members qw( checkcardnumber get_cardnumber_length );
31
use C4::Members qw( checkcardnumber get_cardnumber_length );
32
use C4::Koha qw( GetAuthorisedValues );
32
use C4::Koha qw( GetAuthorisedValues );
33
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
33
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
34
use C4::Form::MessagingPreferences;
35
use Koha::AuthUtils;
34
use Koha::AuthUtils;
36
use Koha::AuthorisedValues;
35
use Koha::AuthorisedValues;
37
use Koha::Email;
36
use Koha::Email;
(-)a/members/members-home.pl (-1 lines)
Lines 22-28 use CGI qw ( -utf8 ); Link Here
22
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
use C4::Members;
26
use Koha::Patron::Modifications;
25
use Koha::Patron::Modifications;
27
use Koha::Libraries;
26
use Koha::Libraries;
28
use Koha::List::Patron qw( GetPatronLists );
27
use Koha::List::Patron qw( GetPatronLists );
(-)a/members/members-update-do.pl (-2 lines)
Lines 20-27 use Modern::Perl; Link Here
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;
25
use Koha::Patrons;
23
use Koha::Patrons;
26
use Koha::Patron::Modifications;
24
use Koha::Patron::Modifications;
27
25
(-)a/members/members-update.pl (-1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
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::Members;
27
use Koha::Patron::Attribute::Types;
26
use Koha::Patron::Attribute::Types;
28
use Koha::Patron::Attributes;
27
use Koha::Patron::Attributes;
29
use Koha::Patron::Modifications;
28
use Koha::Patron::Modifications;
(-)a/members/merge-patrons.pl (-1 lines)
Lines 23-29 use Try::Tiny qw( catch try ); Link Here
23
23
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
27
use Koha::Patrons;
26
use Koha::Patrons;
28
27
29
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/members/moremember.pl (-1 lines)
Lines 32-38 use CGI qw ( -utf8 ); Link Here
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_and_exit output_html_with_http_headers );
35
use C4::Form::MessagingPreferences;
36
use List::MoreUtils qw( uniq );
35
use List::MoreUtils qw( uniq );
37
use Scalar::Util qw( looks_like_number );
36
use Scalar::Util qw( looks_like_number );
38
use Koha::Patron::Attribute::Types;
37
use Koha::Patron::Attribute::Types;
(-)a/members/notices.pl (-2 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Members;
27
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
26
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
28
use Koha::Patrons;
27
use Koha::Patrons;
29
use Koha::Patron::Categories;
28
use Koha::Patron::Categories;
Lines 122-125 $template->param( Link Here
122
    sentnotices        => 1,
121
    sentnotices        => 1,
123
);
122
);
124
output_html_with_http_headers $input, $cookie, $template->output;
123
output_html_with_http_headers $input, $cookie, $template->output;
125
(-)a/members/pay.pl (-5 lines)
Lines 33-43 use C4::Context; Link Here
33
use C4::Auth qw( get_template_and_user );
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
34
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
35
use CGI qw ( -utf8 );
35
use CGI qw ( -utf8 );
36
use C4::Members;
37
use C4::Accounts;
38
use C4::Stats;
39
use C4::Koha;
40
use C4::Overdues;
41
use Koha::Patrons;
36
use Koha::Patrons;
42
use Koha::Items;
37
use Koha::Items;
43
38
(-)a/members/paycollect.pl (-2 lines)
Lines 24-31 use CGI qw ( -utf8 ); Link Here
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_and_exit output_html_with_http_headers );
27
use C4::Accounts;
28
use C4::Koha;
29
27
30
use Koha::Cash::Registers;
28
use Koha::Cash::Registers;
31
use Koha::Patrons;
29
use Koha::Patrons;
(-)a/members/printfeercpt.pl (-1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Letters;
27
use Koha::Account::Lines;
26
use Koha::Account::Lines;
28
27
29
my $input = CGI->new;
28
my $input = CGI->new;
(-)a/members/printinvoice.pl (-1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Letters;
27
use Koha::Account::Lines;
26
use Koha::Account::Lines;
28
27
29
my $input = CGI->new;
28
my $input = CGI->new;
(-)a/members/purchase-suggestions.pl (-2 lines)
Lines 21-29 use Modern::Perl; Link Here
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::Context;
25
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
26
use C4::Members;
27
use C4::Suggestions qw( SearchSuggestion );
25
use C4::Suggestions qw( SearchSuggestion );
28
use Koha::Patrons;
26
use Koha::Patrons;
29
27
(-)a/members/readingrec.pl (-1 lines)
Lines 100-103 $template->param( Link Here
100
    loop_reading      => $issues,
100
    loop_reading      => $issues,
101
);
101
);
102
output_html_with_http_headers $input, $cookie, $template->output;
102
output_html_with_http_headers $input, $cookie, $template->output;
103
(-)a/members/routing-lists.pl (-2 lines)
Lines 21-29 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
22
use C4::Output qw( output_and_exit_if_error 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::Members;
25
use C4::Context;
24
use C4::Context;
26
use C4::Serials;
27
use Koha::Patrons;
25
use Koha::Patrons;
28
use CGI::Session;
26
use CGI::Session;
29
27
(-)a/members/setstatus.pl (-1 lines)
Lines 28-34 use Modern::Perl; Link Here
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Auth qw( checkauth );
29
use C4::Auth qw( checkauth );
30
use C4::Context;
30
use C4::Context;
31
use C4::Members;
32
use Koha::Patrons;
31
use Koha::Patrons;
33
32
34
33
(-)a/members/statistics.pl (-2 lines)
Lines 26-33 use Modern::Perl; Link Here
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Auth qw( get_template_and_user );
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
30
use C4::Members;
31
use C4::Members::Statistics qw(
29
use C4::Members::Statistics qw(
32
    GetPrecedentStateByBorrower
30
    GetPrecedentStateByBorrower
33
    GetTotalIssuesReturnedTodayByBorrower
31
    GetTotalIssuesReturnedTodayByBorrower
(-)a/members/summary-print.pl (-2 lines)
Lines 21-29 use CGI; Link Here
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_and_exit output_html_with_http_headers );
24
use C4::Members;
25
use C4::Circulation qw( GetIssuingCharges );
24
use C4::Circulation qw( GetIssuingCharges );
26
use C4::Reserves;
27
use Koha::DateUtils qw( dt_from_string );
25
use Koha::DateUtils qw( dt_from_string );
28
use Koha::Holds;
26
use Koha::Holds;
29
use Koha::ItemTypes;
27
use Koha::ItemTypes;
(-)a/members/update-child.pl (-1 lines)
Lines 100-103 elsif ( $op eq 'update' ) { Link Here
100
        );
100
        );
101
    }
101
    }
102
}
102
}
103
(-)a/misc/add_date_fields_to_marc_records.pl (-1 lines)
Lines 23-29 use Getopt::Long qw( GetOptions ); Link Here
23
use Pod::Usage qw( pod2usage );
23
use Pod::Usage qw( pod2usage );
24
use MARC::Field;
24
use MARC::Field;
25
25
26
use C4::Biblio;
27
use Koha::DateUtils qw( dt_from_string );
26
use Koha::DateUtils qw( dt_from_string );
28
27
29
my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field );
28
my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field );
(-)a/misc/batchRebuildBiblioTables.pl (-1 lines)
Lines 8-14 use strict; Link Here
8
# Koha modules used
8
# Koha modules used
9
use Koha::Script;
9
use Koha::Script;
10
use MARC::Record;
10
use MARC::Record;
11
use C4::Charset;
12
use C4::Context;
11
use C4::Context;
13
use C4::Biblio qw(
12
use C4::Biblio qw(
14
    GetXmlBiblio
13
    GetXmlBiblio
(-)a/misc/export_records.pl (-2 lines)
Lines 23-31 use Getopt::Long qw( GetOptions ); Link Here
23
use Pod::Usage qw( pod2usage );
23
use Pod::Usage qw( pod2usage );
24
24
25
use Koha::Script;
25
use Koha::Script;
26
use C4::Auth;
27
use C4::Context;
26
use C4::Context;
28
use C4::Record;
29
27
30
use Koha::Biblioitems;
28
use Koha::Biblioitems;
31
use Koha::Database;
29
use Koha::Database;
(-)a/misc/exportauth.pl (-1 lines)
Lines 8-14 use strict; Link Here
8
8
9
use Koha::Script;
9
use Koha::Script;
10
use C4::Context;
10
use C4::Context;
11
use C4::Auth;
12
my $outfile = $ARGV[0];
11
my $outfile = $ARGV[0];
13
open(my $fh, '>', $outfile) or die $!;
12
open(my $fh, '>', $outfile) or die $!;
14
my $dbh=C4::Context->dbh;
13
my $dbh=C4::Context->dbh;
(-)a/misc/load_yaml.pl (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use Koha::Script;
22
use Koha::Script;
23
use Getopt::Long qw( GetOptions :config no_ignore_case );
23
use Getopt::Long qw( GetOptions :config no_ignore_case );
24
use C4::Context;
25
use C4::Installer;
24
use C4::Installer;
26
25
27
sub print_usage {
26
sub print_usage {
(-)a/misc/sip_cli_emulator.pl (-1 lines)
Lines 24-30 use IO::Socket::INET; Link Here
24
use Getopt::Long;
24
use Getopt::Long;
25
25
26
use C4::SIP::Sip::Constants qw(:all);
26
use C4::SIP::Sip::Constants qw(:all);
27
use C4::SIP::Sip;
28
27
29
use constant { LANGUAGE => '001' };
28
use constant { LANGUAGE => '001' };
30
29
(-)a/offline_circ/download.pl (-2 lines)
Lines 21-29 use Modern::Perl; Link Here
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 );
23
use C4::Auth qw( checkauth );
24
use C4::Output;
25
use C4::Context;
24
use C4::Context;
26
use C4::Koha;
27
25
28
my $query = CGI->new;
26
my $query = CGI->new;
29
checkauth( $query, undef, { circulate => "circulate_remaining_permissions" },
27
checkauth( $query, undef, { circulate => "circulate_remaining_permissions" },
(-)a/offline_circ/enqueue_koc.pl (-3 lines)
Lines 24-33 use CGI qw ( -utf8 ); Link Here
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;
(-)a/offline_circ/list.pl (-2 lines)
Lines 23-31 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output qw( output_html_with_http_headers );
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
27
use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );
26
use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );
28
use C4::Members;
29
use Koha::Patrons;
27
use Koha::Patrons;
30
28
31
use Koha::Items;
29
use Koha::Items;
(-)a/offline_circ/process_koc.pl (-3 lines)
Lines 25-35 use CGI qw ( -utf8 ); Link Here
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;
29
use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned );
28
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;
(-)a/opac/ilsdi.pl (-2 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::ILSDI::Services;
23
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
24
use C4::Context;
Lines 254-257 print XMLout( Link Here
254
    SuppressEmpty => 1
253
    SuppressEmpty => 1
255
);
254
);
256
exit 0;
255
exit 0;
257
(-)a/opac/maintenance.pl (-1 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
22
use C4::Output qw( output_html_with_http_headers );
21
use C4::Output qw( output_html_with_http_headers );
23
use C4::Templates qw/gettemplate/;
22
use C4::Templates qw/gettemplate/;
24
23
(-)a/opac/opac-ISBDdetail.pl (-1 lines)
Lines 52-58 use C4::Biblio qw( Link Here
52
    GetMarcISSN
52
    GetMarcISSN
53
    TransformMarcToKoha
53
    TransformMarcToKoha
54
);
54
);
55
use C4::Reserves;
56
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
55
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
57
use C4::Koha qw(
56
use C4::Koha qw(
58
    GetNormalizedEAN
57
    GetNormalizedEAN
(-)a/opac/opac-MARCdetail.pl (-2 lines)
Lines 59-66 use C4::Biblio qw( Link Here
59
    GetMarcStructure
59
    GetMarcStructure
60
    TransformMarcToKoha
60
    TransformMarcToKoha
61
);
61
);
62
use C4::Reserves;
63
use C4::Members;
64
use C4::Koha qw( GetNormalizedISBN );
62
use C4::Koha qw( GetNormalizedISBN );
65
use List::MoreUtils qw( uniq );
63
use List::MoreUtils qw( uniq );
66
use Koha::Biblios;
64
use Koha::Biblios;
(-)a/opac/opac-account-pay.pl (-2 lines)
Lines 24-31 use Modern::Perl; Link Here
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;
29
use Koha::Acquisition::Currencies;
27
use Koha::Acquisition::Currencies;
30
use Koha::Database;
28
use Koha::Database;
31
use Koha::Plugins::Handler;
29
use Koha::Plugins::Handler;
(-)a/opac/opac-account.pl (-1 lines)
Lines 21-27 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Members;
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
use Koha::Account::Lines;
26
use Koha::Account::Lines;
(-)a/opac/opac-article-request-cancel.pl (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Output;
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use Koha::ArticleRequests;
25
use Koha::ArticleRequests;
27
26
(-)a/opac/opac-authorities-home.pl (-2 lines)
Lines 26-33 use C4::Auth qw( get_template_and_user ); Link Here
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output qw( pagination_bar output_html_with_http_headers );
28
use C4::Output qw( pagination_bar output_html_with_http_headers );
29
use C4::Koha;
30
use C4::Search::History;
31
29
32
use Koha::Authority::Types;
30
use Koha::Authority::Types;
33
use Koha::SearchEngine::Search;
31
use Koha::SearchEngine::Search;
(-)a/opac/opac-authoritiesdetail.pl (-1 lines)
Lines 44-50 use C4::Context; Link Here
44
use C4::Output qw( output_html_with_http_headers );
44
use C4::Output qw( output_html_with_http_headers );
45
use C4::AuthoritiesMarc qw( GetAuthority BuildSummary GetTagsLabels GenerateHierarchy );
45
use C4::AuthoritiesMarc qw( GetAuthority BuildSummary GetTagsLabels GenerateHierarchy );
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use C4::Koha;
48
47
49
use Koha::Authorities;
48
use Koha::Authorities;
50
use Koha::Authority::Types;
49
use Koha::Authority::Types;
(-)a/opac/opac-basket.pl (-1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Koha;
23
use C4::Biblio qw(
22
use C4::Biblio qw(
24
    GetFrameworkCode
23
    GetFrameworkCode
25
    GetMarcBiblio
24
    GetMarcBiblio
(-)a/opac/opac-changelanguage.pl (-1 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Templates;
21
use Koha::Util::Navigation;
20
use Koha::Util::Navigation;
22
21
23
my $query = CGI->new;
22
my $query = CGI->new;
(-)a/opac/opac-detail.pl (-1 lines)
Lines 60-66 use C4::External::Syndetics qw( Link Here
60
    get_syndetics_summary
60
    get_syndetics_summary
61
    get_syndetics_toc
61
    get_syndetics_toc
62
);
62
);
63
use C4::Members;
64
use C4::XSLT qw( XSLTParse4Display );
63
use C4::XSLT qw( XSLTParse4Display );
65
use C4::ShelfBrowser qw( GetNearbyItems );
64
use C4::ShelfBrowser qw( GetNearbyItems );
66
use C4::Reserves qw( GetReserveStatus );
65
use C4::Reserves qw( GetReserveStatus );
(-)a/opac/opac-downloadcart.pl (-1 lines)
Lines 25-31 use Encode qw( encode ); Link Here
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
26
use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Record;
29
use C4::Ris qw( marc2ris );
28
use C4::Ris qw( marc2ris );
30
use Koha::CsvProfiles;
29
use Koha::CsvProfiles;
31
use Koha::RecordProcessor;
30
use Koha::RecordProcessor;
(-)a/opac/opac-downloadshelf.pl (-1 lines)
Lines 24-30 use CGI qw ( -utf8 ); Link Here
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
25
use C4::Biblio qw( GetFrameworkCode GetISBDView GetMarcBiblio );
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Record;
28
use C4::Ris qw( marc2ris );
27
use C4::Ris qw( marc2ris );
29
use Koha::CsvProfiles;
28
use Koha::CsvProfiles;
30
use Koha::RecordProcessor;
29
use Koha::RecordProcessor;
(-)a/opac/opac-export.pl (-4 lines)
Lines 19-27 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Record;
23
use C4::Auth;
24
use C4::Output;
25
use C4::Biblio qw(
22
use C4::Biblio qw(
26
    GetFrameworkCode
23
    GetFrameworkCode
27
    GetISBDView
24
    GetISBDView
Lines 29-35 use C4::Biblio qw( Link Here
29
    GetMarcControlnumber
26
    GetMarcControlnumber
30
);
27
);
31
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
32
use C4::Auth;
33
use C4::Ris qw( marc2ris );
29
use C4::Ris qw( marc2ris );
34
use Koha::RecordProcessor;
30
use Koha::RecordProcessor;
35
31
(-)a/opac/opac-idref.pl (-1 lines)
Lines 26-32 use Encode; Link Here
26
26
27
use C4::Auth qw( get_template_and_user );
27
use C4::Auth qw( get_template_and_user );
28
use C4::Context;
28
use C4::Context;
29
use C4::Search;
30
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
31
30
32
my $cgi = CGI->new;
31
my $cgi = CGI->new;
(-)a/opac/opac-illrequests.pl (-1 lines)
Lines 23-29 use JSON qw( encode_json ); Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
27
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
28
27
29
use Koha::Illrequest::Config;
28
use Koha::Illrequest::Config;
(-)a/opac/opac-issue-note.pl (-2 lines)
Lines 20-31 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Koha;
24
use C4::Context;
23
use C4::Context;
25
use C4::Scrubber;
24
use C4::Scrubber;
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( get_template_and_user );
28
use C4::Letters;
29
use Koha::Checkouts;
27
use Koha::Checkouts;
30
use Koha::DateUtils qw( dt_from_string );
28
use Koha::DateUtils qw( dt_from_string );
31
use Koha::Patrons;
29
use Koha::Patrons;
(-)a/opac/opac-main.pl (-1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_html_with_http_headers );
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Quotes;
25
use Koha::Quotes;
26
use C4::Members;
27
use C4::Overdues qw( checkoverdues );
26
use C4::Overdues qw( checkoverdues );
28
use Koha::Checkouts;
27
use Koha::Checkouts;
29
use Koha::Holds;
28
use Koha::Holds;
(-)a/opac/opac-memberentry.pl (-1 lines)
Lines 28-34 use C4::Output qw( output_html_with_http_headers ); Link Here
28
use C4::Context;
28
use C4::Context;
29
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
29
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
30
use C4::Members qw( checkcardnumber );
30
use C4::Members qw( checkcardnumber );
31
use C4::Form::MessagingPreferences;
32
use Koha::AuthUtils;
31
use Koha::AuthUtils;
33
use Koha::Patrons;
32
use Koha::Patrons;
34
use Koha::Patron::Consent;
33
use Koha::Patron::Consent;
(-)a/opac/opac-messaging.pl (-2 lines)
Lines 24-31 use CGI qw ( -utf8 ); Link Here
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Members::Messaging;
28
use C4::Form::MessagingPreferences;
29
use Koha::Patrons;
27
use Koha::Patrons;
30
use Koha::SMS::Providers;
28
use Koha::SMS::Providers;
31
use Koha::Token;
29
use Koha::Token;
(-)a/opac/opac-modrequest-suspend.pl (-1 lines)
Lines 18-24 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Output;
22
use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll );
21
use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll );
23
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
24
my $query = CGI->new;
23
my $query = CGI->new;
(-)a/opac/opac-modrequest.pl (-1 lines)
Lines 25-31 Link Here
25
use Modern::Perl;
25
use Modern::Perl;
26
26
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Output;
29
use C4::Reserves qw( CanReserveBeCanceledFromOpac );
28
use C4::Reserves qw( CanReserveBeCanceledFromOpac );
30
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
31
use Koha::Holds;
30
use Koha::Holds;
(-)a/opac/opac-mymessages.pl (-2 lines)
Lines 22-29 use Modern::Perl; Link Here
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::Context;
26
use C4::Letters;
27
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
28
26
29
my $query = CGI->new();
27
my $query = CGI->new();
(-)a/opac/opac-passwd.pl (-1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth qw( get_template_and_user checkpw checkpw_hash );
25
use C4::Auth qw( get_template_and_user checkpw checkpw_hash );
26
use C4::Context;
27
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
28
use Koha::Patrons;
27
use Koha::Patrons;
29
28
(-)a/opac/opac-patron-image.pl (-1 lines)
Lines 19-25 Link Here
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 C4::Members;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
23
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
25
use C4::Auth qw( check_cookie_auth );
24
use C4::Auth qw( check_cookie_auth );
(-)a/opac/opac-readingrecord.pl (-1 lines)
Lines 26-32 use C4::Koha qw( Link Here
26
    GetNormalizedISBN
26
    GetNormalizedISBN
27
    GetNormalizedUPC
27
    GetNormalizedUPC
28
);
28
);
29
use C4::Biblio;
30
use C4::Members qw( GetAllIssues );
29
use C4::Members qw( GetAllIssues );
31
use C4::External::BakerTaylor qw( image_url link_url );
30
use C4::External::BakerTaylor qw( image_url link_url );
32
use MARC::Record;
31
use MARC::Record;
(-)a/opac/opac-registration-verify.pl (-2 lines)
Lines 22-29 use CGI qw ( -utf8 ); Link Here
22
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
24
use C4::Letters qw( GetPreparedLetter EnqueueLetter SendQueuedMessages );
25
use C4::Members;
26
use C4::Form::MessagingPreferences;
27
use Koha::AuthUtils;
25
use Koha::AuthUtils;
28
use Koha::Patrons;
26
use Koha::Patrons;
29
use Koha::Patron::Consent;
27
use Koha::Patron::Consent;
(-)a/opac/opac-renew.pl (-2 lines)
Lines 27-33 use CGI qw ( -utf8 ); Link Here
27
use C4::Circulation qw( CanBookBeRenewed AddRenewal );
27
use C4::Circulation qw( CanBookBeRenewed AddRenewal );
28
use C4::Auth qw( get_template_and_user );
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Members;
31
use Koha::Items;
30
use Koha::Items;
32
use Koha::Patrons;
31
use Koha::Patrons;
33
my $query = CGI->new;
32
my $query = CGI->new;
Lines 70-73 else { Link Here
70
}
69
}
71
70
72
print $query->redirect("/cgi-bin/koha/opac-user.pl?renew_error=$errorstring&renewed=$renewed");
71
print $query->redirect("/cgi-bin/koha/opac-user.pl?renew_error=$errorstring&renewed=$renewed");
73
(-)a/opac/opac-reportproblem.pl (-1 lines)
Lines 23-29 use Try::Tiny qw( catch try ); Link Here
23
23
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Letters;
27
use Koha::ProblemReport;
26
use Koha::ProblemReport;
28
use Koha::Libraries;
27
use Koha::Libraries;
29
use Koha::Patrons;
28
use Koha::Patrons;
(-)a/opac/opac-reserve.pl (-2 lines)
Lines 29-36 use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); Link Here
29
use C4::Items qw( GetHostItemsInfo GetItemsInfo );
29
use C4::Items qw( GetHostItemsInfo GetItemsInfo );
30
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Context;
31
use C4::Context;
32
use C4::Members;
33
use C4::Overdues;
34
32
35
use Koha::AuthorisedValues;
33
use Koha::AuthorisedValues;
36
use Koha::Biblios;
34
use Koha::Biblios;
(-)a/opac/opac-reset-password.pl (-1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth qw( get_template_and_user checkpw checkpw_hash );
22
use C4::Auth qw( get_template_and_user checkpw checkpw_hash );
23
use C4::Context;
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Patrons;
24
use Koha::Patrons;
26
25
(-)a/opac/opac-retrieve-file.pl (-1 lines)
Lines 22-28 use CGI; Link Here
22
use Encode;
22
use Encode;
23
23
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
use Koha::UploadedFiles;
26
use Koha::UploadedFiles;
28
27
(-)a/opac/opac-routing-lists.pl (-1 lines)
Lines 18-24 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Members;
22
use C4::Auth qw( get_template_and_user );
21
use C4::Auth qw( get_template_and_user );
23
use C4::Output qw( output_html_with_http_headers );
22
use C4::Output qw( output_html_with_http_headers );
24
use Koha::Patrons;
23
use Koha::Patrons;
(-)a/opac/opac-search-history.pl (-1 lines)
Lines 23-29 use C4::Auth qw( get_template_and_user ); Link Here
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::Search::History;
27
26
28
27
29
28
(-)a/opac/opac-search.pl (-3 lines)
Lines 47-58 use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http Link Here
47
use C4::Auth qw( get_template_and_user get_session );
47
use C4::Auth qw( get_template_and_user get_session );
48
use C4::Languages qw( getlanguage getLanguages );
48
use C4::Languages qw( getlanguage getLanguages );
49
use C4::Search qw( searchResults );
49
use C4::Search qw( searchResults );
50
use C4::Search::History;
51
use C4::Biblio qw( GetXmlBiblio CountItemsIssued );
50
use C4::Biblio qw( GetXmlBiblio CountItemsIssued );
52
use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
51
use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
53
use C4::Tags qw( get_tags get_tag );
52
use C4::Tags qw( get_tags get_tag );
54
use C4::SocialData;
55
use C4::External::OverDrive;
56
use C4::External::BakerTaylor qw( image_url link_url );
53
use C4::External::BakerTaylor qw( image_url link_url );
57
54
58
use Koha::CirculationRules;
55
use Koha::CirculationRules;
(-)a/opac/opac-sendbasket.pl (-1 lines)
Lines 31-37 use C4::Biblio qw( Link Here
31
use C4::Items qw( GetItemsInfo );
31
use C4::Items qw( GetItemsInfo );
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::Templates;
35
use Koha::Email;
34
use Koha::Email;
36
use Koha::Patrons;
35
use Koha::Patrons;
37
use Koha::Token;
36
use Koha::Token;
(-)a/opac/opac-shareshelf.pl (-1 lines)
Lines 28-34 use CGI qw ( -utf8 ); Link Here
28
28
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::Letters;
32
use C4::Output qw( output_html_with_http_headers );
31
use C4::Output qw( output_html_with_http_headers );
33
32
34
use Koha::Email;
33
use Koha::Email;
(-)a/opac/opac-shelves.pl (-1 lines)
Lines 29-35 use C4::Koha qw( Link Here
29
    GetNormalizedOCLCNumber
29
    GetNormalizedOCLCNumber
30
    GetNormalizedUPC
30
    GetNormalizedUPC
31
);
31
);
32
use C4::Members;
33
use C4::Output qw( pagination_bar output_with_http_headers );
32
use C4::Output qw( pagination_bar output_with_http_headers );
34
use C4::Tags qw( get_tags );
33
use C4::Tags qw( get_tags );
35
use C4::XSLT qw( XSLTParse4Display );
34
use C4::XSLT qw( XSLTParse4Display );
(-)a/opac/opac-showmarc.pl (-3 lines)
Lines 27-35 use Encode; Link Here
27
use C4::Context;
27
use C4::Context;
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
30
use C4::ImportBatch;
31
use C4::XSLT;
32
use C4::Templates;
33
use Koha::RecordProcessor;
30
use Koha::RecordProcessor;
34
31
35
my $input       = CGI->new;
32
my $input       = CGI->new;
(-)a/opac/opac-suggestions.pl (-2 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Encode;
22
use Encode;
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Members;
25
use C4::Koha qw( GetAuthorisedValues );
24
use C4::Koha qw( GetAuthorisedValues );
26
use C4::Output qw( output_html_with_http_headers );
25
use C4::Output qw( output_html_with_http_headers );
27
use C4::Suggestions qw(
26
use C4::Suggestions qw(
Lines 293-296 $template->param( Link Here
293
);
292
);
294
293
295
output_html_with_http_headers $input, $cookie, $template->output, undef, { force_no_caching => 1 };
294
output_html_with_http_headers $input, $cookie, $template->output, undef, { force_no_caching => 1 };
296
(-)a/opac/opac-tags.pl (-1 lines)
Lines 377-380 response = { Link Here
377
};
377
};
378
378
379
=cut
379
=cut
380
(-)a/opac/opac-topissues.pl (-1 lines)
Lines 24-30 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search;
28
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
29
use C4::Circulation qw( GetTopIssues );
28
use C4::Circulation qw( GetTopIssues );
30
29
(-)a/opac/opac-user.pl (-1 lines)
Lines 30-36 use C4::Koha qw( Link Here
30
use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges );
30
use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges );
31
use C4::External::BakerTaylor qw( image_url link_url );
31
use C4::External::BakerTaylor qw( image_url link_url );
32
use C4::Reserves qw( GetReserveStatus );
32
use C4::Reserves qw( GetReserveStatus );
33
use C4::Members;
34
use C4::Output qw( output_html_with_http_headers );
33
use C4::Output qw( output_html_with_http_headers );
35
use C4::Biblio qw( GetMarcBiblio );
34
use C4::Biblio qw( GetMarcBiblio );
36
use Koha::Account::Lines;
35
use Koha::Account::Lines;
(-)a/opac/tracklinks.pl (-1 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use C4::Context;
22
use C4::Context;
23
use C4::Auth qw( checkauth );
23
use C4::Auth qw( checkauth );
24
use C4::Biblio;
25
use C4::Output qw( output_error );
24
use C4::Output qw( output_error );
26
use Koha::Items;
25
use Koha::Items;
27
use Koha::Linktracker;
26
use Koha::Linktracker;
(-)a/patron_lists/delete.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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;
(-)a/patroncards/create-pdf.pl (-2 lines)
Lines 27-34 use Storable qw( dclone ); Link Here
27
use autouse 'Data::Dumper' => qw(Dumper);
27
use autouse 'Data::Dumper' => qw(Dumper);
28
28
29
use C4::Context;
29
use C4::Context;
30
use C4::Creators;
31
use C4::Patroncards;
32
use Koha::List::Patron qw( GetPatronLists );
30
use Koha::List::Patron qw( GetPatronLists );
33
use Koha::Patrons;
31
use Koha::Patrons;
34
use Koha::Patron::Images;
32
use Koha::Patron::Images;
(-)a/patroncards/edit-batch.pl (-1 lines)
Lines 27-33 use autouse 'Data::Dumper' => qw(Dumper); Link Here
27
use C4::Auth qw( get_template_and_user );
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Creators qw( get_card_summary html_table );
29
use C4::Creators qw( get_card_summary html_table );
30
use C4::Patroncards;
31
use Koha::Patrons;
30
use Koha::Patrons;
32
31
33
my $cgi = CGI->new;
32
my $cgi = CGI->new;
(-)a/patroncards/edit-layout.pl (-1 lines)
Lines 33-39 use C4::Creators qw( Link Here
33
    get_text_justification_types
33
    get_text_justification_types
34
    get_unit_values
34
    get_unit_values
35
);
35
);
36
use C4::Patroncards;
37
36
38
my $cgi = CGI->new;
37
my $cgi = CGI->new;
39
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
38
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/edit-template.pl (-1 lines)
Lines 26-32 use autouse 'Data::Dumper' => qw(Dumper); Link Here
26
use C4::Auth qw( get_template_and_user );
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators qw( get_all_profiles get_unit_values );
28
use C4::Creators qw( get_all_profiles get_unit_values );
29
use C4::Patroncards;
30
29
31
my $cgi = CGI->new;
30
my $cgi = CGI->new;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/manage.pl (-1 lines)
Lines 32-38 use C4::Creators qw( Link Here
32
    get_batch_summary
32
    get_batch_summary
33
    html_table
33
    html_table
34
);
34
);
35
use C4::Labels;
36
use Koha::List::Patron qw( GetPatronLists );
35
use Koha::List::Patron qw( GetPatronLists );
37
36
38
my $cgi = CGI->new;
37
my $cgi = CGI->new;
(-)a/plugins/plugins-uninstall.pl (-2 lines)
Lines 22-29 use CGI qw ( -utf8 ); Link Here
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;
27
use Koha::Plugins::Handler;
25
use Koha::Plugins::Handler;
28
26
29
die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
27
die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
(-)a/plugins/plugins-upload.pl (-1 lines)
Lines 26-32 use File::Temp; Link Here
26
use C4::Context;
26
use C4::Context;
27
use C4::Auth qw( get_template_and_user );
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Members;
30
use Koha::Logger;
29
use Koha::Logger;
31
use Koha::Plugins;
30
use Koha::Plugins;
32
31
(-)a/recalls/recall_pickup_slip.pl (-1 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
23
use C4::Output qw( output_html_with_http_headers );
22
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
25
24
(-)a/recalls/request.pl (-1 lines)
Lines 20-26 use Modern::Perl; Link Here
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::Search;
24
use Koha::Recalls;
23
use Koha::Recalls;
25
use Koha::Biblios;
24
use Koha::Biblios;
26
25
(-)a/reports/acquisitions_stats.pl (-1 lines)
Lines 563-566 sub calculate { Link Here
563
}
563
}
564
564
565
1;
565
1;
566
(-)a/reports/catalogue_out.pl (-1 lines)
Lines 206-209 sub calculate { Link Here
206
206
207
1;
207
1;
208
__END__
208
__END__
209
(-)a/reports/guided_reports.pl (-1 lines)
Lines 1114-1117 sub create_non_existing_group_and_subgroup { Link Here
1114
        }
1114
        }
1115
    }
1115
    }
1116
}
1116
}
1117
(-)a/reports/reserves_stats.pl (-1 lines)
Lines 26-32 use C4::Context; Link Here
26
use C4::Koha qw( GetAuthorisedValues );
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Output qw( output_html_with_http_headers );
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Reports qw( GetDelimiterChoices );
28
use C4::Reports qw( GetDelimiterChoices );
29
use C4::Members;
30
use Koha::AuthorisedValues;
29
use Koha::AuthorisedValues;
31
use Koha::DateUtils qw( dt_from_string output_pref );
30
use Koha::DateUtils qw( dt_from_string output_pref );
32
use Koha::ItemTypes;
31
use Koha::ItemTypes;
(-)a/reserve/modrequest.pl (-1 lines)
Lines 28-34 use URI; Link Here
28
use List::MoreUtils qw( uniq );
28
use List::MoreUtils qw( uniq );
29
use Try::Tiny;
29
use Try::Tiny;
30
30
31
use C4::Output;
32
use C4::Reserves qw( ModReserve ModReserveCancelAll );
31
use C4::Reserves qw( ModReserve ModReserveCancelAll );
33
use C4::Auth qw( get_template_and_user );
32
use C4::Auth qw( get_template_and_user );
34
use Koha::DateUtils qw( dt_from_string );
33
use Koha::DateUtils qw( dt_from_string );
(-)a/reserve/modrequest_suspendall.pl (-1 lines)
Lines 24-30 Link Here
24
24
25
use Modern::Perl;
25
use Modern::Perl;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Output;
28
use C4::Reserves qw( SuspendAll );
27
use C4::Reserves qw( SuspendAll );
29
use C4::Auth qw( get_template_and_user );
28
use C4::Auth qw( get_template_and_user );
30
29
(-)a/rotating_collections/addItems.pl (-2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
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;
24
use C4::RotatingCollections;
25
23
26
use Koha::Items;
24
use Koha::Items;
27
25
(-)a/rotating_collections/editCollections.pl (-2 lines)
Lines 22-30 use CGI qw ( -utf8 ); Link Here
22
22
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;
26
25
27
use C4::RotatingCollections;
28
26
29
my $query = CGI->new;
27
my $query = CGI->new;
30
28
(-)a/rotating_collections/rotatingCollections.pl (-2 lines)
Lines 22-29 use CGI qw ( -utf8 ); Link Here
22
22
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;
26
use C4::RotatingCollections;
27
25
28
my $query = CGI->new;
26
my $query = CGI->new;
29
27
(-)a/rotating_collections/transferCollection.pl (-2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
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;
24
use C4::RotatingCollections;
25
23
26
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
27
25
(-)a/serials/lateissues-export.pl (-3 lines)
Lines 17-26 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Auth;
21
use C4::Serials qw( GetLateOrMissingIssues updateClaim );
20
use C4::Serials qw( GetLateOrMissingIssues updateClaim );
22
use C4::Output;
23
use C4::Context;
24
21
25
use Koha::CsvProfiles;
22
use Koha::CsvProfiles;
26
23
(-)a/serials/reorder_members.pl (-1 lines)
Lines 34-37 reorder_members( $subscriptionid, $routingid, $rank ); Link Here
34
34
35
print $query->redirect(
35
print $query->redirect(
36
    "/cgi-bin/koha/serials/routing.pl?subscriptionid=$subscriptionid");
36
    "/cgi-bin/koha/serials/routing.pl?subscriptionid=$subscriptionid");
37
(-)a/serials/routing-preview.pl (-1 lines)
Lines 20-26 Link Here
20
# of reserves for the serial
20
# of reserves for the serial
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
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
use C4::Reserves qw( AddReserve ModReserve );
25
use C4::Reserves qw( AddReserve ModReserve );
(-)a/serials/routing.pl (-1 lines)
Lines 27-33 printed out Link Here
27
27
28
use Modern::Perl;
28
use Modern::Perl;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Koha;
31
use C4::Auth qw( get_template_and_user );
30
use C4::Auth qw( get_template_and_user );
32
use C4::Output qw( output_and_exit output_html_with_http_headers );
31
use C4::Output qw( output_and_exit output_html_with_http_headers );
33
use C4::Context;
32
use C4::Context;
(-)a/serials/serials-home.pl (-1 lines)
Lines 33-39 use CGI qw ( -utf8 ); Link Here
33
use C4::Auth qw( get_template_and_user );
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Output qw( output_html_with_http_headers );
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Serials;
37
36
38
my $query   = CGI->new;
37
my $query   = CGI->new;
39
my $routing = $query->param('routing') || C4::Context->preference("RoutingSerials");
38
my $routing = $query->param('routing') || C4::Context->preference("RoutingSerials");
(-)a/serials/showpredictionpattern.pl (-1 lines)
Lines 35-41 use Date::Calc qw( Add_Delta_Days Add_Delta_YM Day_of_Week Delta_Days ); Link Here
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::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
37
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
38
use C4::Serials::Frequency;
39
use Koha::DateUtils qw( dt_from_string output_pref );
38
use Koha::DateUtils qw( dt_from_string output_pref );
40
39
41
my $input = CGI->new;
40
my $input = CGI->new;
(-)a/serials/subscription-add.pl (-2 lines)
Lines 25-32 use C4::Auth qw( get_template_and_user ); Link Here
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::Context;
26
use C4::Context;
27
use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );
27
use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );
28
use C4::Serials::Frequency;
29
use C4::Serials::Numberpattern;
30
use C4::Letters qw( GetLetters );
28
use C4::Letters qw( GetLetters );
31
use Koha::AdditionalFields;
29
use Koha::AdditionalFields;
32
use Koha::Biblios;
30
use Koha::Biblios;
(-)a/serials/subscription-frequencies.pl (-1 lines)
Lines 34-40 use CGI qw ( -utf8 ); Link Here
34
use C4::Auth qw( get_template_and_user );
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output qw( output_html_with_http_headers );
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
36
use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
37
use C4::Serials::Frequency;
38
37
39
my $input = CGI->new;
38
my $input = CGI->new;
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
39
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/serials/subscription-frequency.pl (-1 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
23
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
22
use C4::Serials::Frequency qw( GetSubscriptionFrequency );
24
use C4::Auth qw( check_cookie_auth );
23
use C4::Auth qw( check_cookie_auth );
25
use JSON qw( to_json );
24
use JSON qw( to_json );
(-)a/serials/subscription-renew.pl (-1 lines)
Lines 47-53 use Modern::Perl; Link Here
47
47
48
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
49
use Carp qw( carp );
49
use Carp qw( carp );
50
use C4::Koha;
51
use C4::Auth qw( get_template_and_user );
50
use C4::Auth qw( get_template_and_user );
52
use C4::Context;
51
use C4::Context;
53
use C4::Auth qw( get_template_and_user );
52
use C4::Auth qw( get_template_and_user );
(-)a/serials/viewalerts.pl (-1 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
25
use C4::Output qw( output_html_with_http_headers );
24
use C4::Output qw( output_html_with_http_headers );
26
25
27
use Koha::Subscriptions;
26
use Koha::Subscriptions;
(-)a/suggestion/suggestion.pl (-2 lines)
Lines 22-32 require Exporter; Link Here
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;
26
use C4::Koha qw( GetAuthorisedValues );
25
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget );
26
use C4::Budgets qw( GetBudget GetBudgets GetBudgetHierarchy CanUserUseBudget );
28
use C4::Search qw( FindDuplicate GetDistinctValues );
27
use C4::Search qw( FindDuplicate GetDistinctValues );
29
use C4::Members;
30
use Koha::DateUtils qw( dt_from_string );
28
use Koha::DateUtils qw( dt_from_string );
31
use Koha::AuthorisedValues;
29
use Koha::AuthorisedValues;
32
use Koha::Acquisition::Currencies;
30
use Koha::Acquisition::Currencies;
(-)a/svc/bib (-1 lines)
Lines 24-30 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw( check_api_auth );
25
use C4::Auth qw( check_api_auth );
26
use C4::Biblio qw( GetFrameworkCode );
26
use C4::Biblio qw( GetFrameworkCode );
27
use C4::Items;
28
use XML::Simple;
27
use XML::Simple;
29
28
30
my $query = CGI->new;
29
my $query = CGI->new;
(-)a/svc/bib_framework (-2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth qw/check_api_auth/;
22
use C4::Auth qw/check_api_auth/;
23
use C4::Biblio;
24
use C4::Items;
25
use XML::Simple;
23
use XML::Simple;
26
24
27
binmode STDOUT, ':encoding(UTF-8)';
25
binmode STDOUT, ':encoding(UTF-8)';
(-)a/svc/bib_profile (-1 lines)
Lines 23-29 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth qw/check_api_auth/;
24
use C4::Auth qw/check_api_auth/;
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
27
use Koha::ItemTypes;
26
use Koha::ItemTypes;
28
use XML::Simple;
27
use XML::Simple;
29
28
(-)a/svc/cataloguing/automatic_linker.pl (-1 lines)
Lines 22-28 use CGI; Link Here
22
use JSON qw( to_json );
22
use JSON qw( to_json );
23
use C4::Auth qw( check_cookie_auth );
23
use C4::Auth qw( check_cookie_auth );
24
use C4::Biblio qw( BiblioAutoLink TransformHtmlToMarc );
24
use C4::Biblio qw( BiblioAutoLink TransformHtmlToMarc );
25
use C4::Context;
26
25
27
my $input = CGI->new;
26
my $input = CGI->new;
28
print $input->header('application/json');
27
print $input->header('application/json');
(-)a/svc/cataloguing/framework (-3 lines)
Lines 3-12 Link Here
3
use Modern::Perl '2009';
3
use Modern::Perl '2009';
4
4
5
use CGI;
5
use CGI;
6
use C4::ClassSource;
7
use C4::Context;
6
use C4::Context;
8
use C4::Biblio;
9
use C4::Koha;
10
use C4::Service;
7
use C4::Service;
11
use Koha::Database;
8
use Koha::Database;
12
use Koha::Libraries;
9
use Koha::Libraries;
(-)a/svc/checkout_notes (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use JSON qw( to_json );
22
use JSON qw( to_json );
23
use CGI;
23
use CGI;
24
use C4::Service;
25
use C4::Auth qw ( check_cookie_auth );
24
use C4::Auth qw ( check_cookie_auth );
26
use C4::Output qw( is_ajax output_with_http_headers );
25
use C4::Output qw( is_ajax output_with_http_headers );
27
use Koha::Checkouts;
26
use Koha::Checkouts;
(-)a/svc/config/systempreferences (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Service;
24
use C4::Service;
25
use C4::Log;
26
25
27
=head1 NAME
26
=head1 NAME
28
27
(-)a/svc/convert_report (-3 lines)
Lines 19-28 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
23
use C4::Reports::Guided;
24
use Koha::Reports;
22
use Koha::Reports;
25
use C4::Output;
26
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
27
24
28
my $query  = CGI->new();
25
my $query  = CGI->new();
(-)a/svc/creator_batches (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use JSON qw( encode_json );
22
use JSON qw( encode_json );
23
use CGI;
23
use CGI;
24
use C4::Service;
25
use C4::Context;
24
use C4::Context;
26
use C4::Auth qw( check_cookie_auth );
25
use C4::Auth qw( check_cookie_auth );
27
use C4::Output qw( is_ajax output_with_http_headers );
26
use C4::Output qw( is_ajax output_with_http_headers );
(-)a/svc/holds (-1 lines)
Lines 23-29 use CGI; Link Here
23
use JSON qw(to_json);
23
use JSON qw(to_json);
24
24
25
use C4::Auth qw(check_cookie_auth);
25
use C4::Auth qw(check_cookie_auth);
26
use C4::Charset;
27
use C4::Circulation qw(GetTransfers);
26
use C4::Circulation qw(GetTransfers);
28
use C4::Context;
27
use C4::Context;
29
28
(-)a/svc/letters/preview (-3 lines)
Lines 20-29 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
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::Context;
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
use C4::Circulation;
26
use C4::Letters;
27
use Koha::Checkouts;
24
use Koha::Checkouts;
28
use Koha::Items;
25
use Koha::Items;
29
use Koha::Patrons;
26
use Koha::Patrons;
(-)a/svc/new_bib (-3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth qw/check_api_auth/;
24
use C4::Auth qw/check_api_auth/;
25
use C4::Biblio;
26
use C4::Items;
27
use XML::Simple;
25
use XML::Simple;
28
use C4::Charset;
29
26
30
my $query = CGI->new;
27
my $query = CGI->new;
31
binmode STDOUT, ':encoding(UTF-8)';
28
binmode STDOUT, ':encoding(UTF-8)';
(-)a/svc/problem_reports (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use JSON qw( to_json );
22
use JSON qw( to_json );
23
use CGI;
23
use CGI;
24
use C4::Service;
25
use C4::Auth qw( check_cookie_auth );
24
use C4::Auth qw( check_cookie_auth );
26
use C4::Output qw( is_ajax output_with_http_headers );
25
use C4::Output qw( is_ajax output_with_http_headers );
27
use Koha::ProblemReports;
26
use Koha::ProblemReports;
(-)a/svc/recall (-1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI;
21
use CGI;
22
use JSON qw(encode_json);
22
use JSON qw(encode_json);
23
23
24
use C4::Context;
25
use C4::Auth qw(check_cookie_auth);
24
use C4::Auth qw(check_cookie_auth);
26
use C4::Output qw(output_with_http_headers);
25
use C4::Output qw(output_with_http_headers);
27
use C4::Circulation qw(AddReturn);
26
use C4::Circulation qw(AddReturn);
(-)a/svc/split_callnumbers (-1 lines)
Lines 3-9 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use JSON qw( from_json );
4
use JSON qw( from_json );
5
use C4::Service;
5
use C4::Service;
6
use C4::ClassSplitRoutine::RegEx;
7
6
8
our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' );
7
our ( $query, $response ) = C4::Service->init( parameters => 'parameters_remaining_permissions' );
9
8
(-)a/tools/additional-contents.pl (-1 lines)
Lines 25-31 Link Here
25
use Modern::Perl;
25
use Modern::Perl;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw(get_template_and_user);
28
use C4::Koha;
29
use C4::Context;
28
use C4::Context;
30
use C4::Log qw( logaction );
29
use C4::Log qw( logaction );
31
use C4::Output qw(output_html_with_http_headers);
30
use C4::Output qw(output_html_with_http_headers);
(-)a/tools/automatic_item_modification_by_age.pl (-1 lines)
Lines 38-44 use JSON qw( to_json ); Link Here
38
use C4::Auth qw( get_template_and_user );
38
use C4::Auth qw( get_template_and_user );
39
use C4::Context;
39
use C4::Context;
40
use C4::Output qw( output_html_with_http_headers );
40
use C4::Output qw( output_html_with_http_headers );
41
use C4::Koha;
42
41
43
use Koha::Items;
42
use Koha::Items;
44
use Koha::Biblioitems;
43
use Koha::Biblioitems;
(-)a/tools/background-job-progress.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
# standard or CPAN modules used
22
# standard or CPAN modules used
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use CGI::Session;
24
use CGI::Session;
25
use C4::Context;
26
use C4::Auth qw( check_cookie_auth );
25
use C4::Auth qw( check_cookie_auth );
27
use C4::BackgroundJob;
26
use C4::BackgroundJob;
28
use CGI::Cookie; # need to check cookies before
27
use CGI::Cookie; # need to check cookies before
(-)a/tools/batch_delete_records.pl (-1 lines)
Lines 28-34 use C4::Auth qw( get_template_and_user ); Link Here
28
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
30
use C4::Biblio qw( GetMarcBiblio );
30
use C4::Biblio qw( GetMarcBiblio );
31
use C4::AuthoritiesMarc;
32
use Koha::Virtualshelves;
31
use Koha::Virtualshelves;
33
32
34
use Koha::Authorities;
33
use Koha::Authorities;
(-)a/tools/batch_records_ajax.pl (-1 lines)
Lines 34-40 use Modern::Perl; Link Here
34
use CGI qw ( -utf8 );
34
use CGI qw ( -utf8 );
35
use JSON qw( to_json );
35
use JSON qw( to_json );
36
36
37
use C4::Context;
38
use C4::Auth qw( check_cookie_auth );
37
use C4::Auth qw( check_cookie_auth );
39
use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );
38
use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );
40
39
(-)a/tools/copy-holidays.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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;
(-)a/tools/csv-profiles.pl (-1 lines)
Lines 38-44 use Modern::Perl; Link Here
38
use Encode;
38
use Encode;
39
39
40
use C4::Auth qw( get_template_and_user );
40
use C4::Auth qw( get_template_and_user );
41
use C4::Context;
42
use C4::Output qw( output_html_with_http_headers );
41
use C4::Output qw( output_html_with_http_headers );
43
use CGI qw ( -utf8 );
42
use CGI qw ( -utf8 );
44
use Koha::CsvProfiles;
43
use Koha::CsvProfiles;
(-)a/tools/exceptionHolidays.pl (-1 lines)
Lines 5-11 use Modern::Perl; Link Here
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;
(-)a/tools/import_borrowers.pl (-1 lines)
Lines 187-190 else { Link Here
187
}
187
}
188
188
189
output_html_with_http_headers $input, $cookie, $template->output;
189
output_html_with_http_headers $input, $cookie, $template->output;
190
(-)a/tools/manage-marc-import.pl (-2 lines)
Lines 26-32 use MARC::File::USMARC; Link Here
26
26
27
# Koha modules used
27
# Koha modules used
28
use C4::Context;
28
use C4::Context;
29
use C4::Koha;
30
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
31
use C4::Output qw( output_html_with_http_headers );
30
use C4::Output qw( output_html_with_http_headers );
32
use C4::ImportBatch qw( CleanBatch DeleteBatch GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
31
use C4::ImportBatch qw( CleanBatch DeleteBatch GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
Lines 445-448 sub add_page_numbers { Link Here
445
    }
444
    }
446
    $template->param(pages => \@pages);
445
    $template->param(pages => \@pages);
447
}
446
}
448
(-)a/tools/modborrowers.pl (-1 lines)
Lines 29-35 use Modern::Perl; Link Here
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::Koha qw( GetAuthorisedValues );
31
use C4::Koha qw( GetAuthorisedValues );
32
use C4::Members;
33
use C4::Output qw( output_html_with_http_headers );
32
use C4::Output qw( output_html_with_http_headers );
34
use Koha::DateUtils qw( dt_from_string );
33
use Koha::DateUtils qw( dt_from_string );
35
use Koha::List::Patron qw( GetPatronLists );
34
use Koha::List::Patron qw( GetPatronLists );
(-)a/tools/newHolidays.pl (-1 lines)
Lines 22-28 use Modern::Perl; Link Here
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;
(-)a/tools/overduerules.pl (-2 lines)
Lines 22-29 use CGI qw ( -utf8 ); Link Here
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::Letters;
26
use C4::Members;
27
use C4::Overdues qw( GetOverdueMessageTransportTypes );
25
use C4::Overdues qw( GetOverdueMessageTransportTypes );
28
use Koha::Libraries;
26
use Koha::Libraries;
29
27
(-)a/tools/picture-upload.pl (-1 lines)
Lines 28-34 use MIME::Base64; Link Here
28
use C4::Context;
28
use C4::Context;
29
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output qw( output_and_exit output_html_with_http_headers );
30
use C4::Output qw( output_and_exit output_html_with_http_headers );
31
use C4::Members;
32
31
33
use Koha::Logger;
32
use Koha::Logger;
34
use Koha::Patrons;
33
use Koha::Patrons;
(-)a/tools/problem-reports.pl (-1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
26
use Koha::ProblemReports;
25
use Koha::ProblemReports;
(-)a/tools/quotes-upload.pl (-1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
23
use autouse 'Data::Dumper' => qw(Dumper);
23
use autouse 'Data::Dumper' => qw(Dumper);
24
24
25
use C4::Auth qw( get_template_and_user );
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
27
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
28
27
29
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/tools/quotes.pl (-1 lines)
Lines 21-27 use CGI qw ( -utf8 ); Link Here
21
use Try::Tiny qw( catch try );
21
use Try::Tiny qw( catch try );
22
22
23
use C4::Auth qw( get_template_and_user );
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
25
use C4::Output qw( output_html_with_http_headers );
24
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Quotes;
25
use Koha::Quotes;
27
26
(-)a/tools/showdiffmarc.pl (-1 lines)
Lines 25-31 use Modern::Perl; Link Here
25
use CGI qw(:standard -utf8);
25
use CGI qw(:standard -utf8);
26
26
27
# Koha modules used
27
# Koha modules used
28
use C4::Context;
29
use C4::Output qw( output_html_with_http_headers );
28
use C4::Output qw( output_html_with_http_headers );
30
use C4::Auth qw( get_template_and_user );
29
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio qw( GetMarcBiblio );
30
use C4::Biblio qw( GetMarcBiblio );
(-)a/tools/upload-file.pl (-1 lines)
Lines 25-31 use Encode; Link Here
25
use JSON;
25
use JSON;
26
use URI::Escape qw( uri_unescape );
26
use URI::Escape qw( uri_unescape );
27
27
28
use C4::Context;
29
use C4::Auth qw( check_cookie_auth get_session );
28
use C4::Auth qw( check_cookie_auth get_session );
30
use Koha::Uploader;
29
use Koha::Uploader;
31
30
(-)a/virtualshelves/downloadshelf.pl (-1 lines)
Lines 24-30 use CGI qw ( -utf8 ); Link Here
24
use C4::Auth qw( get_template_and_user );
24
use C4::Auth qw( get_template_and_user );
25
use C4::Biblio qw( GetMarcBiblio );
25
use C4::Biblio qw( GetMarcBiblio );
26
use C4::Output qw( output_html_with_http_headers );
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Record;
28
use C4::Ris qw( marc2ris );
27
use C4::Ris qw( marc2ris );
29
28
30
use Koha::CsvProfiles;
29
use Koha::CsvProfiles;
(-)a/virtualshelves/shelves.pl (-2 lines)
Lines 28-34 use C4::Koha qw( Link Here
28
    GetNormalizedUPC
28
    GetNormalizedUPC
29
);
29
);
30
use C4::Items qw( GetItemsLocationInfo );
30
use C4::Items qw( GetItemsLocationInfo );
31
use C4::Members;
32
use C4::Output qw( pagination_bar output_html_with_http_headers );
31
use C4::Output qw( pagination_bar output_html_with_http_headers );
33
use C4::XSLT qw( XSLTParse4Display );
32
use C4::XSLT qw( XSLTParse4Display );
34
33
35
- 

Return to bug 30926