version 1.129, 2006/01/17 18:39:50
|
version 1.130, 2006/01/24 22:20:19
|
Line 1561 sub render {
|
Line 1561 sub render {
|
my $date; |
my $date; |
|
|
my $time=time; |
my $time=time; |
|
$date = localtime($time); |
|
$date->min(0); |
my ($anytime,$onclick); |
my ($anytime,$onclick); |
|
|
if (defined($self->{DEFAULT_VALUE})) { |
if (defined($self->{DEFAULT_VALUE})) { |
Line 1568 sub render {
|
Line 1570 sub render {
|
die('Error in default value code for variable ' . |
die('Error in default value code for variable ' . |
$self->{'variable'} . ', Perl said: ' . $@) if $@; |
$self->{'variable'} . ', Perl said: ' . $@) if $@; |
$time = &$valueFunc($helper, $self); |
$time = &$valueFunc($helper, $self); |
if (lc($time) eq 'anytime') { $time=time; $anytime=1; } |
if (lc($time) eq 'anytime') { |
|
$anytime=1; |
|
} else { |
|
$date = localtime($time); |
|
} |
|
} else { |
|
|
} |
} |
if ($anytime) { |
if ($anytime) { |
$onclick = "onclick=\"javascript:updateCheck(this.form,'${var}anytime',false)\""; |
$onclick = "onclick=\"javascript:updateCheck(this.form,'${var}anytime',false)\""; |
} |
} |
# Default date: The current hour. |
# Default date: The current hour. |
$date = localtime($time); |
|
$date->min(0); |
|
|
|
if (defined $self->{ERROR_MSG}) { |
if (defined $self->{ERROR_MSG}) { |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |
$result .= '<font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />'; |