projekt kivitendo

  my $query = qq|SELECT v.name AS vendor, v.creditlimit, v.terms,

                 v.email, v.cc, v.bcc, v.language_id, v.payment_id,

		 v.street, v.zipcode, v.city, v.country, v.taxzone_id,

                 FROM vendor v

	         WHERE v.id = $form->{vendor_id}|;

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

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