|
Lines 23-28
Link Here
|
| 23 |
use Modern::Perl; |
23 |
use Modern::Perl; |
| 24 |
|
24 |
|
| 25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
|
|
26 |
use DateTime::TimeZone; |
| 26 |
use List::MoreUtils qw/ any /; |
27 |
use List::MoreUtils qw/ any /; |
| 27 |
use LWP::Simple; |
28 |
use LWP::Simple; |
| 28 |
use XML::Simple; |
29 |
use XML::Simple; |
|
Lines 61-70
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
Link Here
|
| 61 |
} |
62 |
} |
| 62 |
); |
63 |
); |
| 63 |
|
64 |
|
|
|
65 |
my $config_timezone = C4::Context->config('timezone'); |
| 66 |
my $config_invalid = !DateTime::TimeZone->is_valid_name( $config_timezone ); |
| 67 |
my $env_timezone = $ENV{TZ}; |
| 68 |
my $env_invalid = !DateTime::TimeZone->is_valid_name( $env_timezone ); |
| 69 |
my $actual_bad_tz_fallback = 0; |
| 70 |
|
| 71 |
if ( $config_timezone ne '' && |
| 72 |
$config_invalid ) { |
| 73 |
# Bad config |
| 74 |
$actual_bad_tz_fallback = 1; |
| 75 |
} |
| 76 |
elsif ( $config_timezone eq '' && |
| 77 |
$env_timezone ne '' && |
| 78 |
$env_invalid ) { |
| 79 |
# No config, but bad ENV{TZ} |
| 80 |
$actual_bad_tz_fallback = 1; |
| 81 |
} |
| 82 |
|
| 64 |
my $time_zone = { |
83 |
my $time_zone = { |
| 65 |
actual => C4::Context->timezone(), |
84 |
actual => C4::Context->timezone(), |
| 66 |
config => C4::Context->config('timezone'), |
85 |
actual_bad_tz_fallback => $actual_bad_tz_fallback, |
| 67 |
environment => $ENV{TZ}, |
86 |
config => $config_timezone, |
|
|
87 |
config_invalid => $config_invalid, |
| 88 |
environment => $env_timezone, |
| 89 |
environment_invalid => $env_invalid |
| 68 |
}; |
90 |
}; |
| 69 |
$template->param( 'time_zone' => $time_zone ); |
91 |
$template->param( 'time_zone' => $time_zone ); |
| 70 |
|
92 |
|