|
package SL::Template::OpenDocument;
|
|
|
|
use parent qw(SL::Template::Simple);
|
|
|
|
use Archive::Zip;
|
|
use Encode;
|
|
use HTML::Entities;
|
|
use POSIX 'setsid';
|
|
use XML::LibXML;
|
|
use File::Basename;
|
|
|
|
use SL::Iconv;
|
|
use SL::Template::OpenDocument::Styles;
|
|
|
|
use SL::Helper::QrBill;
|
|
use SL::Helper::QrBillFunctions qw(
|
|
get_ref_number_formatted get_iban_formatted get_amount_formatted
|
|
get_street_name_from_address_line get_building_number_from_address_line
|
|
);
|
|
|
|
use Cwd;
|
|
# use File::Copy;
|
|
# use File::Spec;
|
|
# use File::Temp qw(:mktemp);
|
|
use IO::File;
|
|
|
|
use strict;
|
|
|
|
my %text_markup_replace = (
|
|
b => "BOLD",
|
|
i => "ITALIC",
|
|
s => "STRIKETHROUGH",
|
|
u => "UNDERLINE",
|
|
sup => "SUPER",
|
|
sub => "SUB",
|
|
);
|
|
|
|
sub _format_text {
|
|
my ($self, $content, %params) = @_;
|
|
|
|
$content = $::locale->quote_special_chars('Template/OpenDocument', $content);
|
|
|
|
# Allow some HTML markup to be converted into the output format's
|
|
# corresponding markup code, e.g. bold or italic.
|
|
foreach my $key (keys(%text_markup_replace< |