From 4aa4f5ff9dd369bcbd52831b2450436360012e71 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 8 Sep 2004 01:30:18 +0000 Subject: disable "Ok" when neither NFS nor SMB is selected (as suggested by Fabian Mandelbaum) --- perl-install/any.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install/any.pm') 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{$_}}; -- cgit v1.2.1