version 1.49, 2002/09/23 22:32:41
|
version 1.50, 2002/09/25 19:39:49
|
Line 156 sub end_foilgroup {
|
Line 156 sub end_foilgroup {
|
} |
} |
|
|
sub getfoilcounts { |
sub getfoilcounts { |
my ($max)=@_; |
|
my @names; |
my @names; |
my $truecnt=0; |
my $truecnt=0; |
my $falsecnt=0; |
my $falsecnt=0; |
Line 171 sub getfoilcounts {
|
Line 170 sub getfoilcounts {
|
$falsecnt++; |
$falsecnt++; |
} |
} |
} |
} |
return ($truecnt,$falsecnt,$max); |
return ($truecnt,$falsecnt); |
} |
} |
|
|
sub displayallfoils { |
sub displayallfoils { |
Line 215 sub whichfoils {
|
Line 214 sub whichfoils {
|
my @truelist; |
my @truelist; |
my @falselist; |
my @falselist; |
my @whichfalse =(); |
my @whichfalse =(); |
my ($truecnt,$falsecnt,$max) = &getfoilcounts($max); |
my ($truecnt,$falsecnt) = &getfoilcounts(); |
my $count=0; |
my $count=0; |
# we will add in 1 of the true statements |
# we will add in 1 of the true statements |
if (($falsecnt+1)>$max) { $count=$max } else { $count=$falsecnt+1; } |
if (($falsecnt+1)>$max) { $count=$max } else { $count=$falsecnt+1; } |