/ - Diff - projekt kivitendo - wissen

« Zurück | Weiter »

Revision 0022ca37

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt

ID 0022ca3734db21b55ff8a11c0f4d8fdc909ef5b4
Vorgänger 31155ae5
Nachfolger 9fdd2fb1

AM: single-dbh und disconnects

     use SL::DB::Default;
     use SL::DB::Employee;
     use SL::DB::Chart;
     use SL::DB;
     use SL::GenericTranslations;
     use strict;
-...
+    }
     sub save_account {
       my ($self, $myconfig, $form) = @_;
       $main::lxdebug->enter_sub();
       my $rc = SL::DB->client->with_transaction(\&_save_account, $self, $myconfig, $form);
       $::lxdebug->leave_sub;
       return $rc;
+    }
     sub _save_account {
       # TODO: it should be forbidden to change an account to a heading if there
       # have been bookings to this account in the past
       my ($self, $myconfig, $form) = @_;
       # connect to database, turn off AutoCommit
       my $dbh = $form->dbconnect_noauto($myconfig);
       my $dbh = SL::DB->client->dbh;
       for (qw(AR_include_in_dropdown AP_include_in_dropdown summary_account)) {
         $form->{$form->{$_}} = $form->{$_} if $form->{$_};
-...
       do_query($form, $dbh, $query, $form->{id});
       # commit
       my $rc = $dbh->commit;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
       return $rc;
       return 1;
+    }
     sub delete_account {
       my ($self, $myconfig, $form) = @_;
       $main::lxdebug->enter_sub();
       my $rc = SL::DB->client->with_transaction(\&_delete_account, $self, $myconfig, $form);
       $::lxdebug->leave_sub;
       return $rc;
+    }
     sub _delete_account {
       my ($self, $myconfig, $form) = @_;
       # connect to database, turn off AutoCommit
       my $dbh = $form->dbconnect_noauto($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT count(*) FROM acc_trans a
                      WHERE a.chart_id = ?|;
       my ($count) = selectrow_query($form, $dbh, $query, $form->{id});
       if ($count) {
         $dbh->disconnect;
         $main::lxdebug->leave_sub();
         return;
+      }
-...
                   WHERE id = ?|;
       do_query($form, $dbh, $query, $form->{id});
       # commit and redirect
       my $rc = $dbh->commit;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
       return $rc;
       return 1;
+    }
     sub lead {
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT id, lead
                      FROM leads
-...
+      }
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query =
         qq|SELECT l.id, l.lead | .
-...
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       my ($query);
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my @values = ($form->{description});
       # id is the old record
-...
+      }
       do_query($form, $dbh, $query, @values);
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       my ($query);
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       $query = qq|DELETE FROM leads
                   WHERE id = ?|;
       do_query($form, $dbh, $query, $form->{id});
       $dbh->disconnect;
       SL::DB->client->with_transaction(sub {
         $query = qq|DELETE FROM leads WHERE id = ?|;
         do_query($form, SL::DB->client->dbh, $query, $form->{id});
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form, $return_list) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query =
         "SELECT id, description, template_code, article_code, " .
-...
+      }
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query =
         "SELECT description, template_code, article_code, " .
-...
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form, $id) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query =
         "SELECT template_code, " .
         "  output_numberformat, output_dateformat, output_longdates " .
         "FROM language WHERE id = ?";
       my @res = selectrow_query($form, $dbh, $query, $id);
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my (@values, $query);
       map({ push(@values, $form->{$_}); }
           qw(description template_code article_code
              output_numberformat output_dateformat output_longdates));
       # id is the old record
       if ($form->{id}) {
         $query =
           "UPDATE language SET " .
           "  description = ?, template_code = ?, article_code = ?, " .
           "  output_numberformat = ?, output_dateformat = ?, " .
           "  output_longdates = ? " .
           "WHERE id = ?";
         push(@values, $form->{id});
       } else {
         $query =
           "INSERT INTO language (" .
           "  description, template_code, article_code, " .
           "  output_numberformat, output_dateformat, output_longdates" .
           ") VALUES (?, ?, ?, ?, ?, ?)";
+      }
       do_query($form, $dbh, $query, @values);
       $dbh->disconnect;
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
         my (@values, $query);
         map({ push(@values, $form->{$_}); }
             qw(description template_code article_code
                output_numberformat output_dateformat output_longdates));
         # id is the old record
         if ($form->{id}) {
           $query =
             "UPDATE language SET " .
             "  description = ?, template_code = ?, article_code = ?, " .
             "  output_numberformat = ?, output_dateformat = ?, " .
             "  output_longdates = ? " .
             "WHERE id = ?";
           push(@values, $form->{id});
         } else {
           $query =
             "INSERT INTO language (" .
             "  description, template_code, article_code, " .
             "  output_numberformat, output_dateformat, output_longdates" .
             ") VALUES (?, ?, ?, ?, ?, ?)";
+        }
         do_query($form, $dbh, $query, @values);
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       my $query;
       # connect to database
       my $dbh = $form->dbconnect_noauto($myconfig);
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       foreach my $table (qw(generic_translations units_language)) {
         $query = qq|DELETE FROM $table WHERE language_id = ?|;
         do_query($form, $dbh, $query, $form->{"id"});
+      }
       $query = "DELETE FROM language WHERE id = ?";
       do_query($form, $dbh, $query, $form->{"id"});
         foreach my $table (qw(generic_translations units_language)) {
           $query = qq|DELETE FROM $table WHERE language_id = ?|;
           do_query($form, $dbh, $query, $form->{"id"});
+        }
       $dbh->commit();
       $dbh->disconnect;
         $query = "DELETE FROM language WHERE id = ?";
         do_query($form, $dbh, $query, $form->{"id"});
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my $myconfig = \%main::myconfig;
       my $form     = $main::form;
       my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
       my $dbh      = $params{dbh} || SL::DB->client->dbh;
       my $defaults = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM defaults|) || {};
