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},

    );

  datevautomatik => { type => 'boolean', default => 'false' },

  description    => { type => 'text' },

  id             => { type => 'integer', not_null => 1, sequence => 'id' },

  itime          => { type => 'timestamp', default => 'now()' },

  link           => { type => 'text', not_null => 1 },

  mtime          => { type => 'timestamp' },

[% END %]

      </td>

    </tr>

  </table>

</fieldset>