Lines 606-612
sub createODS
Link Here
|
606 |
my $ok = 0; |
606 |
my $ok = 0; |
607 |
# read ods file and return as a string |
607 |
# read ods file and return as a string |
608 |
if (-f "$tempdir/new.ods") { |
608 |
if (-f "$tempdir/new.ods") { |
609 |
if (open ($fh, '<', "$tempdir/new.ods")) { |
609 |
if (open ($fh, '<:encoding(UTF-8)', "$tempdir/new.ods")) { |
610 |
binmode $fh; |
610 |
binmode $fh; |
611 |
my $buffer; |
611 |
my $buffer; |
612 |
while (read ($fh, $buffer, 65536)) { |
612 |
while (read ($fh, $buffer, 65536)) { |
Lines 698-704
sub ImportFramework
Link Here
|
698 |
} |
698 |
} |
699 |
} else { |
699 |
} else { |
700 |
# They are text files, so open it to read |
700 |
# They are text files, so open it to read |
701 |
open($dom, '<', $filename); |
701 |
open($dom, '<:encoding(UTF-8)', $filename); |
702 |
} |
702 |
} |
703 |
if ($dom) { |
703 |
if ($dom) { |
704 |
# For sql we execute the line |
704 |
# For sql we execute the line |