Changeset 350 for LATMOS-Accounts

Timestamp:

08/16/09 19:08:41 (15 years ago)

Author:

nanardon

Message:

• add to SQL/User attributes aliases, revaliases and forward

File:

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

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

@@ -75 +75 @@
         otheraddress => 'otheraddress',
         mainaddress => 'mainaddress',
+        aliases => 'aliases',
+        forward => 'forward',
+        revaliases => 'revaliases',
         ) : ()),
     )
@@ -223 +226 @@
             return;
         }
+    } elsif ($field eq 'aliases') {
+        my $sth = $self->db->prepare(q{
+            select name from aliases where forward = ?
+        } . ($self->base->{wexported} ? '' : 'and exported = true'));
+        $sth->execute($self->id);
+        my @values;
+        while (my $res = $sth->fetchrow_hashref) {
+            push(@values, $res->{name});
+        }
+        return \@values;
+    } elsif ($field eq 'forward') {
+        my $sth = $self->db->prepare(q{
+            select forward from aliases where name = ?
+        } . ($self->base->{wexported} ? '' : ' and exported = true'));
+        $sth->execute($self->id);
+        my $res = $sth->fetchrow_hashref;
+        $sth->finish;
+        return $res->{forward}
+    } elsif ($field eq 'revaliases') {
+        my $sth = $self->db->prepare(q{
+            select "as" from revaliases where name = ?
+        } . ($self->base->{wexported} ? '' : ' and exported = true'));
+        $sth->execute($self->id);
+        my $res = $sth->fetchrow_hashref;
+        $sth->finish;
+        return $res->{as}
     } else {
         return $self->SUPER::get_field($field);