loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.657, 2008/05/29 19:35:53	version 1.658, 2008/05/31 01:51:42
Line 151 sub ssi_with_retries {	Line 151 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 194 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'}.