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)