projekt kivitendo

  foreach my $table (qw(translation_payment_terms units_language)) {

    my $query = qq|DELETE FROM $table WHERE language_id = ?|;

    do_query($form, $dbh, $query, $form->{"id"});

  }

  do_query($form, $dbh, $query, $form->{"id"});

  $sth->finish();

  $query =

    qq|SELECT t.language_id, t.description_long, l.description AS language | .

    qq|FROM translation_payment_terms t | .

    qq|LEFT JOIN language l ON t.language_id = l.id | .

    qq|WHERE t.payment_terms_id = ? | .

    qq|UNION | .

    qq|SELECT l.id AS language_id, NULL AS description_long, | .

    qq|l.description AS language | .

    qq|FROM language l|;

  $sth = $dbh->prepare($query);

  $sth->execute($form->{"id"}) || $form->dberror($query . " ($form->{id})");

  my %mapping;

  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {

    $mapping{ $ref->{"language_id"} } = $ref

      unless (defined($mapping{ $ref->{"language_id"} }));

  }

  $form->{"TRANSLATION"} = [sort({ $a->{"language"} cmp $b->{"language"} }

                                 values(%mapping))];

  my $dbh = $form->dbconnect_noauto($myconfig);

  my $query;

  if (!$form->{id}) {

    $query = qq|SELECT nextval('id'), MAX(sortkey) + 1 FROM payment_terms|;

    my $sortkey;

    ($form->{id}, $sortkey) = selectrow_query($form, $dbh, $query);

    $query = qq|INSERT INTO payment_terms (id, sortkey) VALUES (?, ?)|;

    do_query($form, $dbh, $query, $form->{id}, $sortkey);

  } else {

    $query =

      qq|DELETE FROM translation_payment_terms | .

      qq|WHERE payment_terms_id = ?|;

    do_query($form, $dbh, $query, $form->{"id"});

  }

  $query = qq|UPDATE payment_terms SET

              description = ?, description_long = ?,

              ranking = ?,

              terms_netto = ?, terms_skonto = ?,

              percent_skonto = ?

              WHERE id = ?|;

                $form->{percent_skonto} * 1,

                $form->{id});

  do_query($form, $dbh, $query, @values);

  $query = qq|SELECT id FROM language|;

  my @language_ids;

  my $sth = $dbh->prepare($query);

  $sth->execute() || $form->dberror($query);

  while (my ($id) = $sth->fetchrow_array()) {

    push(@language_ids, $id);

  $sth->finish();

  $query =

    qq|INSERT INTO translation_payment_terms | .

    qq|(language_id, payment_terms_id, description_long) | .

    qq|VALUES (?, ?, ?)|;

  $sth = $dbh->prepare($query);

  foreach my $language_id (@language_ids) {

    do_statement($form, $sth, $query, $language_id, $form->{"id"},

                 $form->{"description_long_${language_id}"});

  }

  $sth->finish();

  $dbh->commit();

  my $dbh = $form->dbconnect_noauto($myconfig);

  $query =

    qq|DELETE FROM translation_payment_terms WHERE payment_terms_id = ?|;

  do_query($form, $dbh, $query, $form->{"id"});

  $dbh->commit();