version 1.657, 2008/05/29 19:35:53
|
version 1.659, 2008/05/31 23:53:18
|
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'}. |
Line 653 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.'"'; |