@@ -, +, @@ --- C4/Auth.pm | 2 +- C4/ClassSortRoutine.pm | 1 + C4/Koha.pm | 2 ++ C4/Members.pm | 1 + Koha/Middleware/RealIP.pm | 1 + Koha/Template/Plugin/AuthorisedValues.pm | 2 +- opac/opac-search.pl | 3 ++- 7 files changed, 9 insertions(+), 3 deletions(-) --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -62,7 +62,7 @@ BEGIN { require Exporter; @ISA = qw(Exporter); - @EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash + @EXPORT_OK = qw(&checkauth &check_api_auth &get_session &check_cookie_auth &checkpw &checkpw_internal &checkpw_hash &get_all_subpermissions &get_user_subpermissions track_login_daily &in_iprange &get_template_and_user &haspermission ); --- a/C4/ClassSortRoutine.pm +++ a/C4/ClassSortRoutine.pm @@ -20,6 +20,7 @@ package C4::ClassSortRoutine; use strict; use warnings; +use Class::Factory::Util; use C4::Context; our (@ISA, @EXPORT_OK); --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -30,6 +30,7 @@ use Koha::MarcSubfieldStructures; use Business::ISBN (); use Business::ISSN (); use autouse 'Data::cselectall_arrayref' => qw(Dumper); +use vars qw($DEBUG); our (@ISA, @EXPORT_OK); BEGIN { require Exporter; @@ -38,6 +39,7 @@ BEGIN { &GetItemTypesCategorized &getallthemes &getFacets + &getImageSets &getnbpages &getitemtypeimagedir &getitemtypeimagesrc --- a/C4/Members.pm +++ a/C4/Members.pm @@ -55,6 +55,7 @@ BEGIN { &IssueSlip &checkuserpassword + &get_cardnumber_length &checkcardnumber ); } --- a/Koha/Middleware/RealIP.pm +++ a/Koha/Middleware/RealIP.pm @@ -24,6 +24,7 @@ use parent qw(Plack::Middleware); use C4::Context; use Net::Netmask (); +use Plack::Util::Accessor qw( trusted_proxy ); =head1 METHODS --- a/Koha/Template/Plugin/AuthorisedValues.pm +++ a/Koha/Template/Plugin/AuthorisedValues.pm @@ -21,7 +21,7 @@ use Modern::Perl; use Template::Plugin; use base qw( Template::Plugin ); -use C4::Koha; +use C4::Koha qw( GetAuthorisedValues ); use Koha::AuthorisedValues; sub GetByCode { --- a/opac/opac-search.pl +++ a/opac/opac-search.pl @@ -628,7 +628,8 @@ if ($tag) { my $taglist = get_tags({term=>$tag, approved=>1}); $results_hashref->{biblioserver}->{hits} = scalar (@$taglist); my @marclist = map { C4::Biblio::GetXmlBiblio( $_->{biblionumber} ) } @$taglist; - $DEBUG and printf STDERR "taglist (%s biblionumber)\nmarclist (%s records)\n", scalar(@$taglist), scalar(@marclist); + #Global symbol "$DEBUG" requires explicit package name + #$DEBUG and printf STDERR "taglist (%s biblionumber)\nmarclist (%s records)\n", scalar(@$taglist), scalar(@marclist); $results_hashref->{biblioserver}->{RECORDS} = \@marclist; # FIXME: tag search and standard search should work together, not exclusively # FIXME: Because search and standard search don't work together OpacHiddenItems --