make setting set/add update or replace existing settings

This commit is contained in:
Graham Knop 2010-04-02 18:39:16 -05:00
parent 3b07f830c7
commit d0bc628ff8

View file

@ -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]);
}