diff --git a/wst/trunk/server_listener.pas b/wst/trunk/server_listener.pas index 7f2d1fb65..3783779d6 100644 --- a/wst/trunk/server_listener.pas +++ b/wst/trunk/server_listener.pas @@ -38,18 +38,24 @@ type property OnNotifyMessage : TListnerNotifyMessage read FOnNotifyMessage write FOnNotifyMessage; end; - function GenerateWSDLHtmlTable(): string; + function GenerateWSDLHtmlTable(const AServicesModulePath : string=''): string; implementation uses base_service_intf, metadata_repository, metadata_service, metadata_service_binder, metadata_service_imp ; -function GenerateWSDLHtmlTable(): string; +function GenerateWSDLHtmlTable(const AServicesModulePath : string): string; var r : IModuleMetadataMngr; i : Integer; + locModulePath : string; begin + locModulePath := Trim(AServicesModulePath); + if ( Length(locModulePath) = 0 ) then + locModulePath := sSEPARATOR+sSERVICES_PREFIXE + else + locModulePath := sSEPARATOR + AServicesModulePath + sSERVICES_PREFIXE; r := GetModuleMetadataMngr(); Result := '' + ''+ @@ -64,7 +70,7 @@ begin Result := Result + '' + '' + - Format('',[sSEPARATOR+sSERVICES_PREFIXE+sSEPARATOR+sWSDL+sSEPARATOR+r.GetRepositoryName(i)])+ + Format('',[AServicesModulePath+sSEPARATOR+sWSDL+sSEPARATOR+r.GetRepositoryName(i)])+ r.GetRepositoryName(i) + ''+ '' +