sub get_coa {
- my ( $self, $form, $myconfig) = @_;
-
- my $query = q{ SELECT coa FROM defaults };
-
- my $dbh = $form->dbconnect($myconfig);
- my $sth = $dbh->prepare($query);
- $sth->execute() || $form->dberror($query);
-
- my ($coa) = selectrow_query($form, $dbh, $query);
-
- $sth->finish;
- $dbh->disconnect;
+ my ( $self, $form ) = @_;
+ my $coa = $::instance_conf->get_coa;
$form->{coa} = $coa;
$form->{"COA_$coa"} = '1';
$form->{COA_Germany} = '1' if ($coa =~ m/^germany/i);
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->dbconnect($myconfig);
+ my $dbh = $form->get_standard_dbh;
my $last_period = 0;
my $category = "pos_ustva";
foreach my $item (@category_euro) {
$form->{"$item"} = 0;
}
- my $coa_name = coa_get($dbh);
+ my $coa_name = $::instance_conf->get_coa;
$form->{coa} = $coa_name;
# Controlvariable for templates
$main::lxdebug->leave_sub();
}
-sub coa_get {
-
- my ($dbh) = @_;
- my $form = $main::form;
-
- my $query= qq|SELECT coa FROM defaults|;
-
- my $sth = $dbh->prepare($query);
-
- $sth->execute || $form->dberror($query);
-
- my ($ref) = $sth->fetchrow_array;
-
- return $ref;
-
-};
-
sub get_accounts_ustva {
$main::lxdebug->enter_sub();