projekt kivitendo

  $form->{formname} ||= 'Form';

  $form->{title} = $locale->text("Select a part");

  print $form->parse_html_template("generic/part_selection", { "HEADER" => \@header,

                                                               "PARTS"  => $parts, });

        @header_sort);

  $form->{"title"} = $locale->text("Select a Customer");

  print $form->parse_html_template("generic/select_delivery_customer", { "HEADER"   => \@header,

                                                                         "DELIVERY" => $delivery, });

        @header_sort);

  $form->{"title"} = $locale->text("Select a Customer");

  print $form->parse_html_template("generic/select_vendor", { "HEADER" => \@header,

                                                              "VENDOR" => $vendor, });

  $form->{formel} = $formel;

  $form->{title}  = $locale->text("Please enter values");

  print $form->parse_html_template("generic/calculate_qty", { "HEADER"    => \@header,

                                                              "VARIABLES" => \@variable, });

  my $locale   = $main::locale;

  $form->{title} = $locale->text("Enter longdescription");

  print $form->parse_html_template("generic/set_longdescription");

  $main::lxdebug->leave_sub();

  $sort =~ s/.*\.(.*)/$1/;

  $form->{title} = $locale->text("History");

  print $form->parse_html_template( "common/show_history", {

    "DATEN"        => $form->get_history($dbh,$form->{input_name},"",$form->{order}),

    "SUCCESS"      => ($form->get_history($dbh,$form->{input_name}) ne "0"),

    uc($sort)      => 1,

  } );

  $dbh->disconnect();

  $form->{title} = $form->{vc} eq "customer" ?

    $locale->text("Customer details") : $locale->text("Vendor details");

  print $form->parse_html_template("common/show_vc_details", { "is_customer" => $form->{vc} eq "customer" });

  $main::lxdebug->leave_sub();