version 1.47, 2002/09/23 17:20:41
|
version 1.48, 2002/09/23 19:09:52
|
Line 228 sub whichfoils {
|
Line 228 sub whichfoils {
|
} |
} |
if (&Apache::response::showallfoils()) { |
if (&Apache::response::showallfoils()) { |
@whichfalse=@names; |
@whichfalse=@names; |
} elsif ($randomize=='no') { |
} elsif ($randomize eq 'no') { |
&Apache::lonxml::debug("No randomization"); |
&Apache::lonxml::debug("No randomization"); |
my $havetrue=0; |
my $havetrue=0; |
foreach my $name (@names) { |
foreach my $name (@names) { |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
if (!$havetrue ) { |
if (!$havetrue ) { push(@whichfalse,$name); $havetrue++; } |
push (@whichfalse,$name); |
|
$havetrue++; |
|
} |
|
} elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') { |
} elsif ($Apache::response::foilgroup{$name.'.value'} eq 'false') { |
push (@whichfalse,$name); |
push (@whichfalse,$name); |
} elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') { |
} elsif ($Apache::response::foilgroup{$name.'.value'} eq 'unused') { |
Line 385 sub start_foil {
|
Line 382 sub start_foil {
|
$result.=&Apache::edit::text_arg('Name:','name',$token); |
$result.=&Apache::edit::text_arg('Name:','name',$token); |
$result.=&Apache::edit::select_or_text_arg('Correct Option:','value', |
$result.=&Apache::edit::select_or_text_arg('Correct Option:','value', |
['unused','true','false'],$token); |
['unused','true','false'],$token); |
|
$result.=&Apache::edit::select_or_text_arg('Location:','location', |
|
['random','bottom','top'],$token); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, |
my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval, |
'value','name'); |
'value','name','location'); |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); } |
} |
} |
return $result; |
return $result; |
Line 402 sub end_foil {
|
Line 401 sub end_foil {
|
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
my $value = &Apache::lonxml::get_param('value',$parstack,$safeeval); |
if ($value ne 'unused') { |
if ($value ne 'unused') { |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
my $name = &Apache::lonxml::get_param('name',$parstack,$safeeval); |
|
my $location =&Apache::lonxml::get_param('location',$parstack,$safeeval); |
if (!$name) { $name=$Apache::lonxml::curdepth; } |
if (!$name) { $name=$Apache::lonxml::curdepth; } |
if ( $Apache::radiobuttonresponse::conceptgroup |
if ( $Apache::radiobuttonresponse::conceptgroup |
&& !&Apache::response::showallfoils() ) { |
&& !&Apache::response::showallfoils() ) { |
push @{ $Apache::response::conceptgroup{'names'} }, $name; |
push @{ $Apache::response::conceptgroup{'names'} }, $name; |
$Apache::response::conceptgroup{"$name.value"} = $value; |
$Apache::response::conceptgroup{"$name.value"} = $value; |
$Apache::response::conceptgroup{"$name.text"} = $text; |
$Apache::response::conceptgroup{"$name.text"} = $text; |
|
$Apache::response::conceptgroup{"$name.location"} = $location; |
} else { |
} else { |
push @{ $Apache::response::foilgroup{'names'} }, $name; |
push @{ $Apache::response::foilgroup{'names'} }, $name; |
$Apache::response::foilgroup{"$name.value"} = $value; |
$Apache::response::foilgroup{"$name.value"} = $value; |
$Apache::response::foilgroup{"$name.text"} = $text; |
$Apache::response::foilgroup{"$name.text"} = $text; |
|
$Apache::response::foilgroup{"$name.location"} = $location; |
} |
} |
} |
} |
} |
} |