pdf print fix

This commit is contained in:
Rainer Gümpelein 2022-03-02 14:16:30 +01:00
parent 9190b2353c
commit beb2d92f71

View file

@ -78,7 +78,6 @@ body,html {
margin:0.5em 0; margin:0.5em 0;
} }
th { th {
background-color: silver;
border-bottom: solid thin gray; border-bottom: solid thin gray;
} }
td { td {
@ -99,6 +98,7 @@ td {
text-align: left; text-align: left;
width:50%; width:50%;
} }
.tdsum { .tdsum {
font-size:1em; font-size:1em;
padding:0.1em 0.5em; padding:0.1em 0.5em;
@ -324,9 +324,7 @@ td {
$position = "position:absolute; top: $h_toppx;" if($h_top); $position = "position:absolute; top: $h_toppx;" if($h_top);
$node_name =~ s/steuerfrei//; $node_name =~ s/steuerfrei//;
my $praefix = ""; my $praefix = "$varenv{praefix}";
$praefix = "konrad-TINK" if($varenv{wwwhost} =~ /tink/);
$praefix = "$varenv{praefix}" if($varenv{syshost} =~ /sharee/);
print $q->div({-style=>"width:$width;$position border: 0px solid black;"}, print $q->div({-style=>"width:$width;$position border: 0px solid black;"},
$q->span({-style=>'font-size:1.5em;margin:0.5em 0 0.5em 0.5em;'},"$node_name"), $q->span({-style=>'font-size:1.5em;margin:0.5em 0 0.5em 0.5em;'},"$node_name"),
@ -357,7 +355,7 @@ td {
$position = "position:absolute; top: $h_toppx;" if($h_top); $position = "position:absolute; top: $h_toppx;" if($h_top);
print "\n<div style='width:$width;$position border:0px solid black;'>\n"; print "\n<div style='width:$width;$position border:0px solid black;'>\n";
print $q->start_table({ -border=>'0', -width=>'100%',-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n"; print $q->start_table({ -border=>'0', -width=>"$width",-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
#Tableheader #Tableheader
my $h=0; my $h=0;
@ -446,7 +444,7 @@ td {
print $q->td({-class=>'tdint',-nowrap=>'1'},"$ct_pos&nbsp;"),"\n"; print $q->td({-class=>'tdint',-nowrap=>'1'},"$ct_pos&nbsp;"),"\n";
} }
if($key =~ /txt01/){ if($key =~ /txt01/){
print "<td class='tdtxt' nowrap=1>\n"; print "<td class='tdtxt'>\n";
if($cttpos->{$id}->{$key}){ if($cttpos->{$id}->{$key}){
$cttpos->{$id}->{$key} =~ s/\<br \/\>/; &nbsp; /g; $cttpos->{$id}->{$key} =~ s/\<br \/\>/; &nbsp; /g;
print "$cttpos->{$id}->{$key}<br />\n"; print "$cttpos->{$id}->{$key}<br />\n";