paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

TSOAPBaseFormatter.ReadBuffer : Correct usage of qualified name form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1040 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2009-12-09 17:39:30 +00:00
parent 9d3c5a7bea
commit 45b6cbd540
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/base_soap_formatter.pas
View File

@ -2277,11 +2277,16 @@ function TSOAPBaseFormatter.ReadBuffer(const AName : string; out AResBuffer : st
Var
locElt : TDOMNode;
namespaceShortName, strNodeName : string;
i : Integer;
begin
strNodeName := AName;
if ( Style = Document ) then begin
namespaceShortName := FindAttributeByValueInScope(StackTop().NameSpace);
namespaceShortName := Copy(namespaceShortName,AnsiPos(':',namespaceShortName) + 1,MaxInt);
i := Pos(':',namespaceShortName);
if ( i > 0 ) then
namespaceShortName := Copy(namespaceShortName,i + 1,MaxInt)
else
namespaceShortName := '';
if not IsStrEmpty(namespaceShortName) then
strNodeName := namespaceShortName + ':' + strNodeName;
end;