projekt kivitendo

package IC;

use Data::Dumper;

sub get_part {

  $main::lxdebug->enter_sub();

		 LEFT JOIN chart c2 ON (p.income_accno_id = c2.id)

		 LEFT JOIN chart c3 ON (p.expense_accno_id = c3.id)

		 LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

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

  my $ref = $sth->fetchrow_hashref(NAME_lc);

  # copy to $form variables

                FROM parts p

		JOIN assembly a ON (a.parts_id = p.id)

		LEFT JOIN partsgroup pg ON (p.partsgroup_id = pg.id)

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

    $form->{assembly_rows} = 0;

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

      $form->{assembly_rows}++;

  # get prices

  $query =

    qq|SELECT p.parts_id, p.pricegroup_id, p.price, (SELECT pg.pricegroup FROM pricegroup pg WHERE pg.id=p.pricegroup_id) AS pricegroup FROM prices p

              ORDER by pricegroup|;

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

  @pricegroups          = ();

  @pricegroups_not_used = ();

    # get makes

    if ($form->{makemodel}) {

      $query = qq|SELECT m.make, m.model FROM makemodel m

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

      my $i = 1;

      while (($form->{"make_$i"}, $form->{"model_$i"}) = $sth->fetchrow_array)

  # get translations

  $form->{language_values} = "";

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

  while ($tr = $trq->fetchrow_hashref(NAME_lc)) {

    $form->{language_values} .= "---+++---".$tr->{language_id}."--++--".$tr->{translation};

  }

    "WHERE t.id IN " .

    "  (SELECT tk.tax_id " .

    "   FROM taxkeys tk " .

    "   ORDER BY startdate DESC LIMIT 1) ";

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

  $ref = $sth->fetchrow_hashref();

  $sth->finish();

  $dbh->disconnect();