--- loncom/interface/loncommon.pm 2008/05/31 01:51:42 1.658
+++ 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.658 2008/05/31 01:51:42 raeburn Exp $
+# $Id: loncommon.pm,v 1.662 2008/06/24 16:44:22 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -636,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");
}
|