From db64e46a75c5e8b1940db6110c9e4953a6b93798 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Fri, 24 Jan 2003 05:05:55 +0000
Subject: [PATCH] Fixed a bug where interval settings (like sessionTimeout)
 would not save.

---
 lib/WebGUI/Operation/Settings.pm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm
index ee4532c58..0ba7a36f7 100644
--- a/lib/WebGUI/Operation/Settings.pm
+++ b/lib/WebGUI/Operation/Settings.pm
@@ -176,10 +176,17 @@ sub www_manageSettings {
 #-------------------------------------------------------------------
 sub www_saveSettings {
 	WebGUI::Privilege::adminOnly() unless (WebGUI::Privilege::isInGroup(3));
-	my ($key);
+	my ($key, $value);
 	foreach $key (keys %{$session{form}}) {
+		$value = $session{form}{$key};
+		if ($key =~ m/(.*)_interval/) {
+			$value = WebGUI::DateTime::intervalToSeconds($session{form}{$key},$session{form}{$1."_units"});
+			$key = $1;
+		} elsif ($key =~ m/_units/) {
+			next;
+		} 
 		unless ($key eq "op") {
-			WebGUI::SQL->write("update settings set value=".quote($session{form}{$key})." where name='$key'");
+			WebGUI::SQL->write("update settings set value=".quote($value)." where name='$key'");
 		}
 	}
 	return www_manageSettings();