loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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;