From: Philip Reetz <p.reetz@linet-services.de>
Date: Tue, 12 Dec 2006 08:33:35 +0000 (+0000)
Subject: Bei Anlegen eines neues Vorgangs im Auftragwesen, wurde bei Kunden/Lieferanten Suchbo... 
X-Git-Tag: release-2.4.0^2~80
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=1f2c95729c5b2752ecc33eb5d5ddb4b395fe51be;p=kivitendo-erp.git

Bei Anlegen eines neues Vorgangs im Auftragwesen, wurde bei Kunden/Lieferanten Suchbox der
letzte Kunde/Lieferant falsch eingetragen
---

diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 75b44c1e4..11cab57b2 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -121,7 +121,7 @@ sub invoice_links {
   $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
 
   # vendors
-  if ($form->{all_vendor}) {
+  if (@{ $form->{all_vendor} }) {
     $form->{vendor} = "$form->{vendor}--$form->{vendor_id}";
     map { $form->{selectvendor} .= "<option>$_->{name}--$_->{id}\n" }
       (@{ $form->{all_vendor} });
diff --git a/bin/mozilla/is.pl b/bin/mozilla/is.pl
index 765635f5d..110beee65 100644
--- a/bin/mozilla/is.pl
+++ b/bin/mozilla/is.pl
@@ -138,6 +138,7 @@ sub invoice_links {
 
   $cp_id = $form->{cp_id};
   IS->get_customer(\%myconfig, \%$form);
+
   #quote all_customer Bug 133
   foreach $ref (@{ $form->{all_customer} }) {
     $ref->{name} = $form->quote($ref->{name});
@@ -170,7 +171,7 @@ sub invoice_links {
 
   $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
 
-  if ($form->{all_customer}) {
+  if (@{ $form->{all_customer} }) {
     $form->{customer} = "$form->{customer}--$form->{customer_id}";
     map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" }
       (@{ $form->{all_customer} });
@@ -442,11 +443,13 @@ sub form_header {
   $exchangerate .= qq|
 <input type=hidden name=forex value=$form->{forex}>
 |;
+  print(STDERR "$form->{customer} Kunde\n");
 
   $customer =
     ($form->{selectcustomer})
     ? qq|<select name=customer>$form->{selectcustomer}</select>\n<input type=hidden name="selectcustomer" value="$form->{selectcustomer}">|
     : qq|<input name=customer value="$form->{customer}" size=35>|;
+  print(STDERR "$form->{customer} Kunde\n");
 
   #sk
   $contact =