Forum .LRN Q&A: Re: Integrating 5 major universities

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.