loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.9, 2003/03/26 18:43:29	version 1.10, 2003/03/26 22:59:09
Line 31 use strict;	Line 31 use strict;
use HTML::Entities();	use HTML::Entities();
use Apache::optionresponse;	use Apache::optionresponse;

my $flag_for_exam_printing = 1;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::rankresponse',('rankresponse'));	&Apache::lonxml::register('Apache::rankresponse',('rankresponse'));
}	}
Line 468 sub end_foil {	Line 466 sub end_foil {
} else {	} else {
push @{ $Apache::response::foilgroup{'names'} }, $name;	push @{ $Apache::response::foilgroup{'names'} }, $name;
$Apache::response::foilgroup{"$name.value"} = $value;	$Apache::response::foilgroup{"$name.value"} = $value;
if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam' and $flag_for_exam_printing) {	if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam') {
$Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text;	$Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text;
$flag_for_exam_printing = 0;
} else {	} else {
if ($target eq 'tex') {	if ($target eq 'tex') {
$Apache::response::foilgroup{"$name.text"} = ' $\triangleright$ '.$text;	$Apache::response::foilgroup{"$name.text"} = ' $\triangleright$ '.$text;