Revision bb889114
Von Johannes Grassler vor etwa 1 Jahr hinzugefügt
SL/ZUGFeRD.pm | ||
---|---|---|
20 | 20 |
use constant PROFILE_FACTURX_EXTENDED => 0; |
21 | 21 |
use constant PROFILE_XRECHNUNG => 1; |
22 | 22 |
|
23 |
use constant RES_OK => 0;
|
|
24 |
use constant RES_ERR_FILE_OPEN => -1;
|
|
25 |
use constant RES_ERR_NO_ATTACHMENT => -2;
|
|
23 |
use constant RES_OK => 0; |
|
24 |
use constant RES_ERR_FILE_OPEN => -1; |
|
25 |
use constant RES_ERR_NO_ATTACHMENT => -2; |
|
26 | 26 |
|
27 | 27 |
our @customer_settings = ( |
28 | 28 |
[ 0, t8('Do not create Factur-X/ZUGFeRD invoices') ], |
... | ... | |
89 | 89 |
if ( $parser->{status} == SL::XMLInvoice::RES_OK ){ |
90 | 90 |
return $parser; |
91 | 91 |
} else { |
92 |
push @res, t8("Could not parse PDF embedded attachment #1: #2", |
|
93 |
$k, |
|
94 |
$parser->{result}); |
|
92 |
push @res, t8( |
|
93 |
"Could not parse PDF embedded attachment #1: #2", |
|
94 |
$k, |
|
95 |
$parser->{result} |
|
96 |
); |
|
95 | 97 |
} |
96 | 98 |
} |
97 | 99 |
} |
... | ... | |
101 | 103 |
# this point - if there were no attachments at all, we would have bailed out |
102 | 104 |
# a lot earlier. |
103 | 105 |
|
104 |
%res_fail = ( result => RES_ERR_FILE_OPEN(), |
|
105 |
message => join("; ", @res), |
|
106 |
%res_fail = ( |
|
107 |
result => RES_ERR_FILE_OPEN(), |
|
108 |
message => join("; ", @res), |
|
106 | 109 |
); |
107 | 110 |
|
108 | 111 |
return \%res_fail; |
Auch abrufbar als: Unified diff
Einrueckungen und weitere Stilprobleme repariert