diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-04-25 16:12:35 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-04-25 16:12:35 +0000 |
| commit | 25946f2b1829f207aab844f3464ce515a50f15cc (patch) | |
| tree | a6141f24a052d20499f34fb6ea92738273eacd79 /perl-install/printerdrake.pm | |
| parent | 4a62fb92b80fad9ba61cf0b4dd74fc5b03dcd94d (diff) | |
| download | drakx-backup-do-not-use-25946f2b1829f207aab844f3464ce515a50f15cc.tar drakx-backup-do-not-use-25946f2b1829f207aab844f3464ce515a50f15cc.tar.gz drakx-backup-do-not-use-25946f2b1829f207aab844f3464ce515a50f15cc.tar.bz2 drakx-backup-do-not-use-25946f2b1829f207aab844f3464ce515a50f15cc.tar.xz drakx-backup-do-not-use-25946f2b1829f207aab844f3464ce515a50f15cc.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index 162ec798c..3ae4bba8f 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -112,8 +112,8 @@ _("Password") => {val => \$printer->{NCPPASSWD}, hidden => 1} ], 1; } -sub setup_gsdriver($$) { - my ($printer, $in) = @_; +sub setup_gsdriver($$$) { + my ($printer, $in, $install) = @_; my $action; my @action = qw(ascii ps both done); my %action = ( @@ -137,6 +137,9 @@ sub setup_gsdriver($$) { my %db_entry = %{$printer::thedb{$printer->{DBENTRY}}}; + #- specific printer driver to install. + &$install('pnm2ppa') if $db_entry{GSDRIVER} eq 'ppa'; + my @list_res = @{$db_entry{RESOLUTION} || []}; my @res = map { "$_->{XDPI}x$_->{YDPI}" } @list_res; my @list_col = @{$db_entry{BITSPERPIXEL} || []}; @@ -290,7 +293,7 @@ _("Printer Connection") => { val => \$printer->{str_type}, not_edit => 1, list = } #- configure ghostscript driver to be used. - if (!$continue && setup_gsdriver($printer, $in)) { + if (!$continue && setup_gsdriver($printer, $in, $install)) { delete $printer->{OLD_QUEUE} if $printer->{QUEUE} ne $printer->{OLD_QUEUE} && $printer->{configured}{$printer->{QUEUE}}; $continue = !$::beginner; |