version 1.44, 2014/02/11 19:11:18
|
version 1.45, 2017/11/12 23:08:58
|
Line 1508 sub create_mcq {
|
Line 1508 sub create_mcq {
|
if (-e $destdir.$libfile) { |
if (-e $destdir.$libfile) { |
$result = 'exists'; |
$result = 'exists'; |
} else { |
} else { |
if (open(PROB,">$destdir$libfile")) { |
if (open(PROB,">",$destdir.$libfile)) { |
print PROB $output; |
print PROB $output; |
close(PROB); |
close(PROB); |
$result = 'ok'; |
$result = 'ok'; |
Line 1586 sub create_ess {
|
Line 1586 sub create_ess {
|
if (-e $destdir.$libfile) { |
if (-e $destdir.$libfile) { |
$result = 'exists'; |
$result = 'exists'; |
} else { |
} else { |
if (open(PROB,">$destdir$libfile")) { |
if (open(PROB,">",$destdir.$libfile)) { |
print PROB $output; |
print PROB $output; |
close(PROB); |
close(PROB); |
$result = 'ok'; |
$result = 'ok'; |
Line 1636 sub parse_datafile {
|
Line 1636 sub parse_datafile {
|
$res = $mm->checktype_filename($dirpath.$filename); |
$res = $mm->checktype_filename($dirpath.$filename); |
if ($env{'form.phase'} eq 'three') { |
if ($env{'form.phase'} eq 'three') { |
if ($res eq 'text/plain') { |
if ($res eq 'text/plain') { |
open(TESTBANK,"<$dirpath$filename"); |
open(TESTBANK,"<",$dirpath.$filename); |
@{$text} = <TESTBANK>; |
@{$text} = <TESTBANK>; |
close(TESTBANK); |
close(TESTBANK); |
} elsif ($res eq 'application/rtf') { |
} elsif ($res eq 'application/rtf') { |