1 2 3 4 5 6 7 8 9 10 11 12 13 14
| procedure TYakaWM.XMLApplicationEvents1BeforeDispatch(
XMLApplication: IXMLApplication;
e: TXMLApplicationBeforeDispatchEventArgs);
var
asite: widestring;
currentaction: widestring;
begin
asite := e.XMLRequest.Profile.GetValue('YAKA_ANIMSITE');
currentaction := e.XMLRequest.Context.GetValue('Action');
// Si le profil courant est un profil d'animateur sur site alors on redirige la page de départ
if (asite = '1') and (currentaction = 'ListSTAGE') then
e.XMLRequest.Context.SetValue('Action', 'ListANIMSITE');
end; |