|
27 | 27 | / |
28 | 28 |
|
29 | 29 |
|
| 30 | +-- #TODO:130 mdsouza: logger 3.1.1 fix. Removed currently_installing |
30 | 31 | -- Append existing PLSQL_CCFLAGS |
31 | 32 | -- Since may be set with existing flags (specifically no_op) |
32 | | -var cur_plsql_ccflags varchar2(500); |
33 | | - |
34 | | -declare |
35 | | - parnam varchar2(256); |
36 | | - intval binary_integer; |
37 | | - strval varchar2(500); |
38 | | - partyp binary_integer; |
39 | | -begin |
40 | | - partyp := dbms_utility.get_parameter_value('plsql_ccflags',intval, strval); |
41 | | - |
42 | | - if strval is not null then |
43 | | - strval := ',' || strval; |
44 | | - end if; |
45 | | - :cur_plsql_ccflags := strval; |
46 | | -end; |
47 | | -/ |
48 | | - |
49 | | --- Convert bind variable to substitution string |
50 | | --- https://blogs.oracle.com/opal/entry/sqlplus_101_substitution_varia |
51 | | -column cur_plsql_ccflags new_value cur_plsql_ccflags |
52 | | -select :cur_plsql_ccflags cur_plsql_ccflags from dual; |
53 | | - |
54 | | -alter session set plsql_ccflags='currently_installing:true&cur_plsql_ccflags' |
55 | | -/ |
| 33 | +-- var cur_plsql_ccflags varchar2(500); |
| 34 | +-- |
| 35 | +-- declare |
| 36 | +-- parnam varchar2(256); |
| 37 | +-- intval binary_integer; |
| 38 | +-- strval varchar2(500); |
| 39 | +-- partyp binary_integer; |
| 40 | +-- begin |
| 41 | +-- partyp := dbms_utility.get_parameter_value('plsql_ccflags',intval, strval); |
| 42 | +-- |
| 43 | +-- if strval is not null then |
| 44 | +-- strval := ',' || strval; |
| 45 | +-- end if; |
| 46 | +-- :cur_plsql_ccflags := strval; |
| 47 | +-- end; |
| 48 | +-- / |
| 49 | +-- |
| 50 | +-- -- Convert bind variable to substitution string |
| 51 | +-- -- https://blogs.oracle.com/opal/entry/sqlplus_101_substitution_varia |
| 52 | +-- column cur_plsql_ccflags new_value cur_plsql_ccflags |
| 53 | +-- select :cur_plsql_ccflags cur_plsql_ccflags from dual; |
| 54 | +-- |
| 55 | +-- alter session set plsql_ccflags='currently_installing:true&cur_plsql_ccflags' |
| 56 | +-- / |
56 | 57 |
|
57 | 58 | create or replace trigger biu_logger_prefs |
58 | 59 | before insert or update on logger_prefs |
|
70 | 71 | :new.pref_value := upper(:new.pref_value); |
71 | 72 | end if; |
72 | 73 |
|
73 | | - $if $$currently_installing is null or not $$currently_installing $then |
| 74 | + -- #TODO:50 mdsouza: 3.1.1 |
| 75 | + -- #TODO:100 mdsouza: if removing then decrease indent |
| 76 | + -- $if $$currently_installing is null or not $$currently_installing $then |
74 | 77 | -- Since logger.pks may not be installed when this trigger is compiled, need to move some code here |
75 | 78 | if 1=1 |
76 | 79 | and :new.pref_type = logger.g_pref_type_logger |
@@ -114,7 +117,8 @@ begin |
114 | 117 |
|
115 | 118 | -- this is because the logger package is not installed yet. We enable it in logger_configure |
116 | 119 | logger.null_global_contexts; |
117 | | - $end |
| 120 | + -- #TODO:60 mdsouza: 3.1.1 |
| 121 | + -- $end |
118 | 122 | $end -- $$logger_no_op_install |
119 | 123 | end; |
120 | 124 | / |
|
0 commit comments