version 1.137, 2006/04/24 23:05:35
|
version 1.138, 2006/04/24 23:20:37
|
Line 1602 sub render {
|
Line 1602 sub render {
|
} |
} |
} |
} |
|
|
if (!defined($date) && !$anytime) { |
if (!defined($date)) { |
$date = localtime(time); |
$date = localtime(time); |
$date->min(0); |
$date->min(0); |
} |
} |
Line 1716 CHECK
|
Line 1716 CHECK
|
if ($anytime) { |
if ($anytime) { |
$result.=' checked="checked" ' |
$result.=' checked="checked" ' |
} |
} |
$result.="name='${var}anytime'/>".&mt('Anytime').'</label>' |
$result.="name='${var}anytime'/>".&mt('Any time').'</label>' |
} |
} |
return $result; |
return $result; |
|
|
Line 1765 sub postprocess {
|
Line 1765 sub postprocess {
|
|
|
if (defined($self->{VALIDATOR})) { |
if (defined($self->{VALIDATOR})) { |
my $validator = eval($self->{VALIDATOR}); |
my $validator = eval($self->{VALIDATOR}); |
die 'Died during evaluation of evaulation code; Perl said: ' . $@ if $@; |
die 'Died during evaluation of validator code; Perl said: ' . $@ if $@; |
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
if ($invalid) { |
if ($invalid) { |
$self->{ERROR_MSG} = $invalid; |
$self->{ERROR_MSG} = $invalid; |
Line 3274 sub postprocess {
|
Line 3274 sub postprocess {
|
|
|
if (defined($self->{VALIDATOR})) { |
if (defined($self->{VALIDATOR})) { |
my $validator = eval($self->{VALIDATOR}); |
my $validator = eval($self->{VALIDATOR}); |
die 'Died during evaluation of evaulation code; Perl said: ' . $@ if $@; |
die 'Died during evaluation of validator code; Perl said: ' . $@ if $@; |
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
my $invalid = &$validator($helper, $state, $self, $self->getValue()); |
if ($invalid) { |
if ($invalid) { |
$self->{ERROR_MSG} = $invalid; |
$self->{ERROR_MSG} = $invalid; |