|
|
|
|
@ -83,36 +83,33 @@ sub preprocessInvoiceTemplateSvg{
|
|
|
|
|
my($in,$svg_ref) = @_;
|
|
|
|
|
|
|
|
|
|
my $xp = XML::XPath->new($$svg_ref);
|
|
|
|
|
|
|
|
|
|
my $g = $xp->find('//g[@id="titlepage" or @id="bgpage" or
|
|
|
|
|
@id="midpage" or @id="callpage" or @id="zonepage"]');
|
|
|
|
|
|
|
|
|
|
my $g = $xp->find('//g[@id[contains(.,"page")]]');
|
|
|
|
|
foreach my $node($g->get_nodelist) {
|
|
|
|
|
if($node->getAttribute('display')) {
|
|
|
|
|
$node->removeAttribute('display');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if($in->{no_fake_data}) {
|
|
|
|
|
my $comment = $xp->find('/comment()[contains(.,
|
|
|
|
|
"invoice_template_lorem.tt")]');
|
|
|
|
|
my $comment = $xp->find('/comment()[contains(.,"invoice_template_lorem.tt")]');
|
|
|
|
|
foreach my $node($comment->get_nodelist) {
|
|
|
|
|
$node->getParentNode->removeChild($node);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
my $comment = $xp->find('//comment()[normalize-space(.) = "{}" or
|
|
|
|
|
normalize-space(.) = "{ }"]');
|
|
|
|
|
|
|
|
|
|
my $comment = $xp->find('//comment()[normalize-space(.) = "{}" or normalize-space(.) = "{ }"]');
|
|
|
|
|
foreach my $node($comment->get_nodelist) {
|
|
|
|
|
$node->getParentNode->removeChild($node);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
$$svg_ref = ($xp->findnodes('/'))[0]->toString();
|
|
|
|
|
|
|
|
|
|
#no warnings 'uninitialized';
|
|
|
|
|
##print "1.\n\n\n\n\nsvg=".$out->{tt_string_prepared}.";";
|
|
|
|
|
#$$svg_ref=~s/(?:{\s*)?<!--{|}-->(?:\s*})?//gs;
|
|
|
|
|
#$$svg_ref=~s/<(g .*?)(?:display\s*=\s*["']*none["'[:blank:]]+)(.*?id *=["' ]+(?:title|bg|mid|zone|call)page["' ]+)([^>]*)>/<$1$2$3>/gs;
|
|
|
|
|
#$$svg_ref=~s/<(g .*?)(id *=["' ]+(?:title|bg|mid|zone|call)page["' ]+.*?)(?:display\s*=\s*["']*none["'[:blank:]]+)([^>]*)>/<$1$2$3>/gs;
|
|
|
|
|
$$svg_ref=~s/(?:{\s*)?<!--{|}-->(?:\s*})?//gs;
|
|
|
|
|
$$svg_ref=~s/<(g .*?)(?:display\s*=\s*["']*none["'[:blank:]]+)(.*?id *=["' ]+page["' ]+)([^>]*)>/<$1$2$3>/gs;
|
|
|
|
|
$$svg_ref=~s/<(g .*?)(id *=["' ]+page["' ]+.*?)(?:display\s*=\s*["']*none["'[:blank:]]+)([^>]*)>/<$1$2$3>/gs;
|
|
|
|
|
#if($in->{no_fake_data}){
|
|
|
|
|
# $$svg_ref=~s/\[%[^\[\%]+lorem.*?%\]//gs;
|
|
|
|
|
#}
|
|
|
|
|
|