--- loncom/imspackages/imsprocessor.pm 2006/04/05 19:45:53 1.38 +++ loncom/imspackages/imsprocessor.pm 2006/04/05 23:36:52 1.39 @@ -3684,7 +3684,7 @@ sub write_bb5_questions { $title =~ s/\s/_/g; $title =~ s/\W//g; $title .= '_'.$id; - open(PROB,">:utf8", "$newdir/$title.problem"); + open(PROB,">$newdir/$title.problem"); print PROB $output; close PROB; } else { @@ -4278,7 +4278,7 @@ $$settings{$id}{$list}{jumbledtext}[$k] $title =~ s/\s/_/g; $title =~ s/\W//g; $title .= '_'.$id; - open(PROB,">:utf8", "$destdir/problems/$probdir/$title.problem"); + open(PROB,">$destdir/problems/$probdir/$title.problem"); print PROB $output; close PROB; } else { @@ -4676,7 +4676,7 @@ sub write_bb6_questions { $title =~ s/\s/_/g; $title =~ s/\W//g; $title .= '_'.$id; - open(PROB,">:utf8", "$newdir/$title.problem"); + open(PROB,">$newdir/$title.problem"); print PROB $output; close PROB; } else {