[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) {