X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fcommon.pl;h=19955c1ca26a5422b7c146593f2a5e32cad6d82c;hb=927ec7273b39dffbd1cb91062fed46c60d9be47f;hp=b03ca4c09419402b21adfee084321babf504bf03;hpb=3d8c8e2fa8dc160248411314e135b21e92332201;p=kivitendo-erp.git diff --git a/bin/mozilla/common.pl b/bin/mozilla/common.pl index b03ca4c09..19955c1ca 100644 --- a/bin/mozilla/common.pl +++ b/bin/mozilla/common.pl @@ -181,10 +181,9 @@ sub calculate_qty { }, @header_sort; $form->{formel} = $formel; - $form->{title} = $locale->text("Please enter values"); - $form->header(no_layout => 1); - print $form->parse_html_template("generic/calculate_qty", { "HEADER" => \@header, - "VARIABLES" => \@variable, }); + my $html = $form->parse_html_template("generic/calculate_qty", { "HEADER" => \@header, + "VARIABLES" => \@variable, }); + print $::form->ajax_response_header, $html; $main::lxdebug->leave_sub(); } @@ -333,62 +332,7 @@ sub retrieve_partunits { # ------------------------------------------------------------------------- -sub cov_selection_internal { - $main::lxdebug->enter_sub(); - - my $form = $main::form; - my %myconfig = %main::myconfig; - my $locale = $main::locale; - - my $order_by = "name"; - $order_by = $form->{"order_by"} if (defined($form->{"order_by"})); - my $order_dir = 1; - $order_dir = $form->{"order_dir"} if (defined($form->{"order_dir"})); - - my $type = $form->{"is_vendor"} ? $locale->text("vendor") : $locale->text("customer"); - - my $covs = Common->retrieve_customers_or_vendors(\%myconfig, $form, $order_by, $order_dir, $form->{"is_vendor"}, $form->{"allow_both"}); - map({ $covs->[$_]->{"selected"} = $_ ? 0 : 1; } (0..$#{$covs})); - - if (0 == scalar(@{$covs})) { - $form->show_generic_information(sprintf($locale->text("No %s was found matching the search parameters."), $type)); - } elsif (1 == scalar(@{$covs})) { - $::request->{layout}->add_javascripts_inline("cov_selected('1')"); - } - - my $callback = "$form->{script}?action=cov_selection_internal&"; - map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" } - (qw(name input_name input_id is_vendor allow_both), grep({ /^[fl]_/ } keys %$form))); - my @header_sort = qw(name address contact); - my %header_title = ( "name" => $locale->text("Name"), - "address" => $locale->text("Address"), - "contact" => $locale->text("Contact"), - ); - - my @header = - map(+{ "column_title" => $header_title{$_}, - "column" => $_, - "callback" => $callback . "order_by=${_}&order_dir=" . ($order_by eq $_ ? 1 - $order_dir : $order_dir), - }, - @header_sort); - - foreach my $cov (@{ $covs }) { - $cov->{address} = "$cov->{street}, $cov->{zipcode} $cov->{city}"; - $cov->{address} =~ s{^,}{}x; - $cov->{address} =~ s{\ +}{\ }gx; - - $cov->{contact} = join " ", map { $cov->{$_} } qw(cp_gender cp_title cp_givenname cp_name); - $cov->{contact} =~ s{\ +}{\ }gx; - } - - $form->{"title"} = $form->{is_vendor} ? $locale->text("Select a vendor") : $locale->text("Select a customer"); - $form->header(); - print($form->parse_html_template("generic/cov_selection", { "HEADER" => \@header, - "COVS" => $covs, })); - - $main::lxdebug->leave_sub(); -} # Functions to call add routines beneath different reports