loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.31, 2001/06/02 03:59:59	version 1.32, 2001/06/29 18:53:50
Line 55 sub end_caparesponse {	Line 55 sub end_caparesponse {
sub start_numericalresponse {	sub start_numericalresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
return '';	my $result;
	if ($target eq 'edit') {
	$result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token));
	$result.=&Apache::edit::text_arg('Answer:','answer',$token).
	&Apache::edit::text_arg('Unit:','unit',$token).'</td></tr><tr><td colspan="3">';
	} elsif ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
	'answer','unit');
	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token);}
	}
	return $result;
}	}

sub end_numericalresponse {	sub end_numericalresponse {
Line 106 sub end_numericalresponse {	Line 116 sub end_numericalresponse {
chop $result;	chop $result;
$result.=" $unit.<br></br>";	$result.=" $unit.<br></br>";
}	}
	} elsif ($target eq 'edit') {
	$result.='</td></tr>'.&Apache::edit::end_table;
}	}
&Apache::response::end_response;	&Apache::response::end_response;
return $result;	return $result;