22: e_nls_not_installed EXCEPTION; --1378862 mputman
23:
24: begin
25: if p_validate_flag = 'Y' then
26: if (icx_sec.validatesession) then
27: l_session_id := icx_sec.g_session_id;
28: end if;
29: else
30: l_session_id := icx_sec.g_session_id;
23:
24: begin
25: if p_validate_flag = 'Y' then
26: if (icx_sec.validatesession) then
27: l_session_id := icx_sec.g_session_id;
28: end if;
29: else
30: l_session_id := icx_sec.g_session_id;
31: end if;
26: if (icx_sec.validatesession) then
27: l_session_id := icx_sec.g_session_id;
28: end if;
29: else
30: l_session_id := icx_sec.g_session_id;
31: end if;
32:
33: if (l_session_id > 0) then
34:
34:
35: select nvl(max(sequence_number),1)
36: into l_sequence_number
37: from icx_pages
38: where user_id = icx_sec.g_user_id;
39:
40: select icx_pages_s.nextval
41: into l_page_id
42: from sys.dual;
49: x_page_code => 'ICX_PAGE_' || to_char(l_page_id),
50: x_main_region_id => l_main_region_id,
51: x_sequence_number => l_sequence_number + 1,
52: x_page_type => upper(p_page_type),
53: x_user_id => icx_sec.g_user_id,
54: x_refresh_rate => null,
55: x_page_name => substrb(p_page_name,1,80),
56: x_page_description => p_page_description,
57: x_creation_date => sysdate,
54: x_refresh_rate => null,
55: x_page_name => substrb(p_page_name,1,80),
56: x_page_description => p_page_description,
57: x_creation_date => sysdate,
58: x_created_by => icx_sec.g_user_id,
59: x_last_update_date => sysdate,
60: x_last_updated_by => icx_sec.g_user_id,
61: x_last_update_login => icx_sec.g_user_id);
62:
56: x_page_description => p_page_description,
57: x_creation_date => sysdate,
58: x_created_by => icx_sec.g_user_id,
59: x_last_update_date => sysdate,
60: x_last_updated_by => icx_sec.g_user_id,
61: x_last_update_login => icx_sec.g_user_id);
62:
63: update icx_sessions
64: set page_id = l_page_id
57: x_creation_date => sysdate,
58: x_created_by => icx_sec.g_user_id,
59: x_last_update_date => sysdate,
60: x_last_updated_by => icx_sec.g_user_id,
61: x_last_update_login => icx_sec.g_user_id);
62:
63: update icx_sessions
64: set page_id = l_page_id
65: where session_id = icx_sec.g_session_id;
61: x_last_update_login => icx_sec.g_user_id);
62:
63: update icx_sessions
64: set page_id = l_page_id
65: where session_id = icx_sec.g_session_id;
66:
67: if (p_page_type = 'MAIN') then
68:
69: select icx_page_plugs_s.nextval
112: -1,
113: l_function_id,
114: l_display_name,
115: l_main_region_id,
116: sysdate, icx_sec.g_user_id,
117: sysdate, icx_sec.g_user_id);
118: end if;
119:
120: end if;
113: l_function_id,
114: l_display_name,
115: l_main_region_id,
116: sysdate, icx_sec.g_user_id,
117: sysdate, icx_sec.g_user_id);
118: end if;
119:
120: end if;
121:
144: l_language_code varchar2(30);
145: l_rowid varchar2(30);
146: begin
147:
148: if (icx_sec.validatesession) then
149:
150: begin
151: select nvl(max(sequence_number),1)
152: into l_sequence_number
150: begin
151: select nvl(max(sequence_number),1)
152: into l_sequence_number
153: from icx_pages
154: where user_id = icx_sec.g_user_id;
155: exception
156: when no_data_found then
157: htp.p(SQLERRM);
158: end;
179: x_page_code => 'ICX_PAGE_' || to_char(l_to_page_id),
180: x_main_region_id => l_to_main_region_id,
181: x_sequence_number => l_sequence_number + 1,
182: x_page_type => 'USER',
183: x_user_id => icx_sec.g_user_id,
184: x_refresh_rate => null,
185: x_page_name => p_page_name,
186: x_page_description => null,
187: x_creation_date => sysdate,
184: x_refresh_rate => null,
185: x_page_name => p_page_name,
186: x_page_description => null,
187: x_creation_date => sysdate,
188: x_created_by => icx_sec.g_user_id,
189: x_last_update_date => sysdate,
190: x_last_updated_by => icx_sec.g_user_id,
191: x_last_update_login => icx_sec.g_user_id);
192:
186: x_page_description => null,
187: x_creation_date => sysdate,
188: x_created_by => icx_sec.g_user_id,
189: x_last_update_date => sysdate,
190: x_last_updated_by => icx_sec.g_user_id,
191: x_last_update_login => icx_sec.g_user_id);
192:
193: copyPagePrivate(l_from_main_region_id, l_to_main_region_id, l_to_page_id);
194:
187: x_creation_date => sysdate,
188: x_created_by => icx_sec.g_user_id,
189: x_last_update_date => sysdate,
190: x_last_updated_by => icx_sec.g_user_id,
191: x_last_update_login => icx_sec.g_user_id);
192:
193: copyPagePrivate(l_from_main_region_id, l_to_main_region_id, l_to_page_id);
194:
195: update icx_sessions
193: copyPagePrivate(l_from_main_region_id, l_to_main_region_id, l_to_page_id);
194:
195: update icx_sessions
196: set page_id = l_to_page_id
197: where session_id = icx_sec.g_session_id;
198:
199: end if;
200:
201: commit;
301: where page_id = p_page_id;
302:
303: begin
304:
305: if (icx_sec.validatesession) then
306:
307: begin
308: select main_region_id
309: into l_main_region_id
317: begin
318: select page_id
319: into l_current_page_id -- id for the page user has active on OracleMyPage
320: from icx_sessions
321: where session_id = icx_sec.g_session_id;
322: exception
323: when no_data_found then
324: htp.p(SQLERRM);
325: end;
345:
346: execute immediate 'begin '
347: || l_web_html_call
348: || '(:session_id, :plug_id, null, ''Y''); end;'
349: using in icx_sec.g_session_id, in thisplug.plug_id;
350:
351: end if; --thisplug.menu_id <> -1
352:
353: end loop;
366: begin
367: select page_id into l_main_page_id
368: from icx_pages
369: where page_type = 'MAIN'
370: and user_id = icx_sec.g_user_id;
371: exception
372: when no_data_found then
373: htp.p(SQLERRM);
374: end;
374: end;
375:
376: update icx_sessions
377: set page_id = l_main_page_id
378: where session_id = icx_sec.g_session_id;
379: end if;
380:
381: commit;
382:
409: l_page_name varchar2(80);
410:
411: begin
412:
413: if (icx_sec.validatesession) then
414:
415: if (p_page_id is not null) then
416: l_page_id := p_page_id;
417: else
418: begin
419: select page_id
420: into l_page_id
421: from icx_sessions
422: where session_id = icx_sec.g_session_id;
423: exception
424: when no_data_found then
425: htp.p(SQLERRM);
426: end;
476: l_agent varchar2(80);
477:
478: begin
479:
480: if icx_sec.validateSession
481: then
482:
483: begin
484: select main_region_id
589: end_time number;
590:
591: begin
592:
593: if (icx_sec.validatesession) then
594:
595: --select HSECS into start_time from V$TIMER;
596:
597: if icx_cabo.g_base_href is null
684: htp.formClose;
685:
686: update icx_sessions
687: set page_id = p_page_id
688: where session_id = icx_sec.g_session_id;
689: commit;
690: end if;
691:
692: l_region := icx_api_region.get_main_region_record(p_region_id);
912:
913: execute immediate 'begin '
914: || rec.web_html_call
915: || '(:session_id, :plug_id, :display_name); end;'
916: using in icx_sec.g_session_id, in rec.plug_id, in rec.portlet_name;
917:
918: htp.p('');
919:
920: htp.p('