loncom/homework/optionresponse.pm - diff

Return to optionresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.80, 2003/07/25 18:46:19	version 1.81, 2003/07/25 19:29:15
Line 152 sub end_foilgroup {	Line 152 sub end_foilgroup {

my $result;	my $result;
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\| $target eq 'tex' \|\| $target eq 'analyze') {	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\| $target eq 'tex' \|\| $target eq 'analyze') {
my $tex_option_switch=&Apache::lonxml::get_param('texout',$parstack,$safeeval);	my $tex_option_switch=&Apache::lonxml::get_param('texoptions',$parstack,$safeeval);
my $name;	my $name;
my @opt;	my @opt;
eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval);	eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval);
if ($target eq 'tex' && $tex_option_switch eq 'nooptions') {@opt=();}	if ($target eq 'tex' && $tex_option_switch eq 'nochoice') {@opt=();}
&Apache::lonxml::debug("Options are $#opt");	&Apache::lonxml::debug("Options are $#opt");
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');	my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2');
my $randomize = &Apache::lonxml::get_param('randomize',$parstack,	my $randomize = &Apache::lonxml::get_param('randomize',$parstack,