|
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') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to testbankimport.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher