loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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.'"';