loncom/homework/matchresponse.pm - diff

Return to matchresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/matchresponse.pm between versions 1.22 and 1.26

version 1.22, 2003/09/15 18:13:52	version 1.26, 2003/10/13 19:25:30
Line 358 sub displayfoils {	Line 358 sub displayfoils {
\%Apache::response::foilgroup);	\%Apache::response::foilgroup);
my $part=$Apache::inputtags::part;	my $part=$Apache::inputtags::part;
my $solved=$Apache::lonhomework::history{"resource.$part.solved"};	my $solved=$Apache::lonhomework::history{"resource.$part.solved"};
my $status=$Apache::inputtags::status[-1];
my %letter_name_map;	my %letter_name_map;
if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {	if (defined(%{ $Apache::response::itemgroup{'letter_name_map'} })) {
%letter_name_map=	%letter_name_map=
Line 369 sub displayfoils {	Line 368 sub displayfoils {
%name_letter_map=	%name_letter_map=
%{ $Apache::response::itemgroup{'name_letter_map'} };	%{ $Apache::response::itemgroup{'name_letter_map'} };
}	}
if (($solved =~ /^correct/) \|\| ($status eq 'SHOW_ANSWER')) {	if ( &Apache::response::show_answer() && ($target ne 'tex')) {
foreach my $name (@whichfoils) {	foreach my $name (@whichfoils) {
my $text=$Apache::response::foilgroup{$name.'.text'};	my $text=$Apache::response::foilgroup{$name.'.text'};
my $value=$Apache::response::foilgroup{$name.'.value'};	my $value=$Apache::response::foilgroup{$name.'.value'};
Line 590 sub end_foil {	Line 589 sub end_foil {
}	}
} else {	} else {
if ($target eq 'tex') {	if ($target eq 'tex') {
$Apache::response::foilgroup{"$name.text"} = ' $\triangleright$ '.$text;	$Apache::response::foilgroup{"$name.text"} = $text;
} else {	} else {
$Apache::response::foilgroup{"$name.text"} = $text;	$Apache::response::foilgroup{"$name.text"} = $text;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.22
changed lines
	Added in v.1.26