XML transfomieren mittels XSLT (Perl/CGI)

[thread]14718[/thread]

XML transfomieren mittels XSLT

Leser: 18

Articles: hide open all | hide show old branches

+27 replies

dater

2010-02-23 15:53

User since
2010-02-10
26 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich muss XML-Dateien mittels eines XSL-Files transformieren in HTML, oder eben so, dass ich es in meinem Skript als HMTL-Ausgabe mit einbinden kann.

Habe leider noch nie so etwas gemacht, habe mich daher ne Woche zu tode gegoogelt.

Versuche es gerade mit XML::XSLT, und zwar so:

Code: (dl )

1
2
3

my $XSLT_Objekt = XML::XSLT->new($strXslPath,"FILE");
$XSLT_Objekt->transform_document($strXmlPath,"FILE");
print $xslt->toString;

Im Moment bekomme ich jedesmal diese Fehlermeldung:
not well-formed (invalid token) at line 12, column 38, byte 551 at /usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi/XML/Parser.pm line 187

Ich dachte, es liegt an der komplizierten XML und der komplizierte XSL die von der Firma bekomme.
Habe es also erstmal einer einfach XML und XSL bekommen, doch ich bekomme immer die gleiche Fehlermeldung.

Eine Frage hätte ich noch, wenn ich die XML der Firma lokal bei mir aufrufe mit dem IE, dann wird mir diese wunderschön angezeigt, rufe ich diese mit dem Firefox auf, dann bekomme ich folgende Fehlermeldung:
Fehler beim Laden des Stylesheets: Das Parsen eines XSLT-Stylesheets ist fehlgeschlagen.

Stimmt es, dass man mit Firefox keine XML anzeigen kann, die ein XSL eingebunden haben? Das wäre natürlich blöd, denn unsere Kunden müssen diese später auch im Firefox ansehen können.

Für jeden noch so kleinen Tipp/Ansatz,Lösung usw. wäre ich sehr dankbar.

Weiß nicht mehr weiter.

pktm

2010-02-23 16:39

User since
2003-08-07
2921 Artikel
BenutzerIn

Also ich kann auf Arbeit mit Firefox eine XML-Datei aufmachen, die einen XSL-Stylesheet verwendet.

Ansonsten kann ich dir konkret nicht helfen, ich kenne XML::XSLT nicht. Versuche, dein Problem zu reduzieren. Erstelle einen Datensatz, oder bessser, lasse dir von der Firma, die den Stylesheet erstellt hat, einen geben, der mit diesem gerendert werden können sollte. Probiere es aus.

Validiere XML-Daten und Stylesheet mit entsprechenden Validatoren. Ich habe keinen zur Hand, aber wenn du nach "validate XML" suchst, findest du bestimmt was im Netz.
http://www.intergastro-service.de (mein erstes CMS :) )
+2 replies
murphy

2010-02-23 16:44

User since
2004-07-19
1776 Artikel
HausmeisterIn

2010-02-23T14:53:25 dater
[...]
Im Moment bekomme ich jedesmal diese Fehlermeldung:
not well-formed (invalid token) at line 12, column 38, byte 551 at /usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi/XML/Parser.pm line 187
[...]
rufe ich diese mit dem Firefox auf, dann bekomme ich folgende Fehlermeldung:
Fehler beim Laden des Stylesheets: Das Parsen eines XSLT-Stylesheets ist fehlgeschlagen.
[...]

Das deutet allerdings schon darauf hin, dass das XSLT-Stylesheet irgendwie kaputt ist — an und für sich kann auch der Firefox XSLT-Transformationen ausführen.

Allerdings verstehe ich nicht so ganz, warum das Verhalten der Browser hier von großem Belang ist, schließlich willst Du doch die XSLT-Transformation in einem Perlskript durchführen und nicht im Browser, oder habe ich das falsch verstanden?

Ich persönlich verwende ja zur XML-Verarbeitung mit Perl immer XML::LibXML und XML::LibXSLT, weil diese Anbindungen an C Bibliotheken schnell arbeiten und bislang für mich immer zuverlässig funktioniert haben.

Mit dem von Dir erwähnten XML::XSLT habe ich keine Erfahrungen.
When C++ is your hammer, every problem looks like your thumb.
- pktm
  
  2010-02-23 17:23
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Eventuell noch eine Ergänzung zu der Beobachtung im Browser: nur, weil der IE den Stylesheet (vermutlicherweise) korrekt ausführt, bedeutet das nicht, dass der Stylesheet selbst korrekt ist.
  
  Programme - und der IE war zumindest in der Vergangenheit sehr berüchtigt dafür (wie das aktuell ist weiß ich nicht und es interessiert mich auch gerade nicht) - können Webseiten, XML und XSLT auch robust und fehlertolerant ausführen. Wenn du dein Programm aber nicht ebenso robust gestalten willst / kannst, musst du gültige Eingaben fordern.
  http://www.intergastro-service.de (mein erstes CMS :) )
+19 replies

GwenDragon

2010-02-23 18:06

User since
2005-01-17
14544 Artikel
Admin1

Bist du sicher, dass sowohl die XML- als XSL-Dateien valide sind?
Das ist nämlich leider notwendig bei XML-Parsern.

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

dater

2010-02-24 14:59

User since
2010-02-10
26 Artikel
BenutzerIn

@gwenDragon: ich vermute die xsl ist nicht valide.
kennst du dich damit aus. Könnte ich diese mal posten?
Denn wenn ich die XMl-Datei mit einer simplen XSL-Datei verweise,kann
auch der Firefox die XML-Datei transformiert anzeigen.

@murphy: ja, ich wollte es auch mit XML::LibXSLT probieren, doch mein
Administrator des Serves hat wohl das falsche installiert, und der ist im Urlaub. Ich selbst kann das Modul, bzw. darf dieses Modul auch nicht installieren, da ich für den Server nicht zuständig bin.
+17 replies

leo11

2010-02-24 15:33

User since
2008-08-14
250 Artikel
BenutzerIn
[default_avatar]

2010-02-23T17:06:44 GwenDragon
Bist du sicher, dass sowohl die XML- als XSL-Dateien valide sind?

Meinst du "..als auch XSL-Dateien"?
Validiert man ein XSL üblicherweise auch? Das hatte ich noch nie. XML per DTD, XSD etc.validieren kenne ich, und ich hab auch schonmal gelesen, das es Sinn machen kann ein XML per XSL zu validieren. Aber ein XSL selbst?

Quote
Das ist nämlich leider notwendig bei XML-Parsern.

Reicht zum parsen nicht das es wohlgeformt ist.

@dater
Mit welchem Betriebssystem arbeitest du? Tools um auf Wohlgeformtheit und Validität zu testen gibt's einige. Die Fehler sind schon mal schwer zu finden. Besonders bei Validierungsfehlern. Hast du was wogegen du validieren kannst?

GwenDragon

2010-02-24 16:06

User since
2005-01-17
14544 Artikel
Admin1

Valide bedeutet für mich: dem jeweiligen Standard gemäß.

2010-02-24T14:33:43 leo11
Reicht zum parsen nicht das es wohlgeformt ist.
Kommt wohl auf den Parser an.

Ich kenne die genauen Interna von XML::XSLT nicht, da muss jemand anders reinschauen.
Last edited: 2010-02-24 16:08:43 +0100 (CET)
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
+15 replies

pktm

2010-02-24 18:14

User since
2003-08-07
2921 Artikel
BenutzerIn

Ich habe mal kurz danach recherchiert und gelesen, dass man XSL-Datei mit dem jeweiligen XSL-Prozessor validieren kann. In deinem Fall ist das XML::XSLT und du hast die Validierung bereits durchgeführt, mit dem Ergebnis, dass es nicht valide ist :)

Was findest du denn an der angegeben Stelle:

Quote
line 12, column 38,

Grüße, pktm

http://www.intergastro-service.de (mein erstes CMS :) )

+14 replies

GwenDragon

2010-02-24 18:39

User since
2005-01-17
14544 Artikel
Admin1

Ich würde mal den Debugmodus einschalten mit:

Code (perl): (dl )

my $XSLT_Objekt = XML::XSLT->new($strXslPath,"FILE", warnings => 1, debug => 1);

die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

+13 replies

dater

2010-02-25 14:18

User since
2010-02-10
26 Artikel
BenutzerIn
[default_avatar]

in der Zeile steht nichts besonderes:
Das ist die xsl-Datei:

Code: (dl )

<?xml version="1.0" encoding="iso-8859-1"?>
<div xmlns:xsl="http://www.w3.org/TR/WD-xsl">

	<xsl:script>

		function GetDateFromString(sDate)
		{
			if ( sDate.length == 8 || sDate.length == 25 )
			{
				return sDate.substr ( 8, 2 ) + "." + sDate.substr ( 5, 2 ) + "." + sDate.substr ( 0, 4 )
			}
			else
			{
				return sDate
			}
		}

		function getAttachLink(strLink)
		{

			if ( ( strLink.substr ( 0, 2 ) == "Z:" ) || ( strLink.substr ( 0, 2 ) == "z:") )
			{

				// String ersetzten "\" ==> "/"
				return replaceChars("http://10.1.50.35/xmlGateway/" + strLink.substr( 3 ),"\\", "/")
			}
			else
			{
				return strLink
			}
		}




		function replaceChars(entry, out, add)
		{
			temp = "" + entry; // temporary holder

			while (temp.indexOf(out)>-1)
			{
			pos= temp.indexOf(out);
			temp = "" + (temp.substring(0, pos) + add +
			temp.substring((pos + out.length), temp.length));
			}
			return temp;
		}


		function GetLieferdatum(startDate, endDate)
		{
			//return startDate + " bis " + endDate

			if (startDate == endDate)

			{
				return GetDateFromString(startDate)
			}
			else
			{
				return GetDateFromString(startDate) + " bis " + GetDateFromString(endDate)
			}

		}

		function GetProzentSatz(zahl)
		{
			if (GetIntString(zahl) > 0)
			{
				return zahl * 1
			}
			else
			{
				return zahl * 100
			}
		}

		function GetIntString (sNumber)
		{
			var sTarget = "";
			var aNumbers = new Array();

			aNumbers = sNumber.split(".");

			sTarget = aNumbers[0];

			return sTarget;
		}



	</xsl:script>


