projekt kivitendo

    my $chart_obj = SL::DB::Manager::Chart->find_by(id => $form->{id}) || die "Can't open chart";

    my @chart_fields = qw(accno description charttype category link pos_bilanz

    foreach my $cf ( @chart_fields ) {

      $form->{"$cf"} = $chart_obj->$cf;

    }

                  pos_er = ?,

                  new_chart_id = ?,

                  valid_from = ?,

                WHERE id = ?|;

    @values = (

                  conv_i($form->{new_chart_id}),

                  conv_date($form->{valid_from}),

                  ($form->{datevautomatik} eq 'T') ? 'true':'false',

                $form->{id},

    );