+sub save_partsgroup {
+ $main::lxdebug->enter_sub();
+
+ my ($self, $myconfig, $form) = @_;
+
+ # connect to database
+ my $dbh = $form->dbconnect($myconfig);
+
+ $form->{discount} /= 100;
+
+ my @values = ($form->{partsgroup});
+
+ if ($form->{id}) {
+ $query = qq|UPDATE partsgroup SET partsgroup = ? WHERE id = ?|;
+ push(@values, $form->{id});
+ } else {
+ $query = qq|INSERT INTO partsgroup (partsgroup) VALUES (?)|;
+ }
+ do_query($form, $dbh, $query, @values);
+
+ $dbh->disconnect;
+
+ $main::lxdebug->leave_sub();
+}