-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)));