X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8c667be6de60615f1cb2dd8fb9a65e785ee8f412..4e27e828de91b6f1252f3353f06edea72f13a0c1:/SL/IS.pm

diff --git a/SL/IS.pm b/SL/IS.pm
index aa2b087bf..b1df09770 100644
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -130,8 +130,6 @@ sub invoice_details {
   my @tax_arrays =
     qw(taxbase tax taxdescription taxrate taxnumber);
 
-  map({ $form->{$_} = [] } (@arrays, @tax_arrays));
-
   foreach $item (sort { $a->[1] cmp $b->[1] } @partsgroup) {
     $i = $item->[0];
 
@@ -445,7 +443,7 @@ sub customer_details {
   }
 
   # get rest for the customer
-  my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes
+  my $query = qq|SELECT ct.*, cp.*, ct.notes as customernotes, ct.phone AS customerphone, ct.fax AS customerfax, ct.email AS customeremail
                  FROM customer ct
                  LEFT JOIN contacts cp on ct.id = cp.cp_cv_id
 		 WHERE ct.id = $form->{customer_id} $contact order by cp.cp_id limit 1|;