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

(-)a/C4/Acquisition.pm (-2 / +2 lines)
Lines 23-29 use Carp; Link Here
23
use Text::CSV_XS;
23
use Text::CSV_XS;
24
use C4::Context;
24
use C4::Context;
25
use C4::Suggestions;
25
use C4::Suggestions;
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure IsMarcStructureInternal );
27
use C4::Contract;
27
use C4::Contract;
28
use C4::Log qw(logaction);
28
use C4::Log qw(logaction);
29
use C4::Templates qw(gettemplate);
29
use C4::Templates qw(gettemplate);
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;
42
use C4::Koha qw( GetVariationsOfISBN );
43
43
44
use MARC::Field;
44
use MARC::Field;
45
use MARC::Record;
45
use MARC::Record;
(-)a/C4/Auth.pm (-3 / +3 lines)
Lines 28-38 use CGI::Session; Link Here
28
28
29
use C4::Context;
29
use C4::Context;
30
use C4::Templates;    # to get the template
30
use C4::Templates;    # to get the template
31
use C4::Languages;
31
use C4::Languages qw( getlanguage );
32
use C4::Search::History;
32
use C4::Search::History;
33
use Koha;
33
use Koha;
34
use Koha::Caches;
34
use Koha::Caches;
35
use Koha::AuthUtils qw(get_script_name hash_password);
35
use Koha::AuthUtils qw( get_script_name hash_password );
36
use Koha::Checkouts;
36
use Koha::Checkouts;
37
use Koha::DateUtils qw(dt_from_string);
37
use Koha::DateUtils qw(dt_from_string);
38
use Koha::Library::Groups;
38
use Koha::Library::Groups;
Lines 44-50 use Koha::Patron::Consents; Link Here
44
use POSIX qw/strftime/;
44
use POSIX qw/strftime/;
45
use List::MoreUtils qw/ any /;
45
use List::MoreUtils qw/ any /;
46
use Encode qw( encode is_utf8);
46
use Encode qw( encode is_utf8);
47
use C4::Auth_with_shibboleth;
47
use C4::Auth_with_shibboleth qw( shib_ok get_login_shib login_shib_url logout_shib checkpw_shib );
48
use Net::CIDR;
48
use Net::CIDR;
49
use C4::Log qw/logaction/;
49
use C4::Log qw/logaction/;
50
50
(-)a/C4/Auth_with_cas.pm (-1 / +1 lines)
Lines 21-27 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use C4::Context;
23
use C4::Context;
24
use Koha::AuthUtils qw(get_script_name);
24
use Koha::AuthUtils qw( get_script_name );
25
use Authen::CAS::Client;
25
use Authen::CAS::Client;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use FindBin;
27
use FindBin;
(-)a/C4/Auth_with_ldap.pm (-2 / +2 lines)
Lines 22-30 use Carp; Link Here
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Members::Messaging;
24
use C4::Members::Messaging;
25
use C4::Auth qw(checkpw_internal);
25
use C4::Auth qw( checkpw checkpw_internal );
26
use Koha::Patrons;
26
use Koha::Patrons;
27
use Koha::AuthUtils qw(hash_password);
27
use Koha::AuthUtils qw( hash_password );
28
use List::MoreUtils qw( any );
28
use List::MoreUtils qw( any );
29
use Net::LDAP;
29
use Net::LDAP;
30
use Net::LDAP::Filter;
30
use Net::LDAP::Filter;
(-)a/C4/Auth_with_shibboleth.pm (-1 / +1 lines)
Lines 20-26 package C4::Auth_with_shibboleth; Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Context;
22
use C4::Context;
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;
26
use C4::Members::Messaging;
(-)a/C4/AuthoritiesMarc.pm (-3 / +3 lines)
Lines 22-32 use strict; Link Here
22
use warnings;
22
use warnings;
23
use C4::Context;
23
use C4::Context;
24
use MARC::Record;
24
use MARC::Record;
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode );
26
use C4::Search;
26
use C4::Search qw( FindDuplicate new_record_from_zebra );
27
use C4::AuthoritiesMarc::MARC21;
27
use C4::AuthoritiesMarc::MARC21;
28
use C4::AuthoritiesMarc::UNIMARC;
28
use C4::AuthoritiesMarc::UNIMARC;
29
use C4::Charset;
29
use C4::Charset qw( SetUTF8Flag );
30
use C4::Log;
30
use C4::Log;
31
use Koha::MetadataRecord::Authority;
31
use Koha::MetadataRecord::Authority;
32
use Koha::Authorities;
32
use Koha::Authorities;
(-)a/C4/BackgroundJob.pm (-1 / +1 lines)
Lines 20-26 package C4::BackgroundJob; Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use C4::Context;
22
use C4::Context;
23
use C4::Auth qw/get_session/;
23
use C4::Auth qw( get_session );
24
use Digest::MD5;
24
use Digest::MD5;
25
25
26
26
(-)a/C4/Biblio.pm (-1 / +2 lines)
Lines 89-97 use C4::Koha; Link Here
89
use C4::Log;    # logaction
89
use C4::Log;    # logaction
90
use C4::Budgets;
90
use C4::Budgets;
91
use C4::ClassSource qw( GetClassSort );
91
use C4::ClassSource qw( GetClassSort );
92
use C4::Charset qw( SetUTF8Flag );
92
use C4::Charset qw( SetUTF8Flag SetMarcUnicodeFlag StripNonXmlChars nsb_clean );
93
use C4::Linker;
93
use C4::Linker;
94
use C4::OAI::Sets;
94
use C4::OAI::Sets;
95
use C4::Debug;
95
96
96
use Koha::Logger;
97
use Koha::Logger;
97
use Koha::Caches;
98
use Koha::Caches;
(-)a/C4/Breeding.pm (-5 / +5 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;
24
use C4::Biblio qw( AddBiblio TransformMarcToKoha TransformMarcToKohaOneField );
25
use C4::Koha;
25
use C4::Koha qw( GetNormalizedISBN );
26
use C4::Charset;
26
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
27
use MARC::File::USMARC;
27
use MARC::File::USMARC;
28
use MARC::Field;
28
use MARC::Field;
29
use C4::ImportBatch;
29
use C4::ImportBatch qw( sub GetZ3950BatchId AddBiblioToBatch AddAuthToBatch );
30
use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
30
use C4::AuthoritiesMarc; #GuessAuthTypeCode, FindDuplicateAuthority
31
use C4::Languages;
31
use C4::Languages qw( getlanguage );
32
use Koha::Database;
32
use Koha::Database;
33
use Koha::XSLT::Base;
33
use Koha::XSLT::Base;
34
34
(-)a/C4/Circulation.pm (-4 / +4 lines)
Lines 27-41 use Encode; Link Here
27
use Koha::DateUtils;
27
use Koha::DateUtils;
28
use C4::Context;
28
use C4::Context;
29
use C4::Stats;
29
use C4::Stats;
30
use C4::Reserves;
30
use C4::Reserves qw( CheckReserves CanItemBeReserved MoveReserve ModReserve ModReserveMinusPriority RevertWaitingStatus IsItemOnHoldAndFound IsAvailableForItemLevelRequest );
31
use C4::Biblio;
31
use C4::Biblio qw( UpdateTotalIssues ModZebra );
32
use C4::Items;
32
use C4::Items qw( sub ModItemTransfer ModDateLastSeen CartToShelf );
33
use C4::Members;
33
use C4::Members;
34
use C4::Accounts;
34
use C4::Accounts;
35
use C4::ItemCirculationAlertPreference;
35
use C4::ItemCirculationAlertPreference;
36
use C4::Message;
36
use C4::Message;
37
use C4::Log; # logaction
37
use C4::Log; # logaction
38
use C4::Overdues qw(CalcFine UpdateFine get_chargeable_units);
38
use C4::Overdues qw( UpdateFine get_chargeable_units CalcFine );
39
use C4::RotatingCollections qw(GetCollectionItemBranches);
39
use C4::RotatingCollections qw(GetCollectionItemBranches);
40
use Algorithm::CheckDigits;
40
use Algorithm::CheckDigits;
41
41
(-)a/C4/ClassSortRoutine/Dewey.pm (-1 / +1 lines)
Lines 28-34 C4::ClassSortRoutine::Dewey - generic call number sorting key routine Link Here
28
28
29
=head1 SYNOPSIS
29
=head1 SYNOPSIS
30
30
31
use C4::ClassSortRoutine;
31
use C4::ClassSortRoutine qw( GetClassSortKey );
32
32
33
my $cn_sort = GetClassSortKey('Dewey', $cn_class, $cn_item);
33
my $cn_sort = GetClassSortKey('Dewey', $cn_class, $cn_item);
34
34
(-)a/C4/ClassSortRoutine/Generic.pm (-1 / +1 lines)
Lines 28-34 C4::ClassSortRoutine::Generic - generic call number sorting key routine Link Here
28
28
29
=head1 SYNOPSIS
29
=head1 SYNOPSIS
30
30
31
use C4::ClassSortRoutine;
31
use C4::ClassSortRoutine qw( GetClassSortKey );
32
32
33
my $cn_sort = GetClassSortKey('Generic', $cn_class, $cn_item);
33
my $cn_sort = GetClassSortKey('Generic', $cn_class, $cn_item);
34
34
(-)a/C4/ClassSortRoutine/LCC.pm (-1 / +1 lines)
Lines 30-36 C4::ClassSortRoutine::LCC - generic call number sorting key routine Link Here
30
30
31
=head1 SYNOPSIS
31
=head1 SYNOPSIS
32
32
33
use C4::ClassSortRoutine;
33
use C4::ClassSortRoutine qw( GetClassSortKey );
34
34
35
my $cn_sort = GetClassSortKey('LCC', $cn_class, $cn_item);
35
my $cn_sort = GetClassSortKey('LCC', $cn_class, $cn_item);
36
36
(-)a/C4/CourseReserves.pm (-1 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use List::MoreUtils qw(any);
20
use List::MoreUtils qw(any);
21
21
22
use C4::Context;
22
use C4::Context;
23
use C4::Circulation qw(GetOpenIssue);
23
use C4::Circulation qw( GetOpenIssue );
24
24
25
use Koha::Courses;
25
use Koha::Courses;
26
use Koha::Course::Instructors;
26
use Koha::Course::Instructors;
(-)a/C4/HoldsQueue.pm (-2 / +2 lines)
Lines 24-31 use warnings; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Search;
26
use C4::Search;
27
use C4::Items;
27
use C4::Items qw( sub );
28
use C4::Circulation;
28
use C4::Circulation qw( GetTransfers GetBranchItemRule );
29
use C4::Members;
29
use C4::Members;
30
use C4::Biblio;
30
use C4::Biblio;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
(-)a/C4/ILSDI/Services.pm (-6 / +6 lines)
Lines 21-38 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use C4::Members;
23
use C4::Members;
24
use C4::Items;
24
use C4::Items qw( sub get_hostitemnumbers_of );
25
use C4::Circulation;
25
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal );
26
use C4::Accounts;
26
use C4::Accounts;
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcBiblio );
28
use C4::Reserves qw(AddReserve CanBookBeReserved CanItemBeReserved IsAvailableForItemLevelRequest);
28
use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved );
29
use C4::Context;
29
use C4::Context;
30
use C4::AuthoritiesMarc;
30
use C4::Auth qw( checkpw );
31
use XML::Simple;
31
use XML::Simple;
32
use HTML::Entities;
32
use HTML::Entities;
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use DateTime;
34
use DateTime;
35
use C4::Auth;
35
use C4::Auth qw( checkpw );
36
use Koha::DateUtils;
36
use Koha::DateUtils;
37
37
38
use Koha::Biblios;
38
use Koha::Biblios;
(-)a/C4/ImportBatch.pm (-4 / +4 lines)
Lines 21-30 use strict; Link Here
21
use warnings;
21
use warnings;
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Koha;
24
use C4::Koha qw( GetNormalizedISBN );
25
use C4::Biblio;
25
use C4::Biblio qw( AddBiblio ModBiblio GetMarcFromKohaField GetXmlBiblio TransformMarcToKoha DelBiblio );
26
use C4::Items;
26
use C4::Items qw( sub ModItemFromMarc AddItemFromMarc );
27
use C4::Charset;
27
use C4::Charset qw( SetUTF8Flag StripNonXmlChars MarcToUTF8Record );
28
use C4::AuthoritiesMarc;
28
use C4::AuthoritiesMarc;
29
use C4::MarcModificationTemplates;
29
use C4::MarcModificationTemplates;
30
use Koha::Items;
30
use Koha::Items;
(-)a/C4/InstallAuth.pm (-1 / +1 lines)
Lines 25-31 use File::Spec; Link Here
25
require Exporter;
25
require Exporter;
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Templates;
29
use C4::Templates;
30
use C4::Koha;
30
use C4::Koha;
31
31
(-)a/C4/Items.pm (-2 / +2 lines)
Lines 51-60 use Carp; Link Here
51
use Try::Tiny;
51
use Try::Tiny;
52
use C4::Context;
52
use C4::Context;
53
use C4::Koha;
53
use C4::Koha;
54
use C4::Biblio qw( GetFrameworkCode );
54
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformMarcToKoha _disambiguate AddBiblio GetMarcBiblio TransformKohaToMarc GetMarcStructure );
55
use Koha::DateUtils;
55
use Koha::DateUtils;
56
use MARC::Record;
56
use MARC::Record;
57
use C4::ClassSource;
57
use C4::ClassSource qw( GetClassSort GetClassSources GetClassSource );
58
use C4::Log;
58
use C4::Log;
59
use List::MoreUtils qw(any);
59
use List::MoreUtils qw(any);
60
use DateTime::Format::MySQL;
60
use DateTime::Format::MySQL;
(-)a/C4/Labels/Label.pm (-1 / +1 lines)
Lines 10-16 use Data::Dumper; Link Here
10
use Text::Bidi qw( log2vis );
10
use Text::Bidi qw( log2vis );
11
11
12
use C4::Context;
12
use C4::Context;
13
use C4::Biblio;
13
use C4::Biblio qw( GetAuthorisedValueDesc GetMarcFromKohaField GetMarcBiblio );
14
use Koha::ClassSources;
14
use Koha::ClassSources;
15
use Koha::ClassSortRules;
15
use Koha::ClassSortRules;
16
use Koha::ClassSplitRules;
16
use Koha::ClassSplitRules;
(-)a/C4/MarcModificationTemplates.pm (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use DateTime;
22
use DateTime;
23
23
24
use C4::Context;
24
use C4::Context;
25
use Koha::SimpleMARC;
25
use Koha::SimpleMARC qw( field_exists field_equals copy_field copy_and_replace_field add_field update_field move_field delete_field );
26
use Koha::MoreUtils;
26
use Koha::MoreUtils;
27
use Koha::DateUtils;
27
use Koha::DateUtils;
28
28
(-)a/C4/Members.pm (-2 / +2 lines)
Lines 28-38 use Date::Calc qw/Today check_date Date_to_Days/; Link Here
28
use List::MoreUtils qw( uniq );
28
use List::MoreUtils qw( uniq );
29
use JSON qw(to_json);
29
use JSON qw(to_json);
30
use C4::Log; # logaction
30
use C4::Log; # logaction
31
use C4::Overdues;
31
use C4::Overdues qw( checkoverdues );
32
use C4::Reserves;
32
use C4::Reserves;
33
use C4::Accounts;
33
use C4::Accounts;
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::Letters;
35
use C4::Letters qw( GetPreparedLetter );
36
use C4::NewsChannels; #get slip news
36
use C4::NewsChannels; #get slip news
37
use DateTime;
37
use DateTime;
38
use Koha::Database;
38
use Koha::Database;
(-)a/C4/Message.pm (-1 / +1 lines)
Lines 22-28 package C4::Message; Link Here
22
use strict;
22
use strict;
23
use warnings;
23
use warnings;
24
use C4::Context;
24
use C4::Context;
25
use C4::Letters;
25
use C4::Letters qw( GetPreparedLetter EnqueueLetter getletter );
26
use YAML::XS;
26
use YAML::XS;
27
use Encode;
27
use Encode;
28
use Carp;
28
use Carp;
(-)a/C4/Output.pm (-1 / +1 lines)
Lines 30-36 use Modern::Perl; Link Here
30
use URI::Escape;
30
use URI::Escape;
31
use Scalar::Util qw( looks_like_number );
31
use Scalar::Util qw( looks_like_number );
32
32
33
use C4::Auth qw(get_template_and_user);
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Templates;
35
use C4::Templates;
36
36
(-)a/C4/Record.pm (-2 / +2 lines)
Lines 26-32 use MARC::Record; # marc2marcxml, marcxml2marc, changeEncoding Link Here
26
use MARC::File::XML; # marc2marcxml, marcxml2marc, changeEncoding
26
use MARC::File::XML; # marc2marcxml, marcxml2marc, changeEncoding
27
use Biblio::EndnoteStyle;
27
use Biblio::EndnoteStyle;
28
use Unicode::Normalize; # _entity_encode
28
use Unicode::Normalize; # _entity_encode
29
use C4::Biblio; #marc2bibtex
29
use C4::Biblio qw( GetXmlBiblio GetMarcBiblio EmbedItemsInMarcBiblio GetFrameworkCode );
30
use C4::Koha; #marc2csv
30
use C4::Koha; #marc2csv
31
use C4::XSLT ();
31
use C4::XSLT ();
32
use YAML::XS; #marcrecords2csv
32
use YAML::XS; #marcrecords2csv
Lines 34-40 use Encode; Link Here
34
use Template;
34
use Template;
35
use Text::CSV::Encoded; #marc2csv
35
use Text::CSV::Encoded; #marc2csv
36
use Koha::Items;
36
use Koha::Items;
37
use Koha::SimpleMARC qw(read_field);
37
use Koha::SimpleMARC qw( delete_field read_field );
38
use Koha::XSLT::Base;
38
use Koha::XSLT::Base;
39
use Koha::CsvProfiles;
39
use Koha::CsvProfiles;
40
use Koha::AuthorisedValues;
40
use Koha::AuthorisedValues;
(-)a/C4/Reports/Guided.pm (-1 / +1 lines)
Lines 24-30 use JSON qw( from_json ); Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Templates qw/themelanguage/;
26
use C4::Templates qw/themelanguage/;
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Patrons;
29
use Koha::Patrons;
30
use Koha::Reports;
30
use Koha::Reports;
(-)a/C4/Reserves.pm (-3 / +3 lines)
Lines 25-34 use Modern::Perl; Link Here
25
25
26
use C4::Accounts;
26
use C4::Accounts;
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Circulation;
28
use C4::Circulation qw( CheckIfIssuedToPatron checkHighHolds GetAgeRestriction GetBranchItemRule );
29
use C4::Context;
29
use C4::Context;
30
use C4::Items;
30
use C4::Items qw( sub get_hostitemnumbers_of ModItemTransfer CartToShelf );
31
use C4::Letters;
31
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
32
use C4::Log;
32
use C4::Log;
33
use C4::Members::Messaging;
33
use C4::Members::Messaging;
34
use C4::Members;
34
use C4::Members;
(-)a/C4/Ris.pm (-1 / +1 lines)
Lines 67-73 use YAML::XS; Link Here
67
use Encode;
67
use Encode;
68
use vars qw(@ISA @EXPORT);
68
use vars qw(@ISA @EXPORT);
69
69
70
use Koha::SimpleMARC qw(read_field);
70
use Koha::SimpleMARC qw( read_field );
71
71
72
72
73
@ISA = qw(Exporter);
73
@ISA = qw(Exporter);
(-)a/C4/SIP/ILS.pm (-1 / +1 lines)
Lines 6-12 package C4::SIP::ILS; Link Here
6
6
7
use warnings;
7
use warnings;
8
use strict;
8
use strict;
9
use C4::SIP::Sip qw(siplog);
9
use C4::SIP::Sip qw( siplog );
10
use Data::Dumper;
10
use Data::Dumper;
11
11
12
use C4::SIP::ILS::Item;
12
use C4::SIP::ILS::Item;
(-)a/C4/SIP/SIPServer.pm (-6 / +6 lines)
Lines 13-24 use Scalar::Util qw(blessed); Link Here
13
require UNIVERSAL::require;
13
require UNIVERSAL::require;
14
14
15
use C4::Context;
15
use C4::Context;
16
use C4::SIP::Sip qw(siplog);
16
use C4::SIP::Sip qw( siplog );
17
use C4::SIP::Sip::Constants qw(:all);
17
use C4::SIP::Sip qw( siplog );
18
use C4::SIP::Sip::Configuration;
18
use C4::SIP::Sip qw( siplog );
19
use C4::SIP::Sip::Checksum qw(checksum verify_cksum);
19
use C4::SIP::Sip qw( siplog );
20
use C4::SIP::Sip::MsgType qw( handle login_core );
20
use C4::SIP::Sip qw( siplog );
21
use C4::SIP::Logger qw(set_logger);
21
use C4::SIP::Logger qw( set_logger );
22
22
23
use Koha::Caches;
23
use Koha::Caches;
24
24
(-)a/C4/SIP/Sip.pm (-1 / +1 lines)
Lines 15-21 use List::Util qw(first); Link Here
15
15
16
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
16
use C4::SIP::Sip::Constants qw(SIP_DATETIME FID_SCREEN_MSG);
17
use C4::SIP::Sip::Checksum qw(checksum);
17
use C4::SIP::Sip::Checksum qw(checksum);
18
use C4::SIP::Logger qw(get_logger);
18
use C4::SIP::Logger qw( get_logger );
19
19
20
use base qw(Exporter);
20
use base qw(Exporter);
21
21
(-)a/C4/Search.pm (-5 / +5 lines)
Lines 17-35 package C4::Search; Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use C4::Context;
19
use C4::Context;
20
use C4::Biblio;    # GetMarcFromKohaField, GetBiblioData
20
use C4::Biblio qw( TransformMarcToKoha GetMarcFromKohaField GetFrameworkCode GetAuthorisedValueDesc GetBiblioData );
21
use C4::Koha;      # getFacets
21
use C4::Koha qw( getFacets GetVariationsOfISBN GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation );
22
use Koha::DateUtils;
22
use Koha::DateUtils;
23
use Koha::Libraries;
23
use Koha::Libraries;
24
use Lingua::Stem;
24
use Lingua::Stem;
25
use XML::Simple;
25
use XML::Simple;
26
use C4::XSLT;
26
use C4::XSLT;
27
use C4::Reserves;    # GetReserveStatus
27
use C4::Reserves qw( GetReserveStatus );
28
use C4::Charset;
28
use C4::Charset qw( SetUTF8Flag );
29
use Koha::Logger;
30
use Koha::AuthorisedValues;
29
use Koha::AuthorisedValues;
31
use Koha::ItemTypes;
30
use Koha::ItemTypes;
32
use Koha::Libraries;
31
use Koha::Libraries;
32
use Koha::Logger;
33
use Koha::Patrons;
33
use Koha::Patrons;
34
use Koha::RecordProcessor;
34
use Koha::RecordProcessor;
35
use URI::Escape;
35
use URI::Escape;
(-)a/C4/Serials.pm (-2 / +2 lines)
Lines 20-31 package C4::Serials; Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth qw(haspermission);
23
use C4::Auth qw( haspermission );
24
use C4::Context;
24
use C4::Context;
25
use DateTime;
25
use DateTime;
26
use Date::Calc qw(:all);
26
use Date::Calc qw(:all);
27
use POSIX qw(strftime);
27
use POSIX qw(strftime);
28
use C4::Biblio;
28
use C4::Biblio qw( GetMarcBiblio GetMarcFromKohaField ModBiblio );
29
use C4::Log;    # logaction
29
use C4::Log;    # logaction
30
use C4::Serials::Frequency;
30
use C4::Serials::Frequency;
31
use C4::Serials::Numberpattern;
31
use C4::Serials::Numberpattern;
(-)a/C4/Service.pm (-2 / +2 lines)
Lines 43-50 use warnings; Link Here
43
43
44
use CGI qw ( -utf8 );
44
use CGI qw ( -utf8 );
45
use C4::Auth qw( check_api_auth );
45
use C4::Auth qw( check_api_auth );
46
use C4::Output qw( :ajax );
46
use C4::Output qw( output_with_http_headers );
47
use C4::Output::JSONStream;
47
use C4::Output qw( output_with_http_headers );
48
use JSON;
48
use JSON;
49
49
50
our $debug;
50
our $debug;
(-)a/C4/ShelfBrowser.pm (-2 / +2 lines)
Lines 20-28 package C4::ShelfBrowser; Link Here
20
use strict;
20
use strict;
21
use warnings;
21
use warnings;
22
22
23
use C4::Biblio;
23
use C4::Biblio qw( GetAuthorisedValueDesc GetMarcBiblio );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha qw( GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN GetNormalizedEAN );
26
use Koha::Biblios;
26
use Koha::Biblios;
27
use Koha::Libraries;
27
use Koha::Libraries;
28
28
(-)a/C4/SocialData.pm (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use C4::Context;
20
use C4::Context;
21
use Business::ISBN;
21
use Business::ISBN;
22
use C4::Koha;
22
use C4::Koha qw( GetNormalizedISBN );
23
23
24
=head1 NAME
24
=head1 NAME
25
25
(-)a/C4/Suggestions.pm (-1 / +1 lines)
Lines 23-29 use CGI qw ( -utf8 ); Link Here
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output;
26
use C4::Letters;
26
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
27
use C4::Biblio qw( GetMarcFromKohaField );
27
use C4::Biblio qw( GetMarcFromKohaField );
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Suggestions;
29
use Koha::Suggestions;
(-)a/C4/Templates.pm (-1 / +1 lines)
Lines 32-38 C4::Templates - Object for manipulating templates for use with Koha Link Here
32
use base qw(Class::Accessor);
32
use base qw(Class::Accessor);
33
use Template;
33
use Template;
34
use Template::Constants qw( :debug );
34
use Template::Constants qw( :debug );
35
use C4::Languages qw(getTranslatedLanguages get_bidi regex_lang_subtags language_get_description accept_language );
35
use C4::Languages qw( regex_lang_subtags get_bidi getTranslatedLanguages getlanguage );
36
36
37
use C4::Context;
37
use C4::Context;
38
38
(-)a/C4/TmplToken.pm (-1 / +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;
23
use C4::TmplTokenType qw( DIRECTIVE TAG CDATA TEXT TEXT_PARAMETRIZED );
24
24
25
=head1 NAME
25
=head1 NAME
26
26
(-)a/C4/XISBN.pm (-3 / +3 lines)
Lines 20-28 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;
23
use C4::Biblio qw( TransformMarcToKoha TransformMarcToKohaOneField );
24
use C4::Koha;
24
use C4::Koha qw( GetNormalizedISBN );
25
use C4::Search;
25
use C4::Search qw( new_record_from_zebra );
26
use C4::External::Syndetics qw(get_syndetics_editions);
26
use C4::External::Syndetics qw(get_syndetics_editions);
27
use LWP::UserAgent;
27
use LWP::UserAgent;
28
use HTTP::Request::Common;
28
use HTTP::Request::Common;
(-)a/C4/XSLT.pm (-3 / +3 lines)
Lines 24-32 package C4::XSLT; Link Here
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::Items;
27
use C4::Items qw( sub );
28
use C4::Koha;
28
use C4::Koha qw( xml_escape );
29
use C4::Biblio;
29
use C4::Biblio qw( GetFrameworkCode GetMarcStructure GetAuthorisedValueDesc );
30
use C4::Circulation;
30
use C4::Circulation;
31
use C4::Reserves;
31
use C4::Reserves;
32
use Koha::AuthorisedValues;
32
use Koha::AuthorisedValues;
(-)a/Koha/Account.pm (-1 / +1 lines)
Lines 25-31 use List::MoreUtils qw( uniq ); Link Here
25
use Try::Tiny;
25
use Try::Tiny;
26
26
27
use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal );
27
use C4::Circulation qw( ReturnLostItem CanBookBeRenewed AddRenewal );
28
use C4::Letters;
28
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
29
use C4::Log qw( logaction );
29
use C4::Log qw( logaction );
30
use C4::Stats qw( UpdateStats );
30
use C4::Stats qw( UpdateStats );
31
use C4::Overdues qw(GetFine);
31
use C4::Overdues qw(GetFine);
(-)a/Koha/Account/Line.pm (-1 / +1 lines)
Lines 21-27 use Carp; Link Here
21
use Data::Dumper;
21
use Data::Dumper;
22
22
23
use C4::Log qw(logaction);
23
use C4::Log qw(logaction);
24
use C4::Overdues qw(GetFine);
24
use C4::Overdues qw( UpdateFine );
25
25
26
use Koha::Account::CreditType;
26
use Koha::Account::CreditType;
27
use Koha::Account::DebitType;
27
use Koha::Account::DebitType;
(-)a/Koha/Acquisition/Order.pm (-1 / +1 lines)
Lines 20-26 use Modern::Perl; Link Here
20
use Carp qw( croak );
20
use Carp qw( croak );
21
use Try::Tiny;
21
use Try::Tiny;
22
22
23
use C4::Biblio qw(DelBiblio);
23
use C4::Biblio qw( DelBiblio );
24
24
25
use Koha::Acquisition::Baskets;
25
use Koha::Acquisition::Baskets;
26
use Koha::Acquisition::Funds;
26
use Koha::Acquisition::Funds;
(-)a/Koha/BackgroundJob/BatchUpdateBiblio.pm (-1 / +1 lines)
Lines 20-26 use JSON qw( encode_json decode_json ); Link Here
20
20
21
use Koha::BackgroundJobs;
21
use Koha::BackgroundJobs;
22
use Koha::DateUtils qw( dt_from_string );
22
use Koha::DateUtils qw( dt_from_string );
23
use C4::Biblio;
23
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode ModBiblio );
24
use C4::MarcModificationTemplates;
24
use C4::MarcModificationTemplates;
25
25
26
use base 'Koha::BackgroundJob';
26
use base 'Koha::BackgroundJob';
(-)a/Koha/Biblio.pm (-1 / +1 lines)
Lines 24-30 use List::MoreUtils qw(any); Link Here
24
use URI;
24
use URI;
25
use URI::Escape;
25
use URI::Escape;
26
26
27
use C4::Koha;
27
use C4::Koha qw( GetNormalizedISBN );
28
use C4::Biblio qw();
28
use C4::Biblio qw();
29
29
30
use Koha::Database;
30
use Koha::Database;
(-)a/Koha/BiblioUtils.pm (-1 / +1 lines)
Lines 32-38 the new thing that should be used. Link Here
32
32
33
=cut
33
=cut
34
34
35
use C4::Biblio; # EmbedItemsInMarcBiblio
35
use C4::Biblio qw( GetMarcBiblio );
36
use Koha::MetadataIterator;
36
use Koha::MetadataIterator;
37
use Koha::Database;
37
use Koha::Database;
38
use Modern::Perl;
38
use Modern::Perl;
(-)a/Koha/BiblioUtils/Iterator.pm (-1 / +1 lines)
Lines 43-49 Returns biblionumber and marc in list context. Link Here
43
43
44
=cut
44
=cut
45
45
46
use C4::Biblio;    # :( - for EmbedItemsInMarcBiblio
46
use C4::Biblio qw( GetXmlBiblio EmbedItemsInMarcBiblio );
47
47
48
use Carp;
48
use Carp;
49
use MARC::Record;
49
use MARC::Record;
(-)a/Koha/Checkout.pm (-1 / +1 lines)
Lines 24-30 use Carp; Link Here
24
use DateTime;
24
use DateTime;
25
use Try::Tiny;
25
use Try::Tiny;
26
26
27
use C4::Circulation qw(MarkIssueReturned);
27
use C4::Circulation qw( LostItem MarkIssueReturned );
28
use Koha::Checkouts::ReturnClaims;
28
use Koha::Checkouts::ReturnClaims;
29
use Koha::Database;
29
use Koha::Database;
30
use Koha::DateUtils;
30
use Koha::DateUtils;
(-)a/Koha/Checkouts.pm (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use Carp;
22
use Carp;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Circulation;
25
use C4::Circulation qw( AddReturn );
26
use Koha::Checkout;
26
use Koha::Checkout;
27
use Koha::Database;
27
use Koha::Database;
28
use Koha::DateUtils;
28
use Koha::DateUtils;
(-)a/Koha/EDI.pm (-1 / +1 lines)
Lines 30-36 use Koha::Database; Link Here
30
use Koha::DateUtils;
30
use Koha::DateUtils;
31
use C4::Acquisition qw( NewBasket ModOrder);
31
use C4::Acquisition qw( NewBasket ModOrder);
32
use C4::Suggestions qw( ModSuggestion );
32
use C4::Suggestions qw( ModSuggestion );
33
use C4::Biblio qw( AddBiblio TransformKohaToMarc GetMarcBiblio GetFrameworkCode GetMarcFromKohaField );
33
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField AddBiblio TransformKohaToMarc );
34
use Koha::Edifact::Order;
34
use Koha::Edifact::Order;
35
use Koha::Edifact;
35
use Koha::Edifact;
36
use C4::Log qw(logaction);
36
use C4::Log qw(logaction);
(-)a/Koha/Exporter/Record.pm (-1 / +1 lines)
Lines 5-11 use MARC::File::XML; Link Here
5
use MARC::File::USMARC;
5
use MARC::File::USMARC;
6
6
7
use C4::AuthoritiesMarc;
7
use C4::AuthoritiesMarc;
8
use C4::Biblio;
8
use C4::Biblio qw( RemoveAllNsb GetMarcBiblio EmbedItemsInMarcBiblio GetMarcFromKohaField );
9
use C4::Record;
9
use C4::Record;
10
use Koha::CsvProfiles;
10
use Koha::CsvProfiles;
11
use Koha::Logger;
11
use Koha::Logger;
(-)a/Koha/ExternalContent.pm (-1 / +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;
27
use C4::Auth qw( get_session );
28
28
29
__PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger));
29
__PACKAGE__->mk_accessors(qw(client koha_session_id koha_patron logger));
30
30
(-)a/Koha/Hold.pm (-1 / +1 lines)
Lines 25-31 use Data::Dumper qw(Dumper); Link Here
25
use List::MoreUtils qw(any);
25
use List::MoreUtils qw(any);
26
26
27
use C4::Context qw(preference);
27
use C4::Context qw(preference);
28
use C4::Letters;
28
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
29
use C4::Log;
29
use C4::Log;
30
30
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
(-)a/Koha/I18N.pm (-1 / +1 lines)
Lines 20-26 package Koha::I18N; Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Languages;
23
use C4::Languages qw( getlanguage );
24
use C4::Context;
24
use C4::Context;
25
25
26
use Encode;
26
use Encode;
(-)a/Koha/Illrequest.pm (-2 / +2 lines)
Lines 25-31 use Encode qw( encode ); Link Here
25
use Try::Tiny;
25
use Try::Tiny;
26
use DateTime;
26
use DateTime;
27
27
28
use C4::Letters;
28
use C4::Letters qw( EnqueueLetter GetPreparedLetter );
29
use C4::Members;
29
use C4::Members;
30
use Koha::Database;
30
use Koha::Database;
31
use Koha::DateUtils qw/ dt_from_string /;
31
use Koha::DateUtils qw/ dt_from_string /;
Lines 41-47 use Koha::Items; Link Here
41
use Koha::ItemTypes;
41
use Koha::ItemTypes;
42
use Koha::Libraries;
42
use Koha::Libraries;
43
43
44
use C4::Circulation qw( CanBookBeIssued AddIssue  );
44
use C4::Circulation qw( CanBookBeIssued AddIssue );
45
45
46
use base qw(Koha::Object);
46
use base qw(Koha::Object);
47
47
(-)a/Koha/Illrequest/Logger.pm (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use JSON qw( to_json from_json );
21
use JSON qw( to_json from_json );
22
use Time::Local;
22
use Time::Local;
23
23
24
use C4::Koha;
24
use C4::Koha qw( GetAuthorisedValues );
25
use C4::Context;
25
use C4::Context;
26
use C4::Templates;
26
use C4::Templates;
27
use C4::Log qw( logaction );
27
use C4::Log qw( logaction );
(-)a/Koha/Item.pm (-3 / +3 lines)
Lines 28-36 use Koha::Database; Link Here
28
use Koha::DateUtils qw( dt_from_string );
28
use Koha::DateUtils qw( dt_from_string );
29
29
30
use C4::Context;
30
use C4::Context;
31
use C4::Circulation;
31
use C4::Circulation qw( GetBranchItemRule );
32
use C4::Reserves;
32
use C4::Reserves qw( GetReservesControlBranch );
33
use C4::ClassSource; # FIXME We would like to avoid that
33
use C4::ClassSource qw( GetClassSort );
34
use C4::Log qw( logaction );
34
use C4::Log qw( logaction );
35
35
36
use Koha::Checkouts;
36
use Koha::Checkouts;
(-)a/Koha/Item/Transfer.pm (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use Carp;
20
use Carp;
21
21
22
use C4::Items;
22
use C4::Items qw( sub CartToShelf ModDateLastSeen );
23
23
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::DateUtils;
25
use Koha::DateUtils;
(-)a/Koha/ItemType.pm (-2 / +2 lines)
Lines 19-26 use Modern::Perl; Link Here
19
19
20
use Carp;
20
use Carp;
21
21
22
use C4::Koha;
22
use C4::Koha qw( getitemtypeimagelocation );
23
use C4::Languages;
23
use C4::Languages qw( getlanguage );
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::CirculationRules;
25
use Koha::CirculationRules;
26
use Koha::Localizations;
26
use Koha::Localizations;
(-)a/Koha/ItemTypes.pm (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use Carp;
20
use Carp;
21
21
22
use C4::Languages;
22
use C4::Languages qw( getlanguage );
23
23
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::ItemType;
25
use Koha::ItemType;
(-)a/Koha/MetaSearcher.pm (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use base 'Class::Accessor';
22
use base 'Class::Accessor';
23
23
24
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
24
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
25
use C4::Search qw(); # Purely for new_record_from_zebra
25
use C4::Search qw( new_record_from_zebra );
26
use DBIx::Class::ResultClass::HashRefInflator;
26
use DBIx::Class::ResultClass::HashRefInflator;
27
use IO::Select;
27
use IO::Select;
28
use Koha::Caches;
28
use Koha::Caches;
(-)a/Koha/MetadataRecord.pm (-1 / +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;
37
use Carp;
38
use C4::Biblio;
38
use C4::Biblio qw( TransformMarcToKoha TransformMarcToKohaOneField );
39
use Koha::Util::MARC;
39
use Koha::Util::MARC;
40
40
41
use base qw(Class::Accessor);
41
use base qw(Class::Accessor);
(-)a/Koha/MetadataRecord/Authority.pm (-1 / +1 lines)
Lines 37-43 use Carp; Link Here
37
use C4::Context;
37
use C4::Context;
38
use MARC::Record;
38
use MARC::Record;
39
use MARC::File::XML;
39
use MARC::File::XML;
40
use C4::Charset;
40
use C4::Charset qw( StripNonXmlChars );
41
use Koha::Util::MARC;
41
use Koha::Util::MARC;
42
42
43
use base qw(Koha::MetadataRecord);
43
use base qw(Koha::MetadataRecord);
(-)a/Koha/Patron.pm (-1 / +1 lines)
Lines 30-36 use C4::Log; Link Here
30
use Koha::Account;
30
use Koha::Account;
31
use Koha::ArticleRequests;
31
use Koha::ArticleRequests;
32
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
32
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
33
use Koha::AuthUtils;
33
use Koha::AuthUtils qw( hash_password is_password_valid );
34
use Koha::Checkouts;
34
use Koha::Checkouts;
35
use Koha::Club::Enrollments;
35
use Koha::Club::Enrollments;
36
use Koha::Database;
36
use Koha::Database;
(-)a/Koha/Patron/Discharge.pm (-1 / +1 lines)
Lines 6-12 use File::Temp qw( :POSIX ); Link Here
6
use Carp;
6
use Carp;
7
7
8
use C4::Templates qw ( gettemplate );
8
use C4::Templates qw ( gettemplate );
9
use C4::Letters qw ( GetPreparedLetter );
9
use C4::Letters qw( GetPreparedLetter );
10
10
11
use Koha::Database;
11
use Koha::Database;
12
use Koha::DateUtils qw( dt_from_string output_pref );
12
use Koha::DateUtils qw( dt_from_string output_pref );
(-)a/Koha/Patrons/Import.pm (-1 / +1 lines)
Lines 24-30 use Text::CSV; Link Here
24
use Encode qw( decode_utf8 );
24
use Encode qw( decode_utf8 );
25
use Try::Tiny;
25
use Try::Tiny;
26
26
27
use C4::Members;
27
use C4::Members qw( checkcardnumber );
28
28
29
use Koha::Libraries;
29
use Koha::Libraries;
30
use Koha::Patrons;
30
use Koha::Patrons;
(-)a/Koha/Plugins/Base.pm (-1 / +1 lines)
Lines 26-32 use List::Util qw(max); Link Here
26
use base qw{Module::Bundled::Files};
26
use base qw{Module::Bundled::Files};
27
27
28
use C4::Context;
28
use C4::Context;
29
use C4::Output qw(output_with_http_headers output_html_with_http_headers);
29
use C4::Output qw( output_with_http_headers );
30
30
31
=head1 NAME
31
=head1 NAME
32
32
(-)a/Koha/SearchEngine/Search.pm (-1 / +1 lines)
Lines 45-51 Creates a new C<Search> of whatever the relevant type is. Link Here
45
45
46
use Modern::Perl;
46
use Modern::Perl;
47
use C4::Context;
47
use C4::Context;
48
use C4::Biblio qw//;
48
use C4::Biblio qw( GetMarcFromKohaField );
49
use POSIX qw(ceil floor);
49
use POSIX qw(ceil floor);
50
50
51
sub new {
51
sub new {
(-)a/Koha/UploadedFiles.pm (-1 / +1 lines)
Lines 19-25 package Koha::UploadedFiles; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Koha;
22
use C4::Koha qw( GetAuthorisedValues );
23
use Koha::Database;
23
use Koha::Database;
24
use Koha::DateUtils;
24
use Koha::DateUtils;
25
use Koha::UploadedFile;
25
use Koha::UploadedFile;
(-)a/Koha/Virtualshelf.pm (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use Carp;
20
use Carp;
21
21
22
use C4::Auth;
22
use C4::Auth qw( haspermission );
23
23
24
use Koha::Patrons;
24
use Koha::Patrons;
25
use Koha::Database;
25
use Koha::Database;
(-)a/Koha/Z3950Responder/Session.pm (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use C4::Circulation qw( GetTransfers );
22
use C4::Circulation qw( GetTransfers );
23
use C4::Context;
23
use C4::Context;
24
use C4::Reserves qw( GetReserveStatus );
24
use C4::Reserves qw( GetReserveStatus );
25
use C4::Search qw();
25
use C4::Search qw( new_record_from_zebra );
26
26
27
use Koha::Items;
27
use Koha::Items;
28
use Koha::Logger;
28
use Koha::Logger;
(-)a/about.pl (-3 / +3 lines)
Lines 36-43 use Try::Tiny; Link Here
36
use YAML::XS;
36
use YAML::XS;
37
use Encode;
37
use Encode;
38
38
39
use C4::Output;
39
use C4::Output qw( output_html_with_http_headers );
40
use C4::Auth;
40
use C4::Auth qw( get_template_and_user get_user_subpermissions );
41
use C4::Context;
41
use C4::Context;
42
use C4::Installer::PerlModules;
42
use C4::Installer::PerlModules;
43
43
Lines 56-62 use Koha::SearchEngine::Elasticsearch; Link Here
56
use Koha::Logger;
56
use Koha::Logger;
57
use Koha::Filter::MARC::ViewPolicy;
57
use Koha::Filter::MARC::ViewPolicy;
58
58
59
use C4::Members::Statistics;
59
use C4::Members::Statistics qw( get_fields );
60
60
61
61
62
#use Smart::Comments '####';
62
#use Smart::Comments '####';
(-)a/acqui/acqui-home.pl (-2 / +2 lines)
Lines 29-36 this script is the main page for acqui Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Acquisition;
34
use C4::Acquisition;
35
use C4::Budgets;
35
use C4::Budgets;
36
use C4::Members;
36
use C4::Members;
(-)a/acqui/add_user_search.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/acqui/addorder.pl (-4 / +4 lines)
Lines 120-132 if it is an order from an existing suggestion : the id of this suggestion. Link Here
120
use Modern::Perl;
120
use Modern::Perl;
121
use CGI qw ( -utf8 );
121
use CGI qw ( -utf8 );
122
use JSON qw ( to_json );
122
use JSON qw ( to_json );
123
use C4::Auth;           # get_template_and_user
123
use C4::Auth qw( get_template_and_user );
124
use C4::Acquisition;    # ModOrder
124
use C4::Acquisition;    # ModOrder
125
use C4::Suggestions;    # ModStatus
125
use C4::Suggestions;    # ModStatus
126
use C4::Biblio;         # AddBiblio TransformKohaToMarc
126
use C4::Biblio qw( TransformHtmlToXml TransformKohaToMarc AddBiblio GetMarcFromKohaField );
127
use C4::Budgets;
127
use C4::Budgets;
128
use C4::Items;
128
use C4::Items qw( sub AddItemFromMarc );
129
use C4::Output;
129
use C4::Output qw( output_html_with_http_headers );
130
use C4::Log qw(logaction);
130
use C4::Log qw(logaction);
131
use Koha::Acquisition::Currencies;
131
use Koha::Acquisition::Currencies;
132
use Koha::Acquisition::Orders;
132
use Koha::Acquisition::Orders;
(-)a/acqui/addorderiso2709.pl (-6 / +6 lines)
Lines 29-42 use List::MoreUtils qw/uniq/; Link Here
29
use Encode;
29
use Encode;
30
30
31
use C4::Context;
31
use C4::Context;
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::ImportBatch;
34
use C4::ImportBatch qw( GetImportRecordsRange GetImportRecordMarc GetImportRecordMatches sub SetImportRecordStatus SetMatchedBiblionumber SetImportBatchStatus GetImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction );
35
use C4::Matcher;
35
use C4::Matcher;
36
use C4::Search qw/FindDuplicate/;
36
use C4::Search qw( FindDuplicate );
37
use C4::Acquisition;
37
use C4::Acquisition;
38
use C4::Biblio;
38
use C4::Biblio qw( GetMarcQuantity GetMarcFromKohaField AddBiblio GetMarcPrice TransformHtmlToXml );
39
use C4::Items;
39
use C4::Items qw( PrepareItemrecordDisplay sub AddItemFromMarc );
40
use C4::Koha;
40
use C4::Koha;
41
use C4::Budgets;
41
use C4::Budgets;
42
use C4::Acquisition;
42
use C4::Acquisition;
(-)a/acqui/ajax-getauthvaluedropbox.pl (-2 / +2 lines)
Lines 48-55 Default value for the dropbox. Link Here
48
use Modern::Perl;
48
use Modern::Perl;
49
49
50
use CGI qw ( -utf8 );
50
use CGI qw ( -utf8 );
51
use C4::Charset;
51
use C4::Charset qw( NormalizeString );
52
use C4::Auth qw/check_api_auth/;
52
use C4::Auth qw( check_api_auth );
53
use Koha::AuthorisedValues;
53
use Koha::AuthorisedValues;
54
54
55
my $query = CGI->new();
55
my $query = CGI->new();
(-)a/acqui/basket.pl (-5 / +5 lines)
Lines 21-45 Link Here
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use Modern::Perl;
23
use Modern::Perl;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user haspermission );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers output_and_exit );
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Acquisition;
28
use C4::Acquisition;
29
use C4::Budgets;
29
use C4::Budgets;
30
use C4::Contract;
30
use C4::Contract;
31
use C4::Biblio;
31
use C4::Biblio;
32
use C4::Items;
32
use C4::Items qw( sub );
33
use C4::Suggestions;
33
use C4::Suggestions;
34
use Koha::Biblios;
34
use Koha::Biblios;
35
use Koha::Acquisition::Baskets;
35
use Koha::Acquisition::Baskets;
36
use Koha::Acquisition::Booksellers;
36
use Koha::Acquisition::Booksellers;
37
use Koha::Acquisition::Orders;
37
use Koha::Acquisition::Orders;
38
use Koha::Libraries;
38
use Koha::Libraries;
39
use C4::Letters qw/SendAlerts/;
39
use C4::Letters qw( SendAlerts );
40
use Date::Calc qw/Add_Delta_Days/;
40
use Date::Calc qw/Add_Delta_Days/;
41
use Koha::Database;
41
use Koha::Database;
42
use Koha::EDI qw( create_edi_order get_edifact_ean );
42
use Koha::EDI qw( create_edi_order );
43
use Koha::CsvProfiles;
43
use Koha::CsvProfiles;
44
use Koha::Patrons;
44
use Koha::Patrons;
45
45
(-)a/acqui/basketgroup.pl (-3 / +3 lines)
Lines 46-58 The bookseller who we want to display the baskets (and basketgroups) of. Link Here
46
use Modern::Perl;
46
use Modern::Perl;
47
use Carp;
47
use Carp;
48
48
49
use C4::Auth;
49
use C4::Auth qw( get_template_and_user );
50
use C4::Output;
50
use C4::Output qw( output_html_with_http_headers );
51
use CGI qw ( -utf8 );
51
use CGI qw ( -utf8 );
52
use File::Spec;
52
use File::Spec;
53
53
54
use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV get_rounded_price/;
54
use C4::Acquisition qw/CloseBasketgroup ReOpenBasketgroup GetOrders GetBasketsByBasketgroup GetBasketsByBookseller ModBasketgroup NewBasketgroup DelBasketgroup GetBasketgroups ModBasket GetBasketgroup GetBasket GetBasketGroupAsCSV get_rounded_price/;
55
use Koha::EDI qw/create_edi_order get_edifact_ean/;
55
use Koha::EDI qw( get_edifact_ean create_edi_order );
56
56
57
use Koha::Biblioitems;
57
use Koha::Biblioitems;
58
use Koha::Acquisition::Booksellers;
58
use Koha::Acquisition::Booksellers;
(-)a/acqui/basketheader.pl (-2 / +2 lines)
Lines 48-55 If it exists, C<$basketno> is the basket we edit Link Here
48
use Modern::Perl;
48
use Modern::Perl;
49
use CGI qw ( -utf8 );
49
use CGI qw ( -utf8 );
50
use C4::Context;
50
use C4::Context;
51
use C4::Auth;
51
use C4::Auth qw( get_template_and_user );
52
use C4::Output;
52
use C4::Output qw( output_html_with_http_headers );
53
use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/;
53
use C4::Acquisition qw/GetBasket NewBasket ModBasketHeader/;
54
use C4::Contract qw/GetContracts/;
54
use C4::Contract qw/GetContracts/;
55
55
(-)a/acqui/booksellers.pl (-2 / +2 lines)
Lines 52-61 The id of the supplier whose baskets we will display Link Here
52
=cut
52
=cut
53
53
54
use Modern::Perl;
54
use Modern::Perl;
55
use C4::Auth;
55
use C4::Auth qw( get_template_and_user );
56
use C4::Biblio;
56
use C4::Biblio;
57
use C4::Budgets;
57
use C4::Budgets;
58
use C4::Output;
58
use C4::Output qw( output_html_with_http_headers );
59
use CGI qw ( -utf8 );
59
use CGI qw ( -utf8 );
60
60
61
use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;
61
use C4::Acquisition qw/ GetBasketsInfosByBookseller CanUserManageBasket /;
(-)a/acqui/cancelorder.pl (-2 / +2 lines)
Lines 32-39 and add possibility to indicate a reason for cancellation Link Here
32
use Modern::Perl;
32
use Modern::Perl;
33
33
34
use CGI;
34
use CGI;
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use C4::Output;
36
use C4::Output qw( output_html_with_http_headers );
37
use C4::Acquisition;
37
use C4::Acquisition;
38
use Koha::Acquisition::Baskets;
38
use Koha::Acquisition::Baskets;
39
39
(-)a/acqui/check_budget_total.pl (-2 / +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::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Budgets;
25
use C4::Budgets;
26
26
27
=head1 DESCRIPTION
27
=head1 DESCRIPTION
(-)a/acqui/check_uniqueness.pl (-2 / +2 lines)
Lines 33-40 use Modern::Perl; Link Here
33
33
34
use CGI qw ( -utf8 );
34
use CGI qw ( -utf8 );
35
use JSON;
35
use JSON;
36
use C4::Output;
36
use C4::Output qw( output_with_http_headers );
37
use C4::Items;
37
use C4::Items qw( SearchItems );
38
38
39
my $input = CGI->new;
39
my $input = CGI->new;
40
my @field = $input->multi_param('field[]');
40
my @field = $input->multi_param('field[]');
(-)a/acqui/duplicate_orders.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_and_exit output_html_with_http_headers );
26
use C4::Acquisition qw(GetHistory);
26
use C4::Acquisition qw(GetHistory);
27
use C4::Budgets qw(GetBudgetPeriods GetBudgetHierarchy CanUserUseBudget);
27
use C4::Budgets qw(GetBudgetPeriods GetBudgetHierarchy CanUserUseBudget);
28
use Koha::Acquisition::Baskets;
28
use Koha::Acquisition::Baskets;
(-)a/acqui/edi_ean.pl (-2 / +2 lines)
Lines 23-31 Link Here
23
#
23
#
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use Koha::Database;
29
use Koha::Database;
30
use CGI;
30
use CGI;
31
my $schema = Koha::Database->new()->schema();
31
my $schema = Koha::Database->new()->schema();
(-)a/acqui/edifactmsgs.pl (-3 / +3 lines)
Lines 20-30 use Modern::Perl; Link Here
20
20
21
use CGI;
21
use CGI;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Database;
26
use Koha::Database;
27
use Koha::EDI qw(process_invoice);
27
use Koha::EDI qw( process_invoice );
28
28
29
my $q = CGI->new;
29
my $q = CGI->new;
30
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
30
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
(-)a/acqui/edimsg.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
use CGI;
21
use CGI;
22
use Koha::Database;
22
use Koha::Database;
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
my $q = CGI->new;
27
my $q = CGI->new;
28
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
28
my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
(-)a/acqui/finishreceive.pl (-3 / +3 lines)
Lines 22-33 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::Auth;
25
use C4::Auth qw( checkauth );
26
use C4::Output;
26
use C4::Output;
27
use C4::Context;
27
use C4::Context;
28
use C4::Acquisition;
28
use C4::Acquisition;
29
use C4::Biblio;
29
use C4::Biblio qw( GetFrameworkCode GetMarcFromKohaField TransformHtmlToXml );
30
use C4::Items;
30
use C4::Items qw( sub GetMarcItem ModItemFromMarc AddItemFromMarc );
31
use C4::Search;
31
use C4::Search;
32
32
33
use Koha::Number::Price;
33
use Koha::Number::Price;
(-)a/acqui/histsearch.pl (-2 / +2 lines)
Lines 51-58 to filter on ended date. Link Here
51
51
52
use Modern::Perl;
52
use Modern::Perl;
53
use CGI qw ( -utf8 );
53
use CGI qw ( -utf8 );
54
use C4::Auth;    # get_template_and_user
54
use C4::Auth qw( get_template_and_user );
55
use C4::Output;
55
use C4::Output qw( output_html_with_http_headers );
56
use C4::Acquisition;
56
use C4::Acquisition;
57
use C4::Koha;
57
use C4::Koha;
58
use Koha::AdditionalFields;
58
use Koha::AdditionalFields;
(-)a/acqui/invoice-files.pl (-2 / +2 lines)
Lines 30-37 Manage files associated with invoice Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
31
32
use CGI;
32
use CGI;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Acquisition;
35
use C4::Acquisition;
36
use Koha::Misc::Files;
36
use Koha::Misc::Files;
37
37
(-)a/acqui/invoice.pl (-2 / +2 lines)
Lines 29-36 Invoice details Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_and_exit output_html_with_http_headers );
34
use C4::Acquisition;
34
use C4::Acquisition;
35
use C4::Budgets;
35
use C4::Budgets;
36
36
(-)a/acqui/invoices.pl (-2 / +2 lines)
Lines 29-36 Search for invoices Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
34
35
use C4::Acquisition qw/GetInvoices/;
35
use C4::Acquisition qw/GetInvoices/;
36
use C4::Budgets;
36
use C4::Budgets;
(-)a/acqui/lateorders-export.pl (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use Encode;
20
use Encode;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Acquisition;
23
use C4::Acquisition;
24
use C4::Output;
24
use C4::Output;
25
use C4::Context;
25
use C4::Context;
(-)a/acqui/lateorders.pl (-3 / +3 lines)
Lines 45-56 To know on which branch this script have to display late order. Link Here
45
45
46
use Modern::Perl;
46
use Modern::Perl;
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use C4::Auth;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Koha;
49
use C4::Koha;
50
use C4::Output;
50
use C4::Output qw( output_html_with_http_headers );
51
use C4::Context;
51
use C4::Context;
52
use C4::Acquisition;
52
use C4::Acquisition;
53
use C4::Letters;
53
use C4::Letters qw( SendAlerts GetLetters );
54
use Koha::DateUtils;
54
use Koha::DateUtils;
55
use Koha::Acquisition::Orders;
55
use Koha::Acquisition::Orders;
56
use Koha::CsvProfiles;
56
use Koha::CsvProfiles;
(-)a/acqui/modordernotes.pl (-2 / +2 lines)
Lines 29-36 Modify just notes when basket is closed. Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Acquisition;
34
use C4::Acquisition;
35
35
36
use Koha::Acquisition::Booksellers;
36
use Koha::Acquisition::Booksellers;
(-)a/acqui/neworderempty.pl (-6 / +6 lines)
Lines 68-88 use Modern::Perl; Link Here
68
use CGI qw ( -utf8 );
68
use CGI qw ( -utf8 );
69
use C4::Context;
69
use C4::Context;
70
70
71
use C4::Auth;
71
use C4::Auth qw( get_template_and_user );
72
use C4::Budgets;
72
use C4::Budgets;
73
73
74
use C4::Acquisition;
74
use C4::Acquisition;
75
use C4::Contract;
75
use C4::Contract;
76
use C4::Suggestions;	# GetSuggestion
76
use C4::Suggestions;	# GetSuggestion
77
use C4::Biblio;			# GetBiblioData GetMarcPrice
77
use C4::Biblio qw( AddBiblio GetMarcPrice GetMarcStructure GetMarcFromKohaField GetBiblioData IsMarcStructureInternal GetMarcBiblio );
78
use C4::Items; #PrepareItemRecord
78
use C4::Items qw( sub );
79
use C4::Output;
79
use C4::Output qw( output_and_exit output_html_with_http_headers );
80
use C4::Koha;
80
use C4::Koha;
81
use C4::Members;
81
use C4::Members;
82
use C4::Search qw/FindDuplicate/;
82
use C4::Search qw( FindDuplicate );
83
83
84
#needed for z3950 import:
84
#needed for z3950 import:
85
use C4::ImportBatch qw/GetImportRecordMarc SetImportRecordStatus SetMatchedBiblionumber/;
85
use C4::ImportBatch qw( sub SetImportRecordStatus SetMatchedBiblionumber GetImportRecordMarc );
86
86
87
use Koha::Acquisition::Booksellers;
87
use Koha::Acquisition::Booksellers;
88
use Koha::Acquisition::Currencies;
88
use Koha::Acquisition::Currencies;
(-)a/acqui/newordersubscription.pl (-3 / +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::Acquisition;
22
use C4::Acquisition;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Serials;
26
use C4::Serials qw( SearchSubscriptions subscriptionCurrentlyOnOrder check_routing );
27
27
28
use Koha::Acquisition::Booksellers;
28
use Koha::Acquisition::Booksellers;
29
29
(-)a/acqui/newordersuggestion.pl (-2 / +2 lines)
Lines 91-98 can be equal to Link Here
91
use Modern::Perl;
91
use Modern::Perl;
92
92
93
use CGI qw ( -utf8 );
93
use CGI qw ( -utf8 );
94
use C4::Auth;    # get_template_and_user
94
use C4::Auth qw( get_template_and_user );
95
use C4::Output;
95
use C4::Output qw( output_html_with_http_headers );
96
use C4::Suggestions;
96
use C4::Suggestions;
97
use C4::Biblio;
97
use C4::Biblio;
98
use C4::Budgets;
98
use C4::Budgets;
(-)a/acqui/ordered.pl (-2 / +2 lines)
Lines 30-37 this script is to show orders ordered but not yet received Link Here
30
use C4::Context;
30
use C4::Context;
31
use Modern::Perl;
31
use Modern::Perl;
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use Koha::Acquisition::Invoice::Adjustments;
35
use Koha::Acquisition::Invoice::Adjustments;
36
use C4::Acquisition;
36
use C4::Acquisition;
37
37
(-)a/acqui/orderreceive.pl (-4 / +4 lines)
Lines 63-74 use Modern::Perl; Link Here
63
use CGI qw ( -utf8 );
63
use CGI qw ( -utf8 );
64
use C4::Context;
64
use C4::Context;
65
use C4::Acquisition;
65
use C4::Acquisition;
66
use C4::Auth;
66
use C4::Auth qw( get_template_and_user );
67
use C4::Output;
67
use C4::Output qw( output_html_with_http_headers );
68
use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;
68
use C4::Budgets qw/ GetBudget GetBudgetHierarchy CanUserUseBudget GetBudgetPeriods /;
69
use C4::Members;
69
use C4::Members;
70
use C4::Items;
70
use C4::Items qw( sub );
71
use C4::Biblio;
71
use C4::Biblio qw( GetMarcStructure );
72
use C4::Suggestions;
72
use C4::Suggestions;
73
use C4::Koha;
73
use C4::Koha;
74
74
(-)a/acqui/parcel.pl (-3 / +3 lines)
Lines 56-68 To filter the results list on this given date. Link Here
56
56
57
use Modern::Perl;
57
use Modern::Perl;
58
58
59
use C4::Auth;
59
use C4::Auth qw( get_template_and_user );
60
use C4::Acquisition;
60
use C4::Acquisition;
61
use C4::Budgets;
61
use C4::Budgets;
62
use C4::Biblio;
62
use C4::Biblio;
63
use C4::Items;
63
use C4::Items qw( sub );
64
use CGI qw ( -utf8 );
64
use CGI qw ( -utf8 );
65
use C4::Output;
65
use C4::Output qw( output_html_with_http_headers );
66
use C4::Suggestions;
66
use C4::Suggestions;
67
67
68
use Koha::Acquisition::Baskets;
68
use Koha::Acquisition::Baskets;
(-)a/acqui/parcels.pl (-2 / +2 lines)
Lines 68-75 To know how many results have to be display / page. Link Here
68
68
69
use Modern::Perl;
69
use Modern::Perl;
70
use CGI qw ( -utf8 );
70
use CGI qw ( -utf8 );
71
use C4::Auth;
71
use C4::Auth qw( get_template_and_user );
72
use C4::Output;
72
use C4::Output qw( output_html_with_http_headers );
73
73
74
use C4::Acquisition;
74
use C4::Acquisition;
75
use C4::Budgets;
75
use C4::Budgets;
(-)a/acqui/showorder.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
23
24
use Koha::Acquisition::Orders;
24
use Koha::Acquisition::Orders;
25
use Koha::Patrons;
25
use Koha::Patrons;
(-)a/acqui/spent.pl (-2 / +2 lines)
Lines 30-37 this script is designed to show the spent amount in budgets Link Here
30
=cut
30
=cut
31
31
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use Modern::Perl;
35
use Modern::Perl;
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use C4::Acquisition;
37
use C4::Acquisition;
(-)a/acqui/supplier.pl (-2 / +2 lines)
Lines 41-50 To know the bookseller this script has to display details. Link Here
41
=cut
41
=cut
42
42
43
use Modern::Perl;
43
use Modern::Perl;
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use C4::Contract;
45
use C4::Contract;
46
use C4::Biblio;
46
use C4::Biblio;
47
use C4::Output;
47
use C4::Output qw( output_html_with_http_headers );
48
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
49
49
50
use C4::Budgets;
50
use C4::Budgets;
(-)a/acqui/transferorder.pl (-2 / +2 lines)
Lines 22-29 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
use C4::Acquisition;
28
use C4::Acquisition;
29
use Koha::Acquisition::Booksellers;
29
use Koha::Acquisition::Booksellers;
(-)a/acqui/uncertainprice.pl (-2 / +2 lines)
Lines 45-52 The bookseller who we want to display the orders of. Link Here
45
45
46
use Modern::Perl;
46
use Modern::Perl;
47
47
48
use C4::Auth;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Output;
49
use C4::Output qw( output_html_with_http_headers );
50
use CGI qw ( -utf8 );
50
use CGI qw ( -utf8 );
51
51
52
use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
52
use C4::Acquisition qw/SearchOrders GetOrder ModOrder/;
(-)a/acqui/updatesupplier.pl (-1 / +1 lines)
Lines 49-55 contact_serialsprimary. Link Here
49
use Modern::Perl;
49
use Modern::Perl;
50
use List::Util;
50
use List::Util;
51
use C4::Context;
51
use C4::Context;
52
use C4::Auth;
52
use C4::Auth qw( checkauth );
53
53
54
use C4::Biblio;
54
use C4::Biblio;
55
use C4::Output;
55
use C4::Output;
(-)a/acqui/z3950_search.pl (-3 / +3 lines)
Lines 22-31 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw/-utf8/;
23
use CGI qw/-utf8/;
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
use C4::Breeding;
28
use C4::Breeding qw( Z3950Search );
29
use C4::Koha;
29
use C4::Koha;
30
30
31
use Koha::Acquisition::Booksellers;
31
use Koha::Acquisition::Booksellers;
(-)a/admin/add_user_search.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/admin/additional-fields.pl (-2 / +2 lines)
Lines 18-26 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI;
20
use CGI;
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Koha;
22
use C4::Koha;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use Koha::AdditionalFields;
24
use Koha::AdditionalFields;
25
25
26
my $input = CGI->new;
26
my $input = CGI->new;
(-)a/admin/admin-home.pl (-2 / +2 lines)
Lines 18-25 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;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use Koha::Plugins;
23
use Koha::Plugins;
24
24
25
my $query = CGI->new;
25
my $query = CGI->new;
(-)a/admin/adveditorshortcuts.pl (-2 / +2 lines)
Lines 36-44 This script allows the user to redefine the keyboard shortcuts for the advacned Link Here
36
use Modern::Perl;
36
use Modern::Perl;
37
use Encode;
37
use Encode;
38
38
39
use C4::Auth;
39
use C4::Auth qw( get_template_and_user );
40
use C4::Context;
40
use C4::Context;
41
use C4::Output;
41
use C4::Output qw( output_html_with_http_headers );
42
use CGI qw ( -utf8 );
42
use CGI qw ( -utf8 );
43
use C4::Koha;
43
use C4::Koha;
44
use Koha::KeyboardShortcuts;
44
use Koha::KeyboardShortcuts;
(-)a/admin/aqbudgetperiods.pl (-2 / +2 lines)
Lines 52-59 use Koha::DateUtils; Link Here
52
use Koha::Database;
52
use Koha::Database;
53
use C4::Koha;
53
use C4::Koha;
54
use C4::Context;
54
use C4::Context;
55
use C4::Auth;
55
use C4::Auth qw( get_template_and_user );
56
use C4::Output;
56
use C4::Output qw( output_html_with_http_headers );
57
use C4::Acquisition;
57
use C4::Acquisition;
58
use C4::Budgets;
58
use C4::Budgets;
59
use Koha::Acquisition::Currencies;
59
use Koha::Acquisition::Currencies;
(-)a/admin/aqbudgets.pl (-3 / +3 lines)
Lines 25-36 use CGI qw ( -utf8 ); Link Here
25
use List::Util qw/min/;
25
use List::Util qw/min/;
26
26
27
use Koha::Database;
27
use Koha::Database;
28
use C4::Auth qw/get_user_subpermissions/;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Acquisition;
30
use C4::Acquisition;
31
use C4::Budgets;
31
use C4::Budgets;
32
use C4::Context;
32
use C4::Context;
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers output_and_exit );
34
use C4::Koha;
34
use C4::Koha;
35
use Koha::Acquisition::Currencies;
35
use Koha::Acquisition::Currencies;
36
use Koha::Patrons;
36
use Koha::Patrons;
(-)a/admin/aqcontract.pl (-2 / +2 lines)
Lines 23-30 Link Here
23
use Modern::Perl;
23
use Modern::Perl;
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Contract;
28
use C4::Contract;
29
use Koha::DateUtils;
29
use Koha::DateUtils;
30
30
(-)a/admin/aqplan.pl (-2 / +2 lines)
Lines 30-38 use Text::CSV_XS; Link Here
30
use C4::Acquisition;
30
use C4::Acquisition;
31
use C4::Budgets;
31
use C4::Budgets;
32
use C4::Context;
32
use C4::Context;
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Koha;
34
use C4::Koha;
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use Koha::Acquisition::Currencies;
36
use Koha::Acquisition::Currencies;
37
37
38
our $input = CGI->new;
38
our $input = CGI->new;
(-)a/admin/audio_alerts.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::AudioAlert;
25
use Koha::AudioAlert;
26
use Koha::AudioAlerts;
26
use Koha::AudioAlerts;
27
27
(-)a/admin/auth_subfields_structure.pl (-2 / +2 lines)
Lines 18-25 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::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha;
(-)a/admin/auth_tag_structure.pl (-2 / +2 lines)
Lines 20-29 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
28
29
use Koha::Authority::Types;
29
use Koha::Authority::Types;
(-)a/admin/authorised_values.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use List::MoreUtils qw(any);
23
use List::MoreUtils qw(any);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha qw( getImageSets getitemtypeimagelocation );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
use Koha::AuthorisedValues;
30
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValueCategories;
31
use Koha::AuthorisedValueCategories;
(-)a/admin/authtypes.pl (-2 / +2 lines)
Lines 22-29 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::Authorities;
28
use Koha::Authorities;
29
use Koha::Authority::Types;
29
use Koha::Authority::Types;
(-)a/admin/background_jobs.pl (-2 / +2 lines)
Lines 21-28 use JSON qw( decode_json ); Link Here
21
use Try::Tiny;
21
use Try::Tiny;
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::BackgroundJobs;
27
use Koha::BackgroundJobs;
28
use Koha::Virtualshelves;
28
use Koha::Virtualshelves;
(-)a/admin/biblio_framework.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Biblios;
26
use Koha::Biblios;
27
use Koha::BiblioFramework;
27
use Koha::BiblioFramework;
28
use Koha::BiblioFrameworks;
28
use Koha::BiblioFrameworks;
(-)a/admin/branch_transfer_limits.pl (-3 / +3 lines)
Lines 21-31 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Circulation qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
28
use C4::Circulation qw( DeleteBranchTransferLimits CreateBranchTransferLimit IsBranchTransferAllowed );
29
29
30
my $input = CGI->new;
30
my $input = CGI->new;
31
31
(-)a/admin/branches.pl (-2 / +2 lines)
Lines 23-31 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Try::Tiny;
24
use Try::Tiny;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Koha;
29
use C4::Koha;
30
30
31
use Koha::Database;
31
use Koha::Database;
(-)a/admin/cash_registers.pl (-2 / +2 lines)
Lines 23-33 use warnings; Link Here
23
use CGI;
23
use CGI;
24
use Try::Tiny;
24
use Try::Tiny;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use Koha::Libraries;
27
use Koha::Libraries;
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Context;
29
use C4::Context;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use Koha::Cash::Registers;
31
use Koha::Cash::Registers;
32
32
33
my $cgi = CGI->new();
33
my $cgi = CGI->new();
(-)a/admin/categories.pl (-2 / +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::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Form::MessagingPreferences;
27
use C4::Form::MessagingPreferences;
28
use Koha::Patrons;
28
use Koha::Patrons;
29
use Koha::Database;
29
use Koha::Database;
(-)a/admin/check_budget_parent.pl (-2 / +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::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Budgets;
25
use C4::Budgets;
26
26
27
=head1 DESCRIPTION
27
=head1 DESCRIPTION
(-)a/admin/check_parent_total.pl (-2 / +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::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Budgets;
25
use C4::Budgets;
26
26
27
=head1 DESCRIPTION
27
=head1 DESCRIPTION
(-)a/admin/checkmarc.pl (-2 / +2 lines)
Lines 19-26 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::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Biblio;
26
use C4::Biblio;
(-)a/admin/cities.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Cities;
27
use Koha::Cities;
28
28
(-)a/admin/classsources.pl (-4 / +4 lines)
Lines 21-32 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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::ClassSortRoutine;
28
use C4::ClassSortRoutine qw( GetSortRoutineNames );
29
use C4::ClassSplitRoutine;
29
use C4::ClassSplitRoutine qw( GetSplitRoutineNames );
30
use Koha::ClassSources;
30
use Koha::ClassSources;
31
use Koha::ClassSortRules;
31
use Koha::ClassSortRules;
32
use Koha::ClassSplitRules;
32
use Koha::ClassSplitRules;
(-)a/admin/clone-rules.pl (-2 / +2 lines)
Lines 28-35 Link Here
28
use Modern::Perl;
28
use Modern::Perl;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Koha;
33
use C4::Koha;
34
use Koha::CirculationRules;
34
use Koha::CirculationRules;
35
35
(-)a/admin/columns_settings.pl (-2 / +2 lines)
Lines 2-10 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI;
4
use CGI;
5
use C4::Auth;
5
use C4::Auth qw( get_template_and_user );
6
use C4::Context;
6
use C4::Context;
7
use C4::Output;
7
use C4::Output qw( output_html_with_http_headers );
8
use C4::Utils::DataTables::TablesSettings qw( get_modules );
8
use C4::Utils::DataTables::TablesSettings qw( get_modules );
9
my $input = CGI->new;
9
my $input = CGI->new;
10
10
(-)a/admin/credit_types.pl (-2 / +2 lines)
Lines 22-29 use CGI qw ( -utf8 ); Link Here
22
use Try::Tiny;
22
use Try::Tiny;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::Account::CreditType;
28
use Koha::Account::CreditType;
29
use Koha::Account::CreditTypes;
29
use Koha::Account::CreditTypes;
(-)a/admin/currency.pl (-2 / +2 lines)
Lines 21-29 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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::Acquisition::Booksellers;
28
use Koha::Acquisition::Booksellers;
29
use Koha::Acquisition::Currencies;
29
use Koha::Acquisition::Currencies;
(-)a/admin/debit_types.pl (-2 / +2 lines)
Lines 22-29 use CGI qw ( -utf8 ); Link Here
22
use Try::Tiny;
22
use Try::Tiny;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::Account::DebitType;
28
use Koha::Account::DebitType;
29
use Koha::Account::DebitTypes;
29
use Koha::Account::DebitTypes;
(-)a/admin/desks.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Desks;
27
use Koha::Desks;
28
28
(-)a/admin/didyoumean.pl (-2 / +2 lines)
Lines 3-10 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI qw ( -utf8 );
4
use CGI qw ( -utf8 );
5
use C4::Context;
5
use C4::Context;
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Output;
7
use C4::Output qw( output_html_with_http_headers );
8
use Koha::SuggestionEngine;
8
use Koha::SuggestionEngine;
9
use Module::Load::Conditional qw(can_load);
9
use Module::Load::Conditional qw(can_load);
10
use JSON;
10
use JSON;
(-)a/admin/edi_accounts.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use Koha::Database;
24
use Koha::Database;
25
use Koha::Plugins;
25
use Koha::Plugins;
26
26
(-)a/admin/edi_ean_accounts.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use Koha::Database;
24
use Koha::Database;
25
25
26
my $input = CGI->new();
26
my $input = CGI->new();
(-)a/admin/import_export_framework.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use CGI::Cookie;
23
use CGI::Cookie;
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth qw/check_cookie_auth/;
25
use C4::Auth qw( check_cookie_auth );
26
use C4::ImportExportFramework;
26
use C4::ImportExportFramework qw( ExportFramework createODS ImportFramework );
27
27
28
my %cookies = CGI::Cookie->fetch();
28
my %cookies = CGI::Cookie->fetch();
29
my $authenticated = 0;
29
my $authenticated = 0;
(-)a/admin/item_circulation_alerts.pl (-2 / +2 lines)
Lines 23-32 use Encode; Link Here
23
use JSON;
23
use JSON;
24
#use Data::Dump 'pp';
24
#use Data::Dump 'pp';
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Context;
27
use C4::Context;
28
use C4::ItemCirculationAlertPreference;
28
use C4::ItemCirculationAlertPreference;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
use Koha::ItemTypes;
31
use Koha::ItemTypes;
32
use Koha::Patron::Categories;
32
use Koha::Patron::Categories;
(-)a/admin/items_search_field.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField);
25
use Koha::Item::Search::Field qw(GetItemSearchField ModItemSearchField);
26
26
(-)a/admin/items_search_fields.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField);
25
use Koha::Item::Search::Field qw(AddItemSearchField GetItemSearchFields DelItemSearchField);
26
26
(-)a/admin/itemtypes.pl (-3 / +3 lines)
Lines 27-36 use CGI qw ( -utf8 ); Link Here
27
27
28
use File::Spec;
28
use File::Spec;
29
29
30
use C4::Koha;
30
use C4::Koha qw( getImageSets GetAuthorisedValues );
31
use C4::Context;
31
use C4::Context;
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use Koha::ItemTypes;
34
use Koha::ItemTypes;
35
use Koha::ItemType;
35
use Koha::ItemType;
36
use Koha::Localizations;
36
use Koha::Localizations;
(-)a/admin/koha2marclinks.pl (-2 / +2 lines)
Lines 22-30 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use Koha::Database;
24
use Koha::Database;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use Koha::BiblioFrameworks;
28
use Koha::BiblioFrameworks;
29
use Koha::Caches;
29
use Koha::Caches;
30
use Koha::MarcSubfieldStructures;
30
use Koha::MarcSubfieldStructures;
(-)a/admin/library_groups.pl (-2 / +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::Context;
22
use C4::Context;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::Libraries;
26
use Koha::Libraries;
27
use Koha::Library::Group;
27
use Koha::Library::Group;
(-)a/admin/localization.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
23
24
use Koha::Localization;
24
use Koha::Localization;
25
use Koha::Localizations;
25
use Koha::Localizations;
(-)a/admin/marc_subfields_structure.pl (-2 / +2 lines)
Lines 18-25 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::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
(-)a/admin/marctagstructure.pl (-2 / +2 lines)
Lines 20-29 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
28
29
use Koha::Caches;
29
use Koha::Caches;
(-)a/admin/matching-rules.pl (-2 / +2 lines)
Lines 21-29 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Matcher qw/valid_normalization_routines/;
28
use C4::Matcher qw/valid_normalization_routines/;
29
29
(-)a/admin/oai_set_mappings.pl (-2 / +2 lines)
Lines 33-40 the OR operator will be applied. Link Here
33
use Modern::Perl;
33
use Modern::Perl;
34
34
35
use CGI qw ( -utf8 );
35
use CGI qw ( -utf8 );
36
use C4::Auth;
36
use C4::Auth qw( get_template_and_user );
37
use C4::Output;
37
use C4::Output qw( output_html_with_http_headers );
38
use C4::OAI::Sets;
38
use C4::OAI::Sets;
39
39
40
use Data::Dumper;
40
use Data::Dumper;
(-)a/admin/oai_sets.pl (-2 / +2 lines)
Lines 29-36 Admin page to describe OAI SETs Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
30
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::OAI::Sets;
34
use C4::OAI::Sets;
35
35
36
use Data::Dumper;
36
use Data::Dumper;
(-)a/admin/overdrive.pl (-2 / +2 lines)
Lines 19-27 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::Libraries;
26
use Koha::Libraries;
27
use Koha::Library::OverDriveInfos;
27
use Koha::Library::OverDriveInfos;
(-)a/admin/patron-attr-types.pl (-2 / +2 lines)
Lines 24-32 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use List::MoreUtils qw/uniq/;
25
use List::MoreUtils qw/uniq/;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Koha;
30
use C4::Koha;
31
use Koha::Patron::Attribute::Types;
31
use Koha::Patron::Attribute::Types;
32
32
(-)a/admin/preferences.pl (-5 / +5 lines)
Lines 20-32 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha qw( getallthemes );
26
use C4::Languages qw(getTranslatedLanguages);
26
use C4::Languages qw( getTranslatedLanguages );
27
use C4::ClassSource;
27
use C4::ClassSource qw( GetClassSources GetClassSource );
28
use C4::Log;
28
use C4::Log;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Templates;
30
use C4::Templates;
31
use Koha::Acquisition::Currencies;
31
use Koha::Acquisition::Currencies;
32
use File::Spec;
32
use File::Spec;
(-)a/admin/share_content.pl (-2 / +2 lines)
Lines 21-28 use CGI qw ( -utf8 ); Link Here
21
use JSON;
21
use JSON;
22
use HTTP::Request;
22
use HTTP::Request;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::SharedContent;
27
use Koha::SharedContent;
28
28
(-)a/admin/smart-rules.pl (-2 / +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::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use Koha::DateUtils;
26
use Koha::DateUtils;
27
use Koha::Database;
27
use Koha::Database;
(-)a/admin/sms_providers.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI;
22
use CGI;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use Koha::SMS::Provider;
28
use Koha::SMS::Provider;
29
use Koha::SMS::Providers;
29
use Koha::SMS::Providers;
(-)a/admin/smtp_servers.pl (-2 / +2 lines)
Lines 23-30 use CGI qw ( -utf8 ); Link Here
23
use Scalar::Util qw(blessed);
23
use Scalar::Util qw(blessed);
24
use Try::Tiny;
24
use Try::Tiny;
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
use Koha::Libraries;
29
use Koha::Libraries;
30
use Koha::SMTP::Servers;
30
use Koha::SMTP::Servers;
(-)a/admin/sru_modmapping.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
# Initialize CGI, template
25
# Initialize CGI, template
26
26
(-)a/admin/systempreferences.pl (-5 / +5 lines)
Lines 44-55 use Modern::Perl; Link Here
44
44
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use MIME::Base64;
46
use MIME::Base64;
47
use C4::Auth;
47
use C4::Auth qw( get_template_and_user );
48
use C4::Context;
48
use C4::Context;
49
use C4::Koha;
49
use C4::Koha qw( getallthemes );
50
use C4::Languages qw(getTranslatedLanguages);
50
use C4::Languages qw( getTranslatedLanguages );
51
use C4::ClassSource;
51
use C4::ClassSource qw( GetClassSources GetClassSource );
52
use C4::Output;
52
use C4::Output qw( output_html_with_http_headers );
53
use YAML::XS;
53
use YAML::XS;
54
54
55
my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
55
my %tabsysprefs; #we do no longer need to keep track of a tab per pref (yaml)
(-)a/admin/transfer_limits.pl (-2 / +2 lines)
Lines 20-28 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Circulation
27
use C4::Circulation
28
  qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
28
  qw{ IsBranchTransferAllowed DeleteBranchTransferLimits CreateBranchTransferLimit };
(-)a/admin/transport-cost-matrix.pl (-3 / +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::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::HoldsQueue qw(TransportCostMatrix UpdateTransportCostMatrix);
26
use C4::HoldsQueue qw( TransportCostMatrix UpdateTransportCostMatrix );
27
27
28
use Koha::Libraries;
28
use Koha::Libraries;
29
29
(-)a/admin/usage_statistics.pl (-2 / +2 lines)
Lines 18-25 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;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use Koha::DateUtils qw( dt_from_string output_pref );
23
use Koha::DateUtils qw( dt_from_string output_pref );
24
use Koha::Libraries;
24
use Koha::Libraries;
25
25
(-)a/admin/z3950servers.pl (-2 / +2 lines)
Lines 27-34 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use Koha::Database;
32
use Koha::Database;
33
use Koha::Z3950Servers;
33
use Koha::Z3950Servers;
34
34
(-)a/authorities/auth_finder.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Acquisition;
27
use C4::Acquisition;
28
use C4::Koha;
28
use C4::Koha;
(-)a/authorities/authorities-home.pl (-3 / +3 lines)
Lines 24-32 use URI::Escape; Link Here
24
use POSIX qw( ceil );
24
use POSIX qw( ceil );
25
25
26
use C4::Context;
26
use C4::Context;
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_and_exit pagination_bar output_html_with_http_headers );
29
use C4::AuthoritiesMarc;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Acquisition;
30
use C4::Acquisition;
31
use C4::Koha;
31
use C4::Koha;
32
use C4::Biblio;
32
use C4::Biblio;
(-)a/authorities/authorities.pl (-5 / +5 lines)
Lines 21-36 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::AuthoritiesMarc;
26
use C4::Auth qw( get_template_and_user );
27
use C4::ImportBatch; #GetImportRecordMarc
27
use C4::ImportBatch qw( sub GetImportRecordMarc );
28
use C4::Context;
28
use C4::Context;
29
use C4::Koha;
29
use C4::Koha;
30
use Date::Calc qw(Today);
30
use Date::Calc qw(Today);
31
use MARC::File::USMARC;
31
use MARC::File::USMARC;
32
use MARC::File::XML;
32
use MARC::File::XML;
33
use C4::Biblio;
33
use C4::Biblio qw( TransformHtmlToMarc );
34
use Koha::Authority::Types;
34
use Koha::Authority::Types;
35
use Koha::ItemTypes;
35
use Koha::ItemTypes;
36
use vars qw( $tagslib);
36
use vars qw( $tagslib);
(-)a/authorities/blinddetail-biblio-search.pl (-3 / +3 lines)
Lines 38-47 parameters tables. Link Here
38
38
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use C4::AuthoritiesMarc;
41
use C4::Auth qw( get_template_and_user );
42
use C4::Auth;
42
use C4::Auth qw( get_template_and_user );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output;
44
use C4::Output qw( output_html_with_http_headers );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use MARC::Record;
46
use MARC::Record;
47
use C4::Koha;
47
use C4::Koha;
(-)a/authorities/detail-biblio-search.pl (-3 / +3 lines)
Lines 38-47 parameters tables. Link Here
38
38
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use C4::AuthoritiesMarc;
41
use C4::Auth qw( get_template_and_user );
42
use C4::Auth;
42
use C4::Auth qw( get_template_and_user );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output;
44
use C4::Output qw( output_html_with_http_headers );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use MARC::Record;
46
use MARC::Record;
47
use C4::Koha;
47
use C4::Koha;
(-)a/authorities/detail.pl (-4 / +4 lines)
Lines 38-50 parameters tables. Link Here
38
38
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use C4::AuthoritiesMarc;
41
use C4::Auth qw( get_template_and_user );
42
use C4::Auth;
42
use C4::Auth qw( get_template_and_user );
43
use C4::Context;
43
use C4::Context;
44
use C4::Output;
44
use C4::Output qw( output_html_with_http_headers );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use MARC::Record;
46
use MARC::Record;
47
use C4::Koha;
47
use C4::Koha qw( display_marc_indicators );
48
use Koha::Authorities;
48
use Koha::Authorities;
49
49
50
use Koha::Authority::Types;
50
use Koha::Authority::Types;
(-)a/authorities/export.pl (-2 / +2 lines)
Lines 2-10 Link Here
2
use Modern::Perl;
2
use Modern::Perl;
3
3
4
use C4::Record;
4
use C4::Record;
5
use C4::Auth;
5
use C4::Auth qw( get_template_and_user );
6
use C4::Output;
6
use C4::Output;
7
use C4::AuthoritiesMarc;
7
use C4::Auth qw( get_template_and_user );
8
use CGI qw ( -utf8 );
8
use CGI qw ( -utf8 );
9
9
10
my $query = CGI->new;
10
my $query = CGI->new;
(-)a/authorities/merge.pl (-4 / +4 lines)
Lines 19-29 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::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::AuthoritiesMarc;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Biblio;
26
use C4::Biblio qw( TransformHtmlToMarc );
27
27
28
use Koha::Authority::MergeRequests;
28
use Koha::Authority::MergeRequests;
29
use Koha::Authority::Types;
29
use Koha::Authority::Types;
(-)a/authorities/merge_ajax.pl (-2 / +2 lines)
Lines 7-14 use CGI::Cookie; # need to check cookies before CGI parses the POST request Link Here
7
use JSON;
7
use JSON;
8
8
9
use C4::Context;
9
use C4::Context;
10
use C4::Auth qw/check_cookie_auth/;
10
use C4::Auth qw( check_cookie_auth );
11
use C4::AuthoritiesMarc;
11
use C4::Auth qw( check_cookie_auth );
12
12
13
my %cookies = CGI::Cookie->fetch;
13
my %cookies = CGI::Cookie->fetch;
14
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
14
my ($auth_status, $sessionID) = check_cookie_auth($cookies{'CGISESSID'}->value, { editcatalogue => 'edit_catalogue' });
(-)a/authorities/ysearch.pl (-3 / +3 lines)
Lines 32-40 use Modern::Perl; Link Here
32
use JSON;
32
use JSON;
33
33
34
use C4::Context;
34
use C4::Context;
35
use C4::Charset;
35
use C4::Charset qw( nsb_clean );
36
use C4::Auth qw/check_cookie_auth/;
36
use C4::Auth qw( check_cookie_auth );
37
use C4::Output;
37
use C4::Output qw( output_with_http_headers );
38
use Koha::SearchEngine::Search;
38
use Koha::SearchEngine::Search;
39
use Koha::SearchEngine::QueryBuilder;
39
use Koha::SearchEngine::QueryBuilder;
40
40
(-)a/basket/basket.pl (-4 / +4 lines)
Lines 19-28 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Koha;
21
use C4::Koha;
22
use C4::Biblio;
22
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls );
23
use C4::Items;
23
use C4::Items qw( sub GetItemsInfo );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::AuthorisedValues;
27
use Koha::AuthorisedValues;
28
use Koha::Biblios;
28
use Koha::Biblios;
(-)a/basket/downloadcart.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record;
30
use C4::Ris;
30
use C4::Ris;
31
31
(-)a/basket/sendbasket.pl (-4 / +4 lines)
Lines 22-31 use Encode qw(encode); Link Here
22
use Carp;
22
use Carp;
23
use Try::Tiny;
23
use Try::Tiny;
24
24
25
use C4::Biblio;
25
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects );
26
use C4::Items;
26
use C4::Items qw( sub GetItemsInfo );
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_and_exit output_html_with_http_headers );
29
use C4::Templates ();
29
use C4::Templates ();
30
use Koha::Email;
30
use Koha::Email;
31
use Koha::Token;
31
use Koha::Token;
(-)a/catalogue/ISBDdetail.pl (-6 / +6 lines)
Lines 36-50 This script needs a biblionumber as parameter Link Here
36
use Modern::Perl;
36
use Modern::Perl;
37
37
38
use HTML::Entities;
38
use HTML::Entities;
39
use C4::Auth;
39
use C4::Auth qw( get_template_and_user );
40
use C4::Context;
40
use C4::Context;
41
use C4::Output;
41
use C4::Output qw( output_html_with_http_headers );
42
use CGI qw ( -utf8 );
42
use CGI qw ( -utf8 );
43
use C4::Koha;
43
use C4::Koha;
44
use C4::Biblio;
44
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView GetBiblioData );
45
use C4::Items;
45
use C4::Items qw( sub );
46
use C4::Serials;    # CountSubscriptionFromBiblionumber
46
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
47
use C4::Search;		# enabled_staff_search_views
47
use C4::Search qw( z3950_search_args enabled_staff_search_views );
48
48
49
use Koha::Biblios;
49
use Koha::Biblios;
50
use Koha::Patrons;
50
use Koha::Patrons;
(-)a/catalogue/MARCdetail.pl (-7 / +7 lines)
Lines 47-62 use Modern::Perl; Link Here
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use HTML::Entities;
48
use HTML::Entities;
49
49
50
use C4::Auth;
50
use C4::Auth qw( get_template_and_user );
51
use C4::Context;
51
use C4::Context;
52
use C4::Output;
52
use C4::Output qw( output_html_with_http_headers );
53
use C4::Koha;
53
use C4::Koha qw( display_marc_indicators );
54
use MARC::Record;
54
use MARC::Record;
55
use C4::Biblio;
55
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData GetAuthorisedValueDesc GetMarcFromKohaField );
56
use C4::Items;
56
use C4::Items qw( sub );
57
use C4::Acquisition;
57
use C4::Acquisition;
58
use C4::Serials;    #uses getsubscriptionsfrombiblionumber GetSubscriptionsFromBiblionumber
58
use C4::Serials qw( CountSubscriptionFromBiblionumber GetSubscription GetSubscriptionsFromBiblionumber );
59
use C4::Search;		# enabled_staff_search_views
59
use C4::Search qw( z3950_search_args enabled_staff_search_views );
60
60
61
use Koha::Biblios;
61
use Koha::Biblios;
62
use Koha::BiblioFrameworks;
62
use Koha::BiblioFrameworks;
(-)a/catalogue/detail.pl (-12 / +12 lines)
Lines 21-44 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use HTML::Entities;
22
use HTML::Entities;
23
use Try::Tiny;
23
use Try::Tiny;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN getitemtypeimagelocation GetAuthorisedValues );
27
use C4::Serials;    #uses getsubscriptionfrom biblionumber
27
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Biblio;
29
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetBiblioData );
30
use C4::Items;
30
use C4::Items qw( GetItemsInfo GetHostItemsInfo sub GetAnalyticsCount );
31
use C4::Circulation;
31
use C4::Circulation qw( GetTransfers );
32
use C4::Reserves;
32
use C4::Reserves;
33
use C4::Serials;
33
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
34
use C4::XISBN qw(get_xisbns);
34
use C4::XISBN qw( get_xisbns );
35
use C4::External::Amazon;
35
use C4::External::Amazon;
36
use C4::Search;        # enabled_staff_search_views
36
use C4::Search qw( z3950_search_args enabled_staff_search_views );
37
use C4::Tags qw(get_tags);
37
use C4::Tags qw( get_tags get_tag );
38
use C4::XSLT;
38
use C4::XSLT;
39
use Koha::DateUtils;
39
use Koha::DateUtils;
40
use C4::HTML5Media;
40
use C4::HTML5Media;
41
use C4::CourseReserves qw(GetItemCourseReservesInfo);
41
use C4::CourseReserves qw( GetItemCourseReservesInfo );
42
use C4::Acquisition qw(GetOrdersByBiblionumber);
42
use C4::Acquisition qw(GetOrdersByBiblionumber);
43
use Koha::AuthorisedValues;
43
use Koha::AuthorisedValues;
44
use Koha::Biblios;
44
use Koha::Biblios;
(-)a/catalogue/export.pl (-2 / +2 lines)
Lines 2-10 Link Here
2
use Modern::Perl;
2
use Modern::Perl;
3
3
4
use C4::Record;
4
use C4::Record;
5
use C4::Auth;
5
use C4::Auth qw( get_template_and_user );
6
use C4::Output;
6
use C4::Output;
7
use C4::Biblio;
7
use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber );
8
use CGI qw ( -utf8 );
8
use CGI qw ( -utf8 );
9
use C4::Ris;
9
use C4::Ris;
10
10
(-)a/catalogue/getitem-ajax.pl (-3 / +3 lines)
Lines 21-31 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use JSON;
22
use JSON;
23
23
24
use C4::Auth;
24
use C4::Auth qw( check_api_auth );
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcStructure );
26
use C4::Items;
26
use C4::Items;
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Output;
28
use C4::Output qw( output_with_http_headers );
29
use Koha::Libraries;
29
use Koha::Libraries;
30
30
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
(-)a/catalogue/imageviewer.pl (-4 / +4 lines)
Lines 20-30 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Biblio;
24
use C4::Biblio;
25
use C4::Items;
25
use C4::Items qw( GetItemsInfo );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Search;
27
use C4::Search qw( enabled_staff_search_views );
28
28
29
use Koha::Biblios;
29
use Koha::Biblios;
30
use Koha::Items;
30
use Koha::Items;
(-)a/catalogue/issuehistory.pl (-4 / +4 lines)
Lines 19-30 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
use C4::Biblio;    # GetBiblio
25
use C4::Biblio;    # GetBiblio
26
use C4::Search;		# enabled_staff_search_views
26
use C4::Search qw( enabled_staff_search_views );
27
use C4::Serials;
27
use C4::Serials qw( CountSubscriptionFromBiblionumber );
28
use Koha::Checkouts;
28
use Koha::Checkouts;
29
use Koha::Old::Checkouts;
29
use Koha::Old::Checkouts;
30
30
(-)a/catalogue/item-export.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
26
27
my $cgi = CGI->new;
27
my $cgi = CGI->new;
(-)a/catalogue/itemsearch.pl (-4 / +4 lines)
Lines 21-31 use CGI; Link Here
21
21
22
use JSON;
22
use JSON;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_with_http_headers output_html_with_http_headers );
26
use C4::Items;
26
use C4::Items qw( SearchItems );
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Koha;
28
use C4::Koha qw( GetAuthorisedValues );
29
29
30
use Koha::AuthorisedValues;
30
use Koha::AuthorisedValues;
31
use Koha::Biblios;
31
use Koha::Biblios;
(-)a/catalogue/labeledMARCdetail.pl (-6 / +6 lines)
Lines 21-33 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 ); 
21
use CGI qw ( -utf8 ); 
22
use HTML::Entities;
22
use HTML::Entities;
23
use MARC::Record;
23
use MARC::Record;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio GetMarcStructure GetBiblioData );
28
use C4::Items;
28
use C4::Items qw( sub );
29
use C4::Search;		# enabled_staff_search_views
29
use C4::Search qw( z3950_search_args enabled_staff_search_views );
30
use C4::Serials;
30
use C4::Serials qw( CountSubscriptionFromBiblionumber );
31
31
32
use Koha::Biblios;
32
use Koha::Biblios;
33
use Koha::BiblioFrameworks;
33
use Koha::BiblioFrameworks;
(-)a/catalogue/moredetail.pl (-7 / +7 lines)
Lines 20-35 Link Here
20
20
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Koha;
23
use C4::Koha qw( GetAuthorisedValues );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use HTML::Entities;
25
use HTML::Entities;
26
use C4::Biblio;
26
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio );
27
use C4::Items;
27
use C4::Items qw( sub GetItemsInfo GetHostItemsInfo );
28
use C4::Acquisition;
28
use C4::Acquisition;
29
use C4::Output;
29
use C4::Output qw( output_and_exit output_html_with_http_headers );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Serials;
31
use C4::Serials qw( CountSubscriptionFromBiblionumber );
32
use C4::Search;		# enabled_staff_search_views
32
use C4::Search qw( enabled_staff_search_views z3950_search_args );
33
33
34
use Koha::Acquisition::Booksellers;
34
use Koha::Acquisition::Booksellers;
35
use Koha::AuthorisedValues;
35
use Koha::AuthorisedValues;
(-)a/catalogue/search-history.pl (-2 / +2 lines)
Lines 21-29 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Search::History;
25
use C4::Search::History;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
29
29
(-)a/catalogue/search.pl (-6 / +6 lines)
Lines 140-153 use Modern::Perl; Link Here
140
140
141
## load Koha modules
141
## load Koha modules
142
use C4::Context;
142
use C4::Context;
143
use C4::Output;
143
use C4::Output qw( output_html_with_http_headers pagination_bar );
144
use C4::Auth qw(:DEFAULT get_session);
144
use C4::Auth qw( get_template_and_user );
145
use C4::Search;
145
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
146
use C4::Languages qw(getLanguages);
146
use C4::Languages qw( getlanguage getLanguages );
147
use C4::Koha;
147
use C4::Koha qw( getitemtypeimagelocation GetAuthorisedValues );
148
use URI::Escape;
148
use URI::Escape;
149
use POSIX qw(ceil floor);
149
use POSIX qw(ceil floor);
150
use C4::Search::History;
150
use C4::Search qw( searchResults enabled_staff_search_views z3950_search_args new_record_from_zebra );
151
151
152
use Koha::ItemTypes;
152
use Koha::ItemTypes;
153
use Koha::Library::Groups;
153
use Koha::Library::Groups;
(-)a/catalogue/showmarc.pl (-4 / +4 lines)
Lines 29-38 use Encode; Link Here
29
29
30
# Koha modules used
30
# Koha modules used
31
use C4::Context;
31
use C4::Context;
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Biblio;
34
use C4::Biblio qw( GetMarcBiblio GetXmlBiblio );
35
use C4::ImportBatch;
35
use C4::ImportBatch qw( GetRecordFromImportBiblio );
36
use C4::XSLT ();
36
use C4::XSLT ();
37
37
38
my $input= CGI->new;
38
my $input= CGI->new;
(-)a/catalogue/stockrotation.pl (-5 / +5 lines)
Lines 27-42 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI;
28
use CGI;
29
29
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use C4::Search;
32
use C4::Search qw( enabled_staff_search_views );
33
use C4::Serials;
33
use C4::Serials qw( CountSubscriptionFromBiblionumber );
34
34
35
use Koha::Biblio;
35
use Koha::Biblio;
36
use Koha::Item;
36
use Koha::Item;
37
use Koha::StockRotationRotas;
37
use Koha::StockRotationRotas;
38
use Koha::StockRotationStages;
38
use Koha::StockRotationStages;
39
use Koha::Util::StockRotation qw(:ALL);
39
use Koha::Util::StockRotation qw( get_stages get_branches toggle_indemand remove_from_stage move_to_next_stage );
40
40
41
my $input = CGI->new;
41
my $input = CGI->new;
42
42
(-)a/catalogue/updateitem.pl (-2 / +2 lines)
Lines 19-30 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
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( checkauth );
23
use C4::Context;
23
use C4::Context;
24
use C4::Biblio;
24
use C4::Biblio;
25
use C4::Items;
25
use C4::Items;
26
use C4::Output;
26
use C4::Output;
27
use C4::Circulation;
27
use C4::Circulation qw( LostItem );
28
use C4::Reserves;
28
use C4::Reserves;
29
29
30
my $cgi= CGI->new;
30
my $cgi= CGI->new;
(-)a/cataloguing/addbiblio.pl (-8 / +8 lines)
Lines 22-39 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI q(-utf8);
24
use CGI q(-utf8);
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user haspermission );
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetUsedMarcStructure GetMarcBiblio PrepHostMarcField prepare_host_field TransformHtmlToMarc ModBiblio AddBiblio DelBiblio );
28
use C4::Search;
28
use C4::Search qw( FindDuplicate enabled_staff_search_views );
29
use C4::AuthoritiesMarc;
29
use C4::Auth qw( get_template_and_user haspermission );
30
use C4::Context;
30
use C4::Context;
31
use MARC::Record;
31
use MARC::Record;
32
use C4::Log;
32
use C4::Log;
33
use C4::Koha;
33
use C4::Koha;
34
use C4::ClassSource;
34
use C4::ClassSource qw( GetClassSources GetClassSource );
35
use C4::ImportBatch;
35
use C4::ImportBatch qw( sub GetImportRecordMarc );
36
use C4::Charset;
36
use C4::Charset qw( SetMarcUnicodeFlag );
37
use Koha::BiblioFrameworks;
37
use Koha::BiblioFrameworks;
38
use Koha::DateUtils;
38
use Koha::DateUtils;
39
39
(-)a/cataloguing/addbooks.pl (-6 / +6 lines)
Lines 28-40 use Modern::Perl; Link Here
28
28
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use URI::Escape;
30
use URI::Escape;
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Biblio;
32
use C4::Biblio;
33
use C4::Breeding;
33
use C4::Breeding qw( BreedingSearch );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers pagination_bar );
35
use C4::Koha;
35
use C4::Koha qw( getnbpages );
36
use C4::Languages qw(getlanguage);
36
use C4::Languages qw( getlanguage );
37
use C4::Search;
37
use C4::Search qw( searchResults z3950_search_args );
38
38
39
use Koha::BiblioFrameworks;
39
use Koha::BiblioFrameworks;
40
use Koha::SearchEngine::Search;
40
use Koha::SearchEngine::Search;
(-)a/cataloguing/additem.pl (-8 / +8 lines)
Lines 22-35 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user haspermission );
26
use C4::Output;
26
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcFromKohaField GetFrameworkCode GetMarcStructure GetMarcBiblio TransformMarcToKoha TransformHtmlToXml ModBiblio EmbedItemsInMarcBiblio GetAuthorisedValueDesc IsMarcStructureInternal );
28
use C4::Items;
28
use C4::Items qw( sub AddItemFromMarc GetMarcItem ModItemFromMarc );
29
use C4::Context;
29
use C4::Context;
30
use C4::Circulation;
30
use C4::Circulation qw( LostItem );
31
use C4::Koha;
31
use C4::Koha qw( GetAuthorisedValues );
32
use C4::ClassSource;
32
use C4::ClassSource qw( GetClassSources GetClassSource );
33
use Koha::DateUtils;
33
use Koha::DateUtils;
34
use Koha::Items;
34
use Koha::Items;
35
use Koha::ItemTypes;
35
use Koha::ItemTypes;
Lines 37-43 use Koha::Libraries; Link Here
37
use Koha::Patrons;
37
use Koha::Patrons;
38
use Koha::SearchEngine::Indexer;
38
use Koha::SearchEngine::Indexer;
39
use List::MoreUtils qw/any/;
39
use List::MoreUtils qw/any/;
40
use C4::Search;
40
use C4::Search qw( enabled_staff_search_views );
41
use Storable qw(thaw freeze);
41
use Storable qw(thaw freeze);
42
use URI::Escape;
42
use URI::Escape;
43
use C4::Members;
43
use C4::Members;
(-)a/cataloguing/editor.pl (-2 / +2 lines)
Lines 23-32 use Modern::Perl; Link Here
23
use CGI;
23
use CGI;
24
use MARC::Record;
24
use MARC::Record;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use DBIx::Class::ResultClass::HashRefInflator;
30
use DBIx::Class::ResultClass::HashRefInflator;
31
use Koha::Database;
31
use Koha::Database;
32
use Koha::MarcSubfieldStructures;
32
use Koha::MarcSubfieldStructures;
(-)a/cataloguing/linkitem.pl (-4 / +4 lines)
Lines 22-31 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcBiblio PrepHostMarcField ModBiblio );
28
use C4::Items;
28
use C4::Items qw( sub );
29
use C4::Context;
29
use C4::Context;
30
use C4::Koha;
30
use C4::Koha;
31
31
(-)a/cataloguing/merge.pl (-6 / +6 lines)
Lines 21-33 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Items;
26
use C4::Items qw( sub MoveItemFromBiblio );
27
use C4::Biblio;
27
use C4::Biblio qw( TransformHtmlToMarc GetMarcBiblio ModBiblio DelBiblio GetFrameworkCode GetMarcStructure GetMarcFromKohaField GetBiblioData );
28
use C4::Serials;
28
use C4::Serials qw( CountSubscriptionFromBiblionumber );
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Reserves qw/MergeHolds/;
30
use C4::Reserves qw( MergeHolds );
31
use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;
31
use C4::Acquisition qw/ModOrder GetOrdersByBiblionumber/;
32
32
33
use Koha::BiblioFrameworks;
33
use Koha::BiblioFrameworks;
(-)a/cataloguing/merge_ajax.pl (-2 / +2 lines)
Lines 7-14 use CGI::Cookie; # need to check cookies before CGI parses the POST request Link Here
7
use JSON;
7
use JSON;
8
8
9
use C4::Context;
9
use C4::Context;
10
use C4::Biblio;
10
use C4::Biblio qw( GetMarcStructure );
11
use C4::Auth qw/check_cookie_auth/;
11
use C4::Auth qw( check_cookie_auth );
12
12
13
my %cookies = CGI::Cookie->fetch;
13
my %cookies = CGI::Cookie->fetch;
14
my ( $auth_status, $sessionID ) = check_cookie_auth(
14
my ( $auth_status, $sessionID ) = check_cookie_auth(
(-)a/cataloguing/moveitem.pl (-3 / +3 lines)
Lines 22-31 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Items;
28
use C4::Items qw( MoveItemFromBiblio );
29
use C4::Context;
29
use C4::Context;
30
use C4::Koha;
30
use C4::Koha;
31
use C4::ClassSource;
31
use C4::ClassSource;
(-)a/cataloguing/value_builder/EXAMPLE.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
# Example of framework plugin new style.
25
# Example of framework plugin new style.
26
# It should define and return at least one and normally two anynomous
26
# It should define and return at least one and normally two anynomous
(-)a/cataloguing/value_builder/barcode.pl (-1 / +1 lines)
Lines 24-30 use Modern::Perl; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Barcodes::ValueBuilder;
26
use C4::Barcodes::ValueBuilder;
27
use C4::Biblio qw/GetMarcFromKohaField/;
27
use C4::Biblio qw( GetMarcFromKohaField );
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
29
30
use Algorithm::CheckDigits;
30
use Algorithm::CheckDigits;
(-)a/cataloguing/value_builder/barcode_manual.pl (-1 / +1 lines)
Lines 24-30 use Modern::Perl; Link Here
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Barcodes::ValueBuilder;
26
use C4::Barcodes::ValueBuilder;
27
use C4::Biblio qw/GetMarcFromKohaField/;
27
use C4::Biblio qw( GetMarcFromKohaField );
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
29
30
my $DEBUG = 0;
30
my $DEBUG = 0;
(-)a/cataloguing/value_builder/callnumber-KU.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/callnumber.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/cn_browser.pl (-3 / +3 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI;
23
use CGI;
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::ClassSource;
26
use C4::ClassSource qw( GetClassSort );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
use Koha::ClassSources;
29
use Koha::ClassSources;
30
30
(-)a/cataloguing/value_builder/macles.pl (-2 / +2 lines)
Lines 23-30 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
28
29
my $builder = sub {
29
my $builder = sub {
30
    my ( $params ) = @_;
30
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_field_006.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
use XML::LibXML;
30
use XML::LibXML;
31
31
(-)a/cataloguing/value_builder/marc21_field_007.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $builder = sub {
31
my $builder = sub {
32
    my ( $params ) = @_;
32
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_field_008.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
use XML::LibXML;
30
use XML::LibXML;
31
use Koha::Util::FrameworkPlugin qw|date_entered|;
31
use Koha::Util::FrameworkPlugin qw|date_entered|;
(-)a/cataloguing/value_builder/marc21_field_008_authorities.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use Koha::Util::FrameworkPlugin qw|date_entered|;
29
use Koha::Util::FrameworkPlugin qw|date_entered|;
30
30
31
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
31
use constant FIXLEN_DATA_ELTS => '|| aca||aabn           | a|a     d';
(-)a/cataloguing/value_builder/marc21_field_008_classifications.pl (-2 / +2 lines)
Lines 16-27 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use C4::Auth;
19
use C4::Auth qw( get_template_and_user );
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Context;
21
use C4::Context;
22
22
23
use C4::Search;
23
use C4::Search;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Util::FrameworkPlugin qw|date_entered|;
25
use Koha::Util::FrameworkPlugin qw|date_entered|;
26
26
27
use constant FIXLEN_DATA_ELTS => 'baaaaaaa';
27
use constant FIXLEN_DATA_ELTS => 'baaaaaaa';
(-)a/cataloguing/value_builder/marc21_leader.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
my $builder = sub {
29
my $builder = sub {
30
    my ( $params ) = @_;
30
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_leader_authorities.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $builder = sub {
31
my $builder = sub {
32
    my ( $params ) = @_;
32
    my ( $params ) = @_;
(-)a/cataloguing/value_builder/marc21_linking_section.pl (-5 / +5 lines)
Lines 22-34 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search;
27
use C4::Search qw( new_record_from_zebra );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
32
use C4::Koha;
32
use C4::Koha;
33
use MARC::Record;
33
use MARC::Record;
34
34
(-)a/cataloguing/value_builder/normarc_field_007.pl (-2 / +2 lines)
Lines 18-29 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
24
25
use C4::Search;
25
use C4::Search;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
sub plugin_javascript {
28
sub plugin_javascript {
29
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
29
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/normarc_field_008.pl (-2 / +2 lines)
Lines 18-29 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
24
25
use C4::Search;
25
use C4::Search;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
# find today's date
28
# find today's date
29
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
29
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
(-)a/cataloguing/value_builder/normarc_leader.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/stocknumberAV.pl (-2 / +2 lines)
Lines 22-29 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use Koha::AuthorisedValues;
27
use Koha::AuthorisedValues;
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
(-)a/cataloguing/value_builder/stocknumberam123.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
=head1 DESCRIPTION
29
=head1 DESCRIPTION
30
30
(-)a/cataloguing/value_builder/unimarc_field_010.pl (-2 / +2 lines)
Lines 19-28 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
27
28
sub plugin_javascript {
28
sub plugin_javascript {
(-)a/cataloguing/value_builder/unimarc_field_100.pl (-2 / +2 lines)
Lines 23-32 use Modern::Perl; Link Here
23
use Date::Calc qw( Today );
23
use Date::Calc qw( Today );
24
24
25
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use Koha::Util::FrameworkPlugin qw(wrapper);
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
(-)a/cataloguing/value_builder/unimarc_field_100_authorities.pl (-2 / +2 lines)
Lines 20-29 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Koha::Util::FrameworkPlugin qw(wrapper);
22
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
(-)a/cataloguing/value_builder/unimarc_field_105.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_106.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_110.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
    my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_115a.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_115b.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_116.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_117.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_120.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_121a.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_121b.pl (-2 / +2 lines)
Lines 19-30 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
26
use C4::Search;
26
use C4::Search;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_122.pl (-2 / +2 lines)
Lines 19-30 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
26
use C4::Search;
26
use C4::Search;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123a.pl (-2 / +2 lines)
Lines 19-30 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
26
use C4::Search;
26
use C4::Search;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123d.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123e.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123f.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123g.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123i.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_123j.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124b.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124c.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124d.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124e.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124f.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_124g.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_125.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
=head1 DESCRIPTION
30
=head1 DESCRIPTION
31
31
(-)a/cataloguing/value_builder/unimarc_field_125a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_125b.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_126.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_126a.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_126b.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_127.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_128a.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_128b.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_128c.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_130.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_135a.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_140.pl (-2 / +2 lines)
Lines 22-33 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use Koha::Util::FrameworkPlugin qw(wrapper);
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Context;
27
use C4::Context;
28
28
29
use C4::Search;
29
use C4::Search;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
31
32
sub plugin_javascript {
32
sub plugin_javascript {
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
33
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_141.pl (-2 / +2 lines)
Lines 20-31 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::Search;
27
use C4::Search;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
sub plugin_javascript {
30
sub plugin_javascript {
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
31
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_210c.pl (-4 / +4 lines)
Lines 19-32 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::AuthoritiesMarc;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( pagination_bar output_html_with_http_headers );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Search;
27
use C4::Search;
28
use MARC::Record;
28
use MARC::Record;
29
use C4::Koha;
29
use C4::Koha qw( getnbpages );
30
30
31
###TODO To rewrite in order to use SearchAuthorities
31
###TODO To rewrite in order to use SearchAuthorities
32
32
(-)a/cataloguing/value_builder/unimarc_field_210c_bis.pl (-3 / +3 lines)
Lines 40-51 It need : Link Here
40
40
41
use Modern::Perl;
41
use Modern::Perl;
42
42
43
use C4::Auth;
43
use C4::Auth qw( get_template_and_user );
44
use CGI qw ( -utf8 );
44
use CGI qw ( -utf8 );
45
use C4::Context;
45
use C4::Context;
46
46
47
use C4::AuthoritiesMarc;
47
use C4::Auth qw( get_template_and_user );
48
use C4::Output;
48
use C4::Output qw( output_html_with_http_headers );
49
49
50
sub plugin_javascript {
50
sub plugin_javascript {
51
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
51
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_225a.pl (-3 / +3 lines)
Lines 41-52 It need : Link Here
41
41
42
use strict;
42
use strict;
43
#use warnings; FIXME - Bug 2505
43
#use warnings; FIXME - Bug 2505
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use CGI qw ( -utf8 );
45
use CGI qw ( -utf8 );
46
use C4::Context;
46
use C4::Context;
47
47
48
use C4::AuthoritiesMarc;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Output;
49
use C4::Output qw( output_html_with_http_headers );
50
50
51
=head1 DESCRIPTION
51
=head1 DESCRIPTION
52
52
(-)a/cataloguing/value_builder/unimarc_field_225a_bis.pl (-2 / +2 lines)
Lines 24-34 biblioitems.collectiontitle Link Here
24
24
25
use Modern::Perl;
25
use Modern::Perl;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use CGI qw( -utf8 );
28
use CGI qw( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
30
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
32
33
sub plugin_javascript {
33
sub plugin_javascript {
34
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
34
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/value_builder/unimarc_field_4XX.pl (-5 / +5 lines)
Lines 22-34 use strict; Link Here
22
#use warnings; FIXME - Bug 2505
22
#use warnings; FIXME - Bug 2505
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search;
27
use C4::Search qw( new_record_from_zebra );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio TransformMarcToKoha );
32
use C4::Koha;
32
use C4::Koha;
33
use MARC::Record;
33
use MARC::Record;
34
34
(-)a/cataloguing/value_builder/unimarc_field_686a.pl (-2 / +2 lines)
Lines 19-30 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
25
26
use C4::Search;
26
use C4::Search;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
sub plugin_javascript {
29
sub plugin_javascript {
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
30
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_field_700-4.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
32
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
(-)a/cataloguing/value_builder/unimarc_leader.pl (-2 / +2 lines)
Lines 21-32 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Util::FrameworkPlugin qw(wrapper);
23
use Koha::Util::FrameworkPlugin qw(wrapper);
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Context;
26
use C4::Context;
27
27
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
sub plugin_javascript {
31
sub plugin_javascript {
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
32
    my ( $dbh, $record, $tagslib, $field_number, $tabloop ) = @_;
(-)a/cataloguing/ysearch.pl (-2 / +2 lines)
Lines 27-34 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Charset;
30
use C4::Charset qw( nsb_clean );
31
use C4::Auth qw/check_cookie_auth/;
31
use C4::Auth qw( check_cookie_auth );
32
use JSON qw/ to_json /;
32
use JSON qw/ to_json /;
33
33
34
my $input = CGI->new;
34
my $input = CGI->new;
(-)a/cataloguing/z3950_auth_search.pl (-3 / +3 lines)
Lines 20-29 use Modern::Perl; Link Here
20
20
21
use CGI qw / -utf8 /;
21
use CGI qw / -utf8 /;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Breeding;
26
use C4::Breeding qw( Z3950Search Z3950SearchAuth );
27
use C4::Koha;
27
use C4::Koha;
28
28
29
my $input        = CGI->new;
29
my $input        = CGI->new;
(-)a/cataloguing/z3950_search.pl (-3 / +3 lines)
Lines 21-30 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Breeding;
27
use C4::Breeding qw( Z3950Search );
28
use C4::Koha;
28
use C4::Koha;
29
29
30
my $input        = CGI->new;
30
my $input        = CGI->new;
(-)a/circ/add_message.pl (-1 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
use Koha::Patron::Message;
26
use Koha::Patron::Message;
27
27
(-)a/circ/article-request-slip.pl (-3 / +3 lines)
Lines 22-30 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;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Letters;
27
use C4::Letters qw( GetPreparedLetter );
28
use Koha::ArticleRequests;
28
use Koha::ArticleRequests;
29
use Koha::Patrons;
29
use Koha::Patrons;
30
30
(-)a/circ/article-requests.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::ArticleRequests;
26
use Koha::ArticleRequests;
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
(-)a/circ/bookcount.pl (-2 / +2 lines)
Lines 24-32 use Modern::Perl; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Circulation;
26
use C4::Circulation;
27
use C4::Output;
27
use C4::Output qw( output_and_exit output_html_with_http_headers );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use Koha::Biblios;
30
use Koha::Biblios;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::Libraries;
32
use Koha::Libraries;
(-)a/circ/branchoverdues.pl (-5 / +5 lines)
Lines 19-29 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use C4::Context;
20
use C4::Context;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Overdues;
24
use C4::Overdues qw( GetOverduesForBranch );
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcFromKohaField GetMarcStructure );
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use Koha::DateUtils;
27
use Koha::DateUtils;
28
use Koha::BiblioFrameworks;
28
use Koha::BiblioFrameworks;
29
use Data::Dumper;
29
use Data::Dumper;
(-)a/circ/branchtransfers.pl (-4 / +4 lines)
Lines 22-33 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::Circulation;
25
use C4::Circulation qw( transferbook );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Reserves;
27
use C4::Reserves qw( ModReserve ModReserveAffect );
28
use C4::Biblio;
28
use C4::Biblio;
29
use C4::Items;
29
use C4::Items;
30
use C4::Auth qw/:DEFAULT get_session/;
30
use C4::Auth qw( get_session get_template_and_user );
31
use C4::Koha;
31
use C4::Koha;
32
use C4::Members;
32
use C4::Members;
33
use Koha::BiblioFrameworks;
33
use Koha::BiblioFrameworks;
(-)a/circ/checkout-notes.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use Koha::Checkouts;
26
use Koha::Checkouts;
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
(-)a/circ/circulation-home.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use Koha::BiblioFrameworks;
24
use Koha::BiblioFrameworks;
25
use Koha::Checkouts;
25
use Koha::Checkouts;
(-)a/circ/circulation.pl (-5 / +5 lines)
Lines 29-42 use CGI qw ( -utf8 ); Link Here
29
use DateTime;
29
use DateTime;
30
use DateTime::Duration;
30
use DateTime::Duration;
31
use Scalar::Util qw( looks_like_number );
31
use Scalar::Util qw( looks_like_number );
32
use C4::Output;
32
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
33
use C4::Auth qw/:DEFAULT get_session haspermission/;
33
use C4::Auth qw( get_session get_template_and_user haspermission );
34
use C4::Koha;
34
use C4::Koha;
35
use C4::Circulation;
35
use C4::Circulation qw( barcodedecode CanBookBeIssued AddIssue );
36
use C4::Utils::DataTables::Members;
36
use C4::Utils::DataTables::Members;
37
use C4::Members;
37
use C4::Members;
38
use C4::Biblio;
38
use C4::Biblio qw( TransformMarcToKoha );
39
use C4::Search;
39
use C4::Search qw( new_record_from_zebra );
40
use MARC::Record;
40
use MARC::Record;
41
use C4::Reserves;
41
use C4::Reserves;
42
use Koha::Holds;
42
use Koha::Holds;
(-)a/circ/del_message.pl (-1 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
use Koha::Patron::Messages;
26
use Koha::Patron::Messages;
27
27
(-)a/circ/hold-transfer-slip.pl (-3 / +3 lines)
Lines 20-29 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use C4::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth qw/:DEFAULT get_session/;
25
use C4::Auth qw( get_session get_template_and_user );
26
use C4::Reserves;
26
use C4::Reserves qw( ReserveSlip );
27
27
28
use vars qw($debug);
28
use vars qw($debug);
29
29
(-)a/circ/offline-mf.pl (-1 / +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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
22
23
my $query = CGI->new;
23
my $query = CGI->new;
24
my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
24
my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user(
(-)a/circ/offline.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
24
25
my $query = CGI->new;
25
my $query = CGI->new;
(-)a/circ/on-site_checkouts.pl (-2 / +2 lines)
Lines 18-26 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Circulation qw( GetPendingOnSiteCheckouts );
22
use C4::Circulation qw( GetPendingOnSiteCheckouts );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Koha;
24
use C4::Koha;
25
use Koha::BiblioFrameworks;
25
use Koha::BiblioFrameworks;
26
26
(-)a/circ/overdue.pl (-2 / +2 lines)
Lines 21-29 Link Here
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use CGI qw(-oldstyle_urls -utf8);
25
use CGI qw(-oldstyle_urls -utf8);
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use Text::CSV_XS;
27
use Text::CSV_XS;
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use DateTime;
29
use DateTime;
(-)a/circ/pendingreserves.pl (-2 / +2 lines)
Lines 25-33 use YAML::XS; Link Here
25
use Encode;
25
use Encode;
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Items qw( ModItemTransfer );
31
use C4::Items qw( ModItemTransfer );
32
use C4::Reserves qw( ModReserveCancelAll );
32
use C4::Reserves qw( ModReserveCancelAll );
33
use Koha::Biblios;
33
use Koha::Biblios;
(-)a/circ/renew.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Auth qw/:DEFAULT get_session/;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Circulation;
26
use C4::Circulation qw( barcodedecode CanBookBeRenewed GetSoonestRenewDate GetLatestAutoRenewDate AddRenewal );
27
use C4::Koha;
27
use C4::Koha;
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Database;
29
use Koha::Database;
(-)a/circ/request-article.pl (-4 / +4 lines)
Lines 19-29 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Output;
22
use C4::Output qw( output_and_exit output_html_with_http_headers );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Utils::DataTables::Members;
24
use C4::Utils::DataTables::Members;
25
use C4::Search;
25
use C4::Search qw( enabled_staff_search_views );
26
use C4::Serials;
26
use C4::Serials qw( CountSubscriptionFromBiblionumber );
27
use Koha::Biblios;
27
use Koha::Biblios;
28
use Koha::Patrons;
28
use Koha::Patrons;
29
use Koha::ArticleRequests;
29
use Koha::ArticleRequests;
(-)a/circ/reserveratios.pl (-2 / +2 lines)
Lines 25-32 use Date::Calc qw/Today Add_Delta_YM/; Link Here
25
use POSIX qw( ceil );
25
use POSIX qw( ceil );
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Acquisition qw/GetOrdersByBiblionumber/;
30
use C4::Acquisition qw/GetOrdersByBiblionumber/;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::Acquisition::Baskets;
32
use Koha::Acquisition::Baskets;
(-)a/circ/returns.pl (-8 / +8 lines)
Lines 34-52 use Modern::Perl; Link Here
34
use CGI qw ( -utf8 );
34
use CGI qw ( -utf8 );
35
use DateTime;
35
use DateTime;
36
36
37
use C4::Auth qw/:DEFAULT get_session/;
37
use C4::Auth qw( get_template_and_user get_session haspermission );
38
use C4::Output;
38
use C4::Output qw( output_html_with_http_headers );
39
use C4::Circulation;
39
use C4::Circulation qw( barcodedecode updateWrongTransfer GetBranchItemRule AddReturn LostItem );
40
use C4::Reserves;
40
use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
41
use C4::Biblio;
41
use C4::Biblio;
42
use C4::Circulation;
42
use C4::Circulation qw( barcodedecode updateWrongTransfer GetBranchItemRule AddReturn LostItem );
43
use C4::Context;
43
use C4::Context;
44
use C4::Items;
44
use C4::Items qw( ModItemTransfer sub );
45
use C4::Koha;   # FIXME : is it still useful ?
45
use C4::Koha;   # FIXME : is it still useful ?
46
use C4::Members::Messaging;
46
use C4::Members::Messaging;
47
use C4::Members;
47
use C4::Members;
48
use C4::Output;
48
use C4::Output qw( output_html_with_http_headers );
49
use C4::Reserves;
49
use C4::Reserves qw( ModReserve ModReserveAffect GetOtherReserves );
50
use C4::RotatingCollections;
50
use C4::RotatingCollections;
51
use Koha::AuthorisedValues;
51
use Koha::AuthorisedValues;
52
use Koha::BiblioFrameworks;
52
use Koha::BiblioFrameworks;
(-)a/circ/set-library.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth qw/:DEFAULT get_session/;
25
use C4::Auth qw( get_template_and_user get_session );
26
use C4::Koha;
26
use C4::Koha;
27
use Koha::BiblioFrameworks;
27
use Koha::BiblioFrameworks;
28
use Koha::Cash::Registers;
28
use Koha::Cash::Registers;
(-)a/circ/transfer-slip.pl (-3 / +3 lines)
Lines 21-30 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Auth qw/:DEFAULT get_session/;
26
use C4::Auth qw( get_session get_template_and_user );
27
use C4::Circulation;
27
use C4::Circulation qw( TransferSlip );
28
28
29
use vars qw($debug);
29
use vars qw($debug);
30
30
(-)a/circ/transfers_to_send.pl (-2 / +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::Context;
22
use C4::Context;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::DateUtils;
26
use Koha::DateUtils;
27
27
(-)a/circ/transferstoreceive.pl (-3 / +3 lines)
Lines 21-30 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio;
27
use C4::Circulation;
27
use C4::Circulation qw( GetTransfers GetTransfersFromTo );
28
use C4::Members;
28
use C4::Members;
29
use Date::Calc qw(
29
use Date::Calc qw(
30
  Today
30
  Today
(-)a/circ/view_holdsqueue.pl (-3 / +3 lines)
Lines 24-34 This script displays items in the tmp_holdsqueue table 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::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Biblio;
29
use C4::Biblio;
30
use C4::Items;
30
use C4::Items;
31
use C4::HoldsQueue qw(GetHoldsQueueItems);
31
use C4::HoldsQueue qw( GetHoldsQueueItems );
32
use Koha::BiblioFrameworks;
32
use Koha::BiblioFrameworks;
33
use Koha::ItemTypes;
33
use Koha::ItemTypes;
34
34
(-)a/circ/waitingreserves.pl (-4 / +4 lines)
Lines 21-38 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Circulation;
26
use C4::Circulation;
27
use C4::Members;
27
use C4::Members;
28
use C4::Biblio;
28
use C4::Biblio;
29
use C4::Items;
29
use C4::Items qw( sub ModItemTransfer );
30
use Date::Calc qw(
30
use Date::Calc qw(
31
  Today
31
  Today
32
  Add_Delta_Days
32
  Add_Delta_Days
33
  Date_to_Days
33
  Date_to_Days
34
);
34
);
35
use C4::Reserves;
35
use C4::Reserves qw( ModReserve ModReserveCancelAll );
36
use C4::Koha;
36
use C4::Koha;
37
use Koha::DateUtils;
37
use Koha::DateUtils;
38
use Koha::BiblioFrameworks;
38
use Koha::BiblioFrameworks;
(-)a/circ/ysearch.pl (-1 / +1 lines)
Lines 27-33 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Auth qw/check_cookie_auth/;
30
use C4::Auth qw( check_cookie_auth );
31
use Koha::Patrons;
31
use Koha::Patrons;
32
use Koha::DateUtils qw/format_sqldatetime/;
32
use Koha::DateUtils qw/format_sqldatetime/;
33
33
(-)a/clubs/club-enrollments.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Clubs;
26
use Koha::Clubs;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/clubs/clubs-add-modify.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Database;
26
use Koha::Database;
27
use Koha::DateUtils qw(dt_from_string);
27
use Koha::DateUtils qw(dt_from_string);
28
use Koha::Clubs;
28
use Koha::Clubs;
(-)a/clubs/clubs.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Clubs;
27
use Koha::Clubs;
28
use Koha::Club::Templates;
28
use Koha::Club::Templates;
(-)a/clubs/patron-clubs-tab.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Patrons;
27
use Koha::Patrons;
28
use Koha::Club::Enrollments;
28
use Koha::Club::Enrollments;
(-)a/clubs/patron-enroll.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Clubs;
26
use Koha::Clubs;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/clubs/templates-add-modify.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::DateUtils qw(dt_from_string);
27
use Koha::DateUtils qw(dt_from_string);
28
use Koha::Club::Templates;
28
use Koha::Club::Templates;
(-)a/course_reserves/add_items.pl (-4 / +4 lines)
Lines 22-34 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Biblio;
28
use C4::Biblio;
29
use Koha::Items;
29
use Koha::Items;
30
30
31
use C4::CourseReserves qw(GetCourse GetCourseItem GetCourseReserve ModCourseItem ModCourseReserve);
31
use C4::CourseReserves qw( GetCourse GetCourseReserve ModCourse ModCourseItem ModCourseReserve );
32
32
33
use Koha::Items;
33
use Koha::Items;
34
use Koha::ItemTypes;
34
use Koha::ItemTypes;
(-)a/course_reserves/batch_add_items.pl (-3 / +3 lines)
Lines 23-31 use Modern::Perl; Link Here
23
use CGI qw( -utf8 );
23
use CGI qw( -utf8 );
24
use List::MoreUtils qw( uniq );
24
use List::MoreUtils qw( uniq );
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::CourseReserves qw(ModCourseItem ModCourseReserve GetCourse);
28
use C4::CourseReserves qw( GetCourse ModCourse ModCourseItem ModCourseReserve );
29
29
30
use Koha::Items;
30
use Koha::Items;
31
31
(-)a/course_reserves/batch_rm_items.pl (-3 / +3 lines)
Lines 22-30 use Modern::Perl; Link Here
22
use CGI qw( -utf8 );
22
use CGI qw( -utf8 );
23
use List::MoreUtils qw( uniq );
23
use List::MoreUtils qw( uniq );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::CourseReserves qw(GetItemCourseReservesInfo DelCourseReserve GetCourseItem);
27
use C4::CourseReserves qw( GetCourse GetCourseItem GetItemCourseReservesInfo DelCourse DelCourseReserve );
28
28
29
use Koha::Items;
29
use Koha::Items;
30
30
(-)a/course_reserves/course-details.pl (-3 / +3 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves qw(DelCourseReserve GetCourse GetCourseReserves);
29
use C4::CourseReserves qw( DelCourse DelCourseReserve GetCourse GetCourseReserve GetCourseReserves );
30
30
31
my $cgi = CGI->new;
31
my $cgi = CGI->new;
32
32
(-)a/course_reserves/course-reserves.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use C4::CourseReserves qw(GetCourses);
28
use C4::CourseReserves qw( GetCourse GetCourses );
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
31
31
(-)a/course_reserves/course.pl (-4 / +4 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
28
29
use C4::CourseReserves qw(GetCourse);
29
use C4::CourseReserves qw( GetCourse );
30
30
31
my $cgi = CGI->new;
31
my $cgi = CGI->new;
32
32
(-)a/course_reserves/mod_course.pl (-2 / +2 lines)
Lines 23-31 use CGI qw ( -utf8 ); Link Here
23
23
24
use C4::Output;
24
use C4::Output;
25
use C4::Reserves;
25
use C4::Reserves;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
27
28
use C4::CourseReserves qw(DelCourse ModCourse ModCourseInstructors);
28
use C4::CourseReserves qw( DelCourse ModCourse ModCourseInstructors );
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
31
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/errors/400.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/errors/401.pl (-2 / +2 lines)
Lines 17-24 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;
20
use C4::Auth qw( get_template_and_user );
21
use C4::Output;
21
use C4::Output qw( output_with_http_headers );
22
use C4::Context;
22
use C4::Context;
23
use List::MoreUtils qw(any);
23
use List::MoreUtils qw(any);
24
24
(-)a/errors/402.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/errors/403.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/errors/404.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/errors/500.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/help.pl (-1 / +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
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use Koha::Manual;
25
use Koha::Manual;
26
26
(-)a/ill/ill-requests.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Notice::Templates;
26
use Koha::Notice::Templates;
27
use Koha::AuthorisedValues;
27
use Koha::AuthorisedValues;
28
use Koha::Illcomment;
28
use Koha::Illcomment;
(-)a/installer/install.pl (-3 / +3 lines)
Lines 20-33 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use diagnostics;
21
use diagnostics;
22
22
23
use C4::InstallAuth;
23
use C4::InstallAuth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use POSIX qw(strftime);
25
use POSIX qw(strftime);
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Templates;
29
use C4::Templates;
30
use C4::Languages qw(getAllLanguages getTranslatedLanguages);
30
use C4::Languages qw( getAllLanguages getTranslatedLanguages );
31
use C4::Installer;
31
use C4::Installer;
32
use C4::Installer::PerlModules;
32
use C4::Installer::PerlModules;
33
33
(-)a/installer/onboarding.pl (-3 / +3 lines)
Lines 19-28 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Context;
21
use C4::Context;
22
use C4::InstallAuth;
22
use C4::InstallAuth qw( checkauth get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members qw(checkcardnumber);
25
use C4::Members qw( checkcardnumber );
26
use Koha::Patrons;
26
use Koha::Patrons;
27
use Koha::Libraries;
27
use Koha::Libraries;
28
use Koha::Database;
28
use Koha::Database;
(-)a/labels/label-create-pdf.pl (-1 / +1 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Creators;
25
use C4::Creators;
26
use C4::Labels;
26
use C4::Labels;
27
27
(-)a/labels/label-edit-batch.pl (-2 / +2 lines)
Lines 23-30 use vars qw($debug); Link Here
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators;
28
use C4::Creators;
29
use C4::Labels;
29
use C4::Labels;
30
30
(-)a/labels/label-edit-layout.pl (-2 / +2 lines)
Lines 23-30 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use POSIX;
24
use POSIX;
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators;
28
use C4::Creators;
29
use C4::Labels;
29
use C4::Labels;
30
30
(-)a/labels/label-edit-profile.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
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::Creators;
27
use C4::Creators;
28
use C4::Labels;
28
use C4::Labels;
29
29
(-)a/labels/label-edit-range.pl (-2 / +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::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
26
27
my $cgi = CGI->new;
27
my $cgi = CGI->new;
28
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
28
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-edit-template.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
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::Creators;
27
use C4::Creators;
28
use C4::Labels;
28
use C4::Labels;
29
29
(-)a/labels/label-home.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
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
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
29
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
29
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/labels/label-item-search.pl (-4 / +4 lines)
Lines 23-33 use CGI qw ( -utf8 ); Link Here
23
use List::Util qw( max min );
23
use List::Util qw( max min );
24
use POSIX qw(ceil);
24
use POSIX qw(ceil);
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Context;
28
use C4::Context;
29
use C4::Search qw(SimpleSearch);
29
use C4::Search qw( new_record_from_zebra );
30
use C4::Biblio qw(TransformMarcToKoha);
30
use C4::Biblio qw( TransformMarcToKoha );
31
use C4::Creators::Lib qw(html_table);
31
use C4::Creators::Lib qw(html_table);
32
32
33
use Koha::Logger;
33
use Koha::Logger;
(-)a/labels/label-manage.pl (-2 / +2 lines)
Lines 25-32 use vars qw($debug); Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use Data::Dumper;
26
use Data::Dumper;
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Labels;
31
use C4::Labels;
32
32
(-)a/labels/label-print.pl (-2 / +2 lines)
Lines 23-30 use CGI qw ( -utf8 ); Link Here
23
use Data::Dumper;
23
use Data::Dumper;
24
24
25
use C4::Context;
25
use C4::Context;
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::Lib qw(get_all_templates get_all_layouts get_output_formats);
28
use C4::Creators::Lib qw(get_all_templates get_all_layouts get_output_formats);
29
use C4::Labels::Batch;
29
use C4::Labels::Batch;
30
30
(-)a/labels/spinelabel-home.pl (-2 / +2 lines)
Lines 17-24 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;
20
use C4::Auth qw( get_template_and_user );
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Context;
22
use C4::Context;
23
23
24
# use Smart::Comments;
24
# use Smart::Comments;
(-)a/labels/spinelabel-print.pl (-2 / +2 lines)
Lines 17-24 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;
20
use C4::Auth qw( get_template_and_user );
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
22
23
my $scheme = C4::Context->preference('SpineLabelFormat');
23
my $scheme = C4::Context->preference('SpineLabelFormat');
24
my $query  = CGI->new;
24
my $query  = CGI->new;
(-)a/mainpage.pl (-3 / +3 lines)
Lines 21-31 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::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::NewsChannels; # GetNewsToDisplay
27
use C4::NewsChannels; # GetNewsToDisplay
28
use C4::Tags qw/get_count_by_tag_status/;
28
use C4::Tags qw( get_count_by_tag_status );
29
use Koha::Patron::Modifications;
29
use Koha::Patron::Modifications;
30
use Koha::Patron::Discharge;
30
use Koha::Patron::Discharge;
31
use Koha::Reviews;
31
use Koha::Reviews;
(-)a/members/accountline-details.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use Koha::Patrons;
26
use Koha::Patrons;
27
use Koha::Account::Lines;
27
use Koha::Account::Lines;
(-)a/members/apikeys.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_and_exit output_html_with_http_headers );
26
26
27
use Koha::ApiKeys;
27
use Koha::ApiKeys;
28
use Koha::Patrons;
28
use Koha::Patrons;
(-)a/members/boraccount.pl (-2 / +2 lines)
Lines 25-32 Link Here
25
use Modern::Perl;
25
use Modern::Perl;
26
use URI::Escape;
26
use URI::Escape;
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
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;
31
use C4::Members;
32
use C4::Accounts;
32
use C4::Accounts;
(-)a/members/cancel-charge.pl (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( checkauth );
23
use Koha::Token;
23
use Koha::Token;
24
24
25
my $cgi = CGI->new;
25
my $cgi = CGI->new;
(-)a/members/deletemem.pl (-2 / +2 lines)
Lines 28-35 use CGI qw ( -utf8 ); Link Here
28
use Try::Tiny;
28
use Try::Tiny;
29
29
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user haspermission );
33
use C4::Members;
33
use C4::Members;
34
use C4::Suggestions qw( SearchSuggestion );
34
use C4::Suggestions qw( SearchSuggestion );
35
use Koha::Patrons;
35
use Koha::Patrons;
(-)a/members/discharge.pl (-2 / +2 lines)
Lines 31-38 use Modern::Perl; Link Here
31
use Carp;
31
use Carp;
32
32
33
use CGI qw( -utf8 );
33
use CGI qw( -utf8 );
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
36
use C4::Members;
36
use C4::Members;
37
use C4::Reserves;
37
use C4::Reserves;
38
use C4::Letters;
38
use C4::Letters;
(-)a/members/discharges.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use Koha::Patron::Discharge;
26
use Koha::Patron::Discharge;
27
27
(-)a/members/files.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
26
use C4::Members;
26
use C4::Members;
27
27
28
use Koha::DateUtils;
28
use Koha::DateUtils;
(-)a/members/guarantor_search.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/members/holdshistory.pl (-2 / +2 lines)
Lines 19-26 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
24
25
use Koha::Patrons;
25
use Koha::Patrons;
26
26
(-)a/members/housebound.pl (-2 / +2 lines)
Lines 26-34 Link Here
26
26
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI;
28
use CGI;
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
32
use DateTime;
32
use DateTime;
33
use Koha::DateUtils;
33
use Koha::DateUtils;
34
use Koha::Libraries;
34
use Koha::Libraries;
(-)a/members/ill-requests.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
25
use Koha::Patrons;
25
use Koha::Patrons;
26
26
27
my $input = CGI->new;
27
my $input = CGI->new;
(-)a/members/mancredit.pl (-2 / +2 lines)
Lines 23-30 Link Here
23
23
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
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;
30
use C4::Members;
(-)a/members/maninvoice.pl (-2 / +2 lines)
Lines 25-32 Link Here
25
use Modern::Perl;
25
use Modern::Perl;
26
use Try::Tiny;
26
use Try::Tiny;
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
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;
31
use C4::Members;
32
use C4::Accounts;
32
use C4::Accounts;
(-)a/members/member-flags.pl (-3 / +3 lines)
Lines 7-14 Link Here
7
use Modern::Perl;
7
use Modern::Perl;
8
8
9
use CGI qw ( -utf8 );
9
use CGI qw ( -utf8 );
10
use C4::Output;
10
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
11
use C4::Auth qw(:DEFAULT :EditPermissions);
11
use C4::Auth qw( get_template_and_user get_all_subpermissions get_user_subpermissions );
12
use C4::Context;
12
use C4::Context;
13
use C4::Members;
13
use C4::Members;
14
#use C4::Acquisitions;
14
#use C4::Acquisitions;
Lines 16-22 use C4::Members; Link Here
16
use Koha::Patron::Categories;
16
use Koha::Patron::Categories;
17
use Koha::Patrons;
17
use Koha::Patrons;
18
18
19
use C4::Output;
19
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
20
use Koha::Token;
20
use Koha::Token;
21
21
22
my $input = CGI->new;
22
my $input = CGI->new;
(-)a/members/member-password.pl (-2 / +2 lines)
Lines 6-14 Link Here
6
6
7
use Modern::Perl;
7
use Modern::Perl;
8
8
9
use C4::Auth;
9
use C4::Auth qw( get_template_and_user );
10
use Koha::AuthUtils;
10
use Koha::AuthUtils;
11
use C4::Output;
11
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
12
use C4::Context;
12
use C4::Context;
13
use C4::Members;
13
use C4::Members;
14
use C4::Circulation;
14
use C4::Circulation;
(-)a/members/member.pl (-2 / +2 lines)
Lines 24-31 Link Here
24
# along with Koha; if not, see <http://www.gnu.org/licenses>.
24
# along with Koha; if not, see <http://www.gnu.org/licenses>.
25
25
26
use Modern::Perl;
26
use Modern::Perl;
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use CGI qw( -utf8 );
29
use CGI qw( -utf8 );
30
use Koha::DateUtils;
30
use Koha::DateUtils;
31
use Koha::List::Patron;
31
use Koha::List::Patron;
(-)a/members/memberentry.pl (-6 / +6 lines)
Lines 26-40 use CGI qw ( -utf8 ); Link Here
26
use List::MoreUtils qw/uniq/;
26
use List::MoreUtils qw/uniq/;
27
27
28
# internal modules
28
# internal modules
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user haspermission );
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_and_exit output_and_exit_if_error output_html_with_http_headers );
32
use C4::Members;
32
use C4::Members qw( checkcardnumber get_cardnumber_length );
33
use C4::Koha;
33
use C4::Koha qw( GetAuthorisedValues );
34
use C4::Log;
34
use C4::Log;
35
use C4::Letters;
35
use C4::Letters qw( SendAlerts );
36
use C4::Form::MessagingPreferences;
36
use C4::Form::MessagingPreferences;
37
use Koha::AuthUtils;
37
use Koha::AuthUtils qw( is_password_valid );
38
use Koha::AuthorisedValues;
38
use Koha::AuthorisedValues;
39
use Koha::Patron::Debarments;
39
use Koha::Patron::Debarments;
40
use Koha::Cities;
40
use Koha::Cities;
(-)a/members/members-home.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
use C4::Members;
25
use C4::Members;
26
use Koha::Patron::Modifications;
26
use Koha::Patron::Modifications;
(-)a/members/members-update-do.pl (-1 / +1 lines)
Lines 19-25 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output;
24
use C4::Context;
24
use C4::Context;
25
use Koha::Patrons;
25
use Koha::Patrons;
(-)a/members/members-update.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Members;
26
use C4::Members;
27
use Koha::Patron::Attribute::Types;
27
use Koha::Patron::Attribute::Types;
(-)a/members/merge-patrons.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Try::Tiny;
22
use Try::Tiny;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use Koha::Patrons;
27
use Koha::Patrons;
28
28
(-)a/members/mod_debarment.pl (-1 / +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::Auth;
24
use C4::Auth qw( checkauth );
25
use Koha::DateUtils;
25
use Koha::DateUtils;
26
use Koha::Patron::Debarments;
26
use Koha::Patron::Debarments;
27
27
(-)a/members/moremember.pl (-2 / +2 lines)
Lines 30-37 Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
35
use C4::Form::MessagingPreferences;
35
use C4::Form::MessagingPreferences;
36
use List::MoreUtils qw/uniq/;
36
use List::MoreUtils qw/uniq/;
37
use Koha::Patron::Attribute::Types;
37
use Koha::Patron::Attribute::Types;
(-)a/members/notices.pl (-3 / +3 lines)
Lines 20-30 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
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;
26
use C4::Members;
27
use C4::Letters;
27
use C4::Letters qw( GetMessage ResendMessage GetQueuedMessages );
28
use Koha::Patrons;
28
use Koha::Patrons;
29
use Koha::Patron::Categories;
29
use Koha::Patron::Categories;
30
30
(-)a/members/pay.pl (-2 / +2 lines)
Lines 30-37 use Modern::Perl; Link Here
30
30
31
use URI::Escape;
31
use URI::Escape;
32
use C4::Context;
32
use C4::Context;
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
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;
36
use C4::Members;
37
use C4::Accounts;
37
use C4::Accounts;
(-)a/members/paycollect.pl (-2 / +2 lines)
Lines 22-29 use URI::Escape; 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::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
27
use C4::Members;
27
use C4::Members;
28
use C4::Accounts;
28
use C4::Accounts;
29
use C4::Koha;
29
use C4::Koha;
(-)a/members/print_overdues.pl (-3 / +3 lines)
Lines 22-30 use Modern::Perl; Link Here
22
use CGI;
22
use CGI;
23
23
24
use C4::Context;
24
use C4::Context;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
27
use C4::Overdues qw(parse_overdues_letter);
27
use C4::Overdues qw( parse_overdues_letter );
28
28
29
use Koha::Patrons;
29
use Koha::Patrons;
30
30
(-)a/members/printfeercpt.pl (-3 / +3 lines)
Lines 20-29 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
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;
26
use C4::Letters qw( GetPreparedLetter );
27
use Koha::Account::Lines;
27
use Koha::Account::Lines;
28
28
29
my $input = CGI->new;
29
my $input = CGI->new;
(-)a/members/printinvoice.pl (-3 / +3 lines)
Lines 20-29 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
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;
26
use C4::Letters qw( GetPreparedLetter );
27
use Koha::Account::Lines;
27
use Koha::Account::Lines;
28
28
29
my $input = CGI->new;
29
my $input = CGI->new;
(-)a/members/printslip.pl (-3 / +3 lines)
Lines 35-43 Link Here
35
use Modern::Perl;
35
use Modern::Perl;
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use C4::Context;
37
use C4::Context;
38
use C4::Auth qw/:DEFAULT get_session/;
38
use C4::Auth qw( get_session get_template_and_user );
39
use C4::Output;
39
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
40
use C4::Members;
40
use C4::Members qw( IssueSlip );
41
use C4::Koha;
41
use C4::Koha;
42
use Koha::DateUtils;
42
use Koha::DateUtils;
43
43
(-)a/members/purchase-suggestions.pl (-2 / +2 lines)
Lines 20-28 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
26
use C4::Members;
26
use C4::Members;
27
use C4::Suggestions;
27
use C4::Suggestions;
28
use Koha::Patrons;
28
use Koha::Patrons;
(-)a/members/readingrec.pl (-3 / +3 lines)
Lines 24-32 use Modern::Perl; Link Here
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output;
28
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
29
use C4::Members;
29
use C4::Members qw( GetAllIssues );
30
use List::MoreUtils qw/any uniq/;
30
use List::MoreUtils qw/any uniq/;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
32
(-)a/members/routing-lists.pl (-2 / +2 lines)
Lines 19-26 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::Output;
22
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
23
use C4::Auth qw/:DEFAULT/;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Members;
24
use C4::Members;
25
use C4::Context;
25
use C4::Context;
26
use C4::Serials;
26
use C4::Serials;
(-)a/members/setstatus.pl (-1 / +1 lines)
Lines 28-34 use Modern::Perl; Link Here
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use C4::Context;
29
use C4::Context;
30
use C4::Members;
30
use C4::Members;
31
use C4::Auth;
31
use C4::Auth qw( checkauth );
32
use Koha::Patrons;
32
use Koha::Patrons;
33
33
34
34
(-)a/members/statistics.pl (-3 / +3 lines)
Lines 25-35 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::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Members;
30
use C4::Members;
31
use C4::Members::Statistics;
31
use C4::Members::Statistics qw( get_fields GetPrecedentStateByBorrower GetTotalIssuesTodayByBorrower GetTotalIssuesReturnedTodayByBorrower );
32
use C4::Output;
32
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
33
use Koha::Patrons;
33
use Koha::Patrons;
34
use Koha::Patron::Categories;
34
use Koha::Patron::Categories;
35
35
(-)a/members/summary-print.pl (-3 / +3 lines)
Lines 19-30 use Modern::Perl; Link Here
19
19
20
use CGI;
20
use CGI;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24
use C4::Members;
24
use C4::Members;
25
use C4::Circulation qw( GetIssuingCharges );
25
use C4::Circulation qw( GetIssuingCharges );
26
use C4::Reserves;
26
use C4::Reserves;
27
use C4::Items;
27
use C4::Items qw( sub );
28
use Koha::DateUtils;
28
use Koha::DateUtils;
29
use Koha::Holds;
29
use Koha::Holds;
30
use Koha::ItemTypes;
30
use Koha::ItemTypes;
(-)a/members/update-child.pl (-2 / +2 lines)
Lines 29-36 Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Context;
31
use C4::Context;
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers output_and_exit_if_error output_and_exit );
34
use Koha::Patrons;
34
use Koha::Patrons;
35
use Koha::Patron::Categories;
35
use Koha::Patron::Categories;
36
use Koha::Patrons;
36
use Koha::Patrons;
(-)a/misc/add_date_fields_to_marc_records.pl (-1 / +1 lines)
Lines 28-34 use Getopt::Long; Link Here
28
use Pod::Usage;
28
use Pod::Usage;
29
use MARC::Field;
29
use MARC::Field;
30
30
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio ModBiblio );
32
use Koha::DateUtils qw( dt_from_string );
32
use Koha::DateUtils qw( dt_from_string );
33
33
34
my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field );
34
my ( $verbose, $help, $confirm, $where, @fields, $unless_exists_field );
(-)a/misc/batchDeleteUnusedSubfields.pl (-1 / +1 lines)
Lines 14-20 BEGIN { Link Here
14
use Koha::Script;
14
use Koha::Script;
15
use MARC::Record;
15
use MARC::Record;
16
use C4::Context;
16
use C4::Context;
17
use C4::Biblio;
17
use C4::Biblio qw( GetMarcStructure );
18
use Time::HiRes qw(gettimeofday);
18
use Time::HiRes qw(gettimeofday);
19
19
20
use Getopt::Long;
20
use Getopt::Long;
(-)a/misc/batchImportMARCWithBiblionumbers.pl (-1 / +1 lines)
Lines 14-20 BEGIN { Link Here
14
14
15
use Koha::Script;
15
use Koha::Script;
16
use C4::Context;
16
use C4::Context;
17
use C4::Biblio;
17
use C4::Biblio qw( GetMarcFromKohaField );
18
use MARC::Record;
18
use MARC::Record;
19
use MARC::File::USMARC;
19
use MARC::File::USMARC;
20
use MARC::File::XML;
20
use MARC::File::XML;
(-)a/misc/batchRebuildBiblioTables.pl (-2 / +2 lines)
Lines 15-23 BEGIN { Link Here
15
# Koha modules used
15
# Koha modules used
16
use Koha::Script;
16
use Koha::Script;
17
use MARC::Record;
17
use MARC::Record;
18
use C4::Charset;
18
use C4::Charset qw( StripNonXmlChars );
19
use C4::Context;
19
use C4::Context;
20
use C4::Biblio;
20
use C4::Biblio qw( GetXmlBiblio TransformMarcToKoha _koha_modify_biblio _koha_modify_biblioitem_nonmarc );
21
use Time::HiRes qw(gettimeofday);
21
use Time::HiRes qw(gettimeofday);
22
22
23
use Getopt::Long;
23
use Getopt::Long;
(-)a/misc/batchRebuildItemsTables.pl (-2 / +2 lines)
Lines 10-17 use Time::HiRes qw(gettimeofday); Link Here
10
10
11
use Koha::Script;
11
use Koha::Script;
12
use C4::Context;
12
use C4::Context;
13
use C4::Biblio;
13
use C4::Biblio qw( GetMarcFromKohaField GetMarcBiblio );
14
use C4::Items;
14
use C4::Items qw( sub ModItemFromMarc );
15
15
16
=head1 NAME
16
=head1 NAME
17
17
(-)a/misc/batchRepairMissingBiblionumbers.pl (-1 / +1 lines)
Lines 14-20 BEGIN { Link Here
14
# Koha modules used
14
# Koha modules used
15
use Koha::Script;
15
use Koha::Script;
16
use C4::Context;
16
use C4::Context;
17
use C4::Biblio;
17
use C4::Biblio qw( GetMarcBiblio _koha_marc_update_bib_ids ModBiblio ModBiblioMarc );
18
18
19
19
20
my $dbh = C4::Context->dbh;
20
my $dbh = C4::Context->dbh;
(-)a/misc/batchdeletebiblios.pl (-1 / +1 lines)
Lines 6-12 use Pod::Usage; Link Here
6
use IO::File;
6
use IO::File;
7
7
8
use Koha::Script;
8
use Koha::Script;
9
use C4::Biblio;
9
use C4::Biblio qw( DelBiblio );
10
10
11
my $help;
11
my $help;
12
GetOptions(
12
GetOptions(
(-)a/misc/commit_file.pl (-1 / +1 lines)
Lines 11-17 BEGIN { Link Here
11
11
12
use Koha::Script;
12
use Koha::Script;
13
use C4::Context;
13
use C4::Context;
14
use C4::ImportBatch;
14
use C4::ImportBatch qw( GetImportBatch sub BatchCommitRecords BatchRevertRecords );
15
use Getopt::Long;
15
use Getopt::Long;
16
16
17
$| = 1;
17
$| = 1;
(-)a/misc/cronjobs/advance_notices.pl (-1 / +1 lines)
Lines 50-56 BEGIN { Link Here
50
use Koha::Script -cron;
50
use Koha::Script -cron;
51
use C4::Biblio;
51
use C4::Biblio;
52
use C4::Context;
52
use C4::Context;
53
use C4::Letters;
53
use C4::Letters qw( get_item_content EnqueueLetter GetPreparedLetter );
54
use C4::Members;
54
use C4::Members;
55
use C4::Members::Messaging;
55
use C4::Members::Messaging;
56
use C4::Overdues;
56
use C4::Overdues;
(-)a/misc/cronjobs/archive_purchase_suggestions.pl (-1 / +1 lines)
Lines 9-15 use Koha::Script -cron; Link Here
9
9
10
use Koha::DateUtils qw( dt_from_string output_pref );
10
use Koha::DateUtils qw( dt_from_string output_pref );
11
use Koha::Suggestions;
11
use Koha::Suggestions;
12
use C4::Koha;
12
use C4::Koha qw( GetAuthorisedValues );
13
13
14
my ( $help, $verbose, $confirm, $age, $age_date_field, @statuses );
14
my ( $help, $verbose, $confirm, $age, $age_date_field, @statuses );
15
GetOptions(
15
GetOptions(
(-)a/misc/cronjobs/automatic_item_modification_by_age.pl (-1 / +1 lines)
Lines 8-14 use JSON; Link Here
8
8
9
use Koha::Script -cron;
9
use Koha::Script -cron;
10
use C4::Context;
10
use C4::Context;
11
use C4::Items;
11
use C4::Items qw( ToggleNewStatus sub );
12
use C4::Log;
12
use C4::Log;
13
13
14
# Getting options
14
# Getting options
(-)a/misc/cronjobs/automatic_renewals.pl (-2 / +2 lines)
Lines 79-88 use Pod::Usage; Link Here
79
use Getopt::Long;
79
use Getopt::Long;
80
80
81
use Koha::Script -cron;
81
use Koha::Script -cron;
82
use C4::Circulation;
82
use C4::Circulation qw( CanBookBeRenewed AddRenewal );
83
use C4::Context;
83
use C4::Context;
84
use C4::Log;
84
use C4::Log;
85
use C4::Letters;
85
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
86
use Koha::Checkouts;
86
use Koha::Checkouts;
87
use Koha::Libraries;
87
use Koha::Libraries;
88
use Koha::Patrons;
88
use Koha::Patrons;
(-)a/misc/cronjobs/build_browser_and_cloud.pl (-1 / +1 lines)
Lines 13-19 BEGIN { Link Here
13
use Koha::Script -cron;
13
use Koha::Script -cron;
14
use C4::Koha;
14
use C4::Koha;
15
use C4::Context;
15
use C4::Context;
16
use C4::Biblio;
16
use C4::Biblio qw( GetMarcBiblio );
17
use Date::Calc;
17
use Date::Calc;
18
use Time::HiRes qw(gettimeofday);
18
use Time::HiRes qw(gettimeofday);
19
use ZOOM;
19
use ZOOM;
(-)a/misc/cronjobs/cart_to_shelf.pl (-1 / +1 lines)
Lines 29-35 use strict; Link Here
29
use warnings;
29
use warnings;
30
30
31
use Koha::Script -cron;
31
use Koha::Script -cron;
32
use C4::Items qw/ CartToShelf /;
32
use C4::Items qw( CartToShelf );
33
use C4::Log;
33
use C4::Log;
34
34
35
BEGIN {
35
BEGIN {
(-)a/misc/cronjobs/check-url-quick.pl (-1 / +1 lines)
Lines 23-29 use Getopt::Long; Link Here
23
23
24
use Koha::Script -cron;
24
use Koha::Script -cron;
25
use C4::Context;
25
use C4::Context;
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio );
27
use AnyEvent;
27
use AnyEvent;
28
use AnyEvent::HTTP;
28
use AnyEvent::HTTP;
29
use Encode;
29
use Encode;
(-)a/misc/cronjobs/delete_items.pl (-1 / +1 lines)
Lines 4-10 use Getopt::Long; Link Here
4
4
5
use Koha::Script -cron;
5
use Koha::Script -cron;
6
use C4::Context;
6
use C4::Context;
7
use C4::Items;
7
use C4::Items qw( sub );
8
use C4::Circulation;
8
use C4::Circulation;
9
use Modern::Perl;
9
use Modern::Perl;
10
use Pod::Usage;
10
use Pod::Usage;
(-)a/misc/cronjobs/delete_patrons.pl (-1 / +1 lines)
Lines 6-12 use Pod::Usage; Link Here
6
use Getopt::Long;
6
use Getopt::Long;
7
7
8
use Koha::Script -cron;
8
use Koha::Script -cron;
9
use C4::Members;
9
use C4::Members qw( GetBorrowersToExpunge );
10
use Koha::DateUtils;
10
use Koha::DateUtils;
11
use Koha::Patrons;
11
use Koha::Patrons;
12
use C4::Log;
12
use C4::Log;
(-)a/misc/cronjobs/delete_records_via_leader.pl (-1 / +1 lines)
Lines 34-40 BEGIN { Link Here
34
use Getopt::Long;
34
use Getopt::Long;
35
use Pod::Usage;
35
use Pod::Usage;
36
use Koha::Script -cron;
36
use Koha::Script -cron;
37
use C4::Biblio;
37
use C4::Biblio qw( DelBiblio );
38
use C4::Items;
38
use C4::Items;
39
use Koha::Database;
39
use Koha::Database;
40
use Koha::Biblios;
40
use Koha::Biblios;
(-)a/misc/cronjobs/edi_cron.pl (-1 / +1 lines)
Lines 33-39 use Koha::Script -cron; Link Here
33
use C4::Context;
33
use C4::Context;
34
use Log::Log4perl qw(:easy);
34
use Log::Log4perl qw(:easy);
35
use Koha::Database;
35
use Koha::Database;
36
use Koha::EDI qw( process_quote process_invoice process_ordrsp);
36
use Koha::EDI qw( process_quote process_invoice process_ordrsp );
37
use Koha::Edifact::Transport;
37
use Koha::Edifact::Transport;
38
use Koha::Plugins::Handler;
38
use Koha::Plugins::Handler;
39
use Fcntl qw( :DEFAULT :flock :seek );
39
use Fcntl qw( :DEFAULT :flock :seek );
(-)a/misc/cronjobs/fines.pl (-1 / +1 lines)
Lines 32-38 use 5.010; Link Here
32
32
33
use Koha::Script -cron;
33
use Koha::Script -cron;
34
use C4::Context;
34
use C4::Context;
35
use C4::Overdues;
35
use C4::Overdues qw( Getoverdues CalcFine UpdateFine );
36
use Getopt::Long;
36
use Getopt::Long;
37
use Carp;
37
use Carp;
38
use File::Spec;
38
use File::Spec;
(-)a/misc/cronjobs/gather_print_notices.pl (-1 / +1 lines)
Lines 12-18 BEGIN { Link Here
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
12
use CGI qw( utf8 ); # NOT a CGI script, this is just to keep C4::Templates::gettemplate happy
13
use Koha::Script -cron;
13
use Koha::Script -cron;
14
use C4::Context;
14
use C4::Context;
15
use C4::Letters;
15
use C4::Letters qw( GetPrintMessages _set_message_status );
16
use C4::Templates;
16
use C4::Templates;
17
use File::Spec;
17
use File::Spec;
18
use Pod::Usage;
18
use Pod::Usage;
(-)a/misc/cronjobs/import_webservice_batch.pl (-1 / +1 lines)
Lines 32-38 BEGIN { Link Here
32
use Getopt::Long;
32
use Getopt::Long;
33
use Pod::Usage;
33
use Pod::Usage;
34
use Koha::Script -cron;
34
use Koha::Script -cron;
35
use C4::ImportBatch;
35
use C4::ImportBatch qw( BatchCommitRecords );
36
36
37
my ($help, $framework);
37
my ($help, $framework);
38
38
(-)a/misc/cronjobs/longoverdue.pl (-2 / +2 lines)
Lines 37-45 BEGIN { Link Here
37
use Getopt::Long;
37
use Getopt::Long;
38
use Pod::Usage;
38
use Pod::Usage;
39
39
40
use C4::Circulation qw/LostItem MarkIssueReturned/;
40
use C4::Circulation qw( LostItem MarkIssueReturned );
41
use C4::Context;
41
use C4::Context;
42
use C4::Items;
42
use C4::Items qw( sub );
43
use C4::Log;
43
use C4::Log;
44
use Koha::ItemTypes;
44
use Koha::ItemTypes;
45
use Koha::Patron::Categories;
45
use Koha::Patron::Categories;
(-)a/misc/cronjobs/membership_expiry.pl (-1 / +1 lines)
Lines 128-134 BEGIN { Link Here
128
128
129
use Koha::Script -cron;
129
use Koha::Script -cron;
130
use C4::Context;
130
use C4::Context;
131
use C4::Letters;
131
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
132
use C4::Log;
132
use C4::Log;
133
133
134
use Koha::Patrons;
134
use Koha::Patrons;
(-)a/misc/cronjobs/overdue_notices.pl (-2 / +2 lines)
Lines 36-43 use DateTime::Duration; Link Here
36
36
37
use Koha::Script -cron;
37
use Koha::Script -cron;
38
use C4::Context;
38
use C4::Context;
39
use C4::Letters;
39
use C4::Letters qw( getletter get_item_content EnqueueLetter );
40
use C4::Overdues qw(GetFine GetOverdueMessageTransportTypes parse_overdues_letter);
40
use C4::Overdues qw( GetBranchcodesWithOverdueRules GetOverdueMessageTransportTypes parse_overdues_letter );
41
use C4::Log;
41
use C4::Log;
42
use Koha::Patron::Debarments qw(AddUniqueDebarment);
42
use Koha::Patron::Debarments qw(AddUniqueDebarment);
43
use Koha::DateUtils;
43
use Koha::DateUtils;
(-)a/misc/cronjobs/patron_emailer.pl (-1 / +1 lines)
Lines 30-36 use Getopt::Long; Link Here
30
use Pod::Usage;
30
use Pod::Usage;
31
31
32
use C4::Log;
32
use C4::Log;
33
use C4::Reports::Guided;
33
use C4::Reports::Guided qw( EmailReport );
34
34
35
cronlogaction();
35
cronlogaction();
36
36
(-)a/misc/cronjobs/process_message_queue.pl (-1 / +1 lines)
Lines 27-33 BEGIN { Link Here
27
}
27
}
28
28
29
use Koha::Script -cron;
29
use Koha::Script -cron;
30
use C4::Letters;
30
use C4::Letters qw( SendQueuedMessages );
31
use C4::Log;
31
use C4::Log;
32
use Getopt::Long;
32
use Getopt::Long;
33
use Try::Tiny;
33
use Try::Tiny;
(-)a/misc/cronjobs/runreport.pl (-1 / +1 lines)
Lines 21-27 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Koha::Script -cron;
23
use Koha::Script -cron;
24
use C4::Reports::Guided; # 0.12
24
use C4::Reports::Guided qw( store_results execute_query );
25
use Koha::Reports;
25
use Koha::Reports;
26
use C4::Context;
26
use C4::Context;
27
use C4::Log;
27
use C4::Log;
(-)a/misc/cronjobs/serialsUpdate.pl (-2 / +2 lines)
Lines 30-39 BEGIN { Link Here
30
30
31
use Koha::Script -cron;
31
use Koha::Script -cron;
32
use C4::Context;
32
use C4::Context;
33
use C4::Serials;
33
use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );
34
use C4::Log;
34
use C4::Log;
35
use Koha::DateUtils;
35
use Koha::DateUtils;
36
use C4::Serials::Frequency;
36
use C4::Serials qw( GetSubscription GetNextDate ModSerialStatus );
37
37
38
use Date::Calc qw/Date_to_Days check_date/;
38
use Date::Calc qw/Date_to_Days check_date/;
39
use Getopt::Long;
39
use Getopt::Long;
(-)a/misc/cronjobs/staticfines.pl (-1 / +1 lines)
Lines 40-46 use Date::Calc qw/Date_to_Days/; Link Here
40
use Koha::Script -cron;
40
use Koha::Script -cron;
41
use C4::Context;
41
use C4::Context;
42
use C4::Circulation;
42
use C4::Circulation;
43
use C4::Overdues;
43
use C4::Overdues qw( checkoverdues Getoverdues CalcFine GetFine );
44
use C4::Calendar qw();    # don't need any exports from Calendar
44
use C4::Calendar qw();    # don't need any exports from Calendar
45
use C4::Biblio;
45
use C4::Biblio;
46
use C4::Log;
46
use C4::Log;
(-)a/misc/cronjobs/stockrotation.pl (-1 / +1 lines)
Lines 112-118 use Getopt::Long qw/HelpMessage :config gnu_getopt/; Link Here
112
112
113
use Koha::Script -cron;
113
use Koha::Script -cron;
114
use C4::Context;
114
use C4::Context;
115
use C4::Letters;
115
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
116
use Koha::StockRotationRotas;
116
use Koha::StockRotationRotas;
117
117
118
my $admin_email = '';
118
my $admin_email = '';
(-)a/misc/cronjobs/update_totalissues.pl (-1 / +1 lines)
Lines 34-40 use Pod::Usage; Link Here
34
use Koha::Script -cron;
34
use Koha::Script -cron;
35
use Koha::DateUtils qw/ dt_from_string /;
35
use Koha::DateUtils qw/ dt_from_string /;
36
use C4::Context;
36
use C4::Context;
37
use C4::Biblio;
37
use C4::Biblio qw( UpdateTotalIssues );
38
use C4::Log;
38
use C4::Log;
39
use DateTime;
39
use DateTime;
40
use DateTime::Format::MySQL;
40
use DateTime::Format::MySQL;
(-)a/misc/devel/get_prepared_letter.pl (-1 / +1 lines)
Lines 73-79 use Getopt::Long; Link Here
73
use JSON;
73
use JSON;
74
use Pod::Usage;
74
use Pod::Usage;
75
75
76
use C4::Letters;
76
use C4::Letters qw( GetPreparedLetter );
77
77
78
my $help;
78
my $help;
79
my ( $module, $letter_code, $branchcode, $message_transport_type, $lang,
79
my ( $module, $letter_code, $branchcode, $message_transport_type, $lang,
(-)a/misc/link_bibs_to_authorities.pl (-1 / +1 lines)
Lines 13-19 BEGIN { Link Here
13
13
14
use Koha::Script;
14
use Koha::Script;
15
use C4::Context;
15
use C4::Context;
16
use C4::Biblio;
16
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode LinkBibHeadingsToAuthorities ModBiblio );
17
use Getopt::Long;
17
use Getopt::Long;
18
use Pod::Usage;
18
use Pod::Usage;
19
use Data::Dumper;
19
use Data::Dumper;
(-)a/misc/maintenance/UNIMARC_sync_date_created_with_marc_biblio.pl (-1 / +1 lines)
Lines 13-19 BEGIN { Link Here
13
}
13
}
14
14
15
use Koha::Script;
15
use Koha::Script;
16
use C4::Biblio;
16
use C4::Biblio qw( GetMarcBiblio ModBiblio );
17
use Getopt::Long;
17
use Getopt::Long;
18
18
19
sub _read_marc_code {
19
sub _read_marc_code {
(-)a/misc/maintenance/fix_tags_weight.pl (-1 / +1 lines)
Lines 20-26 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Context;
22
use C4::Context;
23
use C4::Tags;
23
use C4::Tags qw( add_tag_approval add_tag );
24
24
25
use Koha::Script;
25
use Koha::Script;
26
use Koha::Database;
26
use Koha::Database;
(-)a/misc/maintenance/process_record_through_filter.pl (-1 / +1 lines)
Lines 10-16 use warnings; Link Here
10
use Koha::Script;
10
use Koha::Script;
11
use Koha::RecordProcessor;
11
use Koha::RecordProcessor;
12
use Data::Dumper;
12
use Data::Dumper;
13
use C4::Biblio;
13
use C4::Biblio qw( GetMarcBiblio );
14
14
15
my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });
15
my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });
16
16
(-)a/misc/maintenance/remove_items_from_biblioitems.pl (-1 / +1 lines)
Lines 24-30 $|=1; Link Here
24
24
25
use Koha::Script;
25
use Koha::Script;
26
use C4::Context;
26
use C4::Context;
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcBiblio ModBiblio GetFrameworkCode );
28
use Getopt::Long;
28
use Getopt::Long;
29
29
30
my ($wherestring, $run, $silent, $want_help);
30
my ($wherestring, $run, $silent, $want_help);
(-)a/misc/maintenance/sanitize_records.pl (-1 / +1 lines)
Lines 23-29 use Koha::Script; Link Here
23
use C4::Charset qw( SanitizeRecord );
23
use C4::Charset qw( SanitizeRecord );
24
use C4::Context;
24
use C4::Context;
25
use DBI;
25
use DBI;
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode ModBiblio );
27
use Getopt::Long;
27
use Getopt::Long;
28
use Pod::Usage;
28
use Pod::Usage;
29
29
(-)a/misc/maintenance/search_for_data_inconsistencies.pl (-1 / +1 lines)
Lines 25-31 use Koha::BiblioFrameworks; Link Here
25
use Koha::Biblioitems;
25
use Koha::Biblioitems;
26
use Koha::Items;
26
use Koha::Items;
27
use Koha::ItemTypes;
27
use Koha::ItemTypes;
28
use C4::Biblio;
28
use C4::Biblio qw( GetMarcFromKohaField );
29
29
30
{
30
{
31
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
31
    my $items = Koha::Items->search({ -or => { homebranch => undef, holdingbranch => undef }});
(-)a/misc/maintenance/touch_all_biblios.pl (-1 / +1 lines)
Lines 31-37 use Getopt::Long; Link Here
31
31
32
use Koha::Script;
32
use Koha::Script;
33
use C4::Context;
33
use C4::Context;
34
use C4::Biblio;
34
use C4::Biblio qw( GetMarcBiblio ModBiblio );
35
use Pod::Usage;
35
use Pod::Usage;
36
36
37
37
(-)a/misc/maintenance/touch_all_items.pl (-1 / +1 lines)
Lines 31-37 use Getopt::Long; Link Here
31
31
32
use Koha::Script;
32
use Koha::Script;
33
use C4::Context;
33
use C4::Context;
34
use C4::Items;
34
use C4::Items qw( sub );
35
use Koha::Items;
35
use Koha::Items;
36
use Pod::Usage;
36
use Pod::Usage;
37
37
(-)a/misc/migration_tools/buildEDITORS.pl (-1 / +1 lines)
Lines 10-16 use MARC::Record; Link Here
10
use MARC::Batch;
10
use MARC::Batch;
11
use Koha::Script;
11
use Koha::Script;
12
use C4::Context;
12
use C4::Context;
13
use C4::Biblio;
13
use C4::Biblio qw( GetMarcBiblio );
14
use C4::AuthoritiesMarc;
14
use C4::AuthoritiesMarc;
15
use Time::HiRes qw(gettimeofday);
15
use Time::HiRes qw(gettimeofday);
16
16
(-)a/misc/migration_tools/build_oai_sets.pl (-2 / +2 lines)
Lines 44-51 use Getopt::Std; Link Here
44
44
45
use Koha::Script;
45
use Koha::Script;
46
use C4::Context;
46
use C4::Context;
47
use C4::Charset qw/StripNonXmlChars/;
47
use C4::Charset qw( StripNonXmlChars );
48
use C4::Biblio;
48
use C4::Biblio qw( EmbedItemsInMarcBiblio );
49
use C4::OAI::Sets;
49
use C4::OAI::Sets;
50
50
51
my %opts;
51
my %opts;
(-)a/misc/migration_tools/bulkmarcimport.pl (-3 / +3 lines)
Lines 20-29 use Encode; Link Here
20
20
21
use Koha::Script;
21
use Koha::Script;
22
use C4::Context;
22
use C4::Context;
23
use C4::Biblio;
23
use C4::Biblio qw( GetMarcFromKohaField ModBiblio AddBiblio _strip_item_fields ModBiblioMarc );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Charset;
25
use C4::Charset qw( MarcToUTF8Record SetUTF8Flag );
26
use C4::Items;
26
use C4::Items qw( sub AddItemBatchFromMarc );
27
use C4::MarcModificationTemplates;
27
use C4::MarcModificationTemplates;
28
28
29
use YAML::XS;
29
use YAML::XS;
(-)a/misc/migration_tools/create_analytical_rel.pl (-2 / +2 lines)
Lines 11-18 BEGIN { Link Here
11
11
12
use Koha::Script;
12
use Koha::Script;
13
use C4::Context;
13
use C4::Context;
14
use C4::Biblio;
14
use C4::Biblio qw( GetMarcBiblio ModBiblio );
15
use C4::Items;
15
use C4::Items qw( sub );
16
use Koha::Items;
16
use Koha::Items;
17
use Getopt::Long;
17
use Getopt::Long;
18
18
(-)a/misc/migration_tools/import_lexile.pl (-1 / +1 lines)
Lines 33-39 use Text::CSV; Link Here
33
33
34
use Koha::Script;
34
use Koha::Script;
35
use C4::Context;
35
use C4::Context;
36
use C4::Biblio;
36
use C4::Biblio qw( GetMarcBiblio ModBiblio );
37
use C4::Koha qw( GetVariationsOfISBN );
37
use C4::Koha qw( GetVariationsOfISBN );
38
38
39
use Koha::Biblios;
39
use Koha::Biblios;
(-)a/misc/migration_tools/rebuild_zebra.pl (-2 / +2 lines)
Lines 23-31 use Getopt::Long; Link Here
23
use Fcntl qw(:flock);
23
use Fcntl qw(:flock);
24
use File::Temp qw/ tempdir /;
24
use File::Temp qw/ tempdir /;
25
use File::Path;
25
use File::Path;
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcFromKohaField GetXmlBiblio GetMarcBiblio _koha_marc_update_bib_ids );
27
use C4::AuthoritiesMarc;
27
use C4::AuthoritiesMarc;
28
use C4::Items;
28
use C4::Items qw( sub GetItemsInfo Item2Marc );
29
use Koha::RecordProcessor;
29
use Koha::RecordProcessor;
30
use Koha::Caches;
30
use Koha::Caches;
31
use XML::LibXML;
31
use XML::LibXML;
(-)a/misc/migration_tools/switch_marc21_series_info.pl (-1 / +1 lines)
Lines 30-36 BEGIN { Link Here
30
}
30
}
31
31
32
use Koha::Script;
32
use Koha::Script;
33
use C4::Biblio;
33
use C4::Biblio qw( GetFrameworkCode GetMarcBiblio ModBiblio ModBiblioMarc );
34
use C4::Context;
34
use C4::Context;
35
use Getopt::Long;
35
use Getopt::Long;
36
36
(-)a/misc/migration_tools/upgradeitems.pl (-2 / +2 lines)
Lines 5-12 use strict; Link Here
5
5
6
use Koha::Script;
6
use Koha::Script;
7
use C4::Context;
7
use C4::Context;
8
use C4::Items;
8
use C4::Items qw( sub ModItemFromMarc );
9
use C4::Biblio;
9
use C4::Biblio qw( GetMarcBiblio );
10
10
11
my $dbh=C4::Context->dbh;
11
my $dbh=C4::Context->dbh;
12
12
(-)a/misc/mod_zebraqueue.pl (-1 / +1 lines)
Lines 24-30 use Getopt::Long; Link Here
24
use Pod::Usage;
24
use Pod::Usage;
25
25
26
use Koha::Script;
26
use Koha::Script;
27
use C4::Biblio;
27
use C4::Biblio qw( ModZebra );
28
28
29
my @biblios;
29
my @biblios;
30
my @authorities;
30
my @authorities;
(-)a/misc/recreateIssueStatistics.pl (-1 / +1 lines)
Lines 25-31 use warnings; Link Here
25
25
26
use Koha::Script;
26
use Koha::Script;
27
use C4::Context;
27
use C4::Context;
28
use C4::Items;
28
use C4::Items qw( sub );
29
use Data::Dumper;
29
use Data::Dumper;
30
use Getopt::Long;
30
use Getopt::Long;
31
use Koha::Items;
31
use Koha::Items;
(-)a/misc/sip_cli_emulator.pl (-2 / +2 lines)
Lines 23-30 use Socket qw(:crlf); Link Here
23
use IO::Socket::INET;
23
use IO::Socket::INET;
24
use Getopt::Long;
24
use Getopt::Long;
25
25
26
use C4::SIP::Sip::Constants qw(:all);
26
use C4::SIP::Sip qw( timestamp );
27
use C4::SIP::Sip;
27
use C4::SIP::Sip qw( timestamp );
28
28
29
use constant { LANGUAGE => '001' };
29
use constant { LANGUAGE => '001' };
30
30
(-)a/misc/stage_file.pl (-1 / +1 lines)
Lines 29-35 BEGIN { Link Here
29
29
30
use Koha::Script;
30
use Koha::Script;
31
use C4::Context;
31
use C4::Context;
32
use C4::ImportBatch;
32
use C4::ImportBatch qw( sub RecordsFromISO2709File RecordsFromMARCXMLFile BatchStageMarcRecords SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates );
33
use C4::Matcher;
33
use C4::Matcher;
34
use C4::MarcModificationTemplates;
34
use C4::MarcModificationTemplates;
35
use Getopt::Long;
35
use Getopt::Long;
(-)a/misc/translator/TmplTokenizer.pm (-1 / +1 lines)
Lines 1-7 Link Here
1
package TmplTokenizer;
1
package TmplTokenizer;
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use C4::TmplTokenType;
4
use C4::TmplTokenType qw( CDATA UNKNOWN DIRECTIVE TEXT TAG TEXT_PARAMETRIZED to_string );
5
use C4::TmplToken;
5
use C4::TmplToken;
6
use C4::TTParser;
6
use C4::TTParser;
7
use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
7
use VerboseWarnings qw( pedantic_p error_normal warn_normal warn_pedantic );
(-)a/offline_circ/download.pl (-1 / +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 JSON;
22
use JSON;
23
use C4::Auth;
23
use C4::Auth qw( checkauth );
24
use C4::Output;
24
use C4::Output;
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
(-)a/offline_circ/enqueue_koc.pl (-4 / +4 lines)
Lines 21-34 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Context;
27
use C4::Context;
28
use C4::Biblio;
28
use C4::Biblio;
29
use C4::Accounts;
29
use C4::Accounts;
30
use C4::Circulation;
30
use C4::Circulation qw( AddOfflineOperation );
31
use C4::Items;
31
use C4::Items qw( sub );
32
use C4::Members;
32
use C4::Members;
33
use C4::Stats;
33
use C4::Stats;
34
use Koha::Checkouts;
34
use Koha::Checkouts;
(-)a/offline_circ/list.pl (-3 / +3 lines)
Lines 21-31 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Context;
27
use C4::Context;
28
use C4::Circulation;
28
use C4::Circulation qw( GetOfflineOperations GetOfflineOperation );
29
use C4::Members;
29
use C4::Members;
30
use C4::Biblio;
30
use C4::Biblio;
31
use Koha::Patrons;
31
use Koha::Patrons;
(-)a/offline_circ/process.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Circulation;
25
use C4::Circulation qw( GetOfflineOperation ProcessOfflineOperation DeleteOfflineOperation );
26
26
27
my $query = CGI->new;
27
my $query = CGI->new;
28
28
(-)a/offline_circ/process_koc.pl (-4 / +4 lines)
Lines 23-36 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use Carp;
24
use Carp;
25
25
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Context;
29
use C4::Context;
30
use C4::Biblio;
30
use C4::Biblio;
31
use C4::Accounts;
31
use C4::Accounts;
32
use C4::Circulation;
32
use C4::Circulation qw( barcodedecode GetOpenIssue AddRenewal AddIssue MarkIssueReturned );
33
use C4::Items;
33
use C4::Items qw( sub ModDateLastSeen );
34
use C4::Members;
34
use C4::Members;
35
use C4::Stats;
35
use C4::Stats;
36
use C4::BackgroundJob;
36
use C4::BackgroundJob;
(-)a/offline_circ/service.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( check_api_auth check_cookie_auth );
25
use C4::Circulation;
25
use C4::Circulation qw( AddOfflineOperation ProcessOfflineOperation );
26
use Koha::DateUtils;
26
use Koha::DateUtils;
27
use DateTime::TimeZone;
27
use DateTime::TimeZone;
28
28
(-)a/opac/clubs/clubs-tab.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Patrons;
26
use Koha::Patrons;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/opac/clubs/enroll.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Clubs;
26
use Koha::Clubs;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/opac/errors/400.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/opac/errors/401.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/opac/errors/402.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/opac/errors/403.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/opac/errors/404.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/opac/errors/500.pl (-2 / +2 lines)
Lines 18-25 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use List::MoreUtils qw(any);
24
use List::MoreUtils qw(any);
25
25
(-)a/opac/ilsdi.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::ILSDI::Services;
22
use C4::ILSDI::Services;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
use List::MoreUtils qw(any);
27
use List::MoreUtils qw(any);
(-)a/opac/maintenance.pl (-1 / +1 lines)
Lines 19-25 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Auth;
21
use C4::Auth;
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Templates qw/gettemplate/;
23
use C4::Templates qw/gettemplate/;
24
24
25
use Koha;
25
use Koha;
(-)a/opac/opac-ISBDdetail.pl (-6 / +6 lines)
Lines 41-56 the items attached to the biblio Link Here
41
41
42
use Modern::Perl;
42
use Modern::Perl;
43
43
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use C4::Context;
45
use C4::Context;
46
use C4::Output;
46
use C4::Output qw( parametrized_url output_html_with_http_headers );
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use C4::Biblio;
48
use C4::Biblio qw( TransformMarcToKoha GetISBDView CountItemsIssued GetMarcControlnumber GetMarcISSN );
49
use C4::Items;
49
use C4::Items qw( sub );
50
use C4::Reserves;
50
use C4::Reserves;
51
use C4::Acquisition;
51
use C4::Acquisition;
52
use C4::Serials;    # uses getsubscriptionfrom biblionumber
52
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
53
use C4::Koha;
53
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
54
use Koha::CirculationRules;
54
use Koha::CirculationRules;
55
use Koha::ItemTypes;
55
use Koha::ItemTypes;
56
use Koha::Patrons;
56
use Koha::Patrons;
(-)a/opac/opac-MARCdetail.pl (-5 / +5 lines)
Lines 45-61 the items attached to the biblio Link Here
45
45
46
use Modern::Perl;
46
use Modern::Perl;
47
47
48
use C4::Auth;
48
use C4::Auth qw( get_template_and_user );
49
use C4::Context;
49
use C4::Context;
50
use C4::Output;
50
use C4::Output qw( parametrized_url output_html_with_http_headers );
51
use CGI qw ( -utf8 );
51
use CGI qw ( -utf8 );
52
use MARC::Record;
52
use MARC::Record;
53
use C4::Biblio;
53
use C4::Biblio qw( GetMarcBiblio GetMarcStructure GetMarcFromKohaField CountItemsIssued GetAuthorisedValueDesc TransformMarcToKoha GetMarcControlnumber GetMarcISSN );
54
use C4::Items;
54
use C4::Items qw( sub );
55
use C4::Reserves;
55
use C4::Reserves;
56
use C4::Members;
56
use C4::Members;
57
use C4::Acquisition;
57
use C4::Acquisition;
58
use C4::Koha;
58
use C4::Koha qw( display_marc_indicators GetNormalizedISBN );
59
use List::MoreUtils qw( any uniq );
59
use List::MoreUtils qw( any uniq );
60
use Koha::Biblios;
60
use Koha::Biblios;
61
use Koha::CirculationRules;
61
use Koha::CirculationRules;
(-)a/opac/opac-account-pay-return.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
21
22
use CGI;
22
use CGI;
23
23
24
use C4::Auth;
24
use C4::Auth qw( checkauth );
25
use Koha::Plugins::Handler;
25
use Koha::Plugins::Handler;
26
26
27
my $cgi = CGI->new;
27
my $cgi = CGI->new;
(-)a/opac/opac-account-pay.pl (-1 / +1 lines)
Lines 26-32 use HTTP::Request::Common; Link Here
26
use LWP::UserAgent;
26
use LWP::UserAgent;
27
use URI;
27
use URI;
28
28
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output;
31
use C4::Context;
31
use C4::Context;
32
use Koha::Acquisition::Currencies;
32
use Koha::Acquisition::Currencies;
(-)a/opac/opac-account.pl (-2 / +2 lines)
Lines 22-29 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Members;
24
use C4::Members;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use Koha::Account::Lines;
27
use Koha::Account::Lines;
28
use Koha::Patrons;
28
use Koha::Patrons;
29
use Koha::Plugins;
29
use Koha::Plugins;
(-)a/opac/opac-addbybiblionumber.pl (-2 / +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::Biblio;
24
use C4::Biblio;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
27
28
use Koha::Biblios;
28
use Koha::Biblios;
29
use Koha::Virtualshelves;
29
use Koha::Virtualshelves;
(-)a/opac/opac-alert-subscribe.pl (-3 / +3 lines)
Lines 20-31 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Letters;
27
use C4::Letters;
28
use C4::Serials;
28
use C4::Serials qw( GetSubscription );
29
29
30
30
31
my $query = CGI->new;
31
my $query = CGI->new;
(-)a/opac/opac-article-request-cancel.pl (-1 / +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::Output;
24
use C4::Output;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use Koha::ArticleRequests;
26
use Koha::ArticleRequests;
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
(-)a/opac/opac-authorities-home.pl (-4 / +4 lines)
Lines 22-33 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use URI::Escape;
24
use URI::Escape;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( pagination_bar output_html_with_http_headers );
30
use C4::AuthoritiesMarc;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Koha;
31
use C4::Koha;
32
use C4::Search::History;
32
use C4::Search::History;
33
33
(-)a/opac/opac-authoritiesdetail.pl (-5 / +5 lines)
Lines 38-51 parameters tables. Link Here
38
38
39
use Modern::Perl;
39
use Modern::Perl;
40
40
41
use C4::AuthoritiesMarc;
41
use C4::Auth qw( get_template_and_user );
42
use C4::Auth;
42
use C4::Auth qw( get_template_and_user );
43
use C4::Biblio qw(GetMarcUrls);
43
use C4::Biblio qw( GetMarcUrls );
44
use C4::Context;
44
use C4::Context;
45
use C4::Output;
45
use C4::Output qw( output_html_with_http_headers );
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use MARC::Record;
47
use MARC::Record;
48
use C4::Koha;
48
use C4::Koha qw( display_marc_indicators );
49
49
50
use Koha::Authorities;
50
use Koha::Authorities;
51
use Koha::Authority::Types;
51
use Koha::Authority::Types;
(-)a/opac/opac-basket.pl (-5 / +5 lines)
Lines 20-30 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Koha;
22
use C4::Koha;
23
use C4::Biblio;
23
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetFrameworkCode GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls );
24
use C4::Items;
24
use C4::Items qw( sub GetItemsInfo GetHiddenItemnumbers );
25
use C4::Circulation;
25
use C4::Circulation qw( GetTransfers );
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use Koha::RecordProcessor;
28
use Koha::RecordProcessor;
29
use Koha::CsvProfiles;
29
use Koha::CsvProfiles;
30
use Koha::AuthorisedValues;
30
use Koha::AuthorisedValues;
(-)a/opac/opac-blocked.pl (-2 / +2 lines)
Lines 19-26 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/opac/opac-browse.pl (-2 / +2 lines)
Lines 22-30 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
use Koha::SearchEngine::Elasticsearch;
29
use Koha::SearchEngine::Elasticsearch;
30
use Koha::SearchEngine::Elasticsearch::Browse;
30
use Koha::SearchEngine::Elasticsearch::Browse;
(-)a/opac/opac-browser.pl (-2 / +2 lines)
Lines 26-34 TODO :: Description here Link Here
26
26
27
use Modern::Perl;
27
use Modern::Perl;
28
28
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Biblio;
33
use C4::Biblio;
34
34
(-)a/opac/opac-course-details.pl (-3 / +3 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha;
28
28
29
use C4::CourseReserves qw(GetCourse GetCourseReserves);
29
use C4::CourseReserves qw( GetCourse GetCourseReserve GetCourseReserves );
30
30
31
my $cgi = CGI->new;
31
my $cgi = CGI->new;
32
32
(-)a/opac/opac-course-reserves.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
27
28
use C4::CourseReserves qw(SearchCourses);
28
use C4::CourseReserves qw( SearchCourses );
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
31
31
(-)a/opac/opac-detail.pl (-13 / +13 lines)
Lines 24-53 use Modern::Perl; Link Here
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Acquisition qw( SearchOrders );
26
use C4::Acquisition qw( SearchOrders );
27
use C4::Auth qw(:DEFAULT get_session);
27
use C4::Auth qw( get_template_and_user get_session );
28
use C4::Koha;
28
use C4::Koha qw( GetNormalizedEAN getitemtypeimagelocation GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN );
29
use C4::Serials;    #uses getsubscriptionfrom biblionumber
29
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
30
use C4::Output;
30
use C4::Output qw( parametrized_url output_html_with_http_headers );
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio GetBiblioData CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcControlnumber GetMarcISSN );
32
use C4::Items;
32
use C4::Items qw( GetItemsInfo GetHiddenItemnumbers sub );
33
use C4::Circulation;
33
use C4::Circulation qw( GetTransfers );
34
use C4::Tags qw(get_tags);
34
use C4::Tags qw( get_tags get_tag );
35
use C4::XISBN qw(get_xisbns);
35
use C4::XISBN qw( get_xisbns );
36
use C4::External::Amazon;
36
use C4::External::Amazon;
37
use C4::External::BakerTaylor qw( image_url link_url );
37
use C4::External::BakerTaylor qw( image_url link_url );
38
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
38
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
39
use C4::Members;
39
use C4::Members;
40
use C4::XSLT;
40
use C4::XSLT;
41
use C4::ShelfBrowser;
41
use C4::ShelfBrowser qw( GetNearbyItems );
42
use C4::Reserves;
42
use C4::Reserves qw( GetReserveStatus );
43
use C4::Charset;
43
use C4::Charset qw( SetUTF8Flag );
44
use C4::Letters;
44
use C4::Letters;
45
use MARC::Record;
45
use MARC::Record;
46
use MARC::Field;
46
use MARC::Field;
47
use List::MoreUtils qw/any none/;
47
use List::MoreUtils qw/any none/;
48
use Koha::DateUtils;
48
use Koha::DateUtils;
49
use C4::HTML5Media;
49
use C4::HTML5Media;
50
use C4::CourseReserves qw(GetItemCourseReservesInfo);
50
use C4::CourseReserves qw( GetItemCourseReservesInfo );
51
51
52
use Koha::Biblios;
52
use Koha::Biblios;
53
use Koha::RecordProcessor;
53
use Koha::RecordProcessor;
(-)a/opac/opac-discharge.pl (-2 / +2 lines)
Lines 20-29 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use Carp;
21
use Carp;
22
22
23
use C4::Auth qw(:DEFAULT get_session);
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw( -utf8 );
24
use CGI qw( -utf8 );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Log;
27
use C4::Log;
28
use Koha::Patrons;
28
use Koha::Patrons;
29
use Koha::Patron::Discharge;
29
use Koha::Patron::Discharge;
(-)a/opac/opac-downloadcart.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record;
30
use C4::Ris;
30
use C4::Ris;
31
use Koha::CsvProfiles;
31
use Koha::CsvProfiles;
(-)a/opac/opac-downloadshelf.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetISBDView );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record;
30
use C4::Ris;
30
use C4::Ris;
31
use Koha::CsvProfiles;
31
use Koha::CsvProfiles;
(-)a/opac/opac-export.pl (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use C4::Record;
22
use C4::Record;
23
use C4::Auth;
23
use C4::Auth;
24
use C4::Output;
24
use C4::Output;
25
use C4::Biblio;
25
use C4::Biblio qw( GetMarcBiblio GetMarcControlnumber GetFrameworkCode GetISBDView );
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Auth;
27
use C4::Auth;
28
use C4::Ris;
28
use C4::Ris;
(-)a/opac/opac-holdshistory.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::Patrons;
26
use Koha::Patrons;
27
use Koha::Holds;
27
use Koha::Holds;
(-)a/opac/opac-ics.pl (-1 / +1 lines)
Lines 29-35 use DateTime::Format::ICal; Link Here
29
use DateTime::Event::ICal;
29
use DateTime::Event::ICal;
30
use URI;
30
use URI;
31
31
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Koha;
33
use C4::Koha;
34
use C4::Circulation;
34
use C4::Circulation;
35
use C4::Members;
35
use C4::Members;
(-)a/opac/opac-idref.pl (-2 / +2 lines)
Lines 25-34 use HTTP::Request::Common; Link Here
25
use JSON;
25
use JSON;
26
use Encode;
26
use Encode;
27
27
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Search;
30
use C4::Search;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
32
33
my $cgi = CGI->new;
33
my $cgi = CGI->new;
34
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
34
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
(-)a/opac/opac-illrequests.pl (-2 / +2 lines)
Lines 22-30 use Modern::Perl; Link Here
22
use JSON qw( encode_json );
22
use JSON qw( encode_json );
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
28
29
use Koha::Illrequest::Config;
29
use Koha::Illrequest::Config;
30
use Koha::Illrequests;
30
use Koha::Illrequests;
(-)a/opac/opac-imageviewer.pl (-2 / +2 lines)
Lines 20-28 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Biblio;
24
use C4::Biblio;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Biblios;
27
use Koha::Biblios;
28
use Koha::CoverImages;
28
use Koha::CoverImages;
(-)a/opac/opac-issue-note.pl (-3 / +3 lines)
Lines 23-32 use CGI qw ( -utf8 ); Link Here
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Context;
24
use C4::Context;
25
use C4::Scrubber;
25
use C4::Scrubber;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Biblio;
28
use C4::Biblio;
29
use C4::Letters;
29
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
30
use Koha::Checkouts;
30
use Koha::Checkouts;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::Patrons;
32
use Koha::Patrons;
(-)a/opac/opac-library.pl (-2 / +2 lines)
Lines 21-28 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Libraries;
26
use Koha::Libraries;
27
27
28
my $query = CGI->new();
28
my $query = CGI->new();
(-)a/opac/opac-main.pl (-3 / +3 lines)
Lines 20-32 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::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::NewsChannels;    # GetNewsToDisplay
25
use C4::NewsChannels;    # GetNewsToDisplay
26
use C4::Languages qw(getTranslatedLanguages accept_language);
26
use C4::Languages qw(getTranslatedLanguages accept_language);
27
use Koha::Quotes;
27
use Koha::Quotes;
28
use C4::Members;
28
use C4::Members;
29
use C4::Overdues;
29
use C4::Overdues qw( checkoverdues );
30
use Koha::Checkouts;
30
use Koha::Checkouts;
31
use Koha::Holds;
31
use Koha::Holds;
32
use Koha::News;
32
use Koha::News;
(-)a/opac/opac-memberentry.pl (-4 / +4 lines)
Lines 23-34 use JSON; Link Here
23
use List::MoreUtils qw( any each_array uniq );
23
use List::MoreUtils qw( any each_array uniq );
24
use String::Random qw( random_string );
24
use String::Random qw( random_string );
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Context;
28
use C4::Context;
29
use C4::Members;
29
use C4::Members qw( get_cardnumber_length checkcardnumber );
30
use C4::Form::MessagingPreferences;
30
use C4::Form::MessagingPreferences;
31
use Koha::AuthUtils;
31
use Koha::AuthUtils qw( generate_password is_password_valid );
32
use Koha::Patrons;
32
use Koha::Patrons;
33
use Koha::Patron::Consent;
33
use Koha::Patron::Consent;
34
use Koha::Patron::Modification;
34
use Koha::Patron::Modification;
(-)a/opac/opac-messaging.pl (-2 / +2 lines)
Lines 21-31 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;    # checkauth, getborrowernumber.
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Members;
29
use C4::Members;
30
use C4::Members::Messaging;
30
use C4::Members::Messaging;
31
use C4::Form::MessagingPreferences;
31
use C4::Form::MessagingPreferences;
(-)a/opac/opac-modrequest-suspend.pl (-2 / +2 lines)
Lines 19-26 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Output;
21
use C4::Output;
22
use C4::Reserves;
22
use C4::Reserves qw( CanReserveBeCanceledFromOpac ToggleSuspend SuspendAll );
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
my $query = CGI->new;
24
my $query = CGI->new;
25
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
25
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
26
    {
26
    {
(-)a/opac/opac-modrequest.pl (-2 / +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::Output;
28
use C4::Output;
29
use C4::Reserves;
29
use C4::Reserves qw( CanReserveBeCanceledFromOpac );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use Koha::Holds;
31
use Koha::Holds;
32
my $query = CGI->new;
32
my $query = CGI->new;
33
33
(-)a/opac/opac-mymessages.pl (-3 / +3 lines)
Lines 21-31 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Letters;
27
use C4::Letters qw( GetRSSMessages );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
my $query = CGI->new();
30
my $query = CGI->new();
31
31
(-)a/opac/opac-news-rss.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI;
22
use CGI;
23
use C4::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::NewsChannels;    # GetNewsToDisplay
25
use C4::NewsChannels;    # GetNewsToDisplay
26
use C4::Languages qw(getTranslatedLanguages accept_language);
26
use C4::Languages qw(getTranslatedLanguages accept_language);
27
27
(-)a/opac/opac-overdrive-search.pl (-2 / +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::Auth qw(:DEFAULT get_session);
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
my $cgi = CGI->new;
27
my $cgi = CGI->new;
28
28
(-)a/opac/opac-passwd.pl (-2 / +2 lines)
Lines 22-32 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Auth;    # checkauth, getborrowernumber.
25
use C4::Auth qw( get_template_and_user checkpw checkpw_hash );
26
use C4::Context;
26
use C4::Context;
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Members;
28
use C4::Members;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use Koha::Patrons;
30
use Koha::Patrons;
31
31
32
use Try::Tiny;
32
use Try::Tiny;
(-)a/opac/opac-password-recovery.pl (-2 / +2 lines)
Lines 3-11 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI;
4
use CGI;
5
5
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Koha;
7
use C4::Koha;
8
use C4::Output;
8
use C4::Output qw( output_html_with_http_headers );
9
use C4::Context;
9
use C4::Context;
10
use Koha::Patron::Password::Recovery
10
use Koha::Patron::Password::Recovery
11
  qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery);
11
  qw(SendPasswordRecoveryEmail ValidateBorrowernumber GetValidLinkInfo CompletePasswordRecovery DeleteExpiredPasswordRecovery);
(-)a/opac/opac-patron-consent.pl (-2 / +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
22
23
use C4::Auth qw/get_template_and_user/;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw/output_html_with_http_headers/;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::DateUtils qw/dt_from_string/;
25
use Koha::DateUtils qw/dt_from_string/;
26
use Koha::Patron::Consents;
26
use Koha::Patron::Consents;
27
use Koha::Patrons;
27
use Koha::Patrons;
(-)a/opac/opac-patron-image.pl (-1 / +1 lines)
Lines 22-28 use Modern::Perl; Link Here
22
use C4::Members;
22
use C4::Members;
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
24
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
25
use C4::Auth qw(:DEFAULT check_cookie_auth);
25
use C4::Auth qw( check_cookie_auth );
26
use Koha::Patron::Images;
26
use Koha::Patron::Images;
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
(-)a/opac/opac-privacy.pl (-2 / +2 lines)
Lines 19-27 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth;    # checkauth, getborrowernumber.
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Patrons;
25
use Koha::Patrons;
26
26
27
my $query = CGI->new;
27
my $query = CGI->new;
(-)a/opac/opac-ratings-ajax.pl (-2 / +2 lines)
Lines 28-36 use Modern::Perl; Link Here
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
29
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
29
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
30
30
31
use C4::Auth qw(:DEFAULT check_cookie_auth);
31
use C4::Auth qw( get_template_and_user check_cookie_auth );
32
use C4::Context;
32
use C4::Context;
33
use C4::Output qw(:html :ajax pagination_bar);
33
use C4::Output qw( is_ajax output_ajax_with_http_headers );
34
34
35
use Koha::Ratings;
35
use Koha::Ratings;
36
36
(-)a/opac/opac-ratings.pl (-1 / +1 lines)
Lines 28-34 note: there is currently no 'delete rating' functionality in this script Link Here
28
use Modern::Perl;
28
use Modern::Perl;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
30
31
use C4::Auth;
31
use C4::Auth qw( checkauth );
32
use C4::Context;
32
use C4::Context;
33
33
34
use Koha::Ratings;
34
use Koha::Ratings;
(-)a/opac/opac-readingrecord.pl (-6 / +6 lines)
Lines 20-36 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Koha;
24
use C4::Koha qw( GetNormalizedISBN getitemtypeimagelocation GetNormalizedUPC );
25
use C4::Biblio;
25
use C4::Biblio qw( GetXmlBiblio );
26
use C4::Circulation;
26
use C4::Circulation;
27
use C4::Members;
27
use C4::Members qw( GetAllIssues );
28
use C4::External::BakerTaylor qw( image_url link_url );
28
use C4::External::BakerTaylor qw( image_url link_url );
29
use Koha::DateUtils;
29
use Koha::DateUtils;
30
use MARC::Record;
30
use MARC::Record;
31
31
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Charset qw(StripNonXmlChars);
33
use C4::Charset qw( StripNonXmlChars );
34
use Koha::Patrons;
34
use Koha::Patrons;
35
35
36
use Koha::ItemTypes;
36
use Koha::ItemTypes;
(-)a/opac/opac-recordedbooks-search.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
my $cgi = CGI->new;
27
my $cgi = CGI->new;
28
28
(-)a/opac/opac-registration-verify.pl (-3 / +3 lines)
Lines 19-29 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Members;
24
use C4::Members;
25
use C4::Form::MessagingPreferences;
25
use C4::Form::MessagingPreferences;
26
use Koha::AuthUtils;
26
use Koha::AuthUtils qw( generate_password );
27
use Koha::Patrons;
27
use Koha::Patrons;
28
use Koha::Patron::Consent;
28
use Koha::Patron::Consent;
29
use Koha::Patron::Modifications;
29
use Koha::Patron::Modifications;
(-)a/opac/opac-renew.pl (-2 / +2 lines)
Lines 24-31 Link Here
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Circulation;
27
use C4::Circulation qw( CanBookBeRenewed AddRenewal );
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use C4::Items;
30
use C4::Items;
31
use C4::Members;
31
use C4::Members;
(-)a/opac/opac-reportproblem.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Try::Tiny;
22
use Try::Tiny;
23
23
24
use C4::Auth;    # get_template_and_user
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Letters;
26
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
27
use Koha::ProblemReport;
27
use Koha::ProblemReport;
28
use Koha::Libraries;
28
use Koha::Libraries;
29
use Koha::Patrons;
29
use Koha::Patrons;
(-)a/opac/opac-request-article.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Biblios;
27
use Koha::Biblios;
28
use Koha::Patrons;
28
use Koha::Patrons;
(-)a/opac/opac-reserve.pl (-7 / +7 lines)
Lines 21-33 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;    # checkauth, getborrowernumber.
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha qw( getitemtypeimagesrc getitemtypeimagelocation );
26
use C4::Circulation;
26
use C4::Circulation qw( GetBranchItemRule GetTransfers );
27
use C4::Reserves;
27
use C4::Reserves qw( CanItemBeReserved CanBookBeReserved AddReserve GetReservesControlBranch IsAvailableForItemLevelRequest );
28
use C4::Biblio;
28
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetFrameworkCode );
29
use C4::Items;
29
use C4::Items qw( GetItemsInfo GetHostItemsInfo sub );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Context;
31
use C4::Context;
32
use C4::Members;
32
use C4::Members;
33
use C4::Overdues;
33
use C4::Overdues;
(-)a/opac/opac-restrictedpage.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use CGI;
22
use CGI;
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
my $localNetwork  = C4::Context->preference('RestrictedPageLocalIPs');
26
my $localNetwork  = C4::Context->preference('RestrictedPageLocalIPs');
27
my $userIP = $ENV{'REMOTE_ADDR'};
27
my $userIP = $ENV{'REMOTE_ADDR'};
(-)a/opac/opac-retrieve-file.pl (-2 / +2 lines)
Lines 21-29 use Modern::Perl; Link Here
21
use CGI;
21
use CGI;
22
use Encode;
22
use Encode;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use Koha::UploadedFiles;
27
use Koha::UploadedFiles;
28
28
29
my $input = CGI::->new;
29
my $input = CGI::->new;
(-)a/opac/opac-review.pl (-2 / +2 lines)
Lines 19-27 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Biblio;
25
use C4::Biblio;
26
use C4::Scrubber;
26
use C4::Scrubber;
27
27
(-)a/opac/opac-routing-lists.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
use Modern::Perl;
19
use Modern::Perl;
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use C4::Members;
21
use C4::Members;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use Koha::Patrons;
24
use Koha::Patrons;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/opac/opac-search-history.pl (-2 / +2 lines)
Lines 19-28 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth qw(:DEFAULT get_session);
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Log;
26
use C4::Log;
27
use C4::Items;
27
use C4::Items;
28
use C4::Search::History;
28
use C4::Search::History;
(-)a/opac/opac-search.pl (-8 / +8 lines)
Lines 43-56 my ($builder, $searcher); Link Here
43
$builder  = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});
43
$builder  = Koha::SearchEngine::QueryBuilder->new({index => 'biblios'});
44
$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});
44
$searcher = Koha::SearchEngine::Search->new({index => 'biblios'});
45
45
46
use C4::Output;
46
use C4::Output qw( output_html_with_http_headers pagination_bar output_with_http_headers );
47
use C4::Auth qw(:DEFAULT get_session);
47
use C4::Auth qw( get_template_and_user get_session );
48
use C4::Languages qw(getLanguages);
48
use C4::Languages qw( getlanguage getLanguages );
49
use C4::Search;
49
use C4::Search qw( searchResults );
50
use C4::Search::History;
50
use C4::Search qw( searchResults );
51
use C4::Biblio; # Unused here?
51
use C4::Biblio qw( GetXmlBiblio CountItemsIssued );
52
use C4::Koha;
52
use C4::Koha qw( GetItemTypesCategorized getitemtypeimagelocation GetAuthorisedValues );
53
use C4::Tags qw(get_tags);
53
use C4::Tags qw( get_tags get_tag );
54
use C4::SocialData;
54
use C4::SocialData;
55
use C4::External::OverDrive;
55
use C4::External::OverDrive;
56
use C4::External::BakerTaylor qw( image_url link_url );
56
use C4::External::BakerTaylor qw( image_url link_url );
(-)a/opac/opac-sendbasket.pl (-4 / +4 lines)
Lines 24-33 use Encode qw(encode); Link Here
24
use Carp;
24
use Carp;
25
use Try::Tiny;
25
use Try::Tiny;
26
26
27
use C4::Biblio;
27
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects );
28
use C4::Items;
28
use C4::Items qw( sub GetItemsInfo );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Members;
31
use C4::Members;
32
use C4::Templates ();
32
use C4::Templates ();
33
use Koha::Email;
33
use Koha::Email;
(-)a/opac/opac-sendshelf.pl (-4 / +4 lines)
Lines 24-33 use Encode qw( encode ); Link Here
24
use Carp;
24
use Carp;
25
use Try::Tiny;
25
use Try::Tiny;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Biblio;
28
use C4::Biblio qw( GetMarcBiblio GetFrameworkCode GetBiblioData GetMarcAuthors GetMarcSubjects GetMarcISBN );
29
use C4::Items;
29
use C4::Items qw( sub GetItemsInfo );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Members;
31
use C4::Members;
32
use Koha::Email;
32
use Koha::Email;
33
use Koha::Patrons;
33
use Koha::Patrons;
(-)a/opac/opac-serial-issues.pl (-3 / +3 lines)
Lines 21-31 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Serials;
26
use C4::Serials qw( GetFullSubscription GetFullSubscriptionsFromBiblionumber PrepareSerialsData GetSubscription GetSubscriptionsFromBiblionumber );
27
use C4::Letters;
27
use C4::Letters;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Context;
29
use C4::Context;
30
30
31
my $query      = CGI->new;
31
my $query      = CGI->new;
(-)a/opac/opac-shareshelf.pl (-3 / +3 lines)
Lines 27-37 use constant SHELVES_URL => Link Here
27
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
28
use Email::Valid;
28
use Email::Valid;
29
29
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Context;
31
use C4::Context;
32
use C4::Letters;
32
use C4::Letters qw( GetPreparedLetter EnqueueLetter );
33
use C4::Members ();
33
use C4::Members ();
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
35
36
use Koha::Patrons;
36
use Koha::Patrons;
37
use Koha::Virtualshelves;
37
use Koha::Virtualshelves;
(-)a/opac/opac-shelves.pl (-6 / +6 lines)
Lines 20-33 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Biblio;
24
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetFrameworkCode );
25
use C4::External::BakerTaylor qw( image_url link_url );
25
use C4::External::BakerTaylor qw( image_url link_url );
26
use C4::Koha;
26
use C4::Koha qw( getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
27
use C4::Items;
27
use C4::Items qw( GetItemsLocationInfo );
28
use C4::Members;
28
use C4::Members;
29
use C4::Output;
29
use C4::Output qw( pagination_bar output_with_http_headers );
30
use C4::Tags qw( get_tags );
30
use C4::Tags qw( get_tags get_tag );
31
use C4::XSLT;
31
use C4::XSLT;
32
32
33
use Koha::Biblios;
33
use Koha::Biblios;
(-)a/opac/opac-showmarc.pl (-2 / +2 lines)
Lines 25-32 use Encode; Link Here
25
25
26
# Koha modules used
26
# Koha modules used
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Biblio;
30
use C4::Biblio;
31
use C4::ImportBatch;
31
use C4::ImportBatch;
32
use C4::XSLT ();
32
use C4::XSLT ();
(-)a/opac/opac-showreviews.pl (-4 / +4 lines)
Lines 21-31 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha qw( GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Biblio;
28
use C4::Biblio qw( GetMarcBiblio );
29
use Koha::DateUtils;
29
use Koha::DateUtils;
30
use Koha::Patrons;
30
use Koha::Patrons;
31
use Koha::Reviews;
31
use Koha::Reviews;
(-)a/opac/opac-suggestions.pl (-4 / +4 lines)
Lines 20-31 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Encode qw( encode );
22
use Encode qw( encode );
23
use C4::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Members;
24
use C4::Members;
25
use C4::Koha;
25
use C4::Koha qw( GetAuthorisedValues );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Suggestions;
27
use C4::Suggestions;
28
use C4::Koha;
28
use C4::Koha qw( GetAuthorisedValues );
29
use C4::Scrubber;
29
use C4::Scrubber;
30
use C4::Search qw( FindDuplicate );
30
use C4::Search qw( FindDuplicate );
31
31
(-)a/opac/opac-tags.pl (-5 / +5 lines)
Lines 35-47 use Modern::Perl; Link Here
35
use CGI qw ( -utf8 );
35
use CGI qw ( -utf8 );
36
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
36
use CGI::Cookie; # need to check cookies before having CGI parse the POST request
37
37
38
use C4::Auth qw(:DEFAULT check_cookie_auth);
38
use C4::Auth qw( check_cookie_auth get_template_and_user );
39
use C4::Context;
39
use C4::Context;
40
use C4::Output qw(:html :ajax );
40
use C4::Output qw( output_with_http_headers is_ajax output_html_with_http_headers );
41
use C4::Scrubber;
41
use C4::Scrubber;
42
use C4::Biblio;
42
use C4::Biblio qw( GetMarcBiblio );
43
use C4::Items qw(GetItemsInfo GetHiddenItemnumbers);
43
use C4::Items qw( sub GetItemsInfo GetHiddenItemnumbers );
44
use C4::Tags qw(add_tag get_approval_rows get_tag_rows remove_tag stratify_tags);
44
use C4::Tags qw( add_tag remove_tag get_tag_rows get_tag get_approval_rows stratify_tags );
45
use C4::XSLT;
45
use C4::XSLT;
46
46
47
use Data::Dumper;
47
use Data::Dumper;
(-)a/opac/opac-tags_subject.pl (-2 / +2 lines)
Lines 26-34 TODO :: Description here Link Here
26
26
27
use Modern::Perl;
27
use Modern::Perl;
28
28
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Biblio;
33
use C4::Biblio;
34
34
(-)a/opac/opac-topissues.pl (-3 / +3 lines)
Lines 22-34 Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
23
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Languages;
27
use C4::Languages;
28
use C4::Search;
28
use C4::Search;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Koha;
30
use C4::Koha;
31
use C4::Circulation;
31
use C4::Circulation qw( GetTopIssues );
32
use Date::Manip;
32
use Date::Manip;
33
33
34
=head1 NAME
34
=head1 NAME
(-)a/opac/opac-user.pl (-6 / +6 lines)
Lines 21-34 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha qw( getitemtypeimagelocation GetNormalizedISBN GetNormalizedUPC );
26
use C4::Circulation;
26
use C4::Circulation qw( CanBookBeRenewed GetRenewCount GetIssuingCharges GetSoonestRenewDate );
27
use C4::External::BakerTaylor qw( image_url link_url );
27
use C4::External::BakerTaylor qw( image_url link_url );
28
use C4::Reserves;
28
use C4::Reserves qw( GetReserveStatus );
29
use C4::Members;
29
use C4::Members;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio );
32
use C4::Items;
32
use C4::Items;
33
use C4::Letters;
33
use C4::Letters;
34
use Koha::Account::Lines;
34
use Koha::Account::Lines;
(-)a/opac/sci/sci-main.pl (-3 / +3 lines)
Lines 19-27 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth qw(get_template_and_user checkpw);
22
use C4::Auth qw( get_template_and_user );
23
use C4::Circulation;
23
use C4::Circulation qw( AddReturn );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use Koha::Items;
25
use Koha::Items;
26
26
27
use List::MoreUtils qw( uniq );
27
use List::MoreUtils qw( uniq );
(-)a/opac/sco/help.pl (-2 / +2 lines)
Lines 24-31 Link Here
24
use Modern::Perl;
24
use Modern::Perl;
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
26
27
use C4::Auth   qw(get_template_and_user in_iprange);
27
use C4::Auth qw( in_iprange 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
29
30
my $query = CGI->new;
30
my $query = CGI->new;
31
unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
31
unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
(-)a/opac/sco/printslip.pl (-3 / +3 lines)
Lines 29-37 It is called from sco-main.pl Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Context;
31
use C4::Context;
32
use C4::Auth qw/:DEFAULT get_session in_iprange/;
32
use C4::Auth qw( in_iprange get_session get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Members;
34
use C4::Members qw( IssueSlip );
35
use C4::Koha;
35
use C4::Koha;
36
36
37
my $input = CGI->new;
37
my $input = CGI->new;
(-)a/opac/sco/sco-main.pl (-3 / +3 lines)
Lines 35-45 use Modern::Perl; Link Here
35
35
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
37
38
use C4::Auth qw(get_template_and_user checkpw in_iprange);
38
use C4::Auth qw( in_iprange get_template_and_user checkpw );
39
use C4::Koha;
39
use C4::Koha;
40
use C4::Circulation;
40
use C4::Circulation qw( AddReturn CanBookBeIssued AddIssue CanBookBeRenewed AddRenewal );
41
use C4::Reserves;
41
use C4::Reserves;
42
use C4::Output;
42
use C4::Output qw( output_html_with_http_headers );
43
use C4::Members;
43
use C4::Members;
44
use C4::Biblio;
44
use C4::Biblio;
45
use C4::Items;
45
use C4::Items;
(-)a/opac/sco/sco-patron-image.pl (-1 / +1 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Auth qw(in_iprange);
21
use C4::Auth qw( in_iprange );
22
use C4::Service;
22
use C4::Service;
23
use C4::Members;
23
use C4::Members;
24
use Koha::Patron::Images;
24
use Koha::Patron::Images;
(-)a/opac/svc/shelfbrowser.pl (-3 / +3 lines)
Lines 3-12 Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI qw ( -utf8 );
4
use CGI qw ( -utf8 );
5
5
6
use C4::Auth;
6
use C4::Auth qw( get_template_and_user );
7
use C4::Context;
7
use C4::Context;
8
use C4::Output;
8
use C4::Output qw( output_html_with_http_headers );
9
use C4::ShelfBrowser;
9
use C4::ShelfBrowser qw( GetNearbyItems );
10
10
11
my $cgi = CGI->new;
11
my $cgi = CGI->new;
12
12
(-)a/opac/tracklinks.pl (-3 / +3 lines)
Lines 20-28 Link Here
20
20
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;
24
use C4::Biblio qw( GetMarcBiblio GetMarcUrls );
25
use C4::Output;
25
use C4::Output qw( output_error );
26
use Koha::Items;
26
use Koha::Items;
27
use Koha::Linktracker;
27
use Koha::Linktracker;
28
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
(-)a/patron_lists/add-modify.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/patron_lists/delete.pl (-1 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output;
26
use Koha::List::Patron;
26
use Koha::List::Patron;
27
27
(-)a/patron_lists/list.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron;
27
use List::MoreUtils qw/uniq/;
27
use List::MoreUtils qw/uniq/;
28
28
(-)a/patron_lists/lists.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/patron_lists/patrons.pl (-2 / +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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::List::Patron;
26
use Koha::List::Patron;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/patroncards/add_user_search.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/patroncards/create-pdf.pl (-1 / +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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use Graphics::Magick;
23
use Graphics::Magick;
24
use XML::Simple;
24
use XML::Simple;
25
use POSIX qw(ceil);
25
use POSIX qw(ceil);
(-)a/patroncards/edit-batch.pl (-2 / +2 lines)
Lines 25-32 use vars qw($debug); Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use autouse 'Data::Dumper' => qw(Dumper);
26
use autouse 'Data::Dumper' => qw(Dumper);
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Patroncards;
31
use C4::Patroncards;
32
use Koha::Patrons;
32
use Koha::Patrons;
(-)a/patroncards/edit-layout.pl (-2 / +2 lines)
Lines 25-32 use Text::CSV_XS; Link Here
25
use XML::Simple;
25
use XML::Simple;
26
use autouse 'Data::Dumper' => qw(Dumper);
26
use autouse 'Data::Dumper' => qw(Dumper);
27
27
28
use C4::Auth qw(get_template_and_user);
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw(output_html_with_http_headers);
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Creators;
30
use C4::Creators;
31
use C4::Patroncards;
31
use C4::Patroncards;
32
32
(-)a/patroncards/edit-profile.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
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::Creators::Lib qw(get_all_templates get_unit_values);
27
use C4::Creators::Lib qw(get_all_templates get_unit_values);
28
use C4::Patroncards::Profile;
28
use C4::Patroncards::Profile;
29
29
(-)a/patroncards/edit-template.pl (-2 / +2 lines)
Lines 23-30 use Modern::Perl; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
24
use autouse 'Data::Dumper' => qw(Dumper);
25
25
26
use C4::Auth qw(get_template_and_user);
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output qw(output_html_with_http_headers);
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Creators;
28
use C4::Creators;
29
use C4::Patroncards;
29
use C4::Patroncards;
30
30
(-)a/patroncards/home.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
22
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
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
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
29
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
29
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/patroncards/image-manage.pl (-2 / +2 lines)
Lines 7-14 use Graphics::Magick; Link Here
7
use POSIX qw(ceil);
7
use POSIX qw(ceil);
8
8
9
use C4::Context;
9
use C4::Context;
10
use C4::Auth;
10
use C4::Auth qw( get_template_and_user );
11
use C4::Output;
11
use C4::Output qw( output_html_with_http_headers );
12
use C4::Creators;
12
use C4::Creators;
13
use C4::Patroncards;
13
use C4::Patroncards;
14
14
(-)a/patroncards/manage.pl (-2 / +2 lines)
Lines 24-31 use vars qw($debug); Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use autouse 'Data::Dumper' => qw(Dumper);
25
use autouse 'Data::Dumper' => qw(Dumper);
26
26
27
use C4::Auth qw(get_template_and_user);
27
use C4::Auth qw( get_template_and_user );
28
use C4::Output qw(output_html_with_http_headers);
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Creators;
29
use C4::Creators;
30
use C4::Patroncards;
30
use C4::Patroncards;
31
use C4::Labels;
31
use C4::Labels;
(-)a/patroncards/print.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
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::Output qw(output_html_with_http_headers);
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Creators;
27
use C4::Creators;
28
use C4::Patroncards;
28
use C4::Patroncards;
29
29
(-)a/plugins/plugins-enable.pl (-1 / +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::Context;
22
use C4::Context;
23
use C4::Auth qw(check_cookie_auth);
23
use C4::Auth qw( check_cookie_auth );
24
use Koha::Plugins::Handler;
24
use Koha::Plugins::Handler;
25
25
26
die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
26
die("Koha plugins are disabled!") unless C4::Context->config("enable_plugins");
(-)a/plugins/plugins-home.pl (-2 / +2 lines)
Lines 25-32 use JSON qw(from_json); Link Here
25
use LWP::Simple qw(get);
25
use LWP::Simple qw(get);
26
26
27
use Koha::Plugins;
27
use Koha::Plugins;
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Context;
30
use C4::Context;
31
31
32
my $plugins_enabled = C4::Context->config("enable_plugins");
32
my $plugins_enabled = C4::Context->config("enable_plugins");
(-)a/plugins/plugins-uninstall.pl (-1 / +1 lines)
Lines 23-29 use File::Copy; Link Here
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
24
25
use C4::Context;
25
use C4::Context;
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output;
28
use C4::Members;
28
use C4::Members;
29
use Koha::Plugins::Handler;
29
use Koha::Plugins::Handler;
(-)a/plugins/plugins-upload.pl (-2 / +2 lines)
Lines 25-32 use File::Copy; Link Here
25
use File::Temp;
25
use File::Temp;
26
26
27
use C4::Context;
27
use C4::Context;
28
use C4::Auth;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Members;
30
use C4::Members;
31
use Koha::Logger;
31
use Koha::Logger;
32
use Koha::Plugins;
32
use Koha::Plugins;
(-)a/plugins/run.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use Koha::Plugins::Handler;
24
use Koha::Plugins::Handler;
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
28
29
my $plugins_enabled = C4::Context->config("enable_plugins");
29
my $plugins_enabled = C4::Context->config("enable_plugins");
(-)a/pos/pay.pl (-2 / +2 lines)
Lines 22-29 use Modern::Perl; Link Here
22
use CGI;
22
use CGI;
23
use JSON qw( from_json );
23
use JSON qw( from_json );
24
24
25
use C4::Auth qw/:DEFAULT get_session/;
25
use C4::Auth qw( get_session get_template_and_user );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
28
29
use Koha::Account::DebitTypes;
29
use Koha::Account::DebitTypes;
(-)a/pos/printreceipt.pl (-3 / +3 lines)
Lines 19-28 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth qw/:DEFAULT get_session/;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_and_exit_if_error output_and_exit output_html_with_http_headers );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use C4::Letters;
25
use C4::Letters qw( getletter );
26
use Koha::Account::Lines;
26
use Koha::Account::Lines;
27
use Koha::DateUtils;
27
use Koha::DateUtils;
28
use Koha::Notice::Templates;
28
use Koha::Notice::Templates;
(-)a/pos/register.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
use Koha::Account::Lines;
26
use Koha::Account::Lines;
(-)a/pos/registers.pl (-2 / +2 lines)
Lines 19-26 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Context;
24
use C4::Context;
25
25
26
use Koha::Cash::Registers;
26
use Koha::Cash::Registers;
(-)a/reports/acquisitions_stats.pl (-5 / +5 lines)
Lines 19-32 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Reports;
25
use C4::Reports qw( GetDelimiterChoices );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Biblio;
29
use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField );
30
use Koha::ItemTypes;
30
use Koha::ItemTypes;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::Libraries;
32
use Koha::Libraries;
(-)a/reports/bor_issues_top.pl (-3 / +3 lines)
Lines 20-32 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Members;
28
use C4::Members;
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
30
31
use Koha::DateUtils;
31
use Koha::DateUtils;
32
use Koha::ItemTypes;
32
use Koha::ItemTypes;
(-)a/reports/borrowers_out.pl (-3 / +3 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Reports;
28
use C4::Reports qw( GetDelimiterChoices );
29
use C4::Members;
29
use C4::Members;
30
30
31
use Koha::DateUtils;
31
use Koha::DateUtils;
(-)a/reports/borrowers_stats.pl (-4 / +4 lines)
Lines 21-32 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use List::MoreUtils qw/uniq/;
22
use List::MoreUtils qw/uniq/;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Acquisition;
27
use C4::Acquisition;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Reports;
29
use C4::Reports qw( GetDelimiterChoices );
30
use C4::Circulation;
30
use C4::Circulation;
31
31
32
use Koha::AuthorisedValues;
32
use Koha::AuthorisedValues;
(-)a/reports/cash_register_stats.pl (-3 / +3 lines)
Lines 16-26 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
use C4::Auth;
19
use C4::Auth qw( get_template_and_user );
20
use CGI;
20
use CGI;
21
use C4::Context;
21
use C4::Context;
22
use C4::Reports;
22
use C4::Reports qw( GetDelimiterChoices );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Circulation;
25
use C4::Circulation;
26
use DateTime;
26
use DateTime;
(-)a/reports/cat_issues_top.pl (-4 / +4 lines)
Lines 19-31 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Reports;
28
use C4::Reports qw( GetDelimiterChoices );
29
use C4::Members;
29
use C4::Members;
30
use Koha::DateUtils;
30
use Koha::DateUtils;
31
use Koha::ItemTypes;
31
use Koha::ItemTypes;
(-)a/reports/catalogue_out.pl (-2 / +2 lines)
Lines 20-28 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
# use Date::Manip;  # TODO: add not borrowed since date X criteria
26
# use Date::Manip;  # TODO: add not borrowed since date X criteria
27
use Data::Dumper;
27
use Data::Dumper;
28
28
(-)a/reports/catalogue_stats.pl (-5 / +5 lines)
Lines 19-32 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Reports;
27
use C4::Reports qw( GetDelimiterChoices );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Biblio qw/GetMarcSubfieldStructureFromKohaField/;
29
use C4::Biblio qw( GetMarcSubfieldStructure GetMarcSubfieldStructureFromKohaField );
30
30
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
32
use Koha::DateUtils;
32
use Koha::DateUtils;
(-)a/reports/dictionary.pl (-3 / +3 lines)
Lines 18-27 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
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
19
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Reports::Guided;
24
use C4::Reports::Guided qw( get_from_dictionary get_columns get_column_type get_distinct_values save_dictionary delete_definition get_report_areas );
25
use Koha::DateUtils;
25
use Koha::DateUtils;
26
26
27
=head1 NAME
27
=head1 NAME
(-)a/reports/guided_reports.pl (-3 / +3 lines)
Lines 23-32 use Text::CSV::Encoded; Link Here
23
use Encode qw( decode );
23
use Encode qw( decode );
24
use URI::Escape;
24
use URI::Escape;
25
use File::Temp;
25
use File::Temp;
26
use C4::Reports::Guided;
26
use C4::Reports::Guided qw( delete_report get_report_areas convert_sql update_sql get_saved_reports get_results ValidateSQLParameters format_results get_report_types get_columns get_from_dictionary get_criteria build_query save_report execute_query nb_rows get_report_groups );
27
use Koha::Reports;
27
use Koha::Reports;
28
use C4::Auth qw/:DEFAULT get_session/;
28
use C4::Auth qw( get_template_and_user get_session );
29
use C4::Output;
29
use C4::Output qw( pagination_bar output_html_with_http_headers );
30
use C4::Context;
30
use C4::Context;
31
use Koha::Caches;
31
use Koha::Caches;
32
use C4::Log;
32
use C4::Log;
(-)a/reports/issues_avg_stats.pl (-3 / +3 lines)
Lines 19-31 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Circulation;
27
use C4::Circulation;
28
use C4::Reports;
28
use C4::Reports qw( GetDelimiterChoices );
29
use Koha::DateUtils;
29
use Koha::DateUtils;
30
use Koha::ItemTypes;
30
use Koha::ItemTypes;
31
use Koha::Patron::Categories;
31
use Koha::Patron::Categories;
(-)a/reports/issues_stats.pl (-4 / +4 lines)
Lines 22-33 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Date::Manip;
23
use Date::Manip;
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Circulation;
29
use C4::Circulation;
30
use C4::Reports;
30
use C4::Reports qw( GetDelimiterChoices );
31
use C4::Members;
31
use C4::Members;
32
32
33
use Koha::AuthorisedValues;
33
use Koha::AuthorisedValues;
(-)a/reports/itemslost.pl (-2 / +2 lines)
Lines 29-36 use Modern::Perl; Link Here
29
29
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use Text::CSV_XS;
31
use Text::CSV_XS;
32
use C4::Auth;
32
use C4::Auth qw( get_template_and_user );
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::Items;
35
use C4::Items;
36
36
(-)a/reports/manager.pl (-2 / +2 lines)
Lines 19-27 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Circulation;
25
use C4::Circulation;
26
26
27
27
(-)a/reports/orders_by_fund.pl (-2 / +2 lines)
Lines 28-35 This script displays all orders associated to a selected budget. Link Here
28
use Modern::Perl;
28
use Modern::Perl;
29
29
30
use CGI qw( -utf8 );
30
use CGI qw( -utf8 );
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Budgets;
33
use C4::Budgets;
34
use C4::Biblio;
34
use C4::Biblio;
35
use C4::Reports;
35
use C4::Reports;
(-)a/reports/reports-home.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
25
use C4::Context;
26
26
27
27
(-)a/reports/reserves_stats.pl (-4 / +4 lines)
Lines 21-31 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::Reports;
28
use C4::Reports qw( GetDelimiterChoices );
29
use C4::Members;
29
use C4::Members;
30
use Koha::AuthorisedValues;
30
use Koha::AuthorisedValues;
31
use Koha::DateUtils;
31
use Koha::DateUtils;
(-)a/reports/serials_stats.pl (-4 / +4 lines)
Lines 18-30 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::Auth;
21
use C4::Auth qw( get_template_and_user );
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Reports;
26
use C4::Reports qw( GetDelimiterChoices );
27
use C4::Serials;
27
use C4::Serials qw( GetExpirationDate HasSubscriptionExpired );
28
28
29
=head1 serials_out
29
=head1 serials_out
30
30
(-)a/reserve/modrequest.pl (-2 / +2 lines)
Lines 26-33 use Modern::Perl; Link Here
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use List::MoreUtils qw( uniq );
27
use List::MoreUtils qw( uniq );
28
use C4::Output;
28
use C4::Output;
29
use C4::Reserves;
29
use C4::Reserves qw( ModReserve ModReserveCancelAll );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use Koha::DateUtils qw( dt_from_string );
31
use Koha::DateUtils qw( dt_from_string );
32
32
33
my $query = CGI->new;
33
my $query = CGI->new;
(-)a/reserve/modrequest_suspendall.pl (-2 / +2 lines)
Lines 25-32 Link Here
25
use Modern::Perl;
25
use Modern::Perl;
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use C4::Output;
27
use C4::Output;
28
use C4::Reserves;
28
use C4::Reserves qw( SuspendAll );
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
30
31
my $query = CGI->new;
31
my $query = CGI->new;
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
(-)a/reserve/placerequest.pl (-2 / +2 lines)
Lines 27-36 use CGI qw ( -utf8 ); Link Here
27
use C4::Biblio;
27
use C4::Biblio;
28
use C4::Items;
28
use C4::Items;
29
use C4::Output;
29
use C4::Output;
30
use C4::Reserves;
30
use C4::Reserves qw( CanItemBeReserved AddReserve CanBookBeReserved );
31
use C4::Circulation;
31
use C4::Circulation;
32
use C4::Members;
32
use C4::Members;
33
use C4::Auth qw/checkauth/;
33
use C4::Auth qw( checkauth );
34
34
35
use Koha::Items;
35
use Koha::Items;
36
use Koha::Patrons;
36
use Koha::Patrons;
(-)a/reserve/request.pl (-8 / +8 lines)
Lines 31-48 use Modern::Perl; Link Here
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
use List::MoreUtils qw/uniq/;
32
use List::MoreUtils qw/uniq/;
33
use Date::Calc qw/Date_to_Days/;
33
use Date::Calc qw/Date_to_Days/;
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use C4::Reserves;
36
use C4::Reserves qw( RevertWaitingStatus AlterPriority ToggleLowestPriority ToggleSuspend CanBookBeReserved GetMaxPatronHoldsForRecord ItemsAnyAvailableAndNotRestricted GetReservesControlBranch CanItemBeReserved IsAvailableForItemLevelRequest );
37
use C4::Biblio;
37
use C4::Biblio;
38
use C4::Items;
38
use C4::Items qw( get_hostitemnumbers_of sub );
39
use C4::Koha;
39
use C4::Koha qw( getitemtypeimagelocation );
40
use C4::Serials;
40
use C4::Serials qw( CountSubscriptionFromBiblionumber );
41
use C4::Circulation;
41
use C4::Circulation qw( GetTransfers _GetCircControlBranch GetBranchItemRule );
42
use Koha::DateUtils;
42
use Koha::DateUtils;
43
use C4::Utils::DataTables::Members;
43
use C4::Utils::DataTables::Members;
44
use C4::Members;
44
use C4::Members;
45
use C4::Search;		# enabled_staff_search_views
45
use C4::Search qw( enabled_staff_search_views );
46
46
47
use Koha::Biblios;
47
use Koha::Biblios;
48
use Koha::DateUtils;
48
use Koha::DateUtils;
(-)a/reviews/reviewswaiting.pl (-2 / +2 lines)
Lines 18-25 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;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( pagination_bar output_html_with_http_headers );
23
use C4::Context;
23
use C4::Context;
24
use C4::Biblio;
24
use C4::Biblio;
25
use Koha::Biblios;
25
use Koha::Biblios;
(-)a/rotating_collections/addItems.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::RotatingCollections;
24
use C4::RotatingCollections;
25
use C4::Items;
25
use C4::Items;
(-)a/rotating_collections/editCollections.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
26
27
use C4::RotatingCollections;
27
use C4::RotatingCollections;
(-)a/rotating_collections/rotatingCollections.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Context;
25
use C4::Context;
26
use C4::RotatingCollections;
26
use C4::RotatingCollections;
27
27
(-)a/rotating_collections/transferCollection.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
18
19
use Modern::Perl;
19
use Modern::Perl;
20
20
21
use C4::Output;
21
use C4::Output qw( output_html_with_http_headers );
22
use C4::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Context;
23
use C4::Context;
24
use C4::RotatingCollections;
24
use C4::RotatingCollections;
25
25
(-)a/serials/acqui-search-result.pl (-2 / +2 lines)
Lines 41-49 acqui-search-result.pl Link Here
41
41
42
42
43
use Modern::Perl;
43
use Modern::Perl;
44
use C4::Auth;
44
use C4::Auth qw( get_template_and_user );
45
use C4::Biblio;
45
use C4::Biblio;
46
use C4::Output;
46
use C4::Output qw( output_html_with_http_headers );
47
use CGI qw ( -utf8 );
47
use CGI qw ( -utf8 );
48
use C4::Acquisition qw( SearchOrders );
48
use C4::Acquisition qw( SearchOrders );
49
use Koha::DateUtils;
49
use Koha::DateUtils;
(-)a/serials/acqui-search.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
27
27
(-)a/serials/add_user_search.pl (-2 / +2 lines)
Lines 20-27 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Members;
25
use C4::Members;
26
26
27
use Koha::Patron::Categories;
27
use Koha::Patron::Categories;
(-)a/serials/checkexpiration.pl (-3 / +3 lines)
Lines 44-52 The date to filter on. Link Here
44
44
45
use Modern::Perl;
45
use Modern::Perl;
46
use CGI qw ( -utf8 );
46
use CGI qw ( -utf8 );
47
use C4::Auth;
47
use C4::Auth qw( get_template_and_user );
48
use C4::Serials; # GetExpirationDate
48
use C4::Serials qw( SearchSubscriptions GetExpirationDate );
49
use C4::Output;
49
use C4::Output qw( output_html_with_http_headers );
50
use C4::Context;
50
use C4::Context;
51
use Koha::DateUtils;
51
use Koha::DateUtils;
52
52
(-)a/serials/claims.pl (-4 / +4 lines)
Lines 19-30 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Serials;
23
use C4::Serials qw( GetSuppliersWithLateIssues GetLateOrMissingIssues updateClaim can_claim_subscription );
24
use C4::Acquisition;
24
use C4::Acquisition;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Letters;
27
use C4::Letters qw( SendAlerts GetLetters );
28
use C4::Koha qw( GetAuthorisedValues );
28
use C4::Koha qw( GetAuthorisedValues );
29
29
30
use Koha::AdditionalFields;
30
use Koha::AdditionalFields;
(-)a/serials/create-numberpattern.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
22
use C4::Context;
23
use C4::Serials::Numberpattern;
23
use C4::Serials::Numberpattern;
24
use C4::Auth qw/check_cookie_auth/;
24
use C4::Auth qw( check_cookie_auth );
25
use URI::Escape;
25
use URI::Escape;
26
26
27
my $input = CGI->new;
27
my $input = CGI->new;
(-)a/serials/lateissues-export.pl (-1 / +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
use C4::Auth;
20
use C4::Auth;
21
use C4::Serials;
21
use C4::Serials qw( GetLateOrMissingIssues updateClaim );
22
use C4::Acquisition;
22
use C4::Acquisition;
23
use C4::Output;
23
use C4::Output;
24
use C4::Context;
24
use C4::Context;
(-)a/serials/routing-preview.pl (-5 / +5 lines)
Lines 21-36 Link Here
21
use Modern::Perl;
21
use Modern::Perl;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Acquisition;
26
use C4::Acquisition;
27
use C4::Reserves;
27
use C4::Reserves qw( AddReserve ModReserve );
28
use C4::Circulation;
28
use C4::Circulation;
29
use C4::Context;
29
use C4::Context;
30
use C4::Members;
30
use C4::Members;
31
use C4::Biblio;
31
use C4::Biblio;
32
use C4::Items;
32
use C4::Items qw( sub GetItemsInfo );
33
use C4::Serials;
33
use C4::Serials qw( delroutingmember getroutinglist GetSubscription GetSerials check_routing );
34
use URI::Escape;
34
use URI::Escape;
35
35
36
use Koha::Biblios;
36
use Koha::Biblios;
(-)a/serials/routing.pl (-4 / +4 lines)
Lines 28-41 printed out Link Here
28
use Modern::Perl;
28
use Modern::Perl;
29
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
30
use C4::Koha;
30
use C4::Koha;
31
use C4::Auth;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output;
32
use C4::Output qw( output_and_exit output_html_with_http_headers );
33
use C4::Acquisition;
33
use C4::Acquisition;
34
use C4::Output;
34
use C4::Output qw( output_and_exit output_html_with_http_headers );
35
use C4::Context;
35
use C4::Context;
36
36
37
use C4::Members;
37
use C4::Members;
38
use C4::Serials;
38
use C4::Serials qw( GetSubscription delroutingmember addroutingmember getroutinglist GetSerials GetLatestSerials check_routing );
39
use Koha::Patrons;
39
use Koha::Patrons;
40
40
41
use URI::Escape;
41
use URI::Escape;
(-)a/serials/serials-collection.pl (-3 / +3 lines)
Lines 21-31 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::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Serials;
26
use C4::Serials qw( ModSerialStatus GetSubscription GetNextExpected GetNextSeq GetNextDate NewIssue HasSubscriptionExpired abouttoexpire check_routing GetFullSubscription PrepareSerialsData CountSubscriptionFromBiblionumber GetSubscriptionsFromBiblionumber GetFullSubscriptionsFromBiblionumber );
27
use C4::Letters;
27
use C4::Letters;
28
use C4::Output;
28
use C4::Output qw( output_and_exit output_html_with_http_headers );
29
use C4::Context;
29
use C4::Context;
30
use Koha::Serial::Items;
30
use Koha::Serial::Items;
31
31
(-)a/serials/serials-edit.pl (-6 / +6 lines)
Lines 64-77 op can be : Link Here
64
use Modern::Perl;
64
use Modern::Perl;
65
use CGI qw ( -utf8 );
65
use CGI qw ( -utf8 );
66
use Encode qw( decode is_utf8 );
66
use Encode qw( decode is_utf8 );
67
use C4::Auth;
67
use C4::Auth qw( get_template_and_user haspermission );
68
use C4::Biblio;
68
use C4::Biblio qw( TransformHtmlToXml GetMarcFromKohaField );
69
use C4::Items;
69
use C4::Items qw( sub PrepareItemrecordDisplay AddItemFromMarc ModItemFromMarc );
70
use C4::Koha;
70
use C4::Koha;
71
use C4::Output;
71
use C4::Output qw( output_html_with_http_headers );
72
use C4::Context;
72
use C4::Context;
73
use C4::Serials;
73
use C4::Serials qw( GetSerials GetSerials2 GetSerialInformation HasSubscriptionExpired GetSubscription abouttoexpire NewIssue ModSerialStatus GetPreviousSerialid AddItem2Serial );
74
use C4::Search qw/enabled_staff_search_views/;
74
use C4::Search qw( enabled_staff_search_views );
75
75
76
use Koha::DateUtils;
76
use Koha::DateUtils;
77
use Koha::Items;
77
use Koha::Items;
(-)a/serials/serials-home.pl (-2 / +2 lines)
Lines 30-38 this script is the main page for serials/ Link Here
30
30
31
use Modern::Perl;
31
use Modern::Perl;
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Serials;
36
use C4::Serials;
37
37
38
my $query   = CGI->new;
38
my $query   = CGI->new;
(-)a/serials/serials-search.pl (-3 / +3 lines)
Lines 30-40 this script is the search page for serials Link Here
30
30
31
use Modern::Perl;
31
use Modern::Perl;
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Context;
34
use C4::Context;
35
use C4::Koha qw( GetAuthorisedValues );
35
use C4::Koha qw( GetAuthorisedValues );
36
use C4::Output;
36
use C4::Output qw( output_html_with_http_headers );
37
use C4::Serials;
37
use C4::Serials qw( CloseSubscription ReopenSubscription SearchSubscriptions check_routing );
38
use Koha::AdditionalFields;
38
use Koha::AdditionalFields;
39
39
40
use Koha::DateUtils;
40
use Koha::DateUtils;
(-)a/serials/showpredictionpattern.pl (-4 / +4 lines)
Lines 32-41 use Modern::Perl; Link Here
32
32
33
use CGI qw ( -utf8 );
33
use CGI qw ( -utf8 );
34
use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
34
use Date::Calc qw(Today Day_of_Year Week_of_Year Day_of_Week Days_in_Year Delta_Days Add_Delta_Days Add_Delta_YM);
35
use C4::Auth;
35
use C4::Auth qw( get_template_and_user );
36
use C4::Output;
36
use C4::Output qw( output_html_with_http_headers );
37
use C4::Serials;
37
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
38
use C4::Serials::Frequency;
38
use C4::Serials qw( GetSubscription GetFictiveIssueNumber GetSeq GetSubscriptionIrregularities GetNextDate GetNextSeq );
39
use Koha::DateUtils;
39
use Koha::DateUtils;
40
40
41
my $input = CGI->new;
41
my $input = CGI->new;
(-)a/serials/subscription-add.pl (-8 / +8 lines)
Lines 19-34 use Modern::Perl; Link Here
19
19
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
21
use Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM);
22
use C4::Koha;
22
use C4::Koha qw( GetAuthorisedValues );
23
use C4::Biblio;
23
use C4::Biblio qw( GetMarcBiblio );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Acquisition;
25
use C4::Acquisition;
26
use C4::Output;
26
use C4::Output qw( output_and_exit output_html_with_http_headers );
27
use C4::Context;
27
use C4::Context;
28
use C4::Serials;
28
use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );
29
use C4::Serials::Frequency;
29
use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );
30
use C4::Serials::Numberpattern;
30
use C4::Serials qw( GetSubscription GetNextExpected GetSerials GetSubscriptionLength NewSubscription ModNextExpected ModSubscription );
31
use C4::Letters;
31
use C4::Letters qw( GetLetters );
32
use Koha::AdditionalFields;
32
use Koha::AdditionalFields;
33
use Koha::Biblios;
33
use Koha::Biblios;
34
use Koha::DateUtils;
34
use Koha::DateUtils;
(-)a/serials/subscription-batchedit.pl (-3 / +3 lines)
Lines 21-29 use Modern::Perl; Link Here
21
21
22
use CGI qw( -utf8 );
22
use CGI qw( -utf8 );
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::Serials;
26
use C4::Serials qw( can_edit_subscription );
27
use Koha::Subscriptions;
27
use Koha::Subscriptions;
28
use Koha::Acquisition::Booksellers;
28
use Koha::Acquisition::Booksellers;
29
use Koha::AdditionalFields;
29
use Koha::AdditionalFields;
(-)a/serials/subscription-bib-search.pl (-5 / +5 lines)
Lines 49-60 to multipage gestion. Link Here
49
use Modern::Perl;
49
use Modern::Perl;
50
50
51
use CGI qw ( -utf8 );
51
use CGI qw ( -utf8 );
52
use C4::Koha;
52
use C4::Koha qw( GetAuthorisedValues );
53
use C4::Auth;
53
use C4::Auth qw( get_template_and_user );
54
use C4::Context;
54
use C4::Context;
55
use C4::Output;
55
use C4::Output qw( output_html_with_http_headers );
56
use C4::Search;
56
use C4::Search qw( new_record_from_zebra );
57
use C4::Biblio;
57
use C4::Biblio qw( TransformMarcToKoha );
58
58
59
use Koha::ItemTypes;
59
use Koha::ItemTypes;
60
use Koha::SearchEngine;
60
use Koha::SearchEngine;
(-)a/serials/subscription-detail.pl (-4 / +4 lines)
Lines 18-30 Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
use CGI qw ( -utf8 );
19
use CGI qw ( -utf8 );
20
use C4::Acquisition;
20
use C4::Acquisition;
21
use C4::Auth;
21
use C4::Auth qw( get_template_and_user checkauth );
22
use C4::Budgets;
22
use C4::Budgets;
23
use C4::Koha;
23
use C4::Koha;
24
use C4::Serials;
24
use C4::Serials qw( CloseSubscription ReopenSubscription GetSubscription GetExpirationDate GetSerials HasSubscriptionStrictlyExpired CountIssues HasItems DelSubscription check_routing abouttoexpire can_edit_subscription );
25
use C4::Output;
25
use C4::Output qw( output_and_exit output_html_with_http_headers );
26
use C4::Context;
26
use C4::Context;
27
use C4::Search qw/enabled_staff_search_views/;
27
use C4::Search qw( enabled_staff_search_views );
28
28
29
use Koha::AdditionalFields;
29
use Koha::AdditionalFields;
30
use Koha::AuthorisedValues;
30
use Koha::AuthorisedValues;
(-)a/serials/subscription-frequencies.pl (-4 / +4 lines)
Lines 31-40 use Modern::Perl; Link Here
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
33
34
use C4::Auth;
34
use C4::Auth qw( get_template_and_user );
35
use C4::Output;
35
use C4::Output qw( output_html_with_http_headers );
36
use C4::Serials;
36
use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
37
use C4::Serials::Frequency;
37
use C4::Serials qw( GetSubscription ModSubscription DelSubscription );
38
38
39
my $input = CGI->new;
39
my $input = CGI->new;
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
40
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/serials/subscription-frequency.pl (-1 / +1 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
22
use C4::Context;
23
use C4::Serials::Frequency;
23
use C4::Serials::Frequency;
24
use C4::Auth qw/check_cookie_auth/;
24
use C4::Auth qw( check_cookie_auth );
25
use JSON qw( to_json );
25
use JSON qw( to_json );
26
26
27
my $input=CGI->new;
27
my $input=CGI->new;
(-)a/serials/subscription-history.pl (-3 / +3 lines)
Lines 30-40 Modify subscription history Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
35
36
use C4::Biblio;
36
use C4::Biblio;
37
use C4::Serials;
37
use C4::Serials qw( ModSubscriptionHistory ModSubscription GetSubscriptionHistoryFromSubscriptionId GetSubscription );
38
use Koha::Biblios;
38
use Koha::Biblios;
39
use Koha::DateUtils;
39
use Koha::DateUtils;
40
40
(-)a/serials/subscription-numberpattern.pl (-1 / +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::Serials::Numberpattern;
22
use C4::Serials::Numberpattern;
23
use C4::Auth qw/check_cookie_auth/;
23
use C4::Auth qw( check_cookie_auth );
24
use JSON qw( to_json );
24
use JSON qw( to_json );
25
25
26
my $input=CGI->new;
26
my $input=CGI->new;
(-)a/serials/subscription-numberpatterns.pl (-2 / +2 lines)
Lines 30-37 Manage numbering patterns Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
32
32
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Serials::Numberpattern;
35
use C4::Serials::Numberpattern;
36
use C4::Serials::Frequency;
36
use C4::Serials::Frequency;
37
37
(-)a/serials/subscription-renew.pl (-4 / +4 lines)
Lines 48-58 use Modern::Perl; Link Here
48
use CGI qw ( -utf8 );
48
use CGI qw ( -utf8 );
49
use Carp;
49
use Carp;
50
use C4::Koha;
50
use C4::Koha;
51
use C4::Auth;
51
use C4::Auth qw( get_template_and_user );
52
use C4::Context;
52
use C4::Context;
53
use C4::Auth;
53
use C4::Auth qw( get_template_and_user );
54
use C4::Output;
54
use C4::Output qw( output_and_exit output_html_with_http_headers );
55
use C4::Serials;
55
use C4::Serials qw( GetSubscription GetSubscriptionLength NewSubscription ReNewSubscription );
56
use Koha::DateUtils;
56
use Koha::DateUtils;
57
57
58
my $query = CGI->new;
58
my $query = CGI->new;
(-)a/serials/viewalerts.pl (-2 / +2 lines)
Lines 20-28 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
26
27
use Koha::Subscriptions;
27
use Koha::Subscriptions;
28
28
(-)a/services/itemrecorddisplay.pl (-3 / +3 lines)
Lines 30-38 It uses PrepareItemrecordDisplay Link Here
30
use Modern::Perl;
30
use Modern::Perl;
31
31
32
use CGI qw ( -utf8 );
32
use CGI qw ( -utf8 );
33
use C4::Auth;
33
use C4::Auth qw( get_template_and_user );
34
use C4::Output;
34
use C4::Output qw( output_html_with_http_headers );
35
use C4::Items;
35
use C4::Items qw( PrepareItemrecordDisplay );
36
36
37
my $input = CGI->new;
37
my $input = CGI->new;
38
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
38
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
(-)a/suggestion/add_user_search.pl (-2 / +2 lines)
Lines 18-25 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;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Members;
23
use C4::Members;
24
24
25
use Koha::Patron::Categories;
25
use Koha::Patron::Categories;
(-)a/suggestion/suggestion.pl (-4 / +4 lines)
Lines 20-31 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
require Exporter;
21
require Exporter;
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;    # get_template_and_user
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Suggestions;
25
use C4::Suggestions;
26
use C4::Koha;
26
use C4::Koha qw( GetAuthorisedValues );
27
use C4::Budgets;
27
use C4::Budgets;
28
use C4::Search;
28
use C4::Search qw( FindDuplicate GetDistinctValues );
29
use C4::Members;
29
use C4::Members;
30
use Koha::DateUtils qw( dt_from_string );
30
use Koha::DateUtils qw( dt_from_string );
31
use Koha::AuthorisedValues;
31
use Koha::AuthorisedValues;
(-)a/svc/cataloguing/automatic_linker.pl (-2 / +2 lines)
Lines 20-27 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI;
21
use CGI;
22
use JSON;
22
use JSON;
23
use C4::Auth qw(check_cookie_auth);
23
use C4::Auth qw( check_cookie_auth );
24
use C4::Biblio;
24
use C4::Biblio qw( TransformHtmlToMarc BiblioAutoLink );
25
use C4::Context;
25
use C4::Context;
26
26
27
my $input = CGI->new;
27
my $input = CGI->new;
(-)a/t/lib/TestBuilder.pm (-2 / +2 lines)
Lines 3-10 package t::lib::TestBuilder; Link Here
3
use Modern::Perl;
3
use Modern::Perl;
4
4
5
use Koha::Database;
5
use Koha::Database;
6
use C4::Biblio;
6
use C4::Biblio qw( AddBiblio );
7
use C4::Items;
7
use C4::Items qw( sub );
8
use Koha::Biblios;
8
use Koha::Biblios;
9
use Koha::Items;
9
use Koha::Items;
10
use Koha::DateUtils qw( dt_from_string );
10
use Koha::DateUtils qw( dt_from_string );
(-)a/tags/list.pl (-5 / +5 lines)
Lines 20-32 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth qw(:DEFAULT check_cookie_auth);
23
use C4::Auth qw( get_template_and_user );
24
use C4::Biblio;
24
use C4::Biblio qw( GetBiblioData );
25
use C4::Context;
25
use C4::Context;
26
use C4::Items;
26
use C4::Items qw( GetItemsInfo );
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Tags qw(get_tags remove_tag get_tag_rows);
28
use C4::Tags qw( remove_tag get_tag_rows get_tag get_tags );
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
30
31
my $needed_flags = { tools => 'moderate_tags'
31
my $needed_flags = { tools => 'moderate_tags'
32
};    # FIXME: replace when more specific permission is created.
32
};    # FIXME: replace when more specific permission is created.
(-)a/tags/review.pl (-4 / +3 lines)
Lines 25-36 use POSIX; Link Here
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use CGI::Cookie;     # need to check cookies before having CGI parse the POST request
26
use CGI::Cookie;     # need to check cookies before having CGI parse the POST request
27
use URI::Escape;
27
use URI::Escape;
28
use C4::Auth qw(:DEFAULT check_cookie_auth);
28
use C4::Auth qw( check_cookie_auth get_template_and_user );
29
use C4::Context;
29
use C4::Context;
30
use Koha::DateUtils;
30
use Koha::DateUtils;
31
# use C4::Koha;
31
use C4::Output qw( output_with_http_headers is_ajax pagination_bar output_html_with_http_headers );
32
use C4::Output qw(:html :ajax pagination_bar);
32
use C4::Tags qw( is_approved whitelist blacklist approval_counts get_approval_rows );
33
use C4::Tags qw(get_tags get_approval_rows approval_counts whitelist blacklist is_approved);
34
33
35
my $script_name = "/cgi-bin/koha/tags/review.pl";
34
my $script_name = "/cgi-bin/koha/tags/review.pl";
36
my $needed_flags = { tools => 'moderate_tags' };    # FIXME: replace when more specific permission is created.
35
my $needed_flags = { tools => 'moderate_tags' };    # FIXME: replace when more specific permission is created.
(-)a/tools/access_files.pl (-2 / +2 lines)
Lines 23-32 Link Here
23
23
24
use Modern::Perl;
24
use Modern::Perl;
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use CGI;
27
use CGI;
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Koha;
30
use C4::Koha;
31
use File::stat qw(stat);
31
use File::stat qw(stat);
32
use Digest::MD5 qw(md5_hex);
32
use Digest::MD5 qw(md5_hex);
(-)a/tools/ajax-inventory.pl (-1 / +1 lines)
Lines 2-8 Link Here
2
2
3
use Modern::Perl;
3
use Modern::Perl;
4
use CGI qw ( -utf8 );
4
use CGI qw ( -utf8 );
5
use C4::Auth;
5
use C4::Auth qw( check_api_auth );
6
use C4::Items qw( ModDateLastSeen );
6
use C4::Items qw( ModDateLastSeen );
7
7
8
my $input = CGI->new;
8
my $input = CGI->new;
(-)a/tools/automatic_item_modification_by_age.pl (-3 / +3 lines)
Lines 34-43 use Modern::Perl; Link Here
34
use CGI;
34
use CGI;
35
use JSON qw( to_json from_json );
35
use JSON qw( to_json from_json );
36
36
37
use C4::Auth;
37
use C4::Auth qw( get_template_and_user );
38
use C4::Context;
38
use C4::Context;
39
use C4::Items;
39
use C4::Items qw( sub );
40
use C4::Output;
40
use C4::Output qw( output_html_with_http_headers );
41
use C4::Koha;
41
use C4::Koha;
42
42
43
use Koha::Items;
43
use Koha::Items;
(-)a/tools/background-job-progress.pl (-1 / +1 lines)
Lines 24-30 use IO::File; Link Here
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use CGI::Session;
25
use CGI::Session;
26
use C4::Context;
26
use C4::Context;
27
use C4::Auth qw/check_cookie_auth/;
27
use C4::Auth qw( check_cookie_auth );
28
use C4::BackgroundJob;
28
use C4::BackgroundJob;
29
use CGI::Cookie; # need to check cookies before
29
use CGI::Cookie; # need to check cookies before
30
                 # having CGI parse the POST request
30
                 # having CGI parse the POST request
(-)a/tools/batchMod.pl (-6 / +6 lines)
Lines 22-36 use CGI qw ( -utf8 ); Link Here
22
use Modern::Perl;
22
use Modern::Perl;
23
use Try::Tiny;
23
use Try::Tiny;
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user haspermission );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use C4::Biblio;
27
use C4::Biblio qw( GetMarcStructure GetMarcFromKohaField TransformHtmlToXml DelBiblio IsMarcStructureInternal GetAuthorisedValueDesc );
28
use C4::Items;
28
use C4::Items qw( sub Item2Marc ModItemFromMarc GetItemsInfo );
29
use C4::Circulation;
29
use C4::Circulation qw( LostItem IsItemIssued );
30
use C4::Context;
30
use C4::Context;
31
use C4::Koha;
31
use C4::Koha;
32
use C4::BackgroundJob;
32
use C4::BackgroundJob;
33
use C4::ClassSource;
33
use C4::ClassSource qw( GetClassSources GetClassSource );
34
use C4::Members;
34
use C4::Members;
35
use MARC::File::XML;
35
use MARC::File::XML;
36
use List::MoreUtils qw/uniq/;
36
use List::MoreUtils qw/uniq/;
(-)a/tools/batch_delete_records.pl (-4 / +4 lines)
Lines 23-32 use Modern::Perl; Link Here
23
use CGI;
23
use CGI;
24
use List::MoreUtils qw( uniq );
24
use List::MoreUtils qw( uniq );
25
25
26
use C4::Auth;
26
use C4::Auth qw( get_template_and_user );
27
use C4::Output;
27
use C4::Output qw( output_html_with_http_headers );
28
use C4::AuthoritiesMarc;
28
use C4::Auth qw( get_template_and_user );
29
use C4::Biblio;
29
use C4::Biblio qw( GetMarcBiblio CountItemsIssued DelBiblio );
30
use Koha::Virtualshelves;
30
use Koha::Virtualshelves;
31
31
32
use Koha::Authorities;
32
use Koha::Authorities;
(-)a/tools/batch_record_modification.pl (-1 / +1 lines)
Lines 27-33 use Try::Tiny; Link Here
27
27
28
use C4::Auth qw( get_template_and_user );
28
use C4::Auth qw( get_template_and_user );
29
use C4::Output qw( output_html_with_http_headers );
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::AuthoritiesMarc qw( BuildSummary ModAuthority );
30
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio qw( GetMarcBiblio ModBiblio );
31
use C4::Biblio qw( GetMarcBiblio ModBiblio );
32
use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModificationTemplates );
32
use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModificationTemplates );
33
33
(-)a/tools/batch_records_ajax.pl (-2 / +2 lines)
Lines 36-43 use JSON qw/ to_json /; Link Here
36
36
37
use C4::Context;
37
use C4::Context;
38
use C4::Charset;
38
use C4::Charset;
39
use C4::Auth qw/check_cookie_auth/;
39
use C4::Auth qw( check_cookie_auth );
40
use C4::ImportBatch;
40
use C4::ImportBatch qw( GetImportBatch GetImportRecordsRange GetImportRecordMatches );
41
41
42
my $input = CGI->new;
42
my $input = CGI->new;
43
43
(-)a/tools/cleanborrowers.pl (-3 / +3 lines)
Lines 34-42 This script allows to do 2 things. Link Here
34
use Modern::Perl;
34
use Modern::Perl;
35
35
36
use CGI qw ( -utf8 );
36
use CGI qw ( -utf8 );
37
use C4::Auth;
37
use C4::Auth qw( get_template_and_user );
38
use C4::Output;
38
use C4::Output qw( output_html_with_http_headers );
39
use C4::Members;
39
use C4::Members qw( GetBorrowersToExpunge );
40
use C4::Circulation;    # AnonymiseIssueHistory.
40
use C4::Circulation;    # AnonymiseIssueHistory.
41
use Koha::DateUtils qw( dt_from_string output_pref );
41
use Koha::DateUtils qw( dt_from_string output_pref );
42
use Koha::Patron::Categories;
42
use Koha::Patron::Categories;
(-)a/tools/copy-holidays.pl (-1 / +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::Auth;
24
use C4::Auth qw( checkauth );
25
use C4::Output;
25
use C4::Output;
26
26
27
27
(-)a/tools/csv-profiles.pl (-2 / +2 lines)
Lines 37-45 This script allow the user to define a new profile for CSV export Link Here
37
use Modern::Perl;
37
use Modern::Perl;
38
use Encode;
38
use Encode;
39
39
40
use C4::Auth;
40
use C4::Auth qw( get_template_and_user );
41
use C4::Context;
41
use C4::Context;
42
use C4::Output;
42
use C4::Output qw( output_html_with_http_headers );
43
use CGI qw ( -utf8 );
43
use CGI qw ( -utf8 );
44
use C4::Koha;
44
use C4::Koha;
45
use Koha::CsvProfiles;
45
use Koha::CsvProfiles;
(-)a/tools/exceptionHolidays.pl (-1 / +1 lines)
Lines 4-10 use Modern::Perl; Link Here
4
4
5
use CGI qw ( -utf8 );
5
use CGI qw ( -utf8 );
6
6
7
use C4::Auth;
7
use C4::Auth qw( checkauth );
8
use C4::Output;
8
use C4::Output;
9
use DateTime;
9
use DateTime;
10
10
(-)a/tools/export.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
use MARC::File::XML;
21
use MARC::File::XML;
22
use List::MoreUtils qw(uniq);
22
use List::MoreUtils qw(uniq);
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use Koha::Authority::Types;
26
use Koha::Authority::Types;
27
use Koha::Biblioitems;
27
use Koha::Biblioitems;
(-)a/tools/holidays.pl (-2 / +2 lines)
Lines 20-27 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
25
26
use C4::Calendar;
26
use C4::Calendar;
27
use Koha::DateUtils;
27
use Koha::DateUtils;
(-)a/tools/import_borrowers.pl (-2 / +2 lines)
Lines 36-43 Link Here
36
36
37
use Modern::Perl;
37
use Modern::Perl;
38
38
39
use C4::Auth;
39
use C4::Auth qw( get_template_and_user );
40
use C4::Output;
40
use C4::Output qw( output_and_exit output_html_with_http_headers );
41
use C4::Templates;
41
use C4::Templates;
42
use Koha::Patrons;
42
use Koha::Patrons;
43
use Koha::DateUtils;
43
use Koha::DateUtils;
(-)a/tools/inventory.pl (-7 / +7 lines)
Lines 26-40 my $input = CGI->new; Link Here
26
my $uploadbarcodes = $input->param('uploadbarcodes');
26
my $uploadbarcodes = $input->param('uploadbarcodes');
27
my $barcodelist = $input->param('barcodelist');
27
my $barcodelist = $input->param('barcodelist');
28
28
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Context;
30
use C4::Context;
31
use C4::Output;
31
use C4::Output qw( output_html_with_http_headers );
32
use C4::Biblio;
32
use C4::Biblio;
33
use C4::Items;
33
use C4::Items qw( GetItemsForInventory sub );
34
use C4::Koha;
34
use C4::Koha qw( GetAuthorisedValues );
35
use C4::Circulation;
35
use C4::Circulation qw( AddReturn );
36
use C4::Reports::Guided;    #_get_column_defs
36
use C4::Reports::Guided qw( _get_column_defs );
37
use C4::Charset;
37
use C4::Charset qw( NormalizeString );
38
38
39
use Koha::Biblios;
39
use Koha::Biblios;
40
use Koha::DateUtils;
40
use Koha::DateUtils;
(-)a/tools/koha-news.pl (-3 / +3 lines)
Lines 24-35 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::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Context;
29
use C4::Context;
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use C4::NewsChannels;
31
use C4::NewsChannels;
32
use C4::Languages qw(getTranslatedLanguages);
32
use C4::Languages qw( getTranslatedLanguages );
33
use Date::Calc qw/Date_to_Days Today/;
33
use Date::Calc qw/Date_to_Days Today/;
34
use Koha::DateUtils;
34
use Koha::DateUtils;
35
35
(-)a/tools/letter.pl (-3 / +3 lines)
Lines 42-51 Link Here
42
42
43
use Modern::Perl;
43
use Modern::Perl;
44
use CGI qw ( -utf8 );
44
use CGI qw ( -utf8 );
45
use C4::Auth;
45
use C4::Auth qw( get_template_and_user );
46
use C4::Context;
46
use C4::Context;
47
use C4::Output;
47
use C4::Output qw( output_html_with_http_headers );
48
use C4::Letters;
48
use C4::Letters qw( GetLetterTemplates GetMessageTransportTypes GetMessage getletter );
49
use C4::Log;
49
use C4::Log;
50
50
51
use Koha::Notice::Templates;
51
use Koha::Notice::Templates;
(-)a/tools/manage-marc-import.pl (-4 / +4 lines)
Lines 27-37 use MARC::File::USMARC; Link Here
27
# Koha modules used
27
# Koha modules used
28
use C4::Context;
28
use C4::Context;
29
use C4::Koha;
29
use C4::Koha;
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::AuthoritiesMarc;
31
use C4::Auth qw( get_template_and_user );
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
use C4::Biblio;
33
use C4::Biblio;
34
use C4::ImportBatch;
34
use C4::ImportBatch qw( CleanBatch DeleteBatch sub GetImportBatch GetImportBatchOverlayAction GetImportBatchNoMatchAction GetImportBatchItemAction SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction BatchFindDuplicates SetImportBatchMatcher GetItemNumbersFromImportBatch GetImportBatchRangeDesc GetNumberOfNonZ3950ImportBatches BatchCommitRecords BatchRevertRecords );
35
use C4::Matcher;
35
use C4::Matcher;
36
use C4::BackgroundJob;
36
use C4::BackgroundJob;
37
use C4::Labels::Batch;
37
use C4::Labels::Batch;
(-)a/tools/marc_modification_templates.pl (-2 / +2 lines)
Lines 20-28 use Modern::Perl; Link Here
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Koha;
24
use C4::Koha;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use C4::MarcModificationTemplates;
26
use C4::MarcModificationTemplates;
27
27
28
my $cgi = CGI->new;
28
my $cgi = CGI->new;
(-)a/tools/modborrowers.pl (-3 / +3 lines)
Lines 27-36 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::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Koha;
31
use C4::Koha qw( GetAuthorisedValues );
32
use C4::Members;
32
use C4::Members;
33
use C4::Output;
33
use C4::Output qw( output_html_with_http_headers );
34
use List::MoreUtils qw /any uniq/;
34
use List::MoreUtils qw /any uniq/;
35
use Koha::DateUtils qw( dt_from_string );
35
use Koha::DateUtils qw( dt_from_string );
36
use Koha::List::Patron;
36
use Koha::List::Patron;
(-)a/tools/newHolidays.pl (-1 / +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::Auth;
24
use C4::Auth qw( checkauth );
25
use C4::Output;
25
use C4::Output;
26
26
27
use C4::Calendar;
27
use C4::Calendar;
(-)a/tools/overduerules.pl (-4 / +4 lines)
Lines 20-31 Link Here
20
use Modern::Perl;
20
use Modern::Perl;
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use C4::Context;
22
use C4::Context;
23
use C4::Output;
23
use C4::Output qw( output_html_with_http_headers );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Letters;
26
use C4::Letters qw( GetLetters GetLettersAvailableForALibrary GetMessageTransportTypes GetMessage );
27
use C4::Members;
27
use C4::Members;
28
use C4::Overdues;
28
use C4::Overdues qw( GetOverdueMessageTransportTypes );
29
use Koha::Libraries;
29
use Koha::Libraries;
30
30
31
use Koha::Patron::Categories;
31
use Koha::Patron::Categories;
(-)a/tools/picture-upload.pl (-2 / +2 lines)
Lines 26-33 use File::Copy; Link Here
26
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
27
use GD;
27
use GD;
28
use C4::Context;
28
use C4::Context;
29
use C4::Auth;
29
use C4::Auth qw( get_template_and_user );
30
use C4::Output;
30
use C4::Output qw( output_and_exit output_html_with_http_headers );
31
use C4::Members;
31
use C4::Members;
32
32
33
use Koha::Logger;
33
use Koha::Logger;
(-)a/tools/problem-reports.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Context;
23
use C4::Context;
24
use C4::Output;
24
use C4::Output qw( output_html_with_http_headers );
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use Koha::ProblemReports;
26
use Koha::ProblemReports;
27
27
28
my $query = CGI->new;
28
my $query = CGI->new;
(-)a/tools/quotes-upload.pl (-2 / +2 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use autouse 'Data::Dumper' => qw(Dumper);
23
use autouse 'Data::Dumper' => qw(Dumper);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Koha;
26
use C4::Koha;
27
use C4::Context;
27
use C4::Context;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
29
30
my $cgi = CGI->new;
30
my $cgi = CGI->new;
31
31
(-)a/tools/quotes.pl (-2 / +2 lines)
Lines 20-28 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::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use C4::Context;
24
use C4::Context;
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::Quotes;
26
use Koha::Quotes;
27
27
28
my $input = CGI->new;
28
my $input = CGI->new;
(-)a/tools/scheduler.pl (-4 / +4 lines)
Lines 19-29 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
use C4::Context;
21
use C4::Context;
22
use C4::Scheduler;
22
use C4::Scheduler qw( add_at_job remove_at_job get_jobs );
23
use C4::Reports::Guided;
23
use C4::Reports::Guided qw( get_saved_reports );
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
26
use C4::Output;
26
use C4::Output qw( output_html_with_http_headers );
27
use Koha::DateUtils;;
27
use Koha::DateUtils;;
28
28
29
use vars qw($debug);
29
use vars qw($debug);
(-)a/tools/showdiffmarc.pl (-5 / +5 lines)
Lines 26-36 use CGI qw(:standard -utf8); Link Here
26
26
27
# Koha modules used
27
# Koha modules used
28
use C4::Context;
28
use C4::Context;
29
use C4::Output;
29
use C4::Output qw( output_html_with_http_headers );
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Biblio;
31
use C4::Biblio qw( GetMarcBiblio );
32
use C4::AuthoritiesMarc;
32
use C4::Auth qw( get_template_and_user );
33
use C4::ImportBatch;
33
use C4::ImportBatch qw( GetRecordFromImportBiblio GetImportBiblios );
34
34
35
use Koha::Biblios;
35
use Koha::Biblios;
36
36
(-)a/tools/stage-marc-import.pl (-3 / +3 lines)
Lines 33-42 use MARC::File::USMARC; Link Here
33
33
34
# Koha modules used
34
# Koha modules used
35
use C4::Context;
35
use C4::Context;
36
use C4::Auth;
36
use C4::Auth qw( get_template_and_user );
37
use C4::Output;
37
use C4::Output qw( output_html_with_http_headers );
38
use C4::Biblio;
38
use C4::Biblio;
39
use C4::ImportBatch;
39
use C4::ImportBatch qw( RecordsFromMARCXMLFile RecordsFromISO2709File RecordsFromMarcPlugin BatchStageMarcRecords BatchFindDuplicates SetImportBatchMatcher SetImportBatchOverlayAction SetImportBatchNoMatchAction SetImportBatchItemAction sub );
40
use C4::Matcher;
40
use C4::Matcher;
41
use Koha::UploadedFiles;
41
use Koha::UploadedFiles;
42
use C4::BackgroundJob;
42
use C4::BackgroundJob;
(-)a/tools/stockrotation.pl (-3 / +3 lines)
Lines 27-42 Link Here
27
use Modern::Perl;
27
use Modern::Perl;
28
use CGI;
28
use CGI;
29
29
30
use C4::Auth;
30
use C4::Auth qw( get_template_and_user );
31
use C4::Context;
31
use C4::Context;
32
use C4::Output;
32
use C4::Output qw( output_html_with_http_headers );
33
33
34
use Koha::Libraries;
34
use Koha::Libraries;
35
use Koha::StockRotationRotas;
35
use Koha::StockRotationRotas;
36
use Koha::StockRotationItems;
36
use Koha::StockRotationItems;
37
use Koha::StockRotationStages;
37
use Koha::StockRotationStages;
38
use Koha::Item;
38
use Koha::Item;
39
use Koha::Util::StockRotation qw(:ALL);
39
use Koha::Util::StockRotation qw( get_branches get_stages move_to_next_stage toggle_indemand remove_from_stage add_items_to_rota get_barcodes_status );
40
40
41
my $input = CGI->new;
41
my $input = CGI->new;
42
42
(-)a/tools/tools-home.pl (-3 / +3 lines)
Lines 18-26 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;
21
use C4::Auth qw( get_template_and_user );
22
use C4::Output;
22
use C4::Output qw( output_html_with_http_headers );
23
use C4::Tags qw/get_count_by_tag_status/;
23
use C4::Tags qw( get_count_by_tag_status );
24
use Koha::Reviews;
24
use Koha::Reviews;
25
25
26
my $query = CGI->new;
26
my $query = CGI->new;
(-)a/tools/upload-cover-image.pl (-2 / +2 lines)
Lines 43-50 use File::Temp; Link Here
43
use CGI qw ( -utf8 );
43
use CGI qw ( -utf8 );
44
use GD;
44
use GD;
45
use C4::Context;
45
use C4::Context;
46
use C4::Auth;
46
use C4::Auth qw( get_template_and_user );
47
use C4::Output;
47
use C4::Output qw( output_html_with_http_headers );
48
use Koha::Biblios;
48
use Koha::Biblios;
49
use Koha::CoverImages;
49
use Koha::CoverImages;
50
use Koha::Items;
50
use Koha::Items;
(-)a/tools/upload-file.pl (-1 / +1 lines)
Lines 26-32 use JSON; Link Here
26
use URI::Escape;
26
use URI::Escape;
27
27
28
use C4::Context;
28
use C4::Context;
29
use C4::Auth qw/check_cookie_auth haspermission/;
29
use C4::Auth qw( check_cookie_auth get_session );
30
use Koha::Uploader;
30
use Koha::Uploader;
31
31
32
# upload-file.pl must authenticate the user
32
# upload-file.pl must authenticate the user
(-)a/tools/upload.pl (-2 / +2 lines)
Lines 21-28 use Modern::Perl; Link Here
21
use CGI qw/-utf8/;
21
use CGI qw/-utf8/;
22
use JSON;
22
use JSON;
23
23
24
use C4::Auth;
24
use C4::Auth qw( get_template_and_user );
25
use C4::Output;
25
use C4::Output qw( output_html_with_http_headers );
26
use Koha::UploadedFiles;
26
use Koha::UploadedFiles;
27
27
28
use constant ERR_READING     => 'UPLERR_FILE_NOT_READ';
28
use constant ERR_READING     => 'UPLERR_FILE_NOT_READ';
(-)a/tools/viewlog.pl (-5 / +5 lines)
Lines 20-34 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use C4::Auth;
23
use C4::Auth qw( get_template_and_user );
24
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
25
use Text::CSV::Encoded;
25
use Text::CSV::Encoded;
26
use C4::Context;
26
use C4::Context;
27
use C4::Koha;
27
use C4::Koha;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Items;
29
use C4::Items qw( sub );
30
use C4::Serials;
30
use C4::Serials qw( CountSubscriptionFromBiblionumber );
31
use C4::Search;    # enabled_staff_search_views
31
use C4::Search qw( enabled_staff_search_views );
32
32
33
use Koha::ActionLogs;
33
use Koha::ActionLogs;
34
use Koha::Database;
34
use Koha::Database;
(-)a/virtualshelves/addbybiblionumber.pl (-2 / +2 lines)
Lines 60-67 use Modern::Perl; Link Here
60
60
61
use CGI qw ( -utf8 );
61
use CGI qw ( -utf8 );
62
use C4::Biblio;
62
use C4::Biblio;
63
use C4::Output;
63
use C4::Output qw( output_html_with_http_headers );
64
use C4::Auth;
64
use C4::Auth qw( get_template_and_user );
65
65
66
use Koha::Biblios;
66
use Koha::Biblios;
67
use Koha::Virtualshelves;
67
use Koha::Virtualshelves;
(-)a/virtualshelves/downloadshelf.pl (-3 / +3 lines)
Lines 22-31 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use Encode qw(encode);
23
use Encode qw(encode);
24
24
25
use C4::Auth;
25
use C4::Auth qw( get_template_and_user );
26
use C4::Biblio;
26
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Items;
27
use C4::Items;
28
use C4::Output;
28
use C4::Output qw( output_html_with_http_headers );
29
use C4::Record;
29
use C4::Record;
30
use C4::Ris;
30
use C4::Ris;
31
31
(-)a/virtualshelves/sendshelf.pl (-4 / +4 lines)
Lines 24-33 use Encode qw( encode ); Link Here
24
use Carp;
24
use Carp;
25
use Try::Tiny;
25
use Try::Tiny;
26
26
27
use C4::Auth;
27
use C4::Auth qw( get_template_and_user );
28
use C4::Biblio;
28
use C4::Biblio qw( GetBiblioData GetMarcBiblio GetMarcAuthors GetMarcSubjects GetMarcISBN );
29
use C4::Items;
29
use C4::Items qw( sub GetItemsInfo );
30
use C4::Output;
30
use C4::Output qw( output_html_with_http_headers );
31
use Koha::Email;
31
use Koha::Email;
32
use Koha::Virtualshelves;
32
use Koha::Virtualshelves;
33
33
(-)a/virtualshelves/shelves.pl (-6 / +5 lines)
Lines 19-30 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::Auth;
22
use C4::Auth qw( get_template_and_user );
23
use C4::Biblio;
23
use C4::Biblio qw( GetMarcBiblio );
24
use C4::Koha;
24
use C4::Koha qw( getitemtypeimagelocation GetNormalizedUPC GetNormalizedEAN GetNormalizedOCLCNumber GetNormalizedISBN );
25
use C4::Items;
25
use C4::Items qw( sub GetItemsLocationInfo );
26
use C4::Members;
26
use C4::Members;
27
use C4::Output;
27
use C4::Output qw( pagination_bar output_html_with_http_headers );
28
use C4::XSLT;
28
use C4::XSLT;
29
29
30
use Koha::Biblios;
30
use Koha::Biblios;
31
- 

Return to bug 17600