--- loncom/homework/radiobuttonresponse.pm 2006/12/08 17:38:35 1.109 +++ loncom/homework/radiobuttonresponse.pm 2007/02/22 01:25:31 1.111 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # mutliple choice style responses # -# $Id: radiobuttonresponse.pm,v 1.109 2006/12/08 17:38:35 albertel Exp $ +# $Id: radiobuttonresponse.pm,v 1.111 2007/02/22 01:25:31 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -179,7 +179,7 @@ sub end_foilgroup { $safeeval,'-2'); if ( $style eq 'survey' && $target ne 'analyze') { if ($target eq 'web' || $target eq 'tex') { - $result=&displayallfoils($direction); + $result=&displayallfoils($direction, $target); } elsif ( $target eq 'answer' ) { $result=&displayallanswers(); } elsif ( $target eq 'grade' ) { @@ -206,6 +206,7 @@ sub end_foilgroup { ('true','false')); } } + $Apache::lonxml::post_evaluate=0; } &Apache::response::poprandomnumber(); &Apache::lonxml::increment_counter(); @@ -231,7 +232,7 @@ sub getfoilcounts { } sub displayallfoils { - my ($direction)=@_; + my ($direction, $target)=@_; my $result; &Apache::lonxml::debug("survey style display"); my @names; @@ -239,6 +240,7 @@ sub displayallfoils { @names= @{ $Apache::response::foilgroup{'names'} }; } my $temp=0; + my $i =0; my $id=$Apache::inputtags::response['-1']; my $part=$Apache::inputtags::part; my $lastresponse= @@ -248,19 +250,27 @@ sub displayallfoils { if (&Apache::response::show_answer() ) { foreach my $name (@names) { if ($Apache::response::foilgroup{$name.'.value'} ne 'unused') { - if ($direction eq 'horizontal') { + if (($direction eq 'horizontal') && ($target ne 'tex')) { $result.="