From 45b6cbd540ac34eee997a605a291342cfd1823b5 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 9 Dec 2009 17:39:30 +0000
Subject: [PATCH] TSOAPBaseFormatter.ReadBuffer : Correct usage of qualified
 name form.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1040 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_soap_formatter.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/wst/trunk/base_soap_formatter.pas b/wst/trunk/base_soap_formatter.pas
index 58117a271..c7f2aeeed 100644
--- a/wst/trunk/base_soap_formatter.pas
+++ b/wst/trunk/base_soap_formatter.pas
@@ -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;