version 1.4, 2004/04/23 22:42:05
|
version 1.5, 2004/08/05 21:08:24
|
Line 248 function colSet(caller) {
|
Line 248 function colSet(caller) {
|
poolForm.elements[caller*5+4].options[2] = new Option("A.","ucperiod",false,false) |
poolForm.elements[caller*5+4].options[2] = new Option("A.","ucperiod",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)","lcparen",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)","ucparen",false,false) |
poolForm.elements[caller*5+4].options[5] = new Option("(i)","romparen",false,false) |
poolForm.elements[caller*5+4].options[5] = new Option("a)","lconeparen",false,false) |
poolForm.elements[caller*5+4].options[6] = new Option("i.","romperiod",false,false) |
poolForm.elements[caller*5+4].options[6] = new Option("A)","uconeparen",false,false) |
|
poolForm.elements[caller*5+4].options[7] = new Option("a.)","lcdotparen",false,false) |
|
poolForm.elements[caller*5+4].options[8] = new Option("A.)","ucdotparen",false,false) |
|
poolForm.elements[caller*5+4].options[9] = new Option("(i)","romparen",false,false) |
|
poolForm.elements[caller*5+4].options[10] = new Option("i)","romoneparen",false,false) |
|
poolForm.elements[caller*5+4].options[11] = new Option("i.)","romdotparen",false,false) |
|
poolForm.elements[caller*5+4].options[12] = new Option("i.","romperiod",false,false) |
poolForm.elements[caller*5+4].selectedIndex = 0 |
poolForm.elements[caller*5+4].selectedIndex = 0 |
} |
} |
else { |
else { |
Line 281 function colSet(caller) {
|
Line 287 function colSet(caller) {
|
if (poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "TF") { |
if (poolForm.elements[caller*5+3].options[poolForm.elements[caller*5+3].selectedIndex].value == "TF") { |
poolForm.elements[caller*5+5].options[0] = new Option("Please Select","-1",true,true) |
poolForm.elements[caller*5+5].options[0] = new Option("Please Select","-1",true,true) |
poolForm.elements[caller*5+5].options[1] = new Option("True or False","word",false,false) |
poolForm.elements[caller*5+5].options[1] = new Option("True or False","word",false,false) |
poolForm.elements[caller*5+5].options[2] = new Option("T or F","lett",false,false) |
poolForm.elements[caller*5+5].options[2] = new Option("true or false","word",false,false) |
|
poolForm.elements[caller*5+5].options[3] = new Option("TRUE or FALSE","word",false,false) |
|
poolForm.elements[caller*5+5].options[4] = new Option("T or F","lett",false,false) |
|
poolForm.elements[caller*5+5].options[5] = new Option("t or f","lett",false,false) |
} |
} |
else { |
else { |
poolForm.elements[caller*5+5].options[0] = new Option("Not required","0",true,true) |
poolForm.elements[caller*5+5].options[0] = new Option("Not required","0",true,true) |
Line 950 END_OF_ONE
|
Line 959 END_OF_ONE
|
$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].')'; |
|
} elsif ($foilformats[$i] eq "lconeparen") { |
|
$foiltag = $alphabet[$k-1].')'; |
|
} elsif ($foilformats[$i] eq "lcdotparen") { |
|
$foiltag = $alphabet[$k-1].'.)'; |
} elsif ($foilformats[$i] eq "ucperiod") { |
} elsif ($foilformats[$i] eq "ucperiod") { |
$foiltag = $alphabet[$k-1].'.'; |
$foiltag = $alphabet[$k-1].'.'; |
$foiltag =~ tr/a-z/A-Z/; |
$foiltag =~ tr/a-z/A-Z/; |
} elsif ($foilformats[$i] eq "ucparen") { |
} elsif ($foilformats[$i] eq "ucparen") { |
$foiltag = '('.$alphabet[$k-1].')'; |
$foiltag = '('.$alphabet[$k-1].')'; |
$foiltag =~ tr/a-z/A-Z/; |
$foiltag =~ tr/a-z/A-Z/; |
|
} elsif ($foilformats[$i] eq "uconeparen") { |
|
$foiltag = $alphabet[$k-1].')'; |
|
$foiltag =~ tr/a-z/A-Z/; |
|
} elsif ($foilformats[$i] eq "ucdotparen") { |
|
$foiltag = $alphabet[$k-1].'.)'; |
|
$foiltag =~ tr/a-z/A-Z/; |
} elsif ($foilformats[$i] eq "romperiod") { |
} elsif ($foilformats[$i] eq "romperiod") { |
$foiltag = $romans[$k-1].'.'; |
$foiltag = $romans[$k-1].'.'; |
} elsif ($foilformats[$i] eq "romparen") { |
} elsif ($foilformats[$i] eq "romparen") { |
$foiltag = '('.$romans[$k-1].')'; |
$foiltag = '('.$romans[$k-1].')'; |
} |
} elsif ($foilformats[$i] eq "romoneparen") { |
|
$foiltag = $romans[$k-1].')'; |
|
} elsif ($foilformats[$i] eq "romdotparen") { |
|
$foiltag = $romans[$k-1].'.)'; |
|
} |
$r->print(qq|$foiltag $multparts{$j}[$k]<br>\n|); |
$r->print(qq|$foiltag $multparts{$j}[$k]<br>\n|); |
} |
} |
} |
} |
Line 1132 sub final_display {
|
Line 1155 sub final_display {
|
if ($qtype[$i] eq "MC") { |
if ($qtype[$i] eq "MC") { |
$items[$k] =~ tr/A-Z/a-z/; |
$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 "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{$k}}, $j; |
push @{$answers{$k}}, $j; |
last; |
last; |
} |
} |
} |
} |
} elsif (($foilformats[$i] eq "romparen") || ($foilformats[$i] eq "romperiod")) { |
} elsif (($foilformats[$i] eq "romparen") || ($foilformats[$i] eq "romperiod") || ($foilformats[$i] eq "romoneparen") || ($foilformats[$i] eq "romdotparen")) { |
for (my $j=0; $j<@romans; $j++) { |
for (my $j=0; $j<@romans; $j++) { |
if ($romans[$j] eq $items[$k]) { |
if ($romans[$j] eq $items[$k]) { |
push @{$answers{$k}}, $j; |
push @{$answers{$k}}, $j; |
Line 1159 sub final_display {
|
Line 1182 sub final_display {
|
last; |
last; |
} |
} |
} |
} |
} elsif (($foilformats[$i] eq "romparen") || ($foilformats[$i] eq "romperiod")) { |
} elsif (($foilformats[$i] eq "romparen") || ($foilformats[$i] eq "romperiod") || ($foilformats[$i] eq "romoneparen") || ($foilformats[$i] eq "romdotparen")) { |
for (my $j=0; $j<@romans; $j++) { |
for (my $j=0; $j<@romans; $j++) { |
if ($romans[$j] eq $correct) { |
if ($romans[$j] eq $correct) { |
push @{$answers{$k}}, $j; |
push @{$answers{$k}}, $j; |
Line 1410 sub file_split {
|
Line 1433 sub file_split {
|
} elsif ($qnumformat eq "trailparen") { |
} elsif ($qnumformat eq "trailparen") { |
$qpattern = '\d{1'.$numpat.'\)'; |
$qpattern = '\d{1'.$numpat.'\)'; |
} |
} |
my @questions = split/[\r\n\f]+\s?$qpattern\s?/,$text_in; |
my @questions = split/[\r\n\f]+\s*$qpattern\s*/,$text_in; |
# my @questions = split/\n\s\d{1,3}\.\s/,$text_in; |
# my @questions = split/\n\s\d{1,3}\.\s/,$text_in; |
shift @questions; |
shift @questions; |
my %multparts = (); |
my %multparts = (); |
Line 1422 sub file_split {
|
Line 1445 sub file_split {
|
$splitstr = '[a-z]\.'; |
$splitstr = '[a-z]\.'; |
} elsif (${$foilsref}[$i] eq "lcparen") { |
} elsif (${$foilsref}[$i] eq "lcparen") { |
$splitstr = '\([a-z]\)'; |
$splitstr = '\([a-z]\)'; |
|
} elsif (${$foilsref}[$i] eq "lconeparen") { |
|
$splitstr = '[a-z]\)'; |
|
} elsif (${$foilsref}[$i] eq "lcdotparen") { |
|
$splitstr = '[a-z]\.\)'; |
} elsif (${$foilsref}[$i] eq "ucperiod") { |
} elsif (${$foilsref}[$i] eq "ucperiod") { |
$splitstr = '[A-Z]\.'; |
$splitstr = '[A-Z]\.'; |
} elsif (${$foilsref}[$i] eq "ucparen") { |
} elsif (${$foilsref}[$i] eq "ucparen") { |
$splitstr = '\([A-Z]\)'; |
$splitstr = '\([A-Z]\)'; |
|
} elsif (${$foilsref}[$i] eq "uconeparen") { |
|
$splitstr = '[A-Z]\)'; |
|
} elsif (${$foilsref}[$i] eq "ucdotparen") { |
|
$splitstr = '[A-Z]\.\)'; |
} elsif (${$foilsref}[$i] eq "romperiod") { |
} elsif (${$foilsref}[$i] eq "romperiod") { |
$splitstr = '[ivx]+\.'; |
$splitstr = '[ivx]+\.'; |
} elsif (${$foilsref}[$i] eq "romparen") { |
} elsif (${$foilsref}[$i] eq "romparen") { |
$splitstr = '\([ivx]+\)'; |
$splitstr = '\([ivx]+\)'; |
|
} elsif (${$foilsref}[$i] eq "romoneparen") { |
|
$splitstr = '[ivx]+\)'; |
|
} elsif (${$foilsref}[$i] eq "romdotparen") { |
|
$splitstr = '[ivx]+\.\)'; |
} |
} |
for (my $j=${$startsref}[$i]-1; $j<${$endsref}[$i]; $j++) { |
for (my $j=${$startsref}[$i]-1; $j<${$endsref}[$i]; $j++) { |
@{$multparts{$j}} = split/[\r\n\f]+\s?$splitstr\s?/,$questions[$j]; |
@{$multparts{$j}} = split/[\r\n\f]+\s*$splitstr\s*/,$questions[$j]; |
chomp(@{$multparts{$j}}); |
chomp(@{$multparts{$j}}); |
foreach my $foil (@{$multparts{$j}}) { |
|
} |
|
} |
} |
} elsif (${$qtyperef}[$i] eq "FIB") { |
} elsif (${$qtyperef}[$i] eq "FIB") { |
for (my $j=${$startsref}[$i]-1; $j<${$endsref}[$i]; $j++) { |
for (my $j=${$startsref}[$i]-1; $j<${$endsref}[$i]; $j++) { |