projekt kivitendo

use SL::HTML::Restrict;

use SL::TransNumber;

use SL::Util qw(trim);

use strict;

sub _save {

  my ($self, $myconfig, $form) = @_;

  my @values;

  my $dbh = SL::DB->client->dbh;

  my $restricter = SL::HTML::Restrict->create;

}

sub delete {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  my @values = (conv_i($form->{id}));

  my %columns = ( "assembly" => "id", "parts" => "id" );

  for my $table (qw(prices makemodel inventory assembly translation parts)) {

    my $column = defined($columns{$table}) ? $columns{$table} : "parts_id";

  }

}

sub assembly_item {

    $where .= qq| ORDER BY p.description|;

  }

  my $query =

    qq|SELECT p.id, p.partnumber, p.description, p.sellprice,

       p.weight, p.onhand, p.unit, pg.partsgroup, p.lastcost,

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

       LEFT JOIN price_factors pfac ON pfac.id = p.price_factor_id

       WHERE $where|;

  $main::lxdebug->leave_sub();

}

}

sub update_prices {

  $main::lxdebug->enter_sub();

  my ($self, $myconfig, $form) = @_;

  my ($where, @where_values) = $self->_create_filter_for_priceupdate();

  my $num_updated = 0;

  # connect to database

  for my $column (qw(sellprice listprice)) {

    next if ($form->{$column} eq "");

  $sth_add->finish();

  $sth_multiply->finish();

  return $num_updated;

}