loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.60, 2002/02/15 22:16:04	version 1.62, 2002/05/03 19:32:57
Line 363 sub start_responseparam {	Line 363 sub start_responseparam {
if ($ENV{'request.state'} eq 'construct') {	if ($ENV{'request.state'} eq 'construct') {
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);	my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval);
my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);	my $default = &Apache::lonxml::get_param('default',$parstack,$safeeval);
$Apache::inputtags::params{$name}=$default;	if ($name) {$Apache::inputtags::params{$name}=$default;}
}	}
}	}
return $result;	return $result;
Line 451 sub answer_footer {	Line 451 sub answer_footer {
return $result;	return $result;
}	}

	sub showallfoils {
	my $return=0;
	if (defined($ENV{'form.showallfoils'}) &&
	$ENV{'request.state'} eq 'construct') {
	$return=1;
	}
	return $return;
	}
1;	1;
__END__	__END__