From dc1238ca5843f3a7a671487d6cd29911e4da5200 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Wed, 13 Feb 2002 15:28:11 +0000 Subject: 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. --- perl-install/printerdrake.pm | 20 +++++++++----------- 1 file 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") { -- cgit v1.2.1