summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-09-08 01:30:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-09-08 01:30:18 +0000
commit4aa4f5ff9dd369bcbd52831b2450436360012e71 (patch)
treea168134fb855df06d6ffa82de916c377b5d4b26d /perl-install/any.pm
parentb65c4a063d559fa0ed9394f693d126db09879405 (diff)
downloaddrakx-4aa4f5ff9dd369bcbd52831b2450436360012e71.tar
drakx-4aa4f5ff9dd369bcbd52831b2450436360012e71.tar.gz
drakx-4aa4f5ff9dd369bcbd52831b2450436360012e71.tar.bz2
drakx-4aa4f5ff9dd369bcbd52831b2450436360012e71.tar.xz
drakx-4aa4f5ff9dd369bcbd52831b2450436360012e71.zip
disable "Ok" when neither NFS nor SMB is selected (as suggested by Fabian Mandelbaum)
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0bd94c9c0..b920d89c7 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -912,8 +912,10 @@ Allowing this will permit users to simply click on \"Share\" in konqueror and na
%l = ($type => 1);
} else {
%l = map_each { $::a => services::starts_on_boot($::b->[1]) } %types;
- $in->ask_from('', N("You can export using NFS or SMB. Please select which you would like to use."),
- [ map { { text => $types{$_}[2], val => \$l{$_}, type => 'bool' } } keys %l ]) or return;
+ $in->ask_from_({ messages => N("You can export using NFS or SMB. Please select which you would like to use."),
+ callbacks => { ok_disabled => sub { !any { $_ } values %l } },
+ },
+ [ map { { text => $types{$_}[2], val => \$l{$_}, type => 'bool' } } keys %l ]) or return;
}
foreach (keys %types) {
my ($pkg, $service, $_descr) = @{$types{$_}};