$form->prepare_for_printing beherrscht auch die Ausgabe für einen Drucker

diff --git a/SL/Form.pm b/SL/Form.pm
index 90c8c9b990358c65b91f9a7718999f6c9e645389..56dc795e14bb25564f70583283b79f9abd854ffa 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3535,7 +3535,7 @@ sub prepare_for_printing {
   $self->{formname}  ||= $self->{type};
   $self->{media}     ||= 'email';
 
   $self->{formname}  ||= $self->{type};
   $self->{media}     ||= 'email';
 

-  die "'media' other than 'email' or 'file' is not supported yet" unless $self->{media} =~ m/^(?:email|file)$/;
+  die "'media' other than 'email', 'file', 'printer' is not supported yet" unless $self->{media} =~ m/^(?:email|file|printer)$/;

 
   # set shipto from billto unless set
   my $has_shipto = any { $self->{"shipto$_"} } qw(name street zipcode city country contact);
 
   # set shipto from billto unless set
   my $has_shipto = any { $self->{"shipto$_"} } qw(name street zipcode city country contact);