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();