projekt kivitendo

  my $rowcount = shift;

  $lxdebug->enter_sub();

  for $j (1 .. $rowcount) {

    my $pricegroup_old = $form->{"pricegroup_old_$i"};

    if ($form->{PRICES}{$j}) {

      $len    = 0;

          qq|<option value="$price--$pricegroup_id"$item->{selected}>$pricegroup</option>\n|;

        $len += 1;

        # set new selectedpricegroup_id and prices for "Preis"

          $form->{"pricegroup_old_$j"} = $pricegroup_id;

          $form->{"price_new_$j"}      = $price;

          $form->{"sellprice_$j"}      = $price;

        }

          $form->{"prices_$j"} = $prices;

        }

      }

    }

  }

  $lxdebug->leave_sub();

}