From af61b10bc5d3523386675946b519274941788635 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 16 Jul 2010 13:48:52 +0000
Subject: [PATCH] Correct SOAP Header namespace generation (THeaderBlockProxy
 case) 2

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

diff --git a/wst/trunk/base_soap_formatter.pas b/wst/trunk/base_soap_formatter.pas
index 42149c6c6..bc3e41b43 100644
--- a/wst/trunk/base_soap_formatter.pas
+++ b/wst/trunk/base_soap_formatter.pas
@@ -1740,7 +1740,7 @@ begin
           regItem := GetTypeRegistry().Find(ptyp,True);
           //Put(GetTypeRegistry().ItemByTypeInfo[ptyp].DeclaredName,ptyp,h);
           if ( regItem <> nil) then
-            Put(regItem.NameSpace,h.Name,ptyp,h)
+            Put(regItem.NameSpace,h.Name,PTypeInfo(h.ClassInfo),h)
           else
             Put(h.Name,ptyp,h);
         end;