luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.XML]

Browse source 
* BUG: XmlWriter: The Element() shortcut method now correctly escapes text content.

git-svn-id: svn://localhost/gambas/trunk@8120 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Adrien Prokopowicz 2017-04-05 08:52:51 +00:00
parent c6102c762f
commit 033a769095
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gb.xml/src/gb.xml/.src/MTest.module
View file

@ -5,7 +5,7 @@ Public Sub Main()
Dim writer As New XmlWriter
writer.Open("text.xml", True)
writer.Open(Null, True)
writer.StartElement("toto")
writer.StartElement("titi")
writer.Attribute("titi", "tutu\ntoto")
@ -14,7 +14,7 @@ writer.EndElement()
writer.StartElement("titi")
writer.Text("hello")
writer.EndElement()
writer.Element("toto", "hello", "np", "http://np.org")
writer.Element("toto", "hel<<lo", "np", "http://np.org")
writer.StartElement("foo", ["fizz", "buzz"], "tx", "http://example.com/tx.xml")
writer.StartElement("titi")
writer.Text("hello")

2
gb.xml/src/gb.xml/.src/XmlWriter.class
View file

@ -49,7 +49,7 @@ Public Sub Element(TagName As String, Optional Value As String, Optional Prefix
If URI Then PrintXmlNsAttribute(Prefix, URI)
If Value Then
Print #$stream, ">"; Value; "</"; TagName; "> ";
Print #$stream, ">"; XmlNode.Serialize(Value); "</"; TagName; "> ";
Else
Print #$stream, " />";
Endif