projekt kivitendo

  # retrieve order/quotation

  $form->{webdav}   = $::lx_office_conf{features}->{webdav};

  my $editing = $form->{id};

  $form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};

  $form->{salesman_id} = $form->{old_salesman_id} if $form->{old_salesman_id};

  # openclosed checkboxes

  my @tmp;

  push @tmp, sprintf qq|<input name="delivered" id="delivered" type="checkbox" class="checkbox" value="1" %s><label for="delivered">%s</label>|,

  $form->{ALL_EMPLOYEES} = SL::DB::Manager::Employee->get_all(query => [ deleted => 0 ]);

  # constants and subs for template

  $form->{vc_keys}         = sub { "$_[0]->{name}--$_[0]->{id}" };

  $form->header();