version 1.127, 2005/06/20 21:31:07
|
version 1.130, 2005/12/06 10:03:57
|
Line 295 sub whichfoils {
|
Line 295 sub whichfoils {
|
} |
} |
|
|
sub displayanswers { |
sub displayanswers { |
my ($max,$randomize,@opt)=@_; |
my ($max,$randomize,@opt)=@_; |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
if (!defined(@{ $Apache::response::foilgroup{'names'} })) {return;} |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @whichopt = &whichfoils($max,$randomize); |
my @whichopt = &whichfoils($max,$randomize); |
my $result=&Apache::response::answer_header('optionresponse'); |
my $result; |
foreach my $name (@whichopt) { |
if ($Apache::lonhomework::type eq 'exam') { |
$result.=&Apache::response::answer_part('optionresponse', |
my $i = 0; |
$Apache::response::foilgroup{$name.'.value'}) |
my %opt = map { ($_,$i++) } @opt; |
} |
|
$result.=&Apache::response::answer_footer('optionresponse'); |
$i = 0; |
return $result; |
my @alphabet = ('A'..'Z'); |
|
foreach my $name (@whichopt) { |
|
$result.=&Apache::response::answer_header('optionresponse',$i++); |
|
$result.=&Apache::response::answer_part('optionresponse', |
|
$alphabet[$opt{$Apache::response::foilgroup{$name.'.value'}}]); |
|
$result.=&Apache::response::answer_part('optionresponse', |
|
$Apache::response::foilgroup{$name.'.value'}); |
|
$result.=&Apache::response::answer_footer('optionresponse'); |
|
} |
|
} else { |
|
$result=&Apache::response::answer_header('optionresponse'); |
|
foreach my $name (@whichopt) { |
|
$result.=&Apache::response::answer_part('optionresponse', |
|
$Apache::response::foilgroup{$name.'.value'}); |
|
} |
|
$result.=&Apache::response::answer_footer('optionresponse'); |
|
} |
|
return $result; |
} |
} |
|
|
sub check_for_invalid { |
sub check_for_invalid { |
Line 632 sub end_foil {
|
Line 649 sub end_foil {
|
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); |
&Apache::lonxml::debug("Got a name of :$name:"); |
&Apache::lonxml::debug("Got a name of :$name:"); |
if (!$name) { |
if ($name eq "") { |
&Apache::lonxml::error("Foils without names exist. This can cause problems to malfunction."); |
&Apache::lonxml::warning("Foils without names exist. This can cause problems to malfunction."); |
$name=$Apache::lonxml::curdepth; |
$name=$Apache::lonxml::curdepth; |
} |
} |
&Apache::lonxml::debug("Using a name of :$name:"); |
&Apache::lonxml::debug("Using a name of :$name:"); |