--- loncom/interface/lonhelper.pm 2006/04/24 23:05:35 1.137 +++ loncom/interface/lonhelper.pm 2006/04/24 23:20:37 1.138 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # .helper XML handler to implement the LON-CAPA helper # -# $Id: lonhelper.pm,v 1.137 2006/04/24 23:05:35 albertel Exp $ +# $Id: lonhelper.pm,v 1.138 2006/04/24 23:20:37 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1602,7 +1602,7 @@ sub render { } } - if (!defined($date) && !$anytime) { + if (!defined($date)) { $date = localtime(time); $date->min(0); } @@ -1716,7 +1716,7 @@ CHECK if ($anytime) { $result.=' checked="checked" ' } - $result.="name='${var}anytime'/>".&mt('Anytime').'' + $result.="name='${var}anytime'/>".&mt('Any time').'' } return $result; @@ -1765,7 +1765,7 @@ sub postprocess { if (defined($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()); if ($invalid) { $self->{ERROR_MSG} = $invalid; @@ -3274,7 +3274,7 @@ sub postprocess { if (defined($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()); if ($invalid) { $self->{ERROR_MSG} = $invalid;