version 1.3, 2004/02/20 18:18:27
|
version 1.4, 2004/04/23 22:42:05
|
Line 1130 sub final_display {
|
Line 1130 sub final_display {
|
for (my $k=$numitems+$start[$i]-1; $k<$numitems+$end[$i]; $k++) { |
for (my $k=$numitems+$start[$i]-1; $k<$numitems+$end[$i]; $k++) { |
@{$answers{$k}} = (); |
@{$answers{$k}} = (); |
if ($qtype[$i] eq "MC") { |
if ($qtype[$i] eq "MC") { |
lc $items[$k]; |
$items[$k] =~ tr/A-Z/a-z/; |
$items[$k] =~ s/\W//g; |
$items[$k] =~ s/\W//g; |
if ($foilformats[$i] eq "lcperiod" || $foilformats[$i] eq "lcparen" || $foilformats[$i] eq "ucparen" || $foilformats[$i] eq "ucperiod") { |
if ($foilformats[$i] eq "lcperiod" || $foilformats[$i] eq "lcparen" || $foilformats[$i] eq "ucparen" || $foilformats[$i] eq "ucperiod") { |
for (my $j=0; $j<@alphabet; $j++) { |
for (my $j=0; $j<@alphabet; $j++) { |
Line 1148 sub final_display {
|
Line 1148 sub final_display {
|
} |
} |
} |
} |
} elsif (($qtype[$i] eq "MA") || ($qtype[$i] eq "Ord")) { |
} elsif (($qtype[$i] eq "MA") || ($qtype[$i] eq "Ord")) { |
lc $items[$k]; |
$items[$k] =~ tr/A-Z/a-z/; |
my @corrects = split/$patterns{$ansrtypes[$i]}/,$items[$k]; |
my @corrects = split/$patterns{$ansrtypes[$i]}/,$items[$k]; |
foreach my $correct (@corrects) { |
foreach my $correct (@corrects) { |
$correct =~s/\W//g; |
$correct =~s/\W//g; |