--- loncom/interface/loncommon.pm	2008/05/29 15:39:16	1.656
+++ loncom/interface/loncommon.pm	2008/05/29 19:35:53	1.657
@@ -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.657 2008/05/29 19:35:53 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);
@@ -654,12 +655,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;