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

Diff for /loncom/interface/loncommon.pm between versions 1.655 and 1.657

version 1.655, 2008/05/29 02:58:41 version 1.657, 2008/05/29 19:35:53
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 192  BEGIN { Line 194  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 652  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
   
Removed from v.1.655  
changed lines
  Added in v.1.657

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