projekt kivitendo

sub get_pricegroups {

  $main::lxdebug->enter_sub();

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

  my $dbh = $form->dbconnect($myconfig);

  my $i = 1;

  my @pricegroups_not_used = ();

  # get pricegroups

  my $query = qq|SELECT p.id, p.pricegroup FROM pricegroup p|;

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

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

  while ($pkr = $pkq->fetchrow_hashref(NAME_lc)) {

    push @{ $form->{PRICEGROUPS} }, $pkr;

  }

  $pkq->finish;

  #find not used pricegroups

  while ($tmp = pop @{ $form->{PRICEGROUPS} }) {

    push @pricegroups_not_used, $tmp;

  }

  # if not used pricegroups are avaible

  if (@pricegroups_not_used) {

    foreach $name (@pricegroups_not_used) {

      $form->{"klass_$i"} = "$name->{id}";

      $form->{"price_$i"} = $form->round_amount($form->{sellprice}, 5);

      $form->{"price_$i"} =

        $form->format_amount($myconfig, $form->{"price_$i"}, 5);

      $form->{"pricegroup_id_$i"} = "$name->{id}";

      $form->{"pricegroup_$i"}    = "$name->{pricegroup}\n";

      $i++;

    }

  }

  #correct rows

  $form->{price_rows} = $i - 1;

  $dbh->disconnect;

  $main::lxdebug->leave_sub();

}

    if ($form->{"price_$i"} eq "0") {

       $form->{"price_$i"} = $form->{sellprice};

    }