summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-29 16:27:40 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-29 16:27:40 +0000
commitc79716cab690e596f9371416b20702c30414b22e (patch)
tree7e25fe36cc21971bb0f94755c4b96d77b522b5ac /perl-install
parentcb59e0e8f011d464880bb251e405eca24344135b (diff)
downloaddrakx-backup-do-not-use-c79716cab690e596f9371416b20702c30414b22e.tar
drakx-backup-do-not-use-c79716cab690e596f9371416b20702c30414b22e.tar.gz
drakx-backup-do-not-use-c79716cab690e596f9371416b20702c30414b22e.tar.bz2
drakx-backup-do-not-use-c79716cab690e596f9371416b20702c30414b22e.tar.xz
drakx-backup-do-not-use-c79716cab690e596f9371416b20702c30414b22e.zip
(chooseGroups): simplified, more complex version in install_steps_gtk
(configurePrinter): fix the inverted condition for installing xpp/kups
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_interactive.pm21
1 files changed, 8 insertions, 13 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index a71745704..b82463dd4 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -591,18 +591,13 @@ sub reallyChooseGroups {
$path = $o->{compssUsers}{$_}{path};
if_($old ne $path, { val => $path }),
{
- help => translate($o->{compssUsers}{$_}{descr}),
- val => \$val->{$_},
- type => 'bool',
- icon => do {
- my $f = "/usr/share/icons/" . ($o->{compssUsers}{$_}{icons} || 'default');
- -e "$f.png" or $f .= "_section";
- -e "$f.png" or $f = '/usr/share/icons/default_section';
- "$f.png";
- },
- disabled => sub { $all },
- text => translate($o->{compssUsers}{$_}{label}),# . sprintf(" (%d%s)", $compute_size->(@{$compssUsers->{$_}{flags}}) / sqr(1024), _("MB")),
- } } @{$o->{compssUsersSorted}}),
+ val => \$val->{$_},
+ type => 'bool',
+ disabled => sub { $all },
+ text => translate($o->{compssUsers}{$_}{label}),
+ help => translate($o->{compssUsers}{$_}{descr}),
+ }
+ } @{$o->{compssUsersSorted}}),
if_($o->{meta_class} eq 'desktop', { text => _("All"), val => \$all, type => 'bool' }),
if_($individual, { text => _("Individual package selection"), val => $individual, advanced => 1, type => 'bool' }),
], changed => sub { $size_text = &$size_to_display }) or return;
@@ -848,7 +843,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 %{$printer->{configured} || {}} == ();
+ $o->pkg_install_if_requires_satisfied('Mesa-common', 'xpp', 'libqtcups2', 'qtcups', 'kups') if !is_empty_hash_ref($printer->{configured});
}
#------------------------------------------------------------------------------