pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases 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
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 Var
locElt : TDOMNode; locElt : TDOMNode;
namespaceShortName, strNodeName : string; namespaceShortName, strNodeName : string;
i : Integer;
begin begin
strNodeName := AName; strNodeName := AName;
if ( Style = Document ) then begin if ( Style = Document ) then begin
namespaceShortName := FindAttributeByValueInScope(StackTop().NameSpace); 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 if not IsStrEmpty(namespaceShortName) then
strNodeName := namespaceShortName + ':' + strNodeName; strNodeName := namespaceShortName + ':' + strNodeName;
end; end;