loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;