loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.36, 2001/06/27 18:51:37	version 1.38, 2001/07/13 14:02:35
Line 31 sub initialize_inputtags {	Line 31 sub initialize_inputtags {
sub start_input {	sub start_input {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $id = &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id = &Apache::lonxml::get_param('id',$parstack,$safeeval);
	if ($id eq '') { $id = $Apache::lonxml::curdepth; }
push (@Apache::inputtags::input,$id);	push (@Apache::inputtags::input,$id);
push (@Apache::inputtags::inputlist,$id);	push (@Apache::inputtags::inputlist,$id);
return $id;	return $id;
Line 158 sub decideoutput {	Line 159 sub decideoutput {
my ($award,$solved)=@_;	my ($award,$solved)=@_;
my $message='';	my $message='';
my $button=0;	my $button=0;
if ($solved =~ /^correct/ \|\| $award eq 'EXACT_ANS' \|\| $award eq 'APPROX_ANS' ) {	if ($solved =~ /^correct/) {
$message = "<b>You are correct.</b> Your receipt is ".&Apache::lonnet::receipt;	$message = "<b>You are correct.</b> Your receipt is ".
	&Apache::lonnet::receipt;
$button=0;	$button=0;
	} elsif ($solved =~ /^excused/) {
	$message = "<b>You are excused from the problem.</b>";
	$button=0;
	} elsif ($award eq 'EXACT_ANS' \|\| $award eq 'APPROX_ANS' ) {
	if ($solved =~ /^incorrect/ \|\| $solved eq '') {
	$message = "Incorrect";
	$button=1;
	} else {
	$message = "<b>You are correct.</b> Your receipt is ".
	&Apache::lonnet::receipt;
	$button=0;
	}
} elsif ($award eq 'NO_RESPONSE') {	} elsif ($award eq 'NO_RESPONSE') {
$message = '';	$message = '';
$button=1;	$button=1;