version 1.33, 2001/12/14 23:00:52
|
version 1.34, 2002/01/07 18:03:57
|
Line 153 sub end_foilgroup {
|
Line 153 sub end_foilgroup {
|
sub getfoilcounts { |
sub getfoilcounts { |
my ($parstack,$safeeval)=@_; |
my ($parstack,$safeeval)=@_; |
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); |
my $max = &Apache::lonxml::get_param('max',$parstack,$safeeval,'-2'); |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names; |
my $truecnt=0; |
my $truecnt=0; |
my $falsecnt=0; |
my $falsecnt=0; |
my $name; |
my $name; |
|
if ( $Apache::response::foilgroup{'names'} ) { |
|
@names= @{ $Apache::response::foilgroup{'names'} }; |
|
} |
foreach $name (@names) { |
foreach $name (@names) { |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
$truecnt++; |
$truecnt++; |
Line 195 sub whichfoils {
|
Line 197 sub whichfoils {
|
my @truelist; |
my @truelist; |
my @falselist; |
my @falselist; |
|
|
my @names = @{ $Apache::response::foilgroup{'names'} }; |
my @names; |
|
if ( $Apache::response::foilgroup{'names'} ) { |
|
@names= @{ $Apache::response::foilgroup{'names'} }; |
|
} |
foreach my $name (@names) { |
foreach my $name (@names) { |
#result.="<br /><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>"; |
#result.="<br /><b>$name</b> is <i> $Apache::response::foilgroup{$name.'.value'} </i>"; |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
if ($Apache::response::foilgroup{$name.'.value'} eq 'true') { |
Line 256 sub displayfoils {
|
Line 261 sub displayfoils {
|
|
|
sub displayanswers { |
sub displayanswers { |
my ($max,$answer)=@_; |
my ($max,$answer)=@_; |
my @names = @{ $Apache::response::foilgroup{'names'} }; |
|
my @whichopt = &whichfoils($max,$answer); |
my @whichopt = &whichfoils($max,$answer); |
my $result=&Apache::response::answer_header('radiobuttonresponse'); |
my $result=&Apache::response::answer_header('radiobuttonresponse'); |
foreach my $name (@whichopt) { |
foreach my $name (@whichopt) { |