--- loncom/homework/optionresponse.pm 2004/05/06 07:31:32 1.109 +++ loncom/homework/optionresponse.pm 2004/05/27 04:25:13 1.110 @@ -1,7 +1,7 @@ # LearningOnline Network with CAPA # option list style responses # -# $Id: optionresponse.pm,v 1.109 2004/05/06 07:31:32 albertel Exp $ +# $Id: optionresponse.pm,v 1.110 2004/05/27 04:25:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -92,7 +92,7 @@ sub start_foilgroup { my $result=''; %Apache::response::foilgroup=(); $Apache::optionresponse::conceptgroup=0; - &Apache::response::setrandomnumber(); + &Apache::response::pushrandomnumber(); if ($target eq 'edit') { my $optionlist="\n"; my $option; @@ -257,6 +257,7 @@ sub end_foilgroup { if ($target eq 'tex' and $Apache::lonhomework::type ne 'exam') { $result .= '\end{enumerate}'; } + &Apache::response::poprandomnumber(); return $result; }