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