Revision 576b67fd
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 3535 | 3535 |
$self->{formname} ||= $self->{type};
|
| 3536 | 3536 |
$self->{media} ||= 'email';
|
| 3537 | 3537 |
|
| 3538 |
die "'media' other than 'email' or 'file' is not supported yet" unless $self->{media} =~ m/^(?:email|file)$/;
|
|
| 3538 |
die "'media' other than 'email', 'file', 'printer' is not supported yet" unless $self->{media} =~ m/^(?:email|file|printer)$/;
|
|
| 3539 | 3539 |
|
| 3540 | 3540 |
# set shipto from billto unless set |
| 3541 | 3541 |
my $has_shipto = any { $self->{"shipto$_"} } qw(name street zipcode city country contact);
|
Auch abrufbar als: Unified diff
$form->prepare_for_printing beherrscht auch die Ausgabe für einen Drucker