|
version 1.116, 2005/10/01 02:28:55
|
version 1.117, 2005/10/11 15:44:30
|
|
Line 1630 sub render {
|
Line 1630 sub render {
|
| $result .= "</select> :\n"; |
$result .= "</select> :\n"; |
| |
|
| $result .= "<select name='${var}minute'>\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; |
my $printedMinute = $i; |
| if ($i < 10) { |
if (defined($i) && $i < 10) { |
| $printedMinute = "0" . $printedMinute; |
$printedMinute = "0" . $printedMinute; |
| } |
} |
| if ($date->min == $i) { |
if ($date->min == $i) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhelper.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface