loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

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 />';