version 1.658, 2008/05/31 01:51:42
|
version 1.659, 2008/05/31 23:53:18
|
Line 636 ENDSCRT
|
Line 636 ENDSCRT
|
} |
} |
|
|
sub select_timezone { |
sub select_timezone { |
my ($name,$selected,$onchange)=@_; |
my ($name,$selected,$onchange,$includeempty)=@_; |
my $output="<select name='$name' $onchange>\n"; |
my $output='<select name="'.$name.'" '.$onchange.'>'."\n"; |
|
if ($includeempty) { |
|
$output .= '<option value=""'; |
|
if (($selected eq '') || ($selected eq 'local')) { |
|
$output .= ' selected="selected" '; |
|
} |
|
$output .= '> </option>'; |
|
} |
my @timezones = DateTime::TimeZone->all_names; |
my @timezones = DateTime::TimeZone->all_names; |
foreach my $tzone (@timezones) { |
foreach my $tzone (@timezones) { |
$output.= '<option value="'.$tzone.'"'; |
$output.= '<option value="'.$tzone.'"'; |