From d0bc628ff8ba1058b4d8bde23516953fe525faee Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 2 Apr 2010 18:39:16 -0500
Subject: [PATCH] make setting set/add update or replace existing settings

---
 lib/WebGUI/Session/Setting.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/Session/Setting.pm b/lib/WebGUI/Session/Setting.pm
index 297a057e2..60f0c5bd2 100644
--- a/lib/WebGUI/Session/Setting.pm
+++ b/lib/WebGUI/Session/Setting.pm
@@ -64,10 +64,7 @@ The initial value of the setting.
 
 sub add {
 	my $self = shift;
-	my $name = shift;
-	my $value = shift;
-	$self->{_settings}{$name} = $value;
-	$self->session->db->write("insert into settings (name,value) values (?,?)",[$name, $value]);
+    $self->set(@_);
 }
 
 #-------------------------------------------------------------------
@@ -208,7 +205,7 @@ sub set {
 	my $name = shift;
 	my $value = shift;
 	$self->{_settings}{$name} = $value;
-	$self->session->db->write("update settings set value=? where name=?",[$value, $name]);
+    $self->session->db->write("REPLACE INTO settings (name, value) VALUES (?, ?)", [$name, $value]);
 }