-...
       my ($self, $myconfig, $form) = @_;
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT closedto, max_future_booking_interval, revtrans FROM defaults|;
       my $sth   = $dbh->prepare($query);
-...
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       my $dbh = $form->dbconnect($myconfig);
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       my ($query, @values);
         my ($query, @values);
       # is currently NEVER trueish (no more hidden revtrans in $form)
       # if ($form->{revtrans}) {
       #   $query = qq|UPDATE defaults SET closedto = NULL, revtrans = '1'|;
       # -> therefore you can only set this to false (which is already the default)
       # and this flag is currently only checked in gl.pl. TOOD Can probably be removed
         # is currently NEVER trueish (no more hidden revtrans in $form)
         # if ($form->{revtrans}) {
         #   $query = qq|UPDATE defaults SET closedto = NULL, revtrans = '1'|;
         # -> therefore you can only set this to false (which is already the default)
         # and this flag is currently only checked in gl.pl. TOOD Can probably be removed
         $query = qq|UPDATE defaults SET closedto = ?, max_future_booking_interval = ?, revtrans = '0'|;
         @values = (conv_date($form->{closedto}), conv_i($form->{max_future_booking_interval}));
           $query = qq|UPDATE defaults SET closedto = ?, max_future_booking_interval = ?, revtrans = '0'|;
           @values = (conv_date($form->{closedto}), conv_i($form->{max_future_booking_interval}));
       # set close in defaults
       do_query($form, $dbh, $query, @values);
       $dbh->disconnect;
         # set close in defaults
         do_query($form, $dbh, $query, @values);
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form, $prefix) = @_;
       $prefix ||= '';
       my $dbh = $form->get_standard_dbh;
       my $dbh = SL::DB->client->dbh;
       my $query = "SELECT *, base_unit AS original_base_unit FROM units";
