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