projekt kivitendo

  my $locale   = $main::locale;

  my $cgi      = $::request->{cgi};

  # setup customer selection

  $form->all_vc(\%myconfig, "customer", "AR");

  $form->{title}    = $locale->text('AR Transactions');

  # Auch in Rechnungsübersicht nach Kundentyp filtern - jan

  $form->get_lists("projects"       => { "key" => "ALL_PROJECTS", "all" => 1 },

  $form->{SHOW_BUSINESS_TYPES} = scalar @{ $form->{ALL_BUSINESS_TYPES} } > 0;

  # constants and subs for template

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

  $form->header;