1 PACKAGE BODY BIS_COLOR_TRIGGERS_SET_MLS AS
2 /* $Header: BISCMLSB.pls 120.1 2005/11/03 12:53:42 serao noship $ */
3
4 -- procedure to add a language. Bug.Fix.4700227
5 PROCEDURE Add_Language IS
6 BEGIN
7
8 /* DELETE FROM BIS_COLOR_TRIGGERS_SET_TL T
9 WHERE NOT EXISTS
10 (
11 SELECT NULL
12 FROM BIS_COLOR_TRIGGERS_SET B
13 WHERE B.PORTLET_SHORT_NAME = T.PORTLET_SHORT_NAME
14 );*/
15
16 UPDATE BIS_COLOR_TRIGGERS_SET_TL T SET (
17 NAME
18 ) = (SELECT
19 B.NAME
20 FROM BIS_COLOR_TRIGGERS_SET_TL B
21 WHERE B.COLOR_SET_ID = T.COLOR_SET_ID
22 AND B.LANGUAGE = T.SOURCE_LANG)
23 WHERE (
24 T.COLOR_SET_ID,
25 T.LANGUAGE
26 ) IN (SELECT
27 SUBT.COLOR_SET_ID,
28 SUBT.LANGUAGE
29 FROM BIS_COLOR_TRIGGERS_SET_TL SUBB, BIS_COLOR_TRIGGERS_SET_TL SUBT
30 WHERE SUBB.COLOR_SET_ID = SUBT.COLOR_SET_ID
31 AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
32 AND (SUBB.NAME <> SUBT.NAME
33 ));
34
35 INSERT INTO BIS_COLOR_TRIGGERS_SET_TL
36 (
37 COLOR_SET_ID,
38 LANGUAGE,
39 SOURCE_LANG,
40 NAME
41 )
42 SELECT
43 B.COLOR_SET_ID,
44 L.LANGUAGE_CODE,
45 B.SOURCE_LANG,
46 B.NAME
47 FROM BIS_COLOR_TRIGGERS_SET_TL B, FND_LANGUAGES L
48 WHERE L.INSTALLED_FLAG IN ('I', 'B')
49 AND B.LANGUAGE = USERENV('LANG')
50 AND NOT EXISTS
51 (
52 SELECT NULL
53 FROM BIS_COLOR_TRIGGERS_SET_TL T
54 WHERE T.COLOR_SET_ID = B.COLOR_SET_ID
55 AND T.LANGUAGE = L.LANGUAGE_CODE
56 );
57
58 END Add_Language;
59
60 end BIS_COLOR_TRIGGERS_SET_MLS;