projekt kivitendo

  $TMPL_VAR{department_labels}     = sub { "$_[0]->{description}--$_[0]->{id}" };

  # vendor/customer

  $TMPL_VAR{vclimit} = $myconfig{vclimit};

  $TMPL_VAR{vc_select} = "customer_or_vendor_selection_window('$form->{vc}', '', @{[ $form->{vc} eq 'vendor' ? 1 : 0 ]}, 0)";

  push @custom_hiddens, "$form->{vc}_id";

        # hier werden parts (Artikeleigenschaften) aus item_list (retrieve_item aus IS.pm)

        # (item wahrscheinlich synonym für parts) entsprechend in die form geschrieben ...

        #(Eine Funktion bekommt Daten -> ARBEIT -> Rückgabe DATEN)

        #  Das quot sieht doch auch nach Überarbeitung aus ... (hmm retrieve_items gibt es in IS und IR)

        map { $form->{item_list}[$i]{$_} =~ s/\"/"/g }    qw(partnumber description unit);

        map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };

        # ... deswegen muss die prüfung, ob es sich um einen nicht rabattierfähigen artikel handelt später erfolgen (Bug 1136)

        $form->{"discount_$i"} = 0 if $form->{"not_discountable_$i"};

        $form->{payment_id} = $form->{"part_payment_id_$i"} if $form->{"part_payment_id_$i"} ne "";

  # constants and subs for template

  $form->{jsscript}        = 1;

  $form->{employee_labels} = sub { $_[0]->{"name"} || $_[0]->{"login"} };

  $form->{salesman_labels} = $form->{employee_labels};

  $form->header();