- Fixed duplicate translatable strings.

1 files changed, 8 insertions, 0 deletions

diff --git a/lib/network/netconnect.pm b/lib/network/netconnect.pm
index ee47c56..097bc77 100644
--- a/lib/network/netconnect.pm
+++ b/lib/network/netconnect.pm
@@ -230,6 +230,14 @@ sub real_main {
                        },
                        name => sub { $net->{type}->get_type_name . "\n\n" . $connection->get_network_access_settings_label },
                        data => sub { $network_access_settings },
+                       complete => sub {
+                           if ($connection->can('check_network_access_settings') && !$connection->check_network_access_settings) {
+                               $in->ask_warn(N("Error"), $connection->{network_access}{error}{message});
+                               my $index = eval { find_index { $_->{val} eq $connection->{network_access}{error}{field} } @$network_access_settings };
+                               return 1, $index;
+                           }
+                           return 0;
+                       },
                        post => sub { $get_next->("configure_network_access") },
                    },