Emailversand: Anhangnamen auch bei Gutschriften vorbelegen.

diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl
index 9a1e3ab..ba008c2 100644 (file)
--- a/bin/mozilla/io.pl
+++ b/bin/mozilla/io.pl
@@ -1329,7 +1329,7 @@ sub e_mail {
   my $attachment_filename = $formname_translations{$form->{"formname"}};
   my $prefix;
 
   my $attachment_filename = $formname_translations{$form->{"formname"}};
   my $prefix;
 

-  if ($form->{"type"} =~ /invoice/) {
+  if (grep({ $form->{"type"} eq $_ } qw(invoice credit_note))) {

     $prefix = "inv";
   } elsif ($form->{"type"} =~ /_quotation$/) {
     $prefix = "quo";
     $prefix = "inv";
   } elsif ($form->{"type"} =~ /_quotation$/) {
     $prefix = "quo";