From 7ee99a36f0ff236592900dccf73cda1c8ced8635 Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Fri, 10 Dec 2004 13:55:09 +0000
Subject: some fix

---
 ldap_wizard/ldapdef.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/ldap_wizard/ldapdef.pm b/ldap_wizard/ldapdef.pm
index ab7bdd3e..d731d24f 100644
--- a/ldap_wizard/ldapdef.pm
+++ b/ldap_wizard/ldapdef.pm
@@ -18,13 +18,13 @@ use vars qw(@ISA @EXPORT %cfg %cfgfile $congfile $msg $attrs %ldap $ldap);
 # Connect to Ldap server
 sub ldap_connect {
   my ($u) = @_;
-  my $ldap = Net::LDAP->new($u->{var}{srv}) or err_dialog(N("Error!"), N("Unable to connect to %s", $u->{var}{srv}));
+  my $ldap = Net::LDAP->new($u->{var}{srv}) or err_dialog("Error!", "Unable to connect to %s", $u->{var}{srv});
   return $ldap;
 }
 
 # bind root
 sub root_bind {
-  my ($ldap,$u) = @_;
+  my ($ldap, $u) = @_;
   my $mesg = $ldap->bind(dn => $u->{var}{rootdn},password => $u->{var}{rootpass});
   return $mesg;
 }
@@ -51,7 +51,7 @@ sub ldap_search {
 }
 
 sub get_dn {
-  my ($ldap, $filter, $basedn, $attrs) = @_;
+  my ($ldap, $filter, $basedn) = @_;
   my $mesg = $ldap->search(
 			 base => $basedn,
 			 filter => $filter,
@@ -103,6 +103,6 @@ sub add_user {
 			 );
 #  create_dialog("", ldap_error_text($result->code));
 			 #$result->code && die $result->error;
-  return  ($result->error, ldap_error_text($result->code));
+  return $result->error, ldap_error_text($result->code);
   #return  ldap_error_text($result->code);
 }
-- 
cgit v1.2.1