Revision 66f2badb
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 38 | 38 |
|
| 39 | 39 |
use Carp; |
| 40 | 40 |
use CGI; |
| 41 |
use List::MoreUtils qw(uniq); |
|
| 41 |
use List::MoreUtils qw(any uniq);
|
|
| 42 | 42 |
use List::Util qw(min max first); |
| 43 | 43 |
|
| 44 | 44 |
use SL::CVar; |
| ... | ... | |
| 1089 | 1089 |
opthash("inline", $form->{SM}{inline}, $locale->text('In-line'))
|
| 1090 | 1090 |
if ($form->{media} eq 'email');
|
| 1091 | 1091 |
|
| 1092 |
my $printable_templates = any { $::lx_office_conf{print_templates}->{$_} } qw(latex opendocument);
|
|
| 1092 | 1093 |
push @MEDIA, grep $_, |
| 1093 | 1094 |
opthash("screen", $form->{OP}{screen}, $locale->text('Screen')),
|
| 1094 |
($form->{printers} && scalar @{ $form->{printers} } && $::lx_office_conf{print_templates}->{latex}) ?
|
|
| 1095 |
($printable_templates && $form->{printers} && scalar @{ $form->{printers} }) ?
|
|
| 1095 | 1096 |
opthash("printer", $form->{OP}{printer}, $locale->text('Printer')) : undef,
|
| 1096 |
($::lx_office_conf{print_templates}->{latex} && !$options{no_queue}) ?
|
|
| 1097 |
($printable_templates && !$options{no_queue}) ?
|
|
| 1097 | 1098 |
opthash("queue", $form->{OP}{queue}, $locale->text('Queue')) : undef
|
| 1098 | 1099 |
if ($form->{media} ne 'email');
|
| 1099 | 1100 |
|
Auch abrufbar als: Unified diff
Druckoptionen 'Drucker' & 'Warteschlange' auch anzeigen, wenn nur OpenDocument aktiviert ist
Fixt #1840.