From 7f33d0aa30669db4d141a8845719941590cd611a Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Tue, 22 Jun 2004 15:41:20 +0000
Subject: [PATCH] wsdl patch from Roy Johnson (dpost)

---
 docs/changelog/6.x.x.txt       | 2 ++
 lib/WebGUI/Wobject/WSClient.pm | 3 +--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 05240924f..9fce72b8e 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -25,6 +25,8 @@
    old procedural interface still works as well.
  - Added on the wire compression to HTTP transport for WSClient wobject.  This
    will have no effect on clients/servers that can't support compression.
+ - A small patch from Roy Johnson to deal with different types of WSDLs in th
+   WS Client.
 
 
 6.0.3
diff --git a/lib/WebGUI/Wobject/WSClient.pm b/lib/WebGUI/Wobject/WSClient.pm
index 70177d414..7b374b1fc 100644
--- a/lib/WebGUI/Wobject/WSClient.pm
+++ b/lib/WebGUI/Wobject/WSClient.pm
@@ -465,8 +465,7 @@ sub _instantiate_soap {
    # a wsdl file was specified
    # we don't use fault handling with wsdls becuase they seem to behave 
    # differently.  Not sure if that is by design.
-   if ($self->get("uri") =~ m/\.wsdl\s*$/i) {
-
+     if ( ($self->get("uri") =~ m/\.wsdl\s*$/i) || ($self->get("uri") =~ m/\.\w*\?wsdl\s*$/i) ) {
       WebGUI::ErrorHandler::warn('wsdl=' . $self->get('uri'))
          if $self->get('debugMode');