--- loncom/interface/loncommon.pm	2008/05/29 15:39:16	1.656
+++ loncom/interface/loncommon.pm	2008/05/31 01:51:42	1.658
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.656 2008/05/29 15:39:16 www Exp $
+# $Id: loncommon.pm,v 1.658 2008/05/31 01:51:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -67,6 +67,7 @@ use Apache::loncoursedata();
 use Apache::lontexconvert();
 use Apache::lonclonecourse();
 use LONCAPA qw(:DEFAULT :match);
+use DateTime::TimeZone;
 
 # ---------------------------------------------- Designs
 use vars qw(%defaultdesign);
@@ -150,7 +151,6 @@ sub ssi_with_retries {
 
 # ----------------------------------------------- Filetypes/Languages/Copyright
 my %language;
-my %timezone;
 my %supported_language;
 my %cprtag;
 my %scprtag;
@@ -193,22 +193,6 @@ BEGIN {
             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
     {
         my $copyrightfile = $Apache::lonnet::perlvar{'lonIncludes'}.
@@ -654,12 +638,13 @@ ENDSCRT
 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";
+   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;