X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d65bfa97a852b44c2a713ae2f7dc266269814488..023866e05bc0407f63fd6f4be1854f8165bbd7a7:/bin/mozilla/is.pl diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl index 78ee3d316..815f790fe 100644 --- a/bin/mozilla/is.pl +++ b/bin/mozilla/is.pl @@ -171,7 +171,6 @@ sub invoice_links { if (@{ $form->{all_customer} }) { $form->{customer} = "$form->{customer}--$form->{customer_id}"; - $form->{selectcustomer} = "$form->{customer}--$form->{customer_id}"; } # departments @@ -377,11 +376,13 @@ sub form_header { $labels{$item->{name}.qq|--|.$item->{"id"}} = $item->{"name"}; } + $form->{selectcustomer} = ($myconfig{vclimit} > scalar(@values)); + my $customers = qq| | . $locale->text('Customer') . qq| | . (($myconfig{vclimit} <= scalar(@values)) - ? qq|| + ? qq|| : (NTI($cgi->popup_menu('-name' => 'customer', '-default' => $form->{oldcustomer}, '-onChange' => 'document.getElementById(\'update_button\').click();', '-values' => \@values, '-labels' => \%labels, '-style' => 'width: 250px')))) . qq| @@ -488,12 +489,6 @@ sub form_header { s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; } - #quote customer Bug 133 - $form->{selectcustomer} = $form->quote($form->{selectcustomer}); - - #substitute \n and \r to \s (bug 543) - $form->{selectcustomer} =~ s/[\n\r]/ /g; - if (($form->{creditlimit} != 0) && ($form->{creditremaining} < 0) && !$form->{update}) { $creditwarning = 1; } else { @@ -662,7 +657,7 @@ sub form_header { - + $contact $shipto