--- loncom/homework/optionresponse.pm 2001/12/07 23:58:35 1.28
+++ loncom/homework/optionresponse.pm 2002/01/17 12:23:31 1.31
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# option list style responses
#
-# $Id: optionresponse.pm,v 1.28 2001/12/07 23:58:35 albertel Exp $
+# $Id: optionresponse.pm,v 1.31 2002/01/17 12:23:31 harris41 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -30,25 +30,28 @@ package Apache::optionresponse;
use strict;
use Apache::response;
-sub BEGIN {
+BEGIN {
&Apache::lonxml::register('Apache::optionresponse',('optionresponse'));
}
sub start_optionresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result='';
- #when in a radiobutton response use these
+ #when in a option response use these
&Apache::lonxml::register('Apache::optionresponse',('foilgroup','foil','conceptgroup'));
push (@Apache::lonxml::namespace,'optionresponse');
my $id = &Apache::response::start_response($parstack,$safeeval);
if ($target eq 'edit') {
$result.=&Apache::edit::start_table($token).
- "