diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-04 00:30:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-04 00:30:29 +0000 |
| commit | 1237406e5ee90da9dbdfec9fce21d603f75c80a6 (patch) | |
| tree | f9b071d99afeccf9ef1c029cd08724b24919d91f /perl-install/install_steps_interactive.pm | |
| parent | a8fff3fb88fd5d727ab14812673dbed47541593e (diff) | |
| download | drakx-backup-do-not-use-1237406e5ee90da9dbdfec9fce21d603f75c80a6.tar drakx-backup-do-not-use-1237406e5ee90da9dbdfec9fce21d603f75c80a6.tar.gz drakx-backup-do-not-use-1237406e5ee90da9dbdfec9fce21d603f75c80a6.tar.bz2 drakx-backup-do-not-use-1237406e5ee90da9dbdfec9fce21d603f75c80a6.tar.xz drakx-backup-do-not-use-1237406e5ee90da9dbdfec9fce21d603f75c80a6.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 72e19259c..c852297b9 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -526,10 +526,10 @@ sub chooseGroups { my $all; $o->ask_many_from_list('', _("Package Group Selection"), { list => \@groups, - help => sub { $o->{compssUsersDescr}{$_} }, + help => sub { translate($o->{compssUsersDescr}{$_}) }, ref => sub { \$o->{compssUsersChoice}{$_} }, icon2f => sub { "/usr/share/icons/" . ($o->{compssUsersIcons}{$_} || 'default') . "_section.xpm" }, - label => sub { $size{$_} ? sprintf "$_ (%d%s)", round_down($size{$_} / sqr(1024), 10), _("MB") : translate($_) }, + label => sub { translate($_) . ($size{$_} ? sprintf " (%d%s)", round_down($size{$_} / sqr(1024), 10), _("MB") : '') }, }, $o->{meta_class} eq 'desktop' ? { list => [ _("All") ], ref => sub { \$all }, shadow => 0 } : (), $individual ? { list => [ _("Individual package selection") ], ref => sub { $individual } } : (), @@ -1037,7 +1037,7 @@ sub generateAutoInstFloppy($) { my ($o) = @_; $::expert || $::g_auto_install or return; - my ($floppy) = detect_devices::floppies(); + my $floppy = detect_devices::floppy(); $o->ask_yesorno('', _("Do you want to generate an auto install floppy for linux replication?"), $floppy) or return; |