admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

AAVL#29104 fac_deeplike bookmarks savepoint

Browse Source 
svn path=/Database/trunk/; revision=23035
This commit is contained in:
Jos Groot Lipman
2014-10-21 09:23:18 +00:00
parent d9e4a636b3
commit dab7f877cf
5 changed files with 54 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
FAC/FAC_PAC.SRC
View File

@@ -129,6 +129,7 @@ CREATE OR REPLACE PACKAGE fac AS
FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
FUNCTION makehash (p_in VARCHAR2, method IN VARCHAR2 DEFAULT 'MD5') RETURN VARCHAR2;
FUNCTION testhash (p_hash VARCHAR2, p_in VARCHAR2) RETURN NUMBER;
PROCEDURE createlikebookmark (pxmlnode VARCHAR2, prefkey NUMBER, expiresetting VARCHAR2, puserkey NUMBER);
END fac;
/
@@ -660,7 +661,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
FROM (SELECT * FROM mld_vrije_dagen
MINUS -- Igv. pMode=1 za+zo niet meetellen; deze worden sowieso geskipt!
SELECT * FROM mld_vrije_dagen
WHERE pMode = 1 AND fac.getweekdaynum (mld_vrije_dagen_datum) IN (1,7))
WHERE pMode = 1 AND fac.getweekdaynum (mld_vrije_dagen_datum) IN (1,7))
WHERE mld_vrije_dagen_datum BETWEEN TRUNC (olddatumgereed) AND newdatumgereed;
EXIT WHEN delta = 0;
@@ -4499,6 +4500,33 @@ CREATE OR REPLACE PACKAGE BODY fac AS
END IF;
END;
PROCEDURE createlikebookmark (pxmlnode VARCHAR2,
prefkey NUMBER,
expiresetting VARCHAR2,
puserkey NUMBER)
IS
expiredays NUMBER (10);
BEGIN
expiredays := fac.safe_To_Number (fac.getsetting ('expiresetting'));
IF expiredays IS NOT NULL AND expiredays > 0
THEN
INSERT INTO fac_bookmark (fac_bookmark_id,
fac_bookmark_naam,
fac_bookmark_path,
fac_bookmark_query,
fac_bookmark_refkey,
fac_bookmark_expire,
prs_perslid_key_auth)
VALUES (DBMS_RANDOM.string ('a', 16),
'fac-like deeplink',
'appl/fac/fac_deep_like.asp',
'node=' || pxmlnode || '&key=' || prefkey, -- is straks beschermd met HMAC
prefkey,
fac.datumtijdplusuitvoertijd (SYSDATE, expiredays, 'DAGEN'),
puserkey);
END IF;
END;
END fac;
/