diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2004-03-02 15:51:02 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2004-03-02 15:51:02 +0000 |
| commit | 4c6d89462e28776dd392f85b6f0291f19a522925 (patch) | |
| tree | 67622197df2f8304490e8f524e8a560eaabd12f9 /perl-install/printer/printerdrake.pm | |
| parent | adfd46364b6bfd7b6dfc4c8281ae9228f2b7ff06 (diff) | |
| download | drakx-4c6d89462e28776dd392f85b6f0291f19a522925.tar drakx-4c6d89462e28776dd392f85b6f0291f19a522925.tar.gz drakx-4c6d89462e28776dd392f85b6f0291f19a522925.tar.bz2 drakx-4c6d89462e28776dd392f85b6f0291f19a522925.tar.xz drakx-4c6d89462e28776dd392f85b6f0291f19a522925.zip | |
Sometimes option default settings in the printer options dialog were missing (e. g. "Dithering Pixels Per Inch" in "pcl3" driver). Fixed.
Diffstat (limited to 'perl-install/printer/printerdrake.pm')
| -rw-r--r-- | perl-install/printer/printerdrake.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index d428ec656..88f60828b 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -2881,8 +2881,8 @@ You should make sure that the page size and the ink type/printing mode (if avail } if ($printer->{ARGS}[$i]{type} eq 'enum') { # enumerated option - push(@choicelists, []); - push(@shortchoicelists, []); + $choicelists[$i] = []; + $shortchoicelists[$i] = []; foreach my $choice (@{$printer->{ARGS}[$i]{vals}}) { push(@{$choicelists[$i]}, $choice->{comment}); push(@{$shortchoicelists[$i]}, $choice->{value}); @@ -2901,16 +2901,16 @@ You should make sure that the page size and the ink type/printing mode (if avail if ($printer->{ARGS}[$i]{name} ne 'PageRegion'); } elsif ($printer->{ARGS}[$i]{type} eq 'bool') { # boolean option - push(@choicelists, [($printer->{ARGS}[$i]{comment_true} || + $choicelists[$i] = [($printer->{ARGS}[$i]{comment_true} || $printer->{ARGS}[$i]{name} || "Yes"), ($printer->{ARGS}[$i]{comment_false} || $printer->{ARGS}[$i]{name_false} || - "No")]); - push(@shortchoicelists, []); + "No")]; + $shortchoicelists[$i] = []; my $numdefault = ($optshortdefault =~ m!^\s*(true|on|yes|1)\s*$! ? "1" : "0"); - push(@userinputs, $choicelists[$i][1-$numdefault]); + $userinputs[$i] = $choicelists[$i][1-$numdefault]; push(@widgets, { label => $printer->{ARGS}[$i]{comment}, val => \$userinputs[$i], @@ -2921,9 +2921,9 @@ You should make sure that the page size and the ink type/printing mode (if avail help => $helptext }); } else { # numerical option - push(@choicelists, []); - push(@shortchoicelists, []); - push(@userinputs, $optshortdefault); + $choicelists[$i] = []; + $shortchoicelists[$i] = []; + $userinputs[$i] = $optshortdefault; push(@widgets, { label => $printer->{ARGS}[$i]{comment} . " ($printer->{ARGS}[$i]{min}... " . |