From 3a3ac174b15809c4429e2353881063d60f3c796e Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 1 Jul 2008 19:31:20 +0000
Subject: [PATCH] Handling empty short namespace

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@500 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/server_service_soap.pas | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/wst/trunk/server_service_soap.pas b/wst/trunk/server_service_soap.pas
index 9d70b32f7..7dbc2a648 100644
--- a/wst/trunk/server_service_soap.pas
+++ b/wst/trunk/server_service_soap.pas
@@ -141,13 +141,16 @@ begin
   mthdNd := bdyNd.FirstChild;
   PushStack(mthdNd);
   s := mthdNd.NodeName;
-  nsShortName := ExtractNamespacePart(s);
-  If IsStrEmpty(nsShortName) Then
-    Error('Method Node must have a qualified name.');
   FCallProcedureName := ExtractNamePart(s);
   If IsStrEmpty(FCallProcedureName) Then
     Error('No Method name.');
-  FCallTarget := FindAttributeByNameInScope(sXML_NS + ':' + nsShortName);
+  nsShortName := ExtractNamespacePart(s);
+  if IsStrEmpty(nsShortName) then
+    FCallTarget := FindAttributeByNameInScope(sXML_NS)
+  else
+    FCallTarget := FindAttributeByNameInScope(sXML_NS + ':' + nsShortName);
+  If IsStrEmpty(FCallTarget) Then
+    Error('Method Node must have a qualified name.');
 end;
 
 function TSOAPFormatter.GetCallProcedureName(): String;