From 12d76f4da2a65eec78e32a7c8115495307a13e1e Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 23 Jun 2005 04:18:43 +0000
Subject: [PATCH] made some things a little more intuitive

---
 lib/WebGUI/Asset/Wobject/WSClient.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/WSClient.pm b/lib/WebGUI/Asset/Wobject/WSClient.pm
index a9de33cb4..578dc7c27 100644
--- a/lib/WebGUI/Asset/Wobject/WSClient.pm
+++ b/lib/WebGUI/Asset/Wobject/WSClient.pm
@@ -117,7 +117,7 @@ sub definition {
 		defaultValue=>undef
          },
          cacheTTL         => {
-            fieldType     => 'integer',
+            fieldType     => 'interval',
             defaultValue  => 60,
          },
          sharedCache      => {
@@ -156,7 +156,7 @@ sub getEditForm {
    $tabform->getTab("display")->template(
       -name      => 'templateId',
       -value     => $self->getValue('templateId'),
-      -namespace => "WSClient"
+      -namespace => "WSClient",
       -label => WebGUI::International::get(72, "Asset_WSClient"),
    );
    $tabform->getTab("display")->yesNo (
@@ -240,7 +240,7 @@ sub getEditForm {
       -label   => WebGUI::International::get(28, "Asset_WSClient"),
       -value   => $self->get('sharedCache'),
    );
-   $tabform->getTab("properties")->text (
+   $tabform->getTab("properties")->interval (
       -name     => 'cacheTTL',
       -label    => WebGUI::International::get(27, "Asset_WSClient"),
       -value    => $self->get('cacheTTL'),