[LON-CAPA-cvs] cvs: loncom /interface lonhelper.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Tue, 11 Oct 2005 15:44:31 -0000
albertel Tue Oct 11 11:44:31 2005 EDT
Modified files:
/loncom/interface lonhelper.pm
Log:
- put the most common minute selctions first
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.116 loncom/interface/lonhelper.pm:1.117
--- loncom/interface/lonhelper.pm:1.116 Fri Sep 30 22:28:55 2005
+++ loncom/interface/lonhelper.pm Tue Oct 11 11:44:30 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# .helper XML handler to implement the LON-CAPA helper
#
-# $Id: lonhelper.pm,v 1.116 2005/10/01 02:28:55 albertel Exp $
+# $Id: lonhelper.pm,v 1.117 2005/10/11 15:44:30 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1630,9 +1630,9 @@
$result .= "</select> :\n";
$result .= "<select name='${var}minute'>\n";
- for ($i = 0; $i < 60; $i++) {
+ for my $i ((0,15,30,45,59,undef,1..59)) {
my $printedMinute = $i;
- if ($i < 10) {
+ if (defined($i) && $i < 10) {
$printedMinute = "0" . $printedMinute;
}
if ($date->min == $i) {