Revision 5b916c02
Von Johannes Grassler vor etwa 1 Jahr hinzugefügt
| SL/Controller/ZUGFeRD.pm | ||
|---|---|---|
| 138 | 138 |
die t8("can only parse a pdf or xml file") unless $file =~ m/^%PDF|<\?xml/;
|
| 139 | 139 |
|
| 140 | 140 |
if ( $::form->{file} =~ m/^%PDF/ ) {
|
| 141 |
%res = %{SL::ZUGFeRD->extract_from_pdf($::form->{file})}
|
|
| 141 |
%res = %{SL::ZUGFeRD->extract_from_pdf($file)};
|
|
| 142 | 142 |
} else {
|
| 143 |
%res = %{SL::ZUGFeRD->extract_from_xml($::form->{file})};
|
|
| 143 |
%res = %{SL::ZUGFeRD->extract_from_xml($file)};
|
|
| 144 | 144 |
} |
| 145 | 145 |
|
| 146 | 146 |
if ($res{'result'} != SL::ZUGFeRD::RES_OK()) {
|
Auch abrufbar als: Unified diff
Rebase-Artifakt korrigiert.