[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.656 and 1.658

version 1.656, 2008/05/29 15:39:16 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 150  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 193  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 654  ENDSCRT Line 638  ENDSCRT
 sub select_timezone {  sub select_timezone {
    my ($name,$selected,$onchange)=@_;     my ($name,$selected,$onchange)=@_;
    my $output="<select name='$name' $onchange>\n";     my $output="<select name='$name' $onchange>\n";
    foreach my $key (sort(keys(%timezone))) {     my @timezones = DateTime::TimeZone->all_names;
       $output.="<option value='$timezone{$key}'";     foreach my $tzone (@timezones) {
       if ($key eq $selected) {         $output.= '<option value="'.$tzone.'"';
          $output.=" selected='selected'";         if ($tzone eq $selected) {
       }             $output.=' selected="selected"';
       $output.=">$timezone{$key}</option>\n";         }
          $output.=">$tzone</option>\n";
    }     }
    $output.="</select>";     $output.="</select>";
    return $output;     return $output;
Removed from v.1.656  
changed lines
  Added in v.1.658

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>