|
version 1.38, 2006/04/05 19:45:53
|
version 1.39, 2006/04/05 23:36:52
|
|
Line 3684 sub write_bb5_questions {
|
Line 3684 sub write_bb5_questions {
|
| $title =~ s/\s/_/g; |
$title =~ s/\s/_/g; |
| $title =~ s/\W//g; |
$title =~ s/\W//g; |
| $title .= '_'.$id; |
$title .= '_'.$id; |
| open(PROB,">:utf8", "$newdir/$title.problem"); |
open(PROB,">$newdir/$title.problem"); |
| print PROB $output; |
print PROB $output; |
| close PROB; |
close PROB; |
| } else { |
} else { |
|
Line 4278 $$settings{$id}{$list}{jumbledtext}[$k]
|
Line 4278 $$settings{$id}{$list}{jumbledtext}[$k]
|
| $title =~ s/\s/_/g; |
$title =~ s/\s/_/g; |
| $title =~ s/\W//g; |
$title =~ s/\W//g; |
| $title .= '_'.$id; |
$title .= '_'.$id; |
| open(PROB,">:utf8", "$destdir/problems/$probdir/$title.problem"); |
open(PROB,">$destdir/problems/$probdir/$title.problem"); |
| print PROB $output; |
print PROB $output; |
| close PROB; |
close PROB; |
| } else { |
} else { |
|
Line 4676 sub write_bb6_questions {
|
Line 4676 sub write_bb6_questions {
|
| $title =~ s/\s/_/g; |
$title =~ s/\s/_/g; |
| $title =~ s/\W//g; |
$title =~ s/\W//g; |
| $title .= '_'.$id; |
$title .= '_'.$id; |
| open(PROB,">:utf8", "$newdir/$title.problem"); |
open(PROB,">$newdir/$title.problem"); |
| print PROB $output; |
print PROB $output; |
| close PROB; |
close PROB; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to imsprocessor.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / imspackages