From 19d801880b1c98c3cd01a61f185a590ed3059c48 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Mon, 10 Jun 2013 07:39:57 +0000 Subject: [PATCH] Bug 8993: Add branchcode and categorycode mappings for sample module --- C4/LDAPTransform/RepeatableValues.pm | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/C4/LDAPTransform/RepeatableValues.pm b/C4/LDAPTransform/RepeatableValues.pm index 4608559..0c65156 100644 --- a/C4/LDAPTransform/RepeatableValues.pm +++ b/C4/LDAPTransform/RepeatableValues.pm @@ -4,24 +4,26 @@ use warnings; use strict; my $mapping = { qw/ -givenName firstname -sn surname -uid userid -mail email + givenName firstname + sn surname + uid userid + mail email + categorycode categorycode + branchcode branchcode / }; sub get_borrower { - my $ldap_entry = shift; - $ldap_entry->isa('Net::LDAP::Entry') or die "argument to transform get_borrower is not Net::LDAP::Entry"; + my $ldap_entry = shift; + $ldap_entry->isa('Net::LDAP::Entry') or die "argument to transform get_borrower is not Net::LDAP::Entry"; - my $user = { column => {} }; + my $user = { column => {} }; - while (my ($from, $to) = each %$mapping) { - my @vals = $ldap_entry->get_value( $from ); - $user->{column}->{$to} = $vals[0]; - } + while (my ($from, $to) = each %$mapping) { + my @vals = $ldap_entry->get_value( $from ); + $user->{column}->{$to} = $vals[0]; + } - return $user; + return $user; } 1; -- 1.7.10.4