]> wagnertech.de Git - mfinanz.git/blobdiff - bin/mozilla/io.pl
E-Mail-Dialog: bei Einkaufsaufträgen Standardvorbelegung
[mfinanz.git] / bin / mozilla / io.pl
index a4ad06b9b70a7d691bd3c44baab6b6d78118bf01..778c718f4ddd207e32c13e54f30ae1100b1b5a3f 100644 (file)
@@ -1976,7 +1976,7 @@ sub show_sales_purchase_email_dialog {
     $email = SL::DB::Vendor  ->load_cached($::form->{vc_id})->email if 'vendor'   eq $::form->{vc};
   }
 
-  $email = '' if $::form->{type} =~ m{^ purchase (?: _delivery)? _order $}x;
+  $email = '' if $::form->{type} eq 'purchase_delivery_order';
 
   my $email_form = {
     to                  => $email,