version 1.656, 2008/05/29 15:39:16
|
version 1.657, 2008/05/29 19:35:53
|
Line 67 use Apache::loncoursedata();
|
Line 67 use Apache::loncoursedata();
|
use Apache::lontexconvert(); |
use Apache::lontexconvert(); |
use Apache::lonclonecourse(); |
use Apache::lonclonecourse(); |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
use DateTime::TimeZone; |
|
|
# ---------------------------------------------- Designs |
# ---------------------------------------------- Designs |
use vars qw(%defaultdesign); |
use vars qw(%defaultdesign); |
Line 654 ENDSCRT
|
Line 655 ENDSCRT
|
sub select_timezone { |
sub select_timezone { |
my ($name,$selected,$onchange)=@_; |
my ($name,$selected,$onchange)=@_; |
my $output="<select name='$name' $onchange>\n"; |
my $output="<select name='$name' $onchange>\n"; |
foreach my $key (sort(keys(%timezone))) { |
my @timezones = DateTime::TimeZone->all_names; |
$output.="<option value='$timezone{$key}'"; |
foreach my $tzone (@timezones) { |
if ($key eq $selected) { |
$output.= '<option value="'.$tzone.'"'; |
$output.=" selected='selected'"; |
if ($tzone eq $selected) { |
} |
$output.=' selected="selected"'; |
$output.=">$timezone{$key}</option>\n"; |
} |
|
$output.=">$tzone</option>\n"; |
} |
} |
$output.="</select>"; |
$output.="</select>"; |
return $output; |
return $output; |