--- loncom/homework/radiobuttonresponse.pm 2001/02/19 20:36:49 1.12 +++ loncom/homework/radiobuttonresponse.pm 2001/02/22 00:49:03 1.13 @@ -1,5 +1,6 @@ # The LearningOnline Network with CAPA # mutliple choice style responses +# 2/21 Guy package Apache::radiobuttonresponse; use strict; @@ -143,12 +144,13 @@ sub displayfoils { } sub start_foil { - $Apache::lonxml::redirection--; + &Apache::lonxml::startredirection; return ''; } sub end_foil { my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + my $foil=&Apache::lonxml::endredirection; if ($target eq 'web' || $target eq 'grade') { my $args =''; if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; } @@ -156,12 +158,7 @@ sub end_foil { push @{ $Apache::response::foilgroup{'names'} }, $name; my $value = &Apache::run::run("{$args;".'return $value}',$safeeval); $Apache::response::foilgroup{"$name.value"} = $value; - $Apache::response::foilgroup{"$name.text"} = $Apache::lonxml::outputstack; - } - - $Apache::lonxml::redirection++; - if ($Apache::lonxml::redirection == 1) { - $Apache::lonxml::outputstack=''; + $Apache::response::foilgroup{"$name.text"} = $foil; } return ''; }