TRRL#80437 _Default-groep ook toevoegen als S(login_use_email) = 1 en email wordt gevuld (en login begint niet met een '_')

svn path=/Database/trunk/; revision=67687
This commit is contained in:
2025-01-22 11:59:09 +00:00
parent 1d2aaa9b09
commit b7b49f8302
2 changed files with 19 additions and 12 deletions

View File

@@ -323,12 +323,19 @@ FOR EACH ROW
BEGIN
/*
* Als echte persoon een login krijgt, dan ook in de default autorisatiegroep als die nog geen rechten had
* Als S(login_use_email) = 1 en de persoon krijgt een email, dan ook
*/
IF :new.prs_perslid_verwijder IS NULLDATUM AND
:new.prs_perslid_oslogin IS NOT NULL AND :old.prs_perslid_oslogin IS NULL AND
SUBSTR(:new.prs_perslid_oslogin, 1, 1) <> '_'
THEN
BEGIN
IF :new.prs_perslid_verwijder IS NULL
AND ( ( :old.prs_perslid_oslogin IS NULL
AND :new.prs_perslid_oslogin IS NOT NULL
AND SUBSTR (:new.prs_perslid_oslogin, 1, 1) <> '_')
OR ( fac.getsetting ('login_use_email') = 1
AND :old.prs_perslid_email IS NULL
AND :new.prs_perslid_email IS NOT NULL
AND ( :new.prs_perslid_oslogin IS NULL
OR SUBSTR (:new.prs_perslid_oslogin, 1, 1) <> '_')))
THEN
BEGIN
INSERT INTO fac_gebruikersgroep
(fac_groep_key, prs_perslid_key)
SELECT fac_groep_key, :NEW.prs_perslid_key
@@ -337,12 +344,12 @@ BEGIN
AND NOT EXISTS (SELECT 'x'
FROM fac_gebruikersgroep
WHERE prs_perslid_key = :NEW.prs_perslid_key);
EXCEPTION
WHEN OTHERS
THEN
NULL;
END;
END IF;
EXCEPTION
WHEN OTHERS
THEN
NULL;
END;
END IF;
END;
/