+ $form->{discount} /= 100;
+
+ my @values = ($form->{pricegroup});
+
+ 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);
+
+ $dbh->disconnect;
+
+ $main::lxdebug->leave_sub();
+}
+
+############################
+# get one pricegroup from database
+#
+sub get_pricegroup {
+ $main::lxdebug->enter_sub();
+
+ my ($self, $myconfig, $form) = @_;
+
+ # connect to database
+ my $dbh = $form->dbconnect($myconfig);
+
+ my $query = qq|SELECT id, pricegroup FROM pricegroup WHERE id = ?|;
+ my $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
+ my $ref = $sth->fetchrow_hashref(NAME_lc);
+
+ map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));
+
+ $sth->finish;
+
+ my $first = 1;
+
+ my @values = ();
+ $query = qq|SELECT |;
+ foreach my $table (qw(invoice orderitems prices rmaitems)) {
+ $query .= " + " unless ($first);
+ $first = 0;
+ $query .= qq|(SELECT COUNT(*) FROM $table WHERE pricegroup_id = ?) |;
+ push(@values, $form->{id});
+ }
+
+ ($form->{orphaned}) = selectrow_query($form, $dbh, $query, @values);
+ $form->{orphaned} = !$form->{orphaned};