ZUGFeRD: Konsolen-Debug auskommentiert

Wirft im Webserver 'bad header' Fehlermeldungen

diff --git a/SL/ZUGFeRD.pm b/SL/ZUGFeRD.pm
index d4d263565b76fa0178b6e5fead36db769e7cb772..780122c43f43dd21a53a79f4d66ca7a16fea7a9b 100644 (file)
--- a/SL/ZUGFeRD.pm
+++ b/SL/ZUGFeRD.pm
@@ -45,10 +45,10 @@ sub _extract_zugferd_invoice_xml {
         my $obj_node = $doc->dereference($any_num);
         my $content  = $doc->decodeOne($obj_node->{value}, 0) // '';
 
         my $obj_node = $doc->dereference($any_num);
         my $content  = $doc->decodeOne($obj_node->{value}, 0) // '';
 

-        print "1\n";
+        #print "1\n";

 
         next if $content !~ m{<rsm:CrossIndustryInvoice};
 
         next if $content !~ m{<rsm:CrossIndustryInvoice};

-        print "2\n";
+        #print "2\n";

 
         my $dom = eval { XML::LibXML->load_xml(string => $content) };
         return $content if $dom && ($dom->documentElement->nodeName eq 'rsm:CrossIndustryInvoice');
 
         my $dom = eval { XML::LibXML->load_xml(string => $content) };
         return $content if $dom && ($dom->documentElement->nodeName eq 'rsm:CrossIndustryInvoice');