--- loncom/homework/response.pm 2001/01/10 21:49:43 1.18 +++ loncom/homework/response.pm 2001/01/19 21:44:51 1.19 @@ -7,7 +7,7 @@ package Apache::response; use strict; sub BEGIN { - &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse')); + &Apache::lonxml::register('Apache::response',('responseparam','caparesponse','numericalresponse','radiobuttonresponse','optionresponse')); } sub start_response { @@ -109,6 +109,14 @@ sub start_radiobuttonresponse { return ""; } +sub start_optionresponse { + require Apache::optionresponse; + import Apache::optionresponse; + my ($target,$token,$parstack,$parser,$safeeval,$style)=@_; + Apache::optionresponse::start_optionresponse($target,$token,$parstack,$parser,$safeeval,$style);; + return ""; +} + sub start_responseparam { my ($target,$token,$parstack,$parser,$safeeval)=@_; if ($target eq 'grade') {