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

(-)a/Koha/Util/Navigation.pm (-1 / +1 lines)
Lines 59-65 sub local_referer { Link Here
59
59
60
    # Try ..BaseURL first, otherwise use CGI::url
60
    # Try ..BaseURL first, otherwise use CGI::url
61
    if( $base ) {
61
    if( $base ) {
62
        if( substr($referer, 0, length($base)) eq $base &&
62
        if( $referer =~ m|^\Q$base\E|i &&
63
            $referer =~ /\/cgi-bin\/koha\// )
63
            $referer =~ /\/cgi-bin\/koha\// )
64
        {
64
        {
65
            $rv = substr( $referer, length($base) );
65
            $rv = substr( $referer, length($base) );
(-)a/t/Koha/Util/Navigation.t (-2 / +5 lines)
Lines 7-13 use t::lib::Mocks; Link Here
7
use Koha::Util::Navigation;
7
use Koha::Util::Navigation;
8
8
9
subtest 'Tests for local_referer' => sub {
9
subtest 'Tests for local_referer' => sub {
10
    plan tests => 10;
10
    plan tests => 11;
11
11
12
    my ( $referer, $base );
12
    my ( $referer, $base );
13
    my $cgi = Test::MockObject->new;
13
    my $cgi = Test::MockObject->new;
Lines 26-31 subtest 'Tests for local_referer' => sub { Link Here
26
    $referer = 'https://koha.nl/custom/stuff';
26
    $referer = 'https://koha.nl/custom/stuff';
27
    is( Koha::Util::Navigation::local_referer($cgi), '/', 'custom url' );
27
    is( Koha::Util::Navigation::local_referer($cgi), '/', 'custom url' );
28
28
29
    t::lib::Mocks::mock_preference('OPACBaseURL', 'http://kohadev.myDNSname.org:8080');
30
    $referer = "http://kohadev.mydnsname.org:8080$search";
31
    is( Koha::Util::Navigation::local_referer($cgi), $search, 'local_referer is comparing $OPACBaseURL case insensitive' );
32
29
    # trailing backslash
33
    # trailing backslash
30
    t::lib::Mocks::mock_preference('OPACBaseURL', 'http://koha.nl/' );
34
    t::lib::Mocks::mock_preference('OPACBaseURL', 'http://koha.nl/' );
31
    $referer = "http://koha.nl$search";
35
    $referer = "http://koha.nl$search";
32
- 

Return to bug 26127