projekt kivitendo

use SL::Common;

use SL::CVar;

use SL::DBUtils;

use Text::ParseWords;

use strict;

  die 'Missing argument: cp_id' unless $::form->{cp_id};

  my $query =

    qq|SELECT * FROM contacts c | .

    qq|WHERE cp_id = ? ORDER BY cp_id limit 1|;

  ($form->{cp_used}) = selectfirst_array_query($form, $dbh, $query, ($form->{cp_id})x2);

  $sth->finish;

  $main::lxdebug->leave_sub();

}