- my $dbh = $form->dbconnect($myconfig);
-
- if ($form->{revtrans}) {
-
- $query = qq|UPDATE defaults SET closedto = NULL,
- revtrans = '1'|;
- } else {
- if ($form->{closedto}) {
-
- $query = qq|UPDATE defaults SET closedto = '$form->{closedto}',
- revtrans = '0'|;
- } else {
-
- $query = qq|UPDATE defaults SET closedto = NULL,
- revtrans = '0'|;
- }
- }
-
- # set close in defaults
- $dbh->do($query) || $form->dberror($query);
-
- $dbh->disconnect;
-
- $main::lxdebug->leave_sub();
-}
-
-sub get_base_unit {
- my ($self, $units, $unit_name, $factor) = @_;
-
- $factor = 1 unless ($factor);
-
- my $unit = $units->{$unit_name};
-
- if (!defined($unit) || !$unit->{"base_unit"} ||
- ($unit_name eq $unit->{"base_unit"})) {
- return ($unit_name, $factor);
- }
-
- return AM->get_base_unit($units, $unit->{"base_unit"}, $factor * $unit->{"factor"});
-}
-
-sub retrieve_units {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form, $type, $prefix) = @_;
-
- my $dbh = $form->dbconnect($myconfig);
-
- my $query = "SELECT *, base_unit AS original_base_unit FROM units";
- my @values;
- if ($type) {
- $query .= " WHERE (type = ?)";
- @values = ($type);
- }
-
- my $sth = $dbh->prepare($query);
- $sth->execute(@values) || $form->dberror($query . " (" . join(", ", @values) . ")");
-
- my $units = {};
- while (my $ref = $sth->fetchrow_hashref()) {
- $units->{$ref->{"name"}} = $ref;
- }
- $sth->finish();
-
- foreach my $unit (keys(%{$units})) {
- ($units->{$unit}->{"${prefix}base_unit"}, $units->{$unit}->{"${prefix}factor"}) = AM->get_base_unit($units, $unit);
- }
-
- $dbh->disconnect();
-
- $main::lxdebug->leave_sub();
-
- return $units;
-}
-
-sub units_in_use {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form, $units) = @_;
-
- my $dbh = $form->dbconnect($myconfig);
-
- foreach my $unit (values(%{$units})) {
- my $base_unit = $unit->{"original_base_unit"};
- while ($base_unit) {
- $units->{$base_unit}->{"DEPENDING_UNITS"} = [] unless ($units->{$base_unit}->{"DEPENDING_UNITS"});
- push(@{$units->{$base_unit}->{"DEPENDING_UNITS"}}, $unit->{"name"});
- $base_unit = $units->{$base_unit}->{"original_base_unit"};
- }
- }
-
- foreach my $unit (values(%{$units})) {
- $unit->{"in_use"} = 0;
- map({ $_ = $dbh->quote($_); } @{$unit->{"DEPENDING_UNITS"}});
-
- foreach my $table (qw(parts invoice orderitems)) {
- my $query = "SELECT COUNT(*) FROM $table WHERE unit ";
-
- if (0 == scalar(@{$unit->{"DEPENDING_UNITS"}})) {
- $query .= "= " . $dbh->quote($unit->{"name"});
- } else {
- $query .= "IN (" . $dbh->quote($unit->{"name"}) . "," . join(",", @{$unit->{"DEPENDING_UNITS"}}) . ")";
- }
-
- my ($count) = $dbh->selectrow_array($query);
- $form->dberror($query) if ($dbh->err);
-
- if ($count) {
- $unit->{"in_use"} = 1;
- last;
- }
- }
- }
-
- $dbh->disconnect();
-
- $main::lxdebug->leave_sub();
-}
-
-sub unit_select_data {
- $main::lxdebug->enter_sub();
-
- my ($self, $units, $selected, $empty_entry) = @_;
-
- my $select = [];
-
- if ($empty_entry) {
- push(@{$select}, { "name" => "", "base_unit" => "", "factor" => "", "selected" => "" });
- }
-
- foreach my $unit (sort({ lc($a) cmp lc($b) } keys(%{$units}))) {
- push(@{$select}, { "name" => $unit,
- "base_unit" => $units->{$unit}->{"base_unit"},
- "factor" => $units->{$unit}->{"factor"},
- "selected" => ($unit eq $selected) ? "selected" : "" });
- }
-
- $main::lxdebug->leave_sub();
-
- return $select;
-}
-
-sub unit_select_html {
- $main::lxdebug->enter_sub();
-
- my ($self, $units, $name, $selected, $convertible_into) = @_;
-
- my $select = "<select name=${name}>";
-
- foreach my $unit (sort({ lc($a) cmp lc($b) } keys(%{$units}))) {
- if (!$convertible_into ||
- ($units->{$convertible_into} &&
- ($units->{$convertible_into}->{"base_unit"} eq $units->{$unit}->{"base_unit"}))) {
- $select .= "<option" . (($unit eq $selected) ? " selected" : "") . ">${unit}</option>";
- }
- }
- $select .= "</select>";
-
- $main::lxdebug->leave_sub();
-
- return $select;
-}
-
-sub add_unit {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form, $name, $base_unit, $factor, $type) = @_;