--- loncom/interface/loncommon.pm	2008/05/29 02:58:41	1.655
+++ loncom/interface/loncommon.pm	2008/05/29 15:39:16	1.656
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.655 2008/05/29 02:58:41 raeburn Exp $
+# $Id: loncommon.pm,v 1.656 2008/05/29 15:39:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -150,6 +150,7 @@ sub ssi_with_retries {
 
 # ----------------------------------------------- Filetypes/Languages/Copyright
 my %language;
+my %timezone;
 my %supported_language;
 my %cprtag;
 my %scprtag;
@@ -192,6 +193,22 @@ 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'}.
@@ -634,6 +651,19 @@ ENDSCRT
     return $jscript;
 }
 
+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";
+   }
+   $output.="</select>";
+   return $output;
+}
 
 =pod