Author: locilka Date: Mon Jan 10 14:16:17 2011 New Revision: 63143 URL: http://svn.opensuse.org/viewcvs/yast?rev=63143&view=rev Log: Fixing 'switch wipeout' Modified: trunk/samba-server/src/SambaBackendLDAP.pm Modified: trunk/samba-server/src/SambaBackendLDAP.pm URL: http://svn.opensuse.org/viewcvs/yast/trunk/samba-server/src/SambaBackendLDAP.pm?rev=63143&r1=63142&r2=63143&view=diff ============================================================================== --- trunk/samba-server/src/SambaBackendLDAP.pm (original) +++ trunk/samba-server/src/SambaBackendLDAP.pm Mon Jan 10 14:16:17 2011 @@ -309,14 +309,16 @@ # create dn y2milestone("Creating dn: $dn"); - my $map; - given($attr) { - when ("dc") {$map = {objectClass => ["top", "dcObject"], dc => $value}} - when ("ou") {$map = {objectClass => ["top", "organizationalUnit"], ou => $value}} - # translators: error message, followed by class giving error - default {return __("Unknown Class:")." $dn\n".__("Only dcObject (dc) and organizationalUnit (ou) classes are supported.")} - }; - + my $map = {}; + + if ($attr eq "dc") { + $map = {objectClass => ["top", "dcObject"], dc => $value}; + } elsif ($attr eq "ou") { + $map = {objectClass => ["top", "organizationalUnit"], ou => $value}; + } else { + return __("Unknown Class:")." $dn\n".__("Only dcObject (dc) and organizationalUnit (ou) classes are supported."); + } + if ($map && !SCR->Write(".ldap.add", {dn=>$dn}, $map)) { return getLdapError(); } -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org