summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ldap_wizard/Ldap.pm6
-rw-r--r--ldap_wizard/ldapdef.pm3
2 files changed, 6 insertions, 3 deletions
diff --git a/ldap_wizard/Ldap.pm b/ldap_wizard/Ldap.pm
index 6c7ad7fc..318ff3f6 100644
--- a/ldap_wizard/Ldap.pm
+++ b/ldap_wizard/Ldap.pm
@@ -209,7 +209,9 @@ $o->{pages} = {
},
endadd => {
name => N("Successfully added User"),
- data => [ { label => N("The wizard successfully added a user in LDAP") } ],
+ data => [ { label => N(""),fixed_val => \$o->{var}{error_user_add} }
+
+ ],
no_back => 1,
end => 1,
next => 0,
@@ -339,7 +341,7 @@ RootLdif
sub do_it_user_add {
return if $::testing;
- add_user($o);
+ $o->{var}{error_user_add}= add_user($o);
}
sub sav_conf {
diff --git a/ldap_wizard/ldapdef.pm b/ldap_wizard/ldapdef.pm
index 20a77a79..3f1caaab 100644
--- a/ldap_wizard/ldapdef.pm
+++ b/ldap_wizard/ldapdef.pm
@@ -102,5 +102,6 @@ sub add_user {
shadowExpire => '-1',
]
);
- create_dialog("", ldap_error_text($result->code));
+# create_dialog("", ldap_error_text($result->code));
+ return ldap_error_text($result->code));
}