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.656, 2008/05/29 15:39:16
Line 150 sub ssi_with_retries {	Line 150 sub ssi_with_retries {

# ----------------------------------------------- Filetypes/Languages/Copyright	# ----------------------------------------------- Filetypes/Languages/Copyright
my %language;	my %language;
	my %timezone;
my %supported_language;	my %supported_language;
my %cprtag;	my %cprtag;
my %scprtag;	my %scprtag;
Line 192 BEGIN {	Line 193 BEGIN {
close($fh);	close($fh);
}	}
}	}
	# ------------------------------------------------------------------- timezones
	{
	my $timetabfile = $Apache::lonnet::perlvar{'lonTabDir'}.
	'/timezone.tab';
	if ( open(my $fh,"<$timetabfile") ) {
	while (my $line = <$fh>) {
	next if ($line=~/^\#/);
	chomp($line);
	my $value=$line;
	$value=~s/\_/ /g;
	$timezone{$line}=$value;
	}
	close($fh);
	}
	}

# ------------------------------------------------------------------ copyrights	# ------------------------------------------------------------------ copyrights
{	{
my $copyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.	my $copyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.
Line 634 ENDSCRT	Line 651 ENDSCRT
return $jscript;	return $jscript;
}	}

	sub select_timezone {
	my ($name,$selected,$onchange)=@_;
	my $output="<select name='$name' $onchange>\n";
	foreach my $key (sort(keys(%timezone))) {
	$output.="<option value='$timezone{$key}'";
	if ($key eq $selected) {
	$output.=" selected='selected'";
	}
	$output.=">$timezone{$key}</option>\n";
	}
	$output.="</select>";
	return $output;
	}

=pod	=pod