version 1.227, 2009/07/14 17:56:13
|
version 1.228, 2009/08/03 16:34:16
|
Line 505 ENDJS
|
Line 505 ENDJS
|
unshift(@Months,'If you can read this an error occurred'); |
unshift(@Months,'If you can read this an error occurred'); |
if ($includeempty) { $monthselector.="<option value=''></option>"; } |
if ($includeempty) { $monthselector.="<option value=''></option>"; } |
for(my $m = 1;$m <=$#Months;$m++) { |
for(my $m = 1;$m <=$#Months;$m++) { |
$monthselector .= qq{ <option value="$m" }; |
$monthselector .= qq{ <option value="$m"}; |
$monthselector .= "selected " if ($m-1 eq $month); |
$monthselector .= ' selected="selected"' if ($m-1 eq $month); |
$monthselector .= '> '.&mt($Months[$m]).' </option>'; |
$monthselector .= '> '.&mt($Months[$m]).' </option>'."\n"; |
} |
} |
$monthselector.= ' </select>'; |
$monthselector.= ' </select>'; |
# Day |
# Day |
Line 520 ENDJS
|
Line 520 ENDJS
|
$hourselector.=qq{<option value=''></option>}; |
$hourselector.=qq{<option value=''></option>}; |
} |
} |
for (my $h = 0;$h<24;$h++) { |
for (my $h = 0;$h<24;$h++) { |
$hourselector .= qq{<option value="$h" }; |
$hourselector .= qq{<option value="$h"}; |
$hourselector .= "selected " if (defined($hour) && $hour == $h); |
$hourselector .= ' selected="selected"' if (defined($hour) && $hour == $h); |
$hourselector .= ">"; |
$hourselector .= ">"; |
my $timest=''; |
my $timest=''; |
if ($h == 0) { |
if ($h == 0) { |