--- loncom/interface/loncommon.pm 2008/05/29 19:35:53 1.657
+++ loncom/interface/loncommon.pm 2008/06/24 16:44:22 1.662
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.657 2008/05/29 19:35:53 raeburn Exp $
+# $Id: loncommon.pm,v 1.662 2008/06/24 16:44:22 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -151,7 +151,6 @@ sub ssi_with_retries {
# ----------------------------------------------- Filetypes/Languages/Copyright
my %language;
-my %timezone;
my %supported_language;
my %cprtag;
my %scprtag;
@@ -194,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'}.
@@ -653,8 +636,15 @@ ENDSCRT
}
sub select_timezone {
- my ($name,$selected,$onchange)=@_;
- my $output="
');
- foreach my $line (0..2) {
+ foreach my $line (0..($max_samples-1)) {
if (defined($samples->[$line]{$key})) {
$r->print($samples->[$line]{$key}." \n");
}
|