pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Handling empty short namespace

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@500 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-07-01 19:31:20 +00:00
parent 8d29e2bcbc
commit 3a3ac174b1
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
wst/trunk/server_service_soap.pas
View File

@ -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;