Lines 21-27
use Modern::Perl;
Link Here
|
21 |
use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64); |
21 |
use Crypt::Eksblowfish::Bcrypt qw(bcrypt en_base64); |
22 |
use Encode qw( encode is_utf8 ); |
22 |
use Encode qw( encode is_utf8 ); |
23 |
use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt |
23 |
use Fcntl qw/O_RDONLY/; # O_RDONLY is used in generate_salt |
24 |
use List::MoreUtils qw/ any /; |
24 |
use C4::Context; |
25 |
|
25 |
|
26 |
use base 'Exporter'; |
26 |
use base 'Exporter'; |
27 |
|
27 |
|
Lines 145-151
outside this context.
Link Here
|
145 |
sub get_script_name { |
145 |
sub get_script_name { |
146 |
# This is the method about.pl uses to detect Plack; now that two places use it, it MUST be |
146 |
# This is the method about.pl uses to detect Plack; now that two places use it, it MUST be |
147 |
# right. |
147 |
# right. |
148 |
if ( ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) && $ENV{SCRIPT_NAME} =~ m,^/(intranet|opac)(.*), ) { |
148 |
if ( ( C4::Context->is_psgi ) && $ENV{SCRIPT_NAME} =~ m,^/(intranet|opac)(.*), ) { |
149 |
return '/cgi-bin/koha' . $2; |
149 |
return '/cgi-bin/koha' . $2; |
150 |
} else { |
150 |
} else { |
151 |
return $ENV{SCRIPT_NAME}; |
151 |
return $ENV{SCRIPT_NAME}; |