%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
%#
%# END BPS TAGGED BLOCK }}}
<%ONCE>
-my $HAS_DATETIME_TZ = eval { require DateTime::TimeZone };
-my $HAS_DATETIME = eval { require DateTime };
+use DateTime;
-my (@names, %label);
-if ( $HAS_DATETIME_TZ ) {
- @names = DateTime::TimeZone->all_names;
-}
+my @names = DateTime::TimeZone->all_names;
-if ( $HAS_DATETIME ) {
- my $dt = DateTime->now;
- for ( @names ) {
- $dt->set_time_zone( $_ );
- $label{$_} = $_ . ' ' . $dt->strftime('%z');
- }
+my %label;
+my $dt = DateTime->now;
+for ( @names ) {
+ $dt->set_time_zone( $_ );
+ $label{$_} = $_ . ' ' . $dt->strftime('%z');
}
</%ONCE>
-% unless ( $HAS_DATETIME_TZ && @names ) {
-<input type="text" name="<% $Name %>" value="<% $Default %>" />
-% } else {
<select name="<% $Name %>">
% if ( $ShowNullOption ) {
<option value=""><&|/l&>System Default</&></option>
|n %> ><% $label{$tz} || $tz %></option>
% }
</select>
-% }
<%ARGS>
$ShowNullOption => 1
$Name => undef