Lines 23-29
Link Here
|
23 |
use Modern::Perl; |
23 |
use Modern::Perl; |
24 |
|
24 |
|
25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
26 |
use List::MoreUtils qw/ any /; |
|
|
27 |
use LWP::Simple; |
26 |
use LWP::Simple; |
28 |
use XML::Simple; |
27 |
use XML::Simple; |
29 |
use Config; |
28 |
use Config; |
Lines 61-67
if ($^O ne 'VMS') {
Link Here
|
61 |
my $zebraVersion = `zebraidx -V`; |
60 |
my $zebraVersion = `zebraidx -V`; |
62 |
|
61 |
|
63 |
# Check running PSGI env |
62 |
# Check running PSGI env |
64 |
if ( any { /(^psgi\.|^plack\.)/i } keys %ENV ) { |
63 |
if ( C4::Context->is_psgi ) { |
65 |
$template->param( |
64 |
$template->param( |
66 |
is_psgi => 1, |
65 |
is_psgi => 1, |
67 |
psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" : |
66 |
psgi_server => ($ENV{ PLACK_ENV }) ? "Plack ($ENV{PLACK_ENV})" : |
68 |
- |
|
|