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