Revision dc3d3e70
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| bin/mozilla/io.pl | ||
|---|---|---|
| 1193 | 1193 |
map { opthash($_->{id}, ($_->{id} eq $form->{printer_id} ? 'selected' : ''), $_->{printer_description}) } +{}, @{ $form->{printers} }
|
| 1194 | 1194 |
if ((ref $form->{printers} eq 'ARRAY') && scalar @{ $form->{printers } });
|
| 1195 | 1195 |
|
| 1196 |
{
|
|
| 1197 |
no strict 'refs'; |
|
| 1198 |
@SELECTS = map { sname => lc $_, DATA => \@$_, show => !$options{"hide_" . lc($_)} && scalar @$_ }, qw(FORMNAME LANGUAGE_ID FORMAT SENDMODE MEDIA PRINTER_ID);
|
|
| 1199 |
} |
|
| 1196 |
@SELECTS = map {
|
|
| 1197 |
sname => $_->[1], |
|
| 1198 |
DATA => $_->[0], |
|
| 1199 |
show => !$options{"hide_" . $_->[1]} && scalar @{ $_->[0] }
|
|
| 1200 |
}, |
|
| 1201 |
[ \@FORMNAME, 'formname', ], |
|
| 1202 |
[ \@LANGUAGE_ID, 'language_id', ], |
|
| 1203 |
[ \@FORMAT, 'format', ], |
|
| 1204 |
[ \@SENDMODE, 'sendmode', ], |
|
| 1205 |
[ \@MEDIA, 'media', ], |
|
| 1206 |
[ \@PRINTER_ID, 'printer_id', ]; |
|
| 1200 | 1207 |
|
| 1201 | 1208 |
my %dont_display_groupitems = ( |
| 1202 | 1209 |
'dunning' => 1, |
Auch abrufbar als: Unified diff
print_options: fieses refkonstrukt umgeschrieben.