version 1.42, 2013/07/15 14:32:59
|
version 1.43, 2013/10/10 00:46:50
|
Line 289 function colSet(caller) {
|
Line 289 function colSet(caller) {
|
else { |
else { |
if ((poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "MC") || (poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "MA") || (poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "Ord")) { |
if ((poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "MC") || (poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "MA") || (poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "Ord")) { |
poolForm.elements[caller*5+4].options[0] = new Option("Select","-1",true,true) |
poolForm.elements[caller*5+4].options[0] = new Option("Select","-1",true,true) |
poolForm.elements[caller*5+4].options[1] = new Option("a.","lcperiod",false,false) |
poolForm.elements[caller*5+4].options[1] = new Option("a ","lcspace",false,false) |
poolForm.elements[caller*5+4].options[2] = new Option("A.","ucperiod",false,false) |
poolForm.elements[caller*5+4].options[2] = new Option("A ","ucspace",false,false) |
poolForm.elements[caller*5+4].options[3] = new Option("(a)","lcparen",false,false) |
poolForm.elements[caller*5+4].options[3] = new Option("a.","lcperiod",false,false) |
poolForm.elements[caller*5+4].options[4] = new Option("(A)","ucparen",false,false) |
poolForm.elements[caller*5+4].options[4] = new Option("A.","ucperiod",false,false) |
poolForm.elements[caller*5+4].options[5] = new Option("a)","lconeparen",false,false) |
poolForm.elements[caller*5+4].options[5] = new Option("(a)","lcparen",false,false) |
poolForm.elements[caller*5+4].options[6] = new Option("A)","uconeparen",false,false) |
poolForm.elements[caller*5+4].options[6] = new Option("(A)","ucparen",false,false) |
poolForm.elements[caller*5+4].options[7] = new Option("a.)","lcdotparen",false,false) |
poolForm.elements[caller*5+4].options[7] = new Option("a)","lconeparen",false,false) |
poolForm.elements[caller*5+4].options[8] = new Option("A.)","ucdotparen",false,false) |
poolForm.elements[caller*5+4].options[8] = new Option("A)","uconeparen",false,false) |
poolForm.elements[caller*5+4].options[9] = new Option("(i)","romparen",false,false) |
poolForm.elements[caller*5+4].options[9] = new Option("a.)","lcdotparen",false,false) |
poolForm.elements[caller*5+4].options[10] = new Option("i)","romoneparen",false,false) |
poolForm.elements[caller*5+4].options[10] = new Option("A.)","ucdotparen",false,false) |
poolForm.elements[caller*5+4].options[11] = new Option("i.)","romdotparen",false,false) |
poolForm.elements[caller*5+4].options[11] = new Option("(i)","romparen",false,false) |
poolForm.elements[caller*5+4].options[12] = new Option("i.","romperiod",false,false) |
poolForm.elements[caller*5+4].options[12] = new Option("i)","romoneparen",false,false) |
|
poolForm.elements[caller*5+4].options[13] = new Option("i.)","romdotparen",false,false) |
|
poolForm.elements[caller*5+4].options[14] = new Option("i.","romperiod",false,false) |
poolForm.elements[caller*5+4].selectedIndex = 0 |
poolForm.elements[caller*5+4].selectedIndex = 0 |
} |
} |
else { |
else { |
Line 774 sub display_three {
|
Line 776 sub display_three {
|
'<td valign="top">'.$showqn.'<br /><br />'."\n"); |
'<td valign="top">'.$showqn.'<br /><br />'."\n"); |
} else { |
} else { |
my $foiltag = ''; |
my $foiltag = ''; |
if ($foilformats[$i] eq "lcperiod") { |
if ($foilformats[$i] eq "lcspace") { |
|
$foiltag = $alphabet->[$k-1].' '; |
|
} elsif ($foilformats[$i] eq "ucspace") { |
|
$foiltag = $alphabet->[$k-1].' '; |
|
$foiltag =~ tr/a-z/A-Z/; |
|
} elsif ($foilformats[$i] eq "lcperiod") { |
$foiltag = $alphabet->[$k-1].'.'; |
$foiltag = $alphabet->[$k-1].'.'; |
} elsif ($foilformats[$i] eq "lcparen") { |
} elsif ($foilformats[$i] eq "lcparen") { |
$foiltag = '('.$alphabet->[$k-1].')'; |
$foiltag = '('.$alphabet->[$k-1].')'; |
Line 924 sub final_display {
|
Line 931 sub final_display {
|
$items->[$k] =~ tr/A-Z/a-z/; |
$items->[$k] =~ tr/A-Z/a-z/; |
$items->[$k] =~ s/<\/?[^>]+>//g; |
$items->[$k] =~ s/<\/?[^>]+>//g; |
$items->[$k] =~ s/\W//g; |
$items->[$k] =~ s/\W//g; |
if ($foilformats[$i] eq "lcperiod" || $foilformats[$i] eq "lcparen" || $foilformats[$i] eq "lconeparen" || $foilformats[$i] eq "lcdotparen" || $foilformats[$i] eq "ucparen" || $foilformats[$i] eq "ucperiod" || $foilformats[$i] eq "uconeparen" || $foilformats[$i] eq "ucdotparen") { |
if ($foilformats[$i] eq "lcspace" || $foilformats[$i] eq "ucspace" || $foilformats[$i] eq "lcperiod" || $foilformats[$i] eq "lcparen" || $foilformats[$i] eq "lconeparen" || $foilformats[$i] eq "lcdotparen" || $foilformats[$i] eq "ucparen" || $foilformats[$i] eq "ucperiod" || $foilformats[$i] eq "uconeparen" || $foilformats[$i] eq "ucdotparen") { |
for (my $j=0; $j<@{$alphabet}; $j++) { |
for (my $j=0; $j<@{$alphabet}; $j++) { |
if ($alphabet->[$j] eq $items->[$k]) { |
if ($alphabet->[$j] eq $items->[$k]) { |
push @{$answers{$qnum}}, $j; |
push @{$answers{$qnum}}, $j; |
Line 957 sub final_display {
|
Line 964 sub final_display {
|
} else { |
} else { |
$correct =~s/\W//g; |
$correct =~s/\W//g; |
} |
} |
if ($foilformats[$i] eq "lcperiod" || $foilformats[$i] eq "lcparen" || $foilformats[$i] eq "ucparen" || $foilformats[$i] eq "ucperiod") { |
if ($foilformats[$i] eq "lcspace" || $foilformats[$i] eq "ucspace" || $foilformats[$i] eq "lcperiod" || $foilformats[$i] eq "lcparen" || $foilformats[$i] eq "ucparen" || $foilformats[$i] eq "ucperiod") { |
if (($qtype[$i] eq "Ord") && (@tied > 0)) { |
if (($qtype[$i] eq "Ord") && (@tied > 0)) { |
my @ties; |
my @ties; |
foreach my $tie (@tied) { |
foreach my $tie (@tied) { |
Line 1275 sub file_split {
|
Line 1282 sub file_split {
|
if (${$numsref}[$i] > 0) { |
if (${$numsref}[$i] > 0) { |
if ((${$qtyperef}[$i] eq "MC") || (${$qtyperef}[$i] eq "MA") || (${$qtyperef}[$i] eq "Ord")) { |
if ((${$qtyperef}[$i] eq "MC") || (${$qtyperef}[$i] eq "MA") || (${$qtyperef}[$i] eq "Ord")) { |
my $splitstr = ''; |
my $splitstr = ''; |
if (${$foilsref}[$i] eq "lcperiod") { |
if (${$foilsref}[$i] eq "lcspace") { |
|
$splitstr = '[a-z]\s'; |
|
} elsif (${$foilsref}[$i] eq "ucspace") { |
|
$splitstr = '[A-Z]\s'; |
|
} elsif (${$foilsref}[$i] eq "lcperiod") { |
$splitstr = '[a-z]\.'; |
$splitstr = '[a-z]\.'; |
} elsif (${$foilsref}[$i] eq "lcparen") { |
} elsif (${$foilsref}[$i] eq "lcparen") { |
$splitstr = '\([a-z]\)'; |
$splitstr = '\([a-z]\)'; |