-...
       my ($self, $myconfig, $form, $units) = @_;
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       map({ $_->{"in_use"} = 0; } values(%{$units}));
-...
+        }
+      }
       $dbh->disconnect();
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form, $name, $base_unit, $factor, $languages) = @_;
       my $dbh = $form->dbconnect_noauto($myconfig);
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT COALESCE(MAX(sortkey), 0) + 1 FROM units|;
       my ($sortkey) = selectrow_query($form, $dbh, $query);
         my $query = qq|SELECT COALESCE(MAX(sortkey), 0) + 1 FROM units|;
         my ($sortkey) = selectrow_query($form, $dbh, $query);
       $query = "INSERT INTO units (name, base_unit, factor, sortkey) " .
         "VALUES (?, ?, ?, ?)";
       do_query($form, $dbh, $query, $name, $base_unit, $factor, $sortkey);
         $query = "INSERT INTO units (name, base_unit, factor, sortkey) " .
           "VALUES (?, ?, ?, ?)";
         do_query($form, $dbh, $query, $name, $base_unit, $factor, $sortkey);
       if ($languages) {
         $query = "INSERT INTO units_language (unit, language_id, localized, localized_plural) VALUES (?, ?, ?, ?)";
         my $sth = $dbh->prepare($query);
         foreach my $lang (@{$languages}) {
           my @values = ($name, $lang->{"id"}, $lang->{"localized"}, $lang->{"localized_plural"});
           $sth->execute(@values) || $form->dberror($query . " (" . join(", ", @values) . ")");
         if ($languages) {
           $query = "INSERT INTO units_language (unit, language_id, localized, localized_plural) VALUES (?, ?, ?, ?)";
           my $sth = $dbh->prepare($query);
           foreach my $lang (@{$languages}) {
             my @values = ($name, $lang->{"id"}, $lang->{"localized"}, $lang->{"localized_plural"});
             $sth->execute(@values) || $form->dberror($query . " (" . join(", ", @values) . ")");
+          }
           $sth->finish();
+        }
         $sth->finish();
+      }
       $dbh->commit();
       $dbh->disconnect();
       });
       $main::lxdebug->leave_sub();
+    }
     sub save_units {
       my ($self, $myconfig, $form, $units, $delete_units) = @_;
       $main::lxdebug->enter_sub();
       my $rc = SL::DB->client->with_transaction(\&_save_units, $self, $myconfig, $form, $units, $delete_units);
       $::lxdebug->leave_sub;
       return $rc;
+    }
     sub _save_units {
       my ($self, $myconfig, $form, $units, $delete_units) = @_;
       my $dbh = $form->dbconnect_noauto($myconfig);
       my $dbh = SL::DB->client->dbh;
       my ($base_unit, $unit, $sth, $query);
-...
       $sth->finish();
       $sth_lang->finish();
       $dbh->commit();
       $dbh->disconnect();
       $main::lxdebug->leave_sub();
       return 1;
+    }
     sub taxes {
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT
                        t.id,
-...
+      }
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       # get Accounts from chart
       my $query = qq{ SELECT
-...
       $sth->finish;
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->dbconnect($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT
                        taxkey,
-...
         $sth->finish;
+      }
       $dbh->disconnect;
       $main::lxdebug->leave_sub();
+    }
     sub save_tax {
       my ($self, $myconfig, $form) = @_;
       $main::lxdebug->enter_sub();
       my $rc = SL::DB->client->with_transaction(\&_save_tax, $self, $myconfig, $form);
       $::lxdebug->leave_sub;
       return $rc;
+    }
     sub _save_tax {
       my ($self, $myconfig, $form) = @_;
       my $query;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $dbh = SL::DB->client->dbh;
       $form->{rate} = $form->{rate} / 100;
-...
                                   'language_id'      => $language_id,
                                   'translation'      => $form->{translations}->{$language_id});
+      }
       $dbh->commit();
       $main::lxdebug->leave_sub();
