From b27ac56452b44ab646823bc95b2d4bde391ef5a5 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Thu, 13 Sep 2018 08:41:10 +0200 Subject: [PATCH] Bug 21299: (QA follow-up) Rename module and subroutine Content-Type: text/plain; charset=utf-8 See QA request at comment7. Removing camelcase from subroutinename. Renaming module to Koha::Util::CGI. Signed-off-by: Marcel de Rooy --- Koha/{Util.pm => Util/CGI.pm} | 12 ++++++------ changelanguage.pl | 4 ++-- opac/opac-changelanguage.pl | 4 ++-- t/Koha/Util/{localReferer.t => local_referer.t} | 24 ++++++++++++------------ 4 files changed, 22 insertions(+), 22 deletions(-) rename Koha/{Util.pm => Util/CGI.pm} (89%) rename t/Koha/Util/{localReferer.t => local_referer.t} (59%) diff --git a/Koha/Util.pm b/Koha/Util/CGI.pm similarity index 89% rename from Koha/Util.pm rename to Koha/Util/CGI.pm index ce61863..bc4d0fb 100644 --- a/Koha/Util.pm +++ b/Koha/Util/CGI.pm @@ -1,4 +1,4 @@ -package Koha::Util; +package Koha::Util::CGI; # Copyright Rijksmuseum 2018 # @@ -26,9 +26,9 @@ Koha::Util =head1 SYNOPSIS - use Koha::Util; + use Koha::Util::CGI; my $cgi = CGI->new; - my $referer = Koha::Util::localReferer($cgi); + my $referer = Koha::Util::CGI::local_referer($cgi); =head1 DESCRIPTION @@ -36,9 +36,9 @@ Utility class =head1 FUNCTIONS -=head2 localReferer +=head2 local_referer - my $referer = Koha::Util::localReferer( $cgi, { fallback => '/', remove_language => 1, staff => 1 }); + my $referer = Koha::Util::CGI::local_referer( $cgi, { fallback => '/', remove_language => 1, staff => 1 }); If the referer is a local URI, return local path. Otherwise return fallback. @@ -47,7 +47,7 @@ Utility class =cut -sub localReferer { +sub local_referer { my ( $cgi, $params ) = @_; my $referer = $cgi->referer; my $fallback = $params->{fallback} // '/'; diff --git a/changelanguage.pl b/changelanguage.pl index c7a5c94..a06941d 100755 --- a/changelanguage.pl +++ b/changelanguage.pl @@ -18,10 +18,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Templates; -use Koha::Util; +use Koha::Util::CGI; my $query = new CGI; my $language = $query->param('language'); -my $url = Koha::Util::localReferer($query, {remove_language => 1, staff => 1}); +my $url = Koha::Util::CGI::local_referer($query, {remove_language => 1, staff => 1}); C4::Templates::setlanguagecookie( $query, $language, $url ); diff --git a/opac/opac-changelanguage.pl b/opac/opac-changelanguage.pl index 2c01b28..b5c0e88 100755 --- a/opac/opac-changelanguage.pl +++ b/opac/opac-changelanguage.pl @@ -18,10 +18,10 @@ use Modern::Perl; use CGI qw ( -utf8 ); use C4::Templates; -use Koha::Util; +use Koha::Util::CGI; my $query = new CGI; my $language = $query->param('language'); -my $url = Koha::Util::localReferer($query, { remove_language => 1 }); +my $url = Koha::Util::CGI::local_referer($query, { remove_language => 1 }); C4::Templates::setlanguagecookie( $query, $language, $url ); diff --git a/t/Koha/Util/localReferer.t b/t/Koha/Util/local_referer.t similarity index 59% rename from t/Koha/Util/localReferer.t rename to t/Koha/Util/local_referer.t index a1d860d..97a8724 100644 --- a/t/Koha/Util/localReferer.t +++ b/t/Koha/Util/local_referer.t @@ -4,9 +4,9 @@ use Test::More tests => 1; use Test::MockObject; use t::lib::Mocks; -use Koha::Util; +use Koha::Util::CGI; -subtest 'Tests for localReferer' => sub { +subtest 'Tests for local_referer' => sub { plan tests => 10; my ( $referer, $base ); @@ -17,31 +17,31 @@ subtest 'Tests for localReferer' => sub { # Start with filled OPACBaseIRL t::lib::Mocks::mock_preference('OPACBaseURL', 'https://koha.nl' ); $referer = 'https://somewhere.com/myscript'; - is( Koha::Util::localReferer($cgi), '/', 'External referer' ); + is( Koha::Util::CGI::local_referer($cgi), '/', 'External referer' ); my $search = '/cgi-bin/koha/opac-search.pl?q=perl'; $referer = "https://koha.nl$search"; - is( Koha::Util::localReferer($cgi), $search, 'opac-search' ); + is( Koha::Util::CGI::local_referer($cgi), $search, 'opac-search' ); $referer = 'https://koha.nl/custom/stuff'; - is( Koha::Util::localReferer($cgi), '/', 'custom url' ); + is( Koha::Util::CGI::local_referer($cgi), '/', 'custom url' ); # trailing backslash t::lib::Mocks::mock_preference('OPACBaseURL', 'http://koha.nl/' ); $referer = "http://koha.nl$search"; - is( Koha::Util::localReferer($cgi), $search, 'opac-search, trailing backslash' ); + is( Koha::Util::CGI::local_referer($cgi), $search, 'opac-search, trailing backslash' ); # no OPACBaseURL t::lib::Mocks::mock_preference('OPACBaseURL', ''); $referer = 'https://somewhere.com/myscript'; $base = 'http://koha.nl'; - is( Koha::Util::localReferer($cgi), '/', 'no opacbaseurl, external' ); + is( Koha::Util::CGI::local_referer($cgi), '/', 'no opacbaseurl, external' ); $referer = "https://koha.nl$search"; $base = 'https://koha.nl'; - is( Koha::Util::localReferer($cgi), $search, 'no opacbaseurl, opac-search' ); + is( Koha::Util::CGI::local_referer($cgi), $search, 'no opacbaseurl, opac-search' ); $base = 'http://koha.nl'; - is( Koha::Util::localReferer($cgi), $search, 'no opacbaseurl, opac-search, protocol diff' ); + is( Koha::Util::CGI::local_referer($cgi), $search, 'no opacbaseurl, opac-search, protocol diff' ); # base contains https, referer http (this should be very unusual) # test parameters remove_language. staff @@ -49,12 +49,12 @@ subtest 'Tests for localReferer' => sub { $search = '/cgi-bin/koha/catalogue/search.pl?q=perl'; # staff $referer = "http://koha.nl:8080$search&language=zz-ZZ&debug=1"; $base = 'https://koha.nl:8080'; - is( Koha::Util::localReferer($cgi, { remove_language => 1, staff => 1 }), $search.'&debug=1', 'no baseurl, staff search, protocol diff (base https)' ); + is( Koha::Util::CGI::local_referer($cgi, { remove_language => 1, staff => 1 }), $search.'&debug=1', 'no baseurl, staff search, protocol diff (base https)' ); # custom script, test fallback parameter $referer = 'https://koha.nl/custom/stuff'; $base = 'https://koha.nl'; - is( Koha::Util::localReferer($cgi, { fallback => 'ZZZ' }), 'ZZZ', 'no opacbaseurl, custom url, test fallback' ); + is( Koha::Util::CGI::local_referer($cgi, { fallback => 'ZZZ' }), 'ZZZ', 'no opacbaseurl, custom url, test fallback' ); $base = 'http://koha.nl'; - is( Koha::Util::localReferer($cgi), '/', 'no opacbaseurl, custom url, protocol diff' ); + is( Koha::Util::CGI::local_referer($cgi), '/', 'no opacbaseurl, custom url, protocol diff' ); }; -- 2.1.4