--- loncom/homework/radiobuttonresponse.pm 2002/07/17 18:06:18 1.42 +++ loncom/homework/radiobuttonresponse.pm 2002/07/29 20:43:47 1.43 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # mutliple choice style responses # -# $Id: radiobuttonresponse.pm,v 1.42 2002/07/17 18:06:18 albertel Exp $ +# $Id: radiobuttonresponse.pm,v 1.43 2002/07/29 20:43:47 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -74,9 +74,9 @@ sub end_radiobuttonresponse { return $result; } -%Apache::response::foilgroup={}; +%Apache::response::foilgroup=(); sub start_foilgroup { - %Apache::response::foilgroup={}; + %Apache::response::foilgroup=(); $Apache::radiobuttonresponse::conceptgroup=0; &Apache::response::setrandomnumber(); return ''; @@ -290,7 +290,7 @@ sub displayanswers { sub start_conceptgroup { my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; $Apache::radiobuttonresponse::conceptgroup=1; - %Apache::response::conceptgroup={}; + %Apache::response::conceptgroup=(); my $result; if ($target eq 'edit') { $result.=&Apache::edit::tag_start($target,$token);