+    }
     sub delete_tax {
-...
       my ($self, $myconfig, $form) = @_;
       my $query;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       $query = qq|DELETE FROM tax
                   WHERE id = ?|;
       do_query($form, $dbh, $query, $form->{id});
       $dbh->commit();
       SL::DB->client->with_transaction(sub {
         $query = qq|DELETE FROM tax WHERE id = ?|;
         do_query($form, SL::DB->client->dbh, $query, $form->{id});
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $query;
       my @values = ($form->{description}, conv_i($form->{factor}));
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       if ($form->{id}) {
         $query = qq|UPDATE price_factors SET description = ?, factor = ? WHERE id = ?|;
         push @values, conv_i($form->{id});
         my $query;
         my @values = ($form->{description}, conv_i($form->{factor}));
       } else {
         $query = qq|INSERT INTO price_factors (description, factor, sortkey) VALUES (?, ?, (SELECT COALESCE(MAX(sortkey), 0) + 1 FROM price_factors))|;
+      }
         if ($form->{id}) {
           $query = qq|UPDATE price_factors SET description = ?, factor = ? WHERE id = ?|;
           push @values, conv_i($form->{id});
       do_query($form, $dbh, $query, @values);
         } else {
           $query = qq|INSERT INTO price_factors (description, factor, sortkey) VALUES (?, ?, (SELECT COALESCE(MAX(sortkey), 0) + 1 FROM price_factors))|;
+        }
       $dbh->commit();
         do_query($form, $dbh, $query, @values);
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $dbh = SL::DB->client->dbh;
       $form->{PRICE_FACTORS} = selectall_hashref_query($form, $dbh, qq|SELECT * FROM price_factors ORDER BY sortkey|);
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT description, factor,
                        ((SELECT COUNT(*) FROM parts      WHERE price_factor_id = ?) +
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       do_query($form, $dbh, qq|DELETE FROM price_factors WHERE id = ?|, conv_i($form->{id}));
       $dbh->commit();
       SL::DB->client->with_transaction(sub {
         do_query($form, SL::DB->client->dbh, qq|DELETE FROM price_factors WHERE id = ?|, conv_i($form->{id}));
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my ($query, @values, $sth);
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       if (!$form->{id}) {
         $query        = qq|SELECT nextval('id')|;
         ($form->{id}) = selectrow_query($form, $dbh, $query);
         my ($query, @values, $sth);
         $query        = qq|INSERT INTO warehouse (id, sortkey) VALUES (?, (SELECT COALESCE(MAX(sortkey), 0) + 1 FROM warehouse))|;
         do_query($form, $dbh, $query, $form->{id});
+      }
         if (!$form->{id}) {
           $query        = qq|SELECT nextval('id')|;
           ($form->{id}) = selectrow_query($form, $dbh, $query);
       do_query($form, $dbh, qq|UPDATE warehouse SET description = ?, invalid = ? WHERE id = ?|,
                $form->{description}, $form->{invalid} ? 't' : 'f', conv_i($form->{id}));
           $query        = qq|INSERT INTO warehouse (id, sortkey) VALUES (?, (SELECT COALESCE(MAX(sortkey), 0) + 1 FROM warehouse))|;
           do_query($form, $dbh, $query, $form->{id});
+        }
       if (0 < $form->{number_of_new_bins}) {
         my ($num_existing_bins) = selectfirst_array_query($form, $dbh, qq|SELECT COUNT(*) FROM bin WHERE warehouse_id = ?|, $form->{id});
         $query = qq|INSERT INTO bin (warehouse_id, description) VALUES (?, ?)|;
         $sth   = prepare_query($form, $dbh, $query);
         do_query($form, $dbh, qq|UPDATE warehouse SET description = ?, invalid = ? WHERE id = ?|,
                  $form->{description}, $form->{invalid} ? 't' : 'f', conv_i($form->{id}));
         foreach my $i (1..$form->{number_of_new_bins}) {
           do_statement($form, $sth, $query, conv_i($form->{id}), "$form->{prefix}" . ($i + $num_existing_bins));
+        }
         if (0 < $form->{number_of_new_bins}) {
           my ($num_existing_bins) = selectfirst_array_query($form, $dbh, qq|SELECT COUNT(*) FROM bin WHERE warehouse_id = ?|, $form->{id});
           $query = qq|INSERT INTO bin (warehouse_id, description) VALUES (?, ?)|;
           $sth   = prepare_query($form, $dbh, $query);
         $sth->finish();
+      }
           foreach my $i (1..$form->{number_of_new_bins}) {
             do_statement($form, $sth, $query, conv_i($form->{id}), "$form->{prefix}" . ($i + $num_existing_bins));
+          }
       $dbh->commit();
           $sth->finish();
+        }
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my ($query, @values, $commit_necessary, $sth);
       @values = map { $form->{"id_${_}"} } grep { $form->{"delete_${_}"} } (1..$form->{rowcount});
       SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       if (@values) {
         $query = qq|DELETE FROM bin WHERE id IN (| . join(', ', ('?') x scalar(@values)) . qq|)|;
         do_query($form, $dbh, $query, @values);
         my ($query, @values, $sth);
         $commit_necessary = 1;
+      }
         @values = map { $form->{"id_${_}"} } grep { $form->{"delete_${_}"} } (1..$form->{rowcount});
       $query = qq|UPDATE bin SET description = ? WHERE id = ?|;
       $sth   = prepare_query($form, $dbh, $query);
       foreach my $row (1..$form->{rowcount}) {
         next if ($form->{"delete_${row}"});
         if (@values) {
           $query = qq|DELETE FROM bin WHERE id IN (| . join(', ', ('?') x scalar(@values)) . qq|)|;
           do_query($form, $dbh, $query, @values);
+        }
         do_statement($form, $sth, $query, $form->{"description_${row}"}, conv_i($form->{"id_${row}"}));
         $query = qq|UPDATE bin SET description = ? WHERE id = ?|;
         $sth   = prepare_query($form, $dbh, $query);
         $commit_necessary = 1;
+      }
         foreach my $row (1..$form->{rowcount}) {
           next if ($form->{"delete_${row}"});
       $sth->finish();
           do_statement($form, $sth, $query, $form->{"description_${row}"}, conv_i($form->{"id_${row}"}));
+        }
       $dbh->commit() if ($commit_necessary);
         $sth->finish();
       });
       $main::lxdebug->leave_sub();
+    }
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $rc = SL::DB->client->with_transaction(sub {
         my $dbh = SL::DB->client->dbh;
       my $id      = conv_i($form->{id});
       my $query   = qq|SELECT i.bin_id FROM inventory i WHERE i.bin_id IN (SELECT b.id FROM bin b WHERE b.warehouse_id = ?) LIMIT 1|;
       my ($count) = selectrow_query($form, $dbh, $query, $id);
         my $id      = conv_i($form->{id});
         my $query   = qq|SELECT i.bin_id FROM inventory i WHERE i.bin_id IN (SELECT b.id FROM bin b WHERE b.warehouse_id = ?) LIMIT 1|;
         my ($count) = selectrow_query($form, $dbh, $query, $id);
       if ($count) {
         $main::lxdebug->leave_sub();
         return 0;
+      }
         if ($count) {
           return 0;
+        }
       do_query($form, $dbh, qq|DELETE FROM bin       WHERE warehouse_id = ?|, conv_i($form->{id}));
       do_query($form, $dbh, qq|DELETE FROM warehouse WHERE id           = ?|, conv_i($form->{id}));
         do_query($form, $dbh, qq|DELETE FROM bin       WHERE warehouse_id = ?|, conv_i($form->{id}));
         do_query($form, $dbh, qq|DELETE FROM warehouse WHERE id           = ?|, conv_i($form->{id}));
       $dbh->commit();
         return 1;
       });
       $main::lxdebug->leave_sub();
       return 1;
       return $rc;
+    }
     sub get_all_warehouses {
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $query = qq|SELECT w.id, w.description, w.invalid,
                        (SELECT COUNT(b.description) FROM bin b WHERE b.warehouse_id = w.id) AS number_of_bins
-...
       my ($self, $myconfig, $form) = @_;
       # connect to database
       my $dbh = $form->get_standard_dbh($myconfig);
       my $dbh = SL::DB->client->dbh;
       my $id    = conv_i($form->{id});
       my $query = qq|SELECT w.description, w.invalid

Auch abrufbar als: Unified diff

Projekt

Allgemein

Profil

projekt kivitendo

Revision 0022ca37

Von Sven Schöling vor mehr als 8 Jahren hinzugefügt