+ added cacheTTL to WSClient

lib/WebGUI/Wobject/WSClient.pm

@@ -107,6 +107,10 @@ sub new {
          httpHeader       => {
             fieldType     => $httpHeaderFieldType,
          },
+         cacheTTL         => {
+            fieldType     => 'integer',
+            defaultValue  => 60,
+         },
       },
    );
    bless $self, $class;
@@ -205,6 +209,12 @@ sub www_edit {
       );
    }
 
+   $properties->text (
+      -name     => 'cacheTTL',
+      -label    => WebGUI::International::get(27, $_[0]->get('namespace')),
+      -value    => $_[0]->get('cacheTTL'),
+   );
+
    return $_[0]->SUPER::www_edit (
       -layout     => $layout->printRowsOnly,
       -privileges => $privileges->printRowsOnly,
@@ -333,7 +343,8 @@ sub www_view {
                @result = { 'result' => $return };
             }
 
-            $cache->set(Storable::freeze(@result));
+            $cache->set(Storable::freeze(@result),
+               $wobject[0]->get('cacheTTL'));
          };
 
          # did the soap call fault?