loncom/homework/rankresponse.pm - diff

Return to rankresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.25, 2003/10/27 19:27:09	version 1.26, 2003/10/27 20:04:34
Line 93 sub start_foilgroup {	Line 93 sub start_foilgroup {
sub end_foilgroup {	sub end_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\| $target eq 'tex') {	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
	$target eq 'tex' \|\| $target eq 'analyze') {
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,
$safeeval,'-2');	$safeeval,'-2');
Line 108 sub end_foilgroup {	Line 109 sub end_foilgroup {
} elsif ( $target eq 'analyze') {	} elsif ( $target eq 'analyze') {
my @shown = &whichfoils($max,$randomize);	my @shown = &whichfoils($max,$randomize);
&Apache::response::analyze_store_foilgroup(\@shown,	&Apache::response::analyze_store_foilgroup(\@shown,
['text','value']);	['text','value','location']);
}	}
&Apache::lonxml::increment_counter(&getfoilcounts($max));	&Apache::lonxml::increment_counter(&getfoilcounts($max));
} elsif ($target eq 'edit') {	} elsif ($target eq 'edit') {