+ if ($form->{id}) {
+ $query = qq|UPDATE pricegroup SET pricegroup = ? WHERE id = ? |;
+ push(@values, $form->{id});
+ } else {
+ $query = qq|INSERT INTO pricegroup (pricegroup) VALUES (?)|;
+ }
+ do_query($form, $dbh, $query, @values);
+ 1;
+ }) or do { die SL::DB->client->error };