View | Details | Raw Unified | Return to bug 18674
Collapse All | Expand All

(-)a/about.pl (-4 / +9 lines)
Lines 37-42 use C4::Context; Link Here
37
use C4::Installer;
37
use C4::Installer;
38
38
39
use Koha;
39
use Koha;
40
use Koha::DateUtils qw(dt_from_string output_pref);
40
use Koha::Acquisition::Currencies;
41
use Koha::Acquisition::Currencies;
41
use Koha::Patron::Categories;
42
use Koha::Patron::Categories;
42
use Koha::Patrons;
43
use Koha::Patrons;
Lines 62-70 my ( $template, $loggedinuser, $cookie ) = get_template_and_user( Link Here
62
    }
63
    }
63
);
64
);
64
65
65
my $config_timezone = C4::Context->config('timezone');
66
my $config_timezone = C4::Context->config('timezone') // '';
66
my $config_invalid  = !DateTime::TimeZone->is_valid_name( $config_timezone );
67
my $config_invalid  = !DateTime::TimeZone->is_valid_name( $config_timezone );
67
my $env_timezone    = $ENV{TZ};
68
my $env_timezone    = $ENV{TZ} // '';
68
my $env_invalid     = !DateTime::TimeZone->is_valid_name( $env_timezone );
69
my $env_invalid     = !DateTime::TimeZone->is_valid_name( $env_timezone );
69
my $actual_bad_tz_fallback = 0;
70
my $actual_bad_tz_fallback = 0;
70
71
Lines 81-94 elsif ( $config_timezone eq '' && Link Here
81
}
82
}
82
83
83
my $time_zone = {
84
my $time_zone = {
84
    actual                 => C4::Context->timezone(),
85
    actual                 => C4::Context->tz->name,
85
    actual_bad_tz_fallback => $actual_bad_tz_fallback,
86
    actual_bad_tz_fallback => $actual_bad_tz_fallback,
86
    config                 => $config_timezone,
87
    config                 => $config_timezone,
87
    config_invalid         => $config_invalid,
88
    config_invalid         => $config_invalid,
88
    environment            => $env_timezone,
89
    environment            => $env_timezone,
89
    environment_invalid    => $env_invalid
90
    environment_invalid    => $env_invalid
90
};
91
};
91
$template->param( 'time_zone' => $time_zone );
92
93
$template->param(
94
    time_zone              => $time_zone,
95
    current_date_and_time  => output_pref({ dt => dt_from_string() })
96
);
92
97
93
my $perl_path = $^X;
98
my $perl_path = $^X;
94
if ($^O ne 'VMS') {
99
if ($^O ne 'VMS') {
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tt (-1 / +4 lines)
Lines 111-116 Link Here
111
            [% ELSIF (errZebraConnection) %]
111
            [% ELSIF (errZebraConnection) %]
112
            <tr><th scope="row"><b>Warning</b> </th><td>Error message from Zebra: [% ( errZebraConnection ) %] </td></tr>
112
            <tr><th scope="row"><b>Warning</b> </th><td>Error message from Zebra: [% ( errZebraConnection ) %] </td></tr>
113
            [% END %]
113
            [% END %]
114
            <tr>
115
              <th scope="row">Date and time: </th>
116
              <td>[% current_date_and_time %]</td>
117
            </tr>
114
            <tr>
118
            <tr>
115
              [% timezone_config_class = (time_zone.config_invalid) ? 'status_warn' : '' %]
119
              [% timezone_config_class = (time_zone.config_invalid) ? 'status_warn' : '' %]
116
              [% timezone_env_class    = (time_zone.env_invalid)    ? 'status_warn' : '' %]
120
              [% timezone_env_class    = (time_zone.env_invalid)    ? 'status_warn' : '' %]
117
- 

Return to bug 18674