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