|
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}; |