From 182664b511e5068379b2694d406351d81f5accae Mon Sep 17 00:00:00 2001
From: Alan Ritari <aritari@webgui-cvs>
Date: Thu, 1 Jul 2004 00:17:25 +0000
Subject: [PATCH] + Adding form param WSClient_skipCache allows us to ignore
 even good soap   return caches

---
 lib/WebGUI/Wobject/WSClient.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Wobject/WSClient.pm b/lib/WebGUI/Wobject/WSClient.pm
index f36144a82..ab5524d04 100644
--- a/lib/WebGUI/Wobject/WSClient.pm
+++ b/lib/WebGUI/Wobject/WSClient.pm
@@ -281,7 +281,11 @@ sub www_view {
       . " cache_key=$cache_key md5_hex($call, $param_str)");
    $cache = WebGUI::Cache->new($cache_key,
       WebGUI::International::get(4, $self->get('namespace')));
-   @result = Storable::thaw($cache->get);
+
+   # passing a form param WSClient_skipCache lets us ignore even good caches
+   if (!$session{'form'}{'WSClient_skipCache'}) {
+      @result = Storable::thaw($cache->get);
+   }
    
    # prep SOAP unless we found cached data
    if (!$result[0]) {