From 9a097e4618b7bc3cf644f431ed9e99441a83ff2f Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 6 Apr 2001 13:17:27 +0000 Subject: fixed typo for cups checking of installation. --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index b2de9912b..2fbda0d9a 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -797,7 +797,7 @@ sub summary { my $format_printers = sub { my ($printer) = @_; if (is_empty_hash_ref($printer->{configured})) { - pkgs::packageFlagInstalled(pkgs::packageByName($packages, 'cups')) and return _("Remote CUPS server"); + pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'cups')) and return _("Remote CUPS server"); return _("No printer"); } my $entry = $printer->{configured}{$printer->{QUEUE}} || (values %{$printer->{configured}})[0]; @@ -865,7 +865,7 @@ sub configurePrinter { $printer->{PAPERSIZE} = $o->{lang} eq 'en' ? 'letter' : 'a4'; printerdrake::main($printer, $o, sub { $o->pkg_install(@_) }, sub { install_interactive::upNetwork($o, 'pppAvoided') }); - $o->pkg_install_if_requires_satisfied('Mesa-common', 'xpp', 'libqtcups2', 'qtcups', 'kups') if !is_empty_hash_ref($printer->{configured}) || pkgs::packageFlagInstalled(pkgs::packageByName($packages, 'cups')); + $o->pkg_install_if_requires_satisfied('Mesa-common', 'xpp', 'libqtcups2', 'qtcups', 'kups') if !is_empty_hash_ref($printer->{configured}) || pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'cups')); } #------------------------------------------------------------------------------ -- cgit v1.2.1