--- loncom/homework/optionresponse.pm 2001/06/26 21:41:58 1.18
+++ loncom/homework/optionresponse.pm 2001/08/06 20:33:23 1.22
@@ -40,14 +40,6 @@ sub end_optionresponse {
return $result;
}
-sub insert_optionresponse {
- return '
-
-
-
-';
-}
-
%Apache::response::foilgroup={};
sub start_foilgroup {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
@@ -274,9 +266,9 @@ sub start_foil {
if ($$tagstack['-2'] eq 'conceptgroup') { $level = '-3'; }
my @opt;
eval '@opt ='.&Apache::lonxml::get_param('options',$parstack,$safeeval,$level);
- $result.=&Apache::edit::text_arg('Name:','name',$token).
- &Apache::edit::select_arg('Correct Option:','value',['unused',(@opt)],$token).
- '
';
+ $result.=&Apache::edit::text_arg('Name:','name',$token);
+ $result.= &Apache::edit::select_or_text_arg('Correct Option:','value',['unused',(@opt)],$token,'15');
+ $result .= ' |
';
}
if ($target eq 'modified') {
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'value','name');
|