loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.95, 2003/11/04 18:37:40	version 1.97, 2004/01/06 20:37:29
Line 184 sub end_foilgroup {	Line 184 sub end_foilgroup {
if ($ENV{'form.submitted'} eq 'scantron') {	if ($ENV{'form.submitted'} eq 'scantron') {
$response = $opt[$response];	$response = $opt[$response];
}	}
$responsehash{$name}=$response;
if ( $response =~ /[^\s]/) {	if ( $response =~ /[^\s]/) {
	$responsehash{$name}=$response;
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
&Apache::lonxml::debug("submitted a $response for $value<br />\n");	&Apache::lonxml::debug("submitted a $response for $value<br />\n");
if ($value eq $response) {	if ($value eq $response) {
Line 445 sub optionlist_correction {	Line 445 sub optionlist_correction {
$texoptionlist =~ s/>/\$>\$/g;	$texoptionlist =~ s/>/\$>\$/g;
$texoptionlist =~ s/</\$<\$/g;	$texoptionlist =~ s/</\$<\$/g;
$texoptionlist =~ s/=/\$=\$/g;	$texoptionlist =~ s/=/\$=\$/g;
$texoptionlist =~ s/\^(\d+)/<m>\$$1\$<\/m>/g;	$texoptionlist =~ s/\^(\d+)/\$^{$1}\$/g;
} else {	} else {
$texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;	$texoptionlist =~ s/<option><\/option>/\\item \[\] \\vskip -5 mm/;
}	}