X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fir.pl;h=e13e31e3327fcefe1c8a25fe556be45b300b2895;hb=60b170eb823d19d211db6412d2137129113e5c84;hp=d6e162ed808f2805bdccbf41d189af463c5f91b4;hpb=19fb04d1cfad224a0f0c4c3b88494b4605fc6d4e;p=kivitendo-erp.git
diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index d6e162ed8..e13e31e33 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -36,12 +36,13 @@ use SL::FU;
use SL::IR;
use SL::IS;
use SL::DB::Default;
+use SL::DB::Department;
use SL::DB::PurchaseInvoice;
+use SL::DB::Vendor;
use List::Util qw(max sum);
use List::UtilsBy qw(sort_by);
require "bin/mozilla/io.pl";
-require "bin/mozilla/arap.pl";
require "bin/mozilla/common.pl";
use strict;
@@ -109,17 +110,6 @@ sub invoice_links {
# create links
$form->create_links("AP", \%myconfig, "vendor");
- #quote all_vendor Bug 133
- foreach my $ref (@{ $form->{all_vendor} }) {
- $ref->{name} = $form->quote($ref->{name});
- }
-
- if ($form->{all_vendor}) {
- unless ($form->{vendor_id}) {
- $form->{vendor_id} = $form->{all_vendor}->[0]->{id};
- }
- }
-
$form->backup_vars(qw(payment_id language_id taxzone_id
currency delivery_term_id intnotes cp_id));
@@ -132,25 +122,6 @@ sub invoice_links {
my @curr = $form->get_all_currencies();
map { $form->{selectcurrency} .= "