use List::MoreUtils qw(any);
use Unicode::Normalize qw();
+use SL::DB::Default;
+
sub new {
my $type = shift;
$self->{"error"} = "$form->{templates}/$form->{IN}: $!";
return 0;
}
- binmode IN, ":utf8" if $::locale->is_utf8;
+ binmode IN, ":utf8";
my @lines = <IN>;
close(IN);
return 0;
}
- if ($::locale->is_utf8) {
- binmode OUT, ":utf8";
- print OUT Unicode::Normalize::normalize('C', $new_contents);
-
- } else {
- print OUT $new_contents;
- }
+ binmode OUT, ":utf8";
+ print OUT Unicode::Normalize::normalize('C', $new_contents);
if ($form->{"format"} =~ /postscript/i) {
return $self->convert_to_postscript();
$local_form->{IN} = $template_file_name;
$local_form->{tmpdir} = $::lx_office_conf{paths}->{userspath};
$local_form->{tmpfile} = $tex_file_name;
- $local_form->{templates} = $::myconfig{templates};
+ $local_form->{templates} = SL::DB::Default->get->templates;
foreach (keys %params) {
croak "The parameter '$_' must not be used." if exists $local_form->{$_};