hi
You would need to create procedures to grant access to the users.
For example -
# Procedure to grant moderator privilege.
ad_proc -public moderator_grant {
room_uid
grantee_id
} {
db_transaction {
db_exec_plsql grant_moderator {}
}
}
# Procedure to revoke a party's privilege to moderate.
ad_proc -public moderator_revoke {
room_uid
grantee_id
} {
db_transaction {
db_exec_plsql revoke_moderator {}
}
}
You would also need to create a procedure file in TCL
which will hold something like -
fullquery name="moderator_grant.grant_moderator"
querytext
begin
PERFORM acs_permission__grant_permission(:grantee_id, 'moderate');
PERFORM acs_permission__revoke_permission(:grantee_id, 'unmoderate');
return 0;
end;
querytext
fullquery
grantee_id is fetched from acs_permissions table.
hope u can work on similar lines.
Ashem.