webgui/lib/WebGUI/Commerce.pm
2006-01-09 19:56:26 +00:00

17 lines
745 B
Perl

package WebGUI::Commerce;
use strict;
#-------------------------------------------------------------------
sub setCommerceSetting {
my ($entry);
$entry = shift;
$self->session->db->write("delete from commerceSettings where ".
"namespace=".$self->session->db->quote($entry->{namespace})." and ".
"type=".$self->session->db->quote($entry->{type})." and fieldName=".$self->session->db->quote($entry->{fieldName}));
$self->session->db->write("insert into commerceSettings (namespace, type, fieldName, fieldValue) values ".
"(".$self->session->db->quote($entry->{namespace}).",".$self->session->db->quote($entry->{type}).",".$self->session->db->quote($entry->{fieldName}).",".$self->session->db->quote($entry->{fieldValue}).")");
}
1;