diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2002-02-13 15:28:11 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2002-02-13 15:28:11 +0000 |
| commit | dc1238ca5843f3a7a671487d6cd29911e4da5200 (patch) | |
| tree | 6d30be85eaea48260831b37df80a6a6e56cb7f3d /perl-install/printerdrake.pm | |
| parent | 8af248f0bd424376cd85143faf96b45c2cabb158 (diff) | |
| download | drakx-dc1238ca5843f3a7a671487d6cd29911e4da5200.tar drakx-dc1238ca5843f3a7a671487d6cd29911e4da5200.tar.gz drakx-dc1238ca5843f3a7a671487d6cd29911e4da5200.tar.bz2 drakx-dc1238ca5843f3a7a671487d6cd29911e4da5200.tar.xz drakx-dc1238ca5843f3a7a671487d6cd29911e4da5200.zip | |
When one visited the help page of a remote CUPS printer afterwards the full
printer modification menu was shown, not only the one for remote CUPS
printers. This is fixed now.
Diffstat (limited to 'perl-install/printerdrake.pm')
| -rw-r--r-- | perl-install/printerdrake.pm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/perl-install/printerdrake.pm b/perl-install/printerdrake.pm index b44b739a2..e7483cffe 100644 --- a/perl-install/printerdrake.pm +++ b/perl-install/printerdrake.pm @@ -1616,6 +1616,7 @@ sub printer_help { my $default = $printer->{DEFAULT}; my $raw = 0; my $cupsremote = 0; + my $scanning = ""; if ($printer->{configured}{$queue}) { if (($printer->{configured}{$queue}{'queuedata'}{'model'} eq _("Unknown model")) || @@ -1623,20 +1624,17 @@ sub printer_help { _("Raw printer"))) { $raw = 1; } + # Information about scanning with HP's multi-function devices + $scanning = scanner_help + ($printer->{configured}{$queue}{'queuedata'}{'make'} . " " . + $printer->{configured}{$queue}{'queuedata'}{'model'}, + $printer->{configured}{$queue}{'queuedata'}{'connect'}); + if ($scanning) { + $scanning = "\n\n$scanning\n\n"; + } } else { $cupsremote = 1; } - #my $foomatic = $printer->{configured}{$queue}{queuedata}{foomatic}; - #my $ppd = $printer->{configured}{$queue}{queuedata}{ppd}; - - # Information about scanning with HP's multi-function devices - my $scanning = scanner_help - ($printer->{configured}{$queue}{'queuedata'}{'make'} . " " . - $printer->{configured}{$queue}{'queuedata'}{'model'}, - $printer->{configured}{$queue}{'queuedata'}{'connect'}); - if ($scanning) { - $scanning = "\n\n$scanning\n\n"; - } my $dialogtext; if ($spooler eq "cups") { |