Changeset 182 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

Timestamp:

05/25/09 02:29:48 (15 years ago)

Author:

nanardon

Message:

• Sql: support directReports attribute

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -46 +46 @@
 sub _delayed_fields {
     my ($self)= @_;
-    return qw(memberOf manager);
+    return qw(memberOf manager directReports);
 }
 
@@ -62 +62 @@
         accountExpires => 'accountExpires',
         shadowExpire => 'shadowExpire',
+        directReports => 'directReports',
         ) : ()),
     }
@@ -87 +88 @@
         );
         $sth->execute($self->id, 'memberUID');
+        my @res;
+        while (my $res = $sth->fetchrow_hashref) {
+            push(@res, $res->{id});
+        }
+        return \@res;
+    } elsif ($field eq 'directReports') {
+        my $sth = $self->db->prepare_cached(
+            q{
+            select id from user_attributes join user_attributes_list
+            on user_attributes_list.ikey = user_attributes.attr
+            where value = ? and canonical = ?
+            }
+        );
+        $sth->execute($self->id, 'manager');
         my @res;
         while (my $res = $sth->fetchrow_hashref) {