- my $query;
- # id is the old record
- if ($form->{id}) {
- $query = qq|UPDATE payment_terms SET
- description = ?, description_long = ?,
- ranking = ?,
- terms_netto = ?, terms_skonto = ?,
- percent_skonto = ?
- WHERE id = ?|;
- push(@values, $form->{"id"});
- } else {
- $query = qq|SELECT MAX(sortkey) + 1 FROM payment_terms|;
- my ($sortkey) = selectrow_query($form, $dbh, $query);
- $query = qq|INSERT INTO payment_terms
- (description, description_long, ranking,
- terms_netto, terms_skonto, percent_skonto, sortkey)
- VALUES (?, ?, ?, ?, ?, ?, ?)|;
- push(@values, $sortkey);
+ $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);