Commit 420bc45e authored by Francesc Guasch's avatar Francesc Guasch
Browse files

wip(auth): methods to manage LDAP access entries

issue #916
parent 92dc7d12
......@@ -3019,10 +3019,16 @@ Example:
sub allow_ldap_access($self, $attribute, $value, $allowed=1 ) {
my $sth = $$CONNECTOR->dbh->prepare(
"INSERT INTO access_ldap_attribute "
."(id_domain, attribute, value, allowed) "
."VALUES(?,?,?,?)");
$sth->execute($self->id, $attribute, $value, 1);
"SELECT * from access_ldap_attribute"
." WHERE id_domain = ? "
." ORDER BY n_order"
);
$sth->execute($self->id);
my @list;
while (my $row = $sth->fetchrow_hashref) {
push @list,($row) if keys %$row;
}
return @list;
}
#TODO: check something has been deleted
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment