version 1.118, 2005/10/11 20:57:54
|
version 1.119, 2005/10/11 21:16:37
|
Line 1557 sub render {
|
Line 1557 sub render {
|
my $date; |
my $date; |
|
|
my $time=time; |
my $time=time; |
my $anytime; |
my ($anytime,$onclick); |
|
|
if (defined($self->{DEFAULT_VALUE})) { |
if (defined($self->{DEFAULT_VALUE})) { |
my $valueFunc = eval($self->{DEFAULT_VALUE}); |
my $valueFunc = eval($self->{DEFAULT_VALUE}); |
Line 1566 sub render {
|
Line 1566 sub render {
|
$time = &$valueFunc($helper, $self); |
$time = &$valueFunc($helper, $self); |
if (lc($time) eq 'anytime') { $time=time; $anytime=1; } |
if (lc($time) eq 'anytime') { $time=time; $anytime=1; } |
} |
} |
|
if ($anytime) { |
|
$onclick = "onclick=\"javascript:updateCheck(this.form,'${var}anytime',false)\""; |
|
} |
# Default date: The current hour. |
# Default date: The current hour. |
$date = localtime($time); |
$date = localtime($time); |
$date->min(0); |
$date->min(0); |
Line 1576 sub render {
|
Line 1579 sub render {
|
|
|
# Month |
# Month |
my $i; |
my $i; |
$result .= "<select name='${var}month'>\n"; |
$result .= "<select $onclick name='${var}month'>\n"; |
for ($i = 0; $i < 12; $i++) { |
for ($i = 0; $i < 12; $i++) { |
if ($i == $date->mon) { |
if ($i == $date->mon) { |
$result .= "<option value='$i' selected='selected'>"; |
$result .= "<option value='$i' selected='selected'>"; |
Line 1588 sub render {
|
Line 1591 sub render {
|
$result .= "</select>\n"; |
$result .= "</select>\n"; |
|
|
# Day |
# Day |
$result .= "<select name='${var}day'>\n"; |
$result .= "<select $onclick name='${var}day'>\n"; |
for ($i = 1; $i < 32; $i++) { |
for ($i = 1; $i < 32; $i++) { |
if ($i == $date->mday) { |
if ($i == $date->mday) { |
$result .= '<option selected="selected">'; |
$result .= '<option selected="selected">'; |
Line 1600 sub render {
|
Line 1603 sub render {
|
$result .= "</select>,\n"; |
$result .= "</select>,\n"; |
|
|
# Year |
# Year |
$result .= "<select name='${var}year'>\n"; |
$result .= "<select $onclick name='${var}year'>\n"; |
for ($i = 2000; $i < 2030; $i++) { # update this after 64-bit dates |
for ($i = 2000; $i < 2030; $i++) { # update this after 64-bit dates |
if ($date->year + 1900 == $i) { |
if ($date->year + 1900 == $i) { |
$result .= "<option selected='selected'>"; |
$result .= "<option selected='selected'>"; |
Line 1617 sub render {
|
Line 1620 sub render {
|
my $am = &mt('a.m.'); |
my $am = &mt('a.m.'); |
my $pm = &mt('p.m.'); |
my $pm = &mt('p.m.'); |
# Build hour |
# Build hour |
$result .= "<select name='${var}hour'>\n"; |
$result .= "<select $onclick name='${var}hour'>\n"; |
$result .= "<option " . ($date->hour == 0 ? 'selected="selected" ':'') . |
$result .= "<option " . ($date->hour == 0 ? 'selected="selected" ':'') . |
" value='0'>" . &mt('midnight') . "</option>\n"; |
" value='0'>" . &mt('midnight') . "</option>\n"; |
for ($i = 1; $i < 12; $i++) { |
for ($i = 1; $i < 12; $i++) { |
Line 1640 sub render {
|
Line 1643 sub render {
|
|
|
$result .= "</select> :\n"; |
$result .= "</select> :\n"; |
|
|
$result .= "<select name='${var}minute'>\n"; |
$result .= "<select $onclick name='${var}minute'>\n"; |
for my $i ((0,15,30,45,59,undef,1..59)) { |
for my $i ((0,15,30,45,59,undef,1..59)) { |
my $printedMinute = $i; |
my $printedMinute = $i; |
if (defined($i) && $i < 10) { |
if (defined($i) && $i < 10) { |
Line 1656 sub render {
|
Line 1659 sub render {
|
$result .= "</select>\n"; |
$result .= "</select>\n"; |
} |
} |
if ($self->{'anytime'}) { |
if ($self->{'anytime'}) { |
|
$result.=(<<CHECK); |
|
<script type="text/javascript"> |
|
// <!-- |
|
function updateCheck(form,name,value) { |
|
var checkbox=form[name]; |
|
checkbox.checked = value; |
|
} |
|
// --> |
|
</script> |
|
CHECK |
|
|
$result.=" or <label><input type='checkbox' "; |
$result.=" or <label><input type='checkbox' "; |
if ($anytime) { |
if ($anytime) { |
$result.=' checked="checked" ' |
$result.=' checked="checked" ' |