version 1.28, 2003/10/27 19:27:09
|
version 1.29, 2003/10/27 20:04:34
|
Line 251 sub end_foilgroup {
|
Line 251 sub end_foilgroup {
|
} elsif ( $target eq 'analyze') { |
} elsif ( $target eq 'analyze') { |
my @shown=&whichfoils($max,$randomize); |
my @shown=&whichfoils($max,$randomize); |
&Apache::response::analyze_store_foilgroup(\@shown, |
&Apache::response::analyze_store_foilgroup(\@shown, |
['text','value']); |
['text','value','location']); |
#FIXME need to store options in some way |
#FIXME need to store options in some way |
} |
} |
&Apache::lonxml::increment_counter(&getfoilcounts($max)); |
&Apache::lonxml::increment_counter(&getfoilcounts($max)); |
Line 261 sub end_foilgroup {
|
Line 261 sub end_foilgroup {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub whichfoils { |
|
my ($max,$randomize)=@_; |
|
return &Apache::response::whichorder(&getfoilcounts($max), |
|
$randomize, |
|
&Apache::response::showallfoils(), |
|
\%Apache::response::foilgroup); |
|
} |
|
|
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; } |