projekt kivitendo

use SL::IR;

use SL::IS;

use SL::ReportGenerator;

use SL::DB::Default;

use SL::DB::PurchaseInvoice;

use SL::Webdav;

  # currencies

  $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);

  # vendors

  if (@{ $form->{all_vendor} || [] }) {

    $form->{vendor} = qq|$form->{vendor}--$form->{vendor_id}|;

  # type=submit $locale->text('Edit Accounts Payables Transaction')

  # set option selected

    my $to_replace         =  H($form->{$item});

    $form->{"select$item"} =~ s/ selected//;

    $form->{"select$item"} =~ s/>\Q${to_replace}\E/ selected>${to_replace}/;

  print $form->parse_html_template('ap/form_header', {

    today => DateTime->today,

  });

  $main::lxdebug->leave_sub();