From: Graham B. <gb...@us...> - 2001-12-19 22:28:01
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv9279/lib/Net/LDAP Modified Files: Schema.pm Log Message: - Fix bug in ->item when $item_name is not specified - Don't generate an element name from the description, use the OID Index: Schema.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Schema.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- Schema.pm 2001/07/29 04:21:57 1.11 +++ Schema.pm 2001/12/19 22:27:58 1.12 @@ -7,7 +7,7 @@ use strict; use vars qw($VERSION); -$VERSION = "0.10"; +$VERSION = "0.11"; # # Get schema from the server (or read from LDIF) and parse it into @@ -255,7 +255,8 @@ my $item_ref = $self->{oid}->{$oid[0]} or return _error($self, "Unknown OID"); - my $value = $item_ref->{$item_name} or return _error($self, "No such property"); + my $value = defined($item_name) ? $item_ref->{lc $item_name} : $item_ref + or return _error($self, "No such property"); delete $self->{error}; if( ref $value eq "ARRAY" && wantarray ) { @@ -544,12 +545,7 @@ # Force a name if we don't have one # if (!exists $schema_entry{name}) { - if (exists $schema_entry{desc}) { - ($schema_entry{name} = $schema_entry{desc}) =~ s/\s+//g - } - else { - $schema_entry{name} = "$type:$schema_entry{oid}" - } + $schema_entry{name} = $schema_entry{oid}; } # |