<TITLE>openTRANS Auftragsbestätigung <xsl:value-of select="//SUPPLIER_ORDER_ID" /></TITLE>
<FONT face="Arial" size="3">



	<table BORDER="0" width="100%">
	<tr>


	<!--		Ueberschrift 		-->
		<td width="95%" valign="bottom" align="center">

			<xsl:choose>
				<xsl:when test="//ORDERRESPONSE/ORDERRESPONSE_HEADER/ORDERRESPONSE_INFO/ORDER_ID[textnode()]">
					<P align="center"><font size="6" color="#0000FF"><b>Auftragsbestätigung "<xsl:value-of select="//SUPPLIER_ORDER_ID" />" </b></font> <br/> <b><font size="3" color="#0000FF">(openTRANS Datenformat)</font></b></P>

				</xsl:when>
				<xsl:otherwise>
							<P align="center"><font size="6"><b><font color="#FF0000">Unbekannter openTRANS Beleg</font></b></font></P>
				</xsl:otherwise>
			</xsl:choose>

		</td>

	<!--		Bechtle LOGO 		-->
		<td width="5%" valign="top" align="right">
		<img>
			<xsl:attribute name="src">http://xmlGateway.bechtle.de/StyleSheet/bechtle.gif</xsl:attribute>

		</img>
		</td>
	</tr>
	</table>

	<br/>



<xsl:for-each select="//ORDERRESPONSE_HEADER/ORDERRESPONSE_INFO">
	<table BORDER="0" width="100%">
	<!--		Adressdaten-  Lieferant / Auftraggeber	-->
	<tr>

		<!--		Lieferant		-->
		<td width="50%" valign="top">
			<table BORDER="0" width="100%">
				<tr> <td width="100%">
					<b><u>Lieferant (ID=<xsl:value-of select="ORDER_PARTIES/SUPPLIER_PARTY/PARTY/PARTY_ID" />)</u></b> <br/>
					<xsl:if test="ORDER_PARTIES/SUPPLIER_PARTY/PARTY/ADDRESS/NAME[textnode()]">
					<xsl:for-each select="ORDER_PARTIES/SUPPLIER_PARTY/PARTY/ADDRESS">
						<xsl:value-of select="NAME" /> <br/>
						<xsl:if test="NAME2[textnode()]"><xsl:value-of select="NAME2" /> <br/></xsl:if>
						<xsl:if test="NAME3[textnode()]"><xsl:value-of select="NAME3" /> <br/></xsl:if>
						<xsl:if test="DEPARTMENT[textnode()]"><xsl:value-of select="DEPARTMENT" /> <br/></xsl:if>
						<xsl:value-of select="STREET" /> <br/>
						<xsl:value-of select="COUNTRY" />-<xsl:value-of select="ZIP" /> <xsl:value-of select="CITY" /> <br/>
						<br/>
						<u>Kontaktperson</u><br/>
						<font size="1">Name: 		<xsl:value-of select="CONTACT/CONTACT_NAME" /><br/></font>
						<font size="1">Telefon:		<xsl:value-of select="CONTACT/PHONE" /> (<xsl:value-of select="PHONE" />)<br/></font>
						<font size="1">Fax: 		<xsl:value-of select="CONTACT/FAX" /> (<xsl:value-of select="FAX" />)<br/></font>
						<font size="1">E-Mail:		<xsl:value-of select="CONTACT/EMAIL" /> (<xsl:value-of select="EMAIL" />)<br/></font>

						<xsl:if test="VAT_ID[textnode()]"><br/>VAT-ID: <xsl:value-of select="VAT_ID" /> <br/></xsl:if>
					</xsl:for-each>
					</xsl:if>
					<br/>
				</td></tr>
			</table>
		</td>


		<!--		Auftraggeber		-->
		<td width="50%" valign="top">
			<table BORDER="0" width="100%">
				<tr> <td width="100%">
					<b><u>Auftraggeber (ID=<xsl:value-of select="ORDER_PARTIES/BUYER_PARTY/PARTY/PARTY_ID" />)</u></b> <br/>
					<xsl:if test="ORDER_PARTIES/BUYER_PARTY/PARTY/ADDRESS/NAME[textnode()]">
					<xsl:for-each select="ORDER_PARTIES/BUYER_PARTY/PARTY/ADDRESS">
						<xsl:value-of select="NAME" /> <br/>
						<xsl:if test="NAME2[textnode()]"><xsl:value-of select="NAME2" /> <br/></xsl:if>
						<xsl:if test="NAME3[textnode()]"><xsl:value-of select="NAME3" /> <br/></xsl:if>
						<xsl:if test="DEPARTMENT[textnode()]"><xsl:value-of select="DEPARTMENT" /> <br/></xsl:if>
						<xsl:value-of select="STREET" /> <br/>
						<xsl:value-of select="COUNTRY" />-<xsl:value-of select="ZIP" /> <xsl:value-of select="CITY" /> <br/>
						<br/>
						<u>Kontaktperson</u><br/>
						<font size="1">Name: 		<xsl:value-of select="CONTACT/CONTACT_NAME" /><br/></font>
						<font size="1">Telefon:		<xsl:value-of select="CONTACT/PHONE" /> (<xsl:value-of select="PHONE" />)<br/></font>
						<font size="1">Fax: 		<xsl:value-of select="CONTACT/FAX" /> (<xsl:value-of select="FAX" />)<br/></font>
						<font size="1">E-Mail:		<xsl:value-of select="CONTACT/EMAIL" /> (<xsl:value-of select="EMAIL" />)<br/></font>

						<xsl:if test="VAT_ID[textnode()]"><br/>VAT-ID: <xsl:value-of select="VAT_ID" /> <br/></xsl:if>
					</xsl:for-each>
					</xsl:if>
					<br/>
				</td></tr>
			</table>
		</td>
	</tr>

	<!--		Angebotsdaten	-->
	<tr>

		<!--		BestellNr. / Bestelldatum des Kunden		-->
		<td width="50%" valign="top">
			<table BORDER="0" width="100%">
				<tr> <td width="30%"><b>Kunden BestellNr.:</b></td> 	<td width="70%"><b><xsl:value-of select="ORDER_ID" /></b></td> </tr>
				<tr> <td width="30%">Bestelldatum:</td> 		<td width="70%">
												<xsl:if test="ORDER_DATE[textnode()]">
													<xsl:eval>GetDateFromString(this.selectSingleNode("ORDER_DATE").text)</xsl:eval>
												</xsl:if>
											</td>
				</tr>
			</table>
		</td>


		<!--		Datums Infos		-->
		<td width="50%" valign="top">
			<table BORDER="0" width="100%">
				<tr> <td width="30%" valign="top"><b>Lieferdatum:</b></td> <td width="70%" valign="top">
												<xsl:if test="DELIVERY_DATE/DELIVERY_START_DATE[textnode()]">
													<b><xsl:eval>GetLieferdatum(this.selectSingleNode("DELIVERY_DATE/DELIVERY_START_DATE").text, this.selectSingleNode("DELIVERY_DATE/DELIVERY_END_DATE").text)</xsl:eval></b>
												</xsl:if>
											</td>
				</tr>
				<tr> <td width="30%">Dokumentendatum:</td> 		<td width="70%">
												<xsl:if test="ORDERRESPONSE_DATE[textnode()]">
													<xsl:eval>GetDateFromString(this.selectSingleNode("ORDERRESPONSE_DATE").text)</xsl:eval>
												</xsl:if>
											</td>
				</tr>
				<tr> <td width="30%">Datenübertragung</td> 		<td width="70%">
												<xsl:if test="//GENERATION_DATE[textnode()]">
													<xsl:eval>GetDateFromString(this.selectSingleNode("//GENERATION_DATE").text)</xsl:eval>
												</xsl:if>
											</td>
				</tr>

			</table>
		</td>
	</tr>
	</table>
	<br/>
</xsl:for-each>


	<xsl:if test="//ORDERRESPONSE/ORDERRESPONSE_HEADER/ORDERRESPONSE_INFO/REMARK[textnode()]">


		<!--		Bemerkung auf Kopfebene		-->
		<hr/>

		<table BORDER="0" width="100%">
			<tr><td width="15%" valign="top"><b> &#160;Bemerkung: </b></td> 	<td width="85%" valign="top">
											<xsl:for-each select="//ORDERRESPONSE/ORDERRESPONSE_HEADER/ORDERRESPONSE_INFO/REMARK">
												+++ (Type <xsl:value-of select="@type"/>) <xsl:value-of select="."/>&#160;&#160; <br/><br/>
											</xsl:for-each>
										</td>
			</tr>
		</table>

	</xsl:if>

	<!--		Positions Daten		-->
	<hr/>


	<table BORDER="0" width="100%">
		<thead>
		    <th width="8%"  height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">PosNr.</font></th>
		    <th width="5%"  height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">Menge</font></th>
		    <th width="5%"  height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">Einheit</font></th>
		    <th width="10%" height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">ArtikelNr</font></th>
		    <th width="56%" height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">Bezeichnung</font></th>
		    <th width="8%"  height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">Preis pro Einh.<br/> <FONT size="1">(exkl. MwSt.)</FONT><br/>[<xsl:value-of select="//PRICE_CURRENCY"/>]</font></th>
		    <th width="8%"  height="49" bgcolor="#008000" bordercolor="#000000" style="border-style: solid; border-width: 2"> <font color="#FFFFFF" size="2">MwSt.<br/>Satz<br/>[%]</font></th>
		</thead>
		<xsl:for-each select="//ORDERRESPONSE_ITEM">
			<tr>

			    <td width="8%" height="19" valign="top" align="center"><font size="2"><xsl:value-of select="LINE_ITEM_ID"/></font></td>
			    <td width="5%" height="19" valign="top" align="center"><font size="2"><xsl:value-of select="QUANTITY"/></font></td>
			    <td width="5%" height="19" valign="top" align="center"><font size="2"><xsl:value-of select="ORDER_UNIT"/></font></td>
			    <td width="10%" height="19" valign="top" align="center"><font size="2"><xsl:value-of select="ARTICLE_ID/SUPPLIER_AID"/></font></td>
			    <td width="56%" height="19" valign="top"><font size="2"><xsl:value-of select="ARTICLE_ID/DESCRIPTION_SHORT"/></font><br/>
				<table BORDER="0" width="100%">

			    		<xsl:if test="ARTICLE_ID/DESCRIPTION_LONG[textnode()]">
			    		<tr><td valign="top" width="5%"></td><td width="15%" valign="top"><font size="1">Beschreibung: </font></td> 		<td width="80%" valign="top"><font size="1"> <xsl:value-of select="ARTICLE_ID/DESCRIPTION_LONG"/></font></td></tr>
			    		</xsl:if>

			    		<xsl:if test="ARTICLE_ID/MANUFACTURER_INFO/MANUFACTURER_AID[textnode()]">
			    		<tr><td valign="top" width="5%"></td><td width="15%" valign="top"><font size="1">Hersteller-ArtikelNr: </font></td> 	<td width="80%" valign="top"><font size="1"> <xsl:value-of select="ARTICLE_ID/MANUFACTURER_INFO/MANUFACTURER_AID"/></font></td></tr>
			    		</xsl:if>

			    		<xsl:if expr="this.selectSingleNode('ARTICLE_ID/MANUFACTURER_INFO/MANUFACTURER_NAME').text != 'UNKNOWN' ">
			    		<tr><td valign="top" width="5%"></td><td width="15%" valign="top"><font size="1">Hersteller: </font></td> 		<td width="80%" valign="top"><font size="1"> <xsl:value-of select="ARTICLE_ID/MANUFACTURER_INFO/MANUFACTURER_NAME"/></font></td></tr>
			    		</xsl:if>

			    		<xsl:if test="DELIVERY_DATE/DELIVERY_START_DATE[textnode()]">
			    		<tr><td valign="top" width="5%"></td><td width="15%" valign="top"><font size="1" color="blue">Lieferdatum: </font></td> <td width="80%" valign="top"><font size="1" color="blue"> <xsl:eval>GetLieferdatum(this.selectSingleNode("DELIVERY_DATE/DELIVERY_START_DATE").text, this.selectSingleNode("DELIVERY_DATE/DELIVERY_END_DATE").text)</xsl:eval></font></td></tr>
			    		</xsl:if>

			    		<xsl:if test="REMARK[textnode()]">

						<tr><td valign="top" width="5%"></td><td width="15%" valign="top"><font size="1">Bemerkung: </font></td> 	<td width="80%" valign="top">
																					<xsl:for-each select="REMARK">
																						<font size="1">+++(Type <xsl:value-of select="@type"/>) <xsl:value-of select="."/>&#160;&#160; </font>
																					</xsl:for-each> <br/>
																				</td>
						</tr>
					</xsl:if>



				</table>

			    </td>
			    <td width="8%" height="19" valign="top" align="right"><font size="2"><xsl:value-of select="ARTICLE_PRICE/PRICE_AMOUNT"/>&#160;&#160;</font></td>
			    <td width="8%" height="19" valign="top" align="center"><font size="2"><xsl:eval>GetProzentSatz(this.selectSingleNode("ARTICLE_PRICE/TAX").text)</xsl:eval>%&#160;&#160;</font></td>

			</tr>
		</xsl:for-each>

		<xsl:if test="//ORDERRESPONSE_SUMMARY/TOTAL_AMOUNT[node()]">
		<tr>
			<td width="74%" colspan="5" valign="top" align="right">  <FONT size="3"><b>Gesamtpreis - exkl. MwSt.:</b>  [<xsl:value-of select="//PRICE_CURRENCY"/>]</FONT></td>
			<td width="8%" 		    valign="top" align="right">  <FONT size="3"><b><xsl:value-of select="//ORDERRESPONSE_SUMMARY/TOTAL_AMOUNT"/></b>&#160;&#160;</FONT></td>
			<td width="8%"              valign="top" align="center"> </td>
		</tr>
		</xsl:if>

	</table>



	<!--		Adressdaten-  Lieferadresse / Rechnungsadresse	-->
<xsl:for-each select="//ORDERRESPONSE_HEADER/ORDERRESPONSE_INFO">
	<br/>
	<hr/>

	<table BORDER="0" width="100%">
	<tr>

		<!--		Lieferadresse		-->
		<td width="50%" valign="top">
			<table BORDER="0" width="100%">
				<tr> <td width="100%">
					<b><u>Lieferadresse (ID=<xsl:value-of select="ORDER_PARTIES/SHIPMENT_PARTIES/DELIVERY_PARTY/PARTY/PARTY_ID" />)</u></b> <br/>
					<xsl:for-each select="ORDER_PARTIES/SHIPMENT_PARTIES/DELIVERY_PARTY/PARTY/ADDRESS">
						<xsl:value-of select="NAME" /> <br/>
						<xsl:if test="NAME2[textnode()]"><xsl:value-of select="NAME2" /> <br/></xsl:if>
						<xsl:if test="NAME3[textnode()]"><xsl:value-of select="NAME3" /> <br/></xsl:if>
						<xsl:if test="DEPARTMENT[textnode()]"><xsl:value-of select="DEPARTMENT" /> <br/></xsl:if>
						<xsl:value-of select="STREET" /> <br/>
						<xsl:value-of select="COUNTRY" />-<xsl:value-of select="ZIP" /> <xsl:value-of select="CITY" /> <br/>
						<br/>
						<u>Kontaktperson</u><br/>
						<font size="1">Name: 		<xsl:value-of select="CONTACT/CONTACT_NAME" /><br/></font>
						<font size="1">Telefon:		<xsl:value-of select="CONTACT/PHONE" /> (<xsl:value-of select="PHONE" />)<br/></font>
						<font size="1">Fax: 		<xsl:value-of select="CONTACT/FAX" /> (<xsl:value-of select="FAX" />)<br/></font>
						<font size="1">E-Mail:		<xsl:value-of select="CONTACT/EMAIL" /> (<xsl:value-of select="EMAIL" />)<br/></font>

						<xsl:if test="VAT_ID[textnode()]"><br/>VAT-ID: <xsl:value-of select="VAT_ID" /> <br/></xsl:if>
					</xsl:for-each>
					<br/>
				</td></tr>
			</table>
		</td>


		<!--		Rechnungsadresse		-->
		<td width="50%" valign="top">
			<table BORDER="0" width="100%">
				<tr> <td width="100%">
					<b><u>Rechnungsadresse (ID=<xsl:value-of select="ORDER_PARTIES/INVOICE_PARTY/PARTY/PARTY_ID" />)</u></b> <br/>
					<xsl:if test="ORDER_PARTIES/INVOICE_PARTY/PARTY/ADDRESS/NAME[textnode()]">
					<xsl:for-each select="ORDER_PARTIES/INVOICE_PARTY/PARTY/ADDRESS">
						<xsl:value-of select="NAME" /> <br/>
						<xsl:if test="NAME2[textnode()]"><xsl:value-of select="NAME2" /> <br/></xsl:if>
						<xsl:if test="NAME3[textnode()]"><xsl:value-of select="NAME3" /> <br/></xsl:if>
						<xsl:if test="DEPARTMENT[textnode()]"><xsl:value-of select="DEPARTMENT" /> <br/></xsl:if>
						<xsl:value-of select="STREET" /> <br/>
						<xsl:value-of select="COUNTRY" />-<xsl:value-of select="ZIP" /> <xsl:value-of select="CITY" /> <br/>
						<br/>
						<u>Kontaktperson</u><br/>
						<font size="1">Name: 		<xsl:value-of select="CONTACT/CONTACT_NAME" /><br/></font>
						<font size="1">Telefon:		<xsl:value-of select="CONTACT/PHONE" /> (<xsl:value-of select="PHONE" />)<br/></font>
						<font size="1">Fax: 		<xsl:value-of select="CONTACT/FAX" /> (<xsl:value-of select="FAX" />)<br/></font>
						<font size="1">E-Mail:		<xsl:value-of select="CONTACT/EMAIL" /> (<xsl:value-of select="EMAIL" />)<br/></font>

						<xsl:if test="VAT_ID[textnode()]"><br/>VAT-ID: <xsl:value-of select="VAT_ID" /> <br/></xsl:if>
					</xsl:for-each>
					</xsl:if>
					<br/>
				</td></tr>
			</table>
		</td>
	</tr>

	</table>
</xsl:for-each>



	<!--		Fussnote	          -->
	<br/>
	<hr/>
	<font size="1">Bechtle AG &#183; Bechtle Platz 1 &#183; 74172 Neckarsulm</font>


</FONT>

</div>

sorry für den vielen Code, aber vielleicht sieht ja jemand auf den ersten Blick etwas

+3 replies
dater

2010-02-25 14:40
User since
2010-02-10
26 Artikel
BenutzerIn
irgendetwas scheint doch mit dem Parser nicht zu stimmen.
selbst bei dieser simplen xsl
Code: (dl )

1 2 3 4 5 6 7 8 9

<?xml version="1.0" encoding="ISO-8859-1"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <xsl:template match="*"> <xsl:apply-templates/> </xsl:template> </xsl:stylesheet>
Kommt die Fehlermeldung:
not well-formed (invalid token) at line 1, column 0, byte 0 at /usr/lib/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi/XML/Parser.pm line 187
- GwenDragon
  
  2010-02-25 15:09
  
  User since
  2005-01-17
  14544 Artikel
  Admin1
  
  Vielleicht ist dort ein UTF-BOM drin!
  Ist der Quelltext wirklich ISO-8859-1 oder UTF-8!?
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- GwenDragon
  
  2010-02-25 16:41
  
  User since
  2005-01-17
  14544 Artikel
  Admin1
  
  Anscheinend hat das Package XML::XSLT irgendeinen Bug.
  Bei mir meckert der Parser selbst bei den XML::XSLT-Beispielen auf CPAN.
  die Drachin, Gwendolyn
  
  Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
+9 replies
GwenDragon

2010-02-25 15:02

User since
2005-01-17
14544 Artikel
Admin1

Täusche ich mich oder sollte nach XML Skripte in script Elementen nicht als CDATA dort stehen!?
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +8 replies
- dater
  
  2010-02-25 15:04
  
  User since
  2010-02-10
  26 Artikel
  BenutzerIn
  
  was genau meinst du mit CDATA?
  - bianca
    
    2010-02-25 15:06
    
    User since
    2009-09-13
    6977 Artikel
    BenutzerIn
    
    2010-02-25T14:04:48 dater
    was genau meinst du mit CDATA?
    
    http://de.wikipedia.org/wiki/CDATA
    10 print "Hallo"
    20 goto 10
  - +6 replies
  - GwenDragon
    
    2010-02-25 15:07
    User since
    2005-01-17
    14544 Artikel
    Admin1
    
    Code: (dl )
    
    1 2 3 4
    
    <![CDATA[ <Element>dieses Element wird nur als Zeichenfolge ausgegeben</Element> Alles was zwischen den [] ist, wird vom XML-Parser nicht interpretiert. ]]>
    
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +5 replies
    - dater
      
      2010-02-25 15:11
      
      User since
      2010-02-10
      26 Artikel
      BenutzerIn
      
      Danke. Werde ich probieren.
      
      Trotzdem verstehe ich nicht, warum nicht einmal das simples XSL-Sheet(siehe
      zwei Post weiter vorher) auch nicht tut.
      Da ist ja kein script drin.
      - +4 replies
      - GwenDragon
        
        2010-02-25 15:23
        
        User since
        2005-01-17
        14544 Artikel
        Admin1
        
        Kannst du bitte nicht zum Testen hier mal einen kurzen XSL-, XML- und Perl-Code reinstellen, mit dem es nicht geht.
        
        Ich möchte nicht erst noch Testdateien zusammenstellen, um es mal bei mir zu probierern.
        Wärst du so nett?
        
        Dann könnten wir Fehlermeldungen vielleicht besser nachvollziehen.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +3 replies
        
        bianca
        
        2010-02-25 15:31
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2010-02-25T14:23:18 GwenDragon
        Ich möchte nicht erst noch Testdateien zusammenstellen, um es mal bei mir zu probierern.
        Wärst du so nett?
        
        Testdatei hat er hier gemacht: msg #133676
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        GwenDragon
        
        2010-02-25 16:25
        
        User since
        2005-01-17
        14544 Artikel
        Admin1
        
        Na, wenn du aus den geposteten Infos dann einen Test schreiben kannst, schön. Dann teste mal für dater, woran as liegt.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        bianca
        
        2010-02-25 16:47
        
        User since
        2009-09-13
        6977 Artikel
        BenutzerIn
        
        2010-02-25T15:25:21 GwenDragon
        Na, wenn du aus den geposteten Infos dann einen Test schreiben kannst, schön. Dann teste mal für dater, woran as liegt.
        
        Nö, Perlcode fehlt ja noch.
        10 print "Hallo"
        20 goto 10

+3 replies
GwenDragon

2010-02-25 17:13
User since
2005-01-17
14544 Artikel
Admin1
Verwende doch XML-LibXSLT. Bei mir ist es die Version 1.63.
Die parst ohne Fehlermeldung.

Da klappt es mit folgendem Skripten und Daten:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/bin/perl use strict; use warnings; use XML::LibXSLT; use XML::LibXML; my $parser = XML::LibXML->new(); my $xslt = XML::LibXSLT->new(); my $source = $parser->parse_file('1.xml'); my $style_doc = $parser->parse_file('1.xsl'); my $stylesheet = $xslt->parse_stylesheet($style_doc); my $results = $stylesheet->transform($source); print $stylesheet->output_string($results);
Datendatei 1.xml:
Code: (dl )

1 2 3 4 5 6 7 8

<SCHADSTOFFBELASTUNG> <BELASTUNGSGEBIET>INNSBRUCK/Zentrum</BELASTUNGSGEBIET> <BELASTUNGSGEBIET>INNSBRUCK/Reichenau</BELASTUNGSGEBIET> <BELASTUNGSGEBIET>KRAMSACH/Angerberg</BELASTUNGSGEBIET> <BELASTUNGSGEBIET>WOERGL/Stelzh.Str.</BELASTUNGSGEBIET> <BELASTUNGSGEBIET>KUFSTEIN/Zentrum</BELASTUNGSGEBIET> <BELASTUNGSGEBIET>LIENZ/Amlacherkreuzung</BELASTUNGSGEBIET> </SCHADSTOFFBELASTUNG>
XSL-Stylesheet 1.xsl:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

<?xml version="1.0" encoding="ISO-8859-1"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <xsl:template match="SCHADSTOFFBELASTUNG"> <BLOCKQUOTE> <TT><B>Belastungsgebiet(e):</B></TT> <xsl:apply-templates/> </BLOCKQUOTE> </xsl:template> <xsl:template match="BELASTUNGSGEBIET"> <TT><xsl:value-of select="."/></TT><BR/> </xsl:template> </xsl:stylesheet>
Mit der seltsamen XML-XSLT mag ich jedenfalls nicht mehr weiter testen.
Wer mag, kann ja da einen Bug hinsenden.
Last edited: 2010-02-25 17:17:22 +0100 (CET)
die Drachin, Gwendolyn

Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +2 replies
- sid burn
  
  2010-02-26 00:38
  
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  
  2010-02-25T16:13:10 GwenDragon
  Mit der seltsamen XML-XSLT mag ich jedenfalls nicht mehr weiter testen.
  Wer mag, kann ja da einen Bug hinsenden.
  
  Das letzte Release von XML::XSLT war 2004 also vor 6 Jahren, denke nicht da da noch etwas gefixt wird. Hinzu kommt noch das XML::XSLT auf XML::Parser aufbaut. Das letzte "richtige" Release von XML::Parser war 2003 und da sind ~100 Bugs offen die nicht mehr gefxit werden.
  
  Kurz gesagt. XML::Parser und alle Module die auf XML::Parser aufbauen sollte man eigentlich die Finger davon lassen.
  
  Eine Liste von Modulen die XML::Parser nutzt und wo man genauer drüber nachdenken sollte: http://deps.cpantesters.org/depended-on-by.pl?dist...
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
  - dater
    
    2010-03-02 10:27
    
    User since
    2010-02-10
    26 Artikel
    BenutzerIn
    
    Servus,
    
    @GwenDragon: meinst, ich solle XML::XSLT nicht verwenden.
    Also parsen kann ich mein XML mittlerweile zusammen mit dem XSL-Sheet.
    Doch noch gibts Probleme mit dem eingebunden Javascript in der XSL-Datei.
    Der Java-Script-Code wird ignoriert. Folglich wird mir die XML-Datei nach dem Parsen im Browser angezeigt, da aber der Java-Script nicht greift,
    wird die XML-Datei natürlich falsch angezeigt.
    
    Hat da irgendjemand eine Idee?
    
    Anmerkung: ich parse mit XML::XSLT!!!
    Last edited: 2010-03-02 10:29:11 +0100 (CET)
pq

2010-03-03 13:54

User since
2003-08-04
12208 Artikel
Admin1

crosspost: http://community.perl.de/content/xslt-parsen-javas...
bitte kenntlich machen beim nächsten mal. steht in unserer FAQ, die beim schreiben verlinkt wird.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2010-02-23 15:53.