Changeset 182

Timestamp:

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

Author:

nanardon

Message:

• Sql: support directReports attribute

Location:

LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Files:

• Ad/User.pm (modified) (2 diffs)
• Sql/User.pm (modified) (3 diffs)

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

@@ -70 +70 @@
         ),
         ($mode !~ /w/
-            ? qw(cn dn uSNCreated uSNChanged)
+            ? qw(cn dn uSNCreated uSNChanged directReports)
             : ()
         )
@@ -116 +116 @@
         return [ sort(@res) ];
     };
+    $field eq 'directReports' and do {
+        my $res = $self->SUPER::get_field($field);
+        return [ map { $self->base->get_value('cn') } @{ ref $res ? $res : [ $res ] } ];
+    };
     $field eq 'manager' and do {
-        my $entry = $self->SUPER::get_field($field);
+        my $entry = $self->SUPER::get_field($field) or return;
         return $entry->get_value('cn');
     };

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) {