loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.71, 2004/03/12 21:06:19	version 1.72, 2004/03/13 00:36:11
Line 55 sub caparesponse_check {	Line 55 sub caparesponse_check {
#type's definitons come from capaParser.h	#type's definitons come from capaParser.h
my $message='';	my $message='';
#remove leading and trailing whitespace	#remove leading and trailing whitespace
	if (!defined($response)) {
	$response='';
	}
if ($response=~ /^\s\|\s$/) {	if ($response=~ /^\s\|\s$/) {
$response=~ s:^\s+\|\s+$::g;	$response=~ s:^\s+\|\s+$::g;
$message .="Removed ws now :$response:\n";	$message .="Removed ws now :$response:\n";