loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.151, 2004/06/30 17:32:46	version 1.152, 2004/08/23 19:34:52
Line 563 sub start_stringresponse {	Line 563 sub start_stringresponse {
[['cs','Case Sensitive'],['ci','Case Insensitive'],	[['cs','Case Sensitive'],['ci','Case Insensitive'],
['mc','Case Insensitive, Any Order'],	['mc','Case Insensitive, Any Order'],
['re','Regular Expression']],$token);	['re','Regular Expression']],$token);
	$result.=&Apache::edit::text_arg('String to display for answer:',
	'answerdisplay',$token);
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();	$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row();
} elsif ($target eq 'modified') {	} elsif ($target eq 'modified') {
my $constructtag;	my $constructtag;
Line 575 sub start_stringresponse {	Line 577 sub start_stringresponse {
}	}
} elsif ($target eq 'web') {	} elsif ($target eq 'web') {
if ( &Apache::response::show_answer() ) {	if ( &Apache::response::show_answer() ) {
$Apache::inputtags::answertxt{$id}=	my $answer=
&Apache::lonxml::get_param('answer',$parstack,$safeeval);	&Apache::lonxml::get_param('answerdisplay',$parstack,$safeeval);
	if (!defined $answer \|\| $answer eq '') {
	$answer=
	&Apache::lonxml::get_param('answer',$parstack,$safeeval);
	}
	$Apache::inputtags::answertxt{$id}=$answer;
}	}
} elsif ($target eq 'answer' \|\| $target eq 'grade') {	} elsif ($target eq 'answer' \|\| $target eq 'grade') {
&Apache::response::reset_params();	&Apache::response::reset_params();