loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.655, 2008/05/29 02:58:41	version 1.658, 2008/05/31 01:51:42
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 634 ENDSCRT	Line 635 ENDSCRT
return $jscript;	return $jscript;
}	}

	sub select_timezone {
	my ($name,$selected,$onchange)=@_;
	my $output="<select name='$name' $onchange>\n";
	my @timezones = DateTime::TimeZone->all_names;
	foreach my $tzone (@timezones) {
	$output.= '<option value="'.$tzone.'"';
	if ($tzone eq $selected) {
	$output.=' selected="selected"';
	}
	$output.=">$tzone</option>\n";
	}
	$output.="</select>";
	return $output;
	}

=pod	=pod