X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/40662c08e22db199189b147a3a05446f5e4ddf24..ccc290effb308a410a43a016c1b6d69fc16c7eb6:/bin/mozilla/ir.pl diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl index 1fcc25cfe..284b2fe5d 100644 --- a/bin/mozilla/ir.pl +++ b/bin/mozilla/ir.pl @@ -276,7 +276,8 @@ sub form_header { "old_id" => \@old_project_ids }, "taxzones" => "ALL_TAXZONES", "employees" => "ALL_SALESMEN", - "currencies" => "ALL_CURRENCIES"); + "currencies" => "ALL_CURRENCIES", + "vendors" => "ALL_VENDORS"); my %labels; my @values = (undef); @@ -318,7 +319,6 @@ sub form_header { |; - %labels = (); @values = (); my $i = 0; @@ -335,6 +335,21 @@ sub form_header { |; + %labels = (); + @values = (); + my $i = 0; + foreach my $item (@{ $form->{"ALL_VENDORS"} }) { + push(@values, $item->{name}.qq|--|.$item->{"id"}); + $labels{$item->{"id"}} = $item->{"name"}.qq|--|.$item->{"id"}; + } + my $vendors = qq| +
| | . $locale->text('Vendor') . qq| | -$vendor | - + $vendors| . $locale->text('Contact Person') . qq| | $contact | - {vendor_id}> - + + +||||
|---|---|---|---|---|---|---|---|