1 package body BIS_CUSTOMIZATION AS
2 /* $Header: BISVCSTB.pls 120.1 2006/02/03 04:59:56 nbarik noship $ */
3
4 procedure insert_custom_registry is
5
6 cursor c_custom_registry is
7 select property_name from ak_custom_registry
8 where property_name in ('ATTRIBUTE_LABEL_LONG','NODE_DISPLAY_FLAG','DISPLAY_SEQUENCE','ORDER_DIRECTION','INITIAL_SORT_SEQUENCE');
9 l_long number := 0;
10 l_display number :=0;
11 l_order number :=0;
12 l_sequence number :=0;
13 l_sort number :=0;
14 begin
15 for custom_registry in c_custom_registry loop
16 if custom_registry.property_name = 'ATTRIBUTE_LABEL_LONG' then
17 l_long := 1;
18 elsif custom_registry.property_name = 'NODE_DISPLAY_FLAG' then
19 l_display := 1;
20 elsif custom_registry.property_name = 'ORDER_DIRECTION' then
21 l_order := 1;
22 elsif custom_registry.property_name = 'INITIAL_SORT_SEQUENCE' then
23 l_sort := 1;
24 elsif custom_registry.property_name = 'DISPLAY_SEQUENCE' then
25 l_sequence := 1;
26 end if;
27 end loop;
28 if l_long = 0 then
29 insert into ak_custom_registry(customization_level_id,custom_level,property_name
30 ,translatable,created_by,creation_date,last_updated_by ,last_update_date
31 ,last_update_login)
32 values(60,'REGION_ITEM', 'ATTRIBUTE_LABEL_LONG','Y',1,SYSDATE,1,SYSDATE,1);
33 end if;
34 if l_display = 0 then
35 insert into ak_custom_registry(customization_level_id,custom_level,property_name
36 ,translatable,created_by,creation_date,last_updated_by ,last_update_date
37 ,last_update_login)
38 values(60,'REGION_ITEM','NODE_DISPLAY_FLAG','N',1,SYSDATE,1,SYSDATE,1);
39 end if;
40 if l_sequence = 0 then
41 insert into ak_custom_registry(customization_level_id,custom_level,property_name
42 ,translatable,created_by,creation_date,last_updated_by ,last_update_date
43 ,last_update_login)
44 values(60,'REGION_ITEM','DISPLAY_SEQUENCE','N',1,SYSDATE,1,SYSDATE,1);
45 end if;
46 if l_order = 0 then
47 insert into ak_custom_registry(customization_level_id,custom_level,property_name
48 ,translatable,created_by,creation_date,last_updated_by ,last_update_date
49 ,last_update_login)
50 values(60,'REGION_ITEM','ORDER_DIRECTION','N',1,SYSDATE,1,SYSDATE,1);
51 end if;
52 if l_sort = 0 then
53 insert into ak_custom_registry(customization_level_id,custom_level,property_name
54 ,translatable,created_by,creation_date,last_updated_by ,last_update_date
55 ,last_update_login)
56 values(60,'REGION_ITEM','INITIAL_SORT_SEQUENCE','N',1,SYSDATE,1,SYSDATE,1);
57 end if;
58 end insert_custom_registry;
59
60 procedure delete_region_item is
61 begin
62
63 delete from ak_region_items
64 where attribute_code='ICX_STANDARD_FOOTER'
65 and region_code='BISPRINTPAGE';
66
67 delete from ak_region_items_tl
68 where attribute_code='ICX_STANDARD_FOOTER'
69 and region_code='BISPRINTPAGE';
70
71 end delete_region_item;
72
73 END BIS_CUSTOMIZATION;
[Home] [Help]