From 576b67fd3937f1b00a64a550c5514f1646a89d43 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 13 Jan 2011 14:15:59 +0100
Subject: [PATCH] =?utf8?q?$form->prepare=5Ffor=5Fprinting=20beherrscht=20a?=
 =?utf8?q?uch=20die=20Ausgabe=20f=C3=BCr=20einen=20Drucker?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 90c8c9b99..56dc795e1 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3535,7 +3535,7 @@ sub prepare_for_printing {
   $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);
-- 
2.20.1