153: LayoutRowEnd;
154: end if;
155: LayoutClose;
156: if p_full then
157: htp.header(LayNumberOfPages, MsgGetText(104,XNP_WSGLM.DSP104_ENVIRONMENT));
158: owa_util.print_cgi_env;
159: ClosePageBody;
160: end if;
161: exception
234: LayCurrentCol := 0;
235: if (LayStyle = LAYOUT_BULLET)
236: then
237: -- Open List
238: htp.ulistOpen;
239: elsif (LayStyle = LAYOUT_NUMBER)
240: then
241: -- Open List
242: htp.olistOpen;
238: htp.ulistOpen;
239: elsif (LayStyle = LAYOUT_NUMBER)
240: then
241: -- Open List
242: htp.olistOpen;
243: elsif (LayStyle = LAYOUT_TABLE)
244: then
245: -- If tables are requested, check that the current browser
246: -- supports them, if not, default to PREFORMAT
244: then
245: -- If tables are requested, check that the current browser
246: -- supports them, if not, default to PREFORMAT
247: if (TablesSupported) then
248: htp.para;
249: -- Open Table
250: if (p_border) then
251:
252: htp.tableOpen('BORDER');
248: htp.para;
249: -- Open Table
250: if (p_border) then
251:
252: htp.tableOpen('BORDER');
253: else
254: htp.tableOpen;
255: end if;
256: else
250: if (p_border) then
251:
252: htp.tableOpen('BORDER');
253: else
254: htp.tableOpen;
255: end if;
256: else
257: LayoutOpen(LAYOUT_PREFORMAT, p_border, p_custom_bullet);
258: end if;
258: end if;
259: elsif (LayStyle = LAYOUT_PREFORMAT)
260: then
261: -- Open Preformat
262: htp.preOpen;
263: if (p_border) then
264: LayVertBorderChars := '|';
265: end if;
266: else
264: LayVertBorderChars := '|';
265: end if;
266: else
267: -- Start a new paragraph if WRAP
268: htp.para;
269: end if;
270: exception
271: when others then
272: raise_application_error(-20000, 'XNP_WSGL.LayoutOpen
'||SQLERRM);
287: LayoutRowEnd;
288: end if;
289: if (LayStyle = LAYOUT_BULLET)
290: then
291: htp.ulistClose;
292: elsif (LayStyle = LAYOUT_NUMBER)
293: then
294: htp.olistClose;
295: elsif (LayStyle = LAYOUT_TABLE)
290: then
291: htp.ulistClose;
292: elsif (LayStyle = LAYOUT_NUMBER)
293: then
294: htp.olistClose;
295: elsif (LayStyle = LAYOUT_TABLE)
296: then
297: htp.tableClose;
298: elsif (LayStyle = LAYOUT_PREFORMAT)
293: then
294: htp.olistClose;
295: elsif (LayStyle = LAYOUT_TABLE)
296: then
297: htp.tableClose;
298: elsif (LayStyle = LAYOUT_PREFORMAT)
299: then
300: if LayBorderTable then
301: htp.p(LayHoriBorderChars);
297: htp.tableClose;
298: elsif (LayStyle = LAYOUT_PREFORMAT)
299: then
300: if LayBorderTable then
301: htp.p(LayHoriBorderChars);
302: end if;
303: htp.preClose;
304: end if;
305: htp.para;
299: then
300: if LayBorderTable then
301: htp.p(LayHoriBorderChars);
302: end if;
303: htp.preClose;
304: end if;
305: htp.para;
306: exception
307: when others then
301: htp.p(LayHoriBorderChars);
302: end if;
303: htp.preClose;
304: end if;
305: htp.para;
306: exception
307: when others then
308: raise_application_error(-20000, 'XNP_WSGL.LayoutClose
'||SQLERRM);
309: end;
353:
354: --------------------------------------------------------------------------------
355: -- Name: LayoutRowEnd
356: --
357: -- Description: If anything in the current row, it is output using htp.p()
358: -- procedure, and then LayOutputLine is cleared.
359: --
360: -- Parameters: None
361: --
370: then
371: if (LayStyle = LAYOUT_BULLET) or
372: (LayStyle = LAYOUT_NUMBER)
373: then
374: htp.p(LayOutputLine);
375: elsif (LayStyle = LAYOUT_CUSTOM)
376: then
377: htp.p(LayOutputLine);
378: htp.nl;
373: then
374: htp.p(LayOutputLine);
375: elsif (LayStyle = LAYOUT_CUSTOM)
376: then
377: htp.p(LayOutputLine);
378: htp.nl;
379: elsif (LayStyle = LAYOUT_TABLE)
380: then
381: htp.p(LayOutputLine || htf.tableRowClose);
374: htp.p(LayOutputLine);
375: elsif (LayStyle = LAYOUT_CUSTOM)
376: then
377: htp.p(LayOutputLine);
378: htp.nl;
379: elsif (LayStyle = LAYOUT_TABLE)
380: then
381: htp.p(LayOutputLine || htf.tableRowClose);
382: else
377: htp.p(LayOutputLine);
378: htp.nl;
379: elsif (LayStyle = LAYOUT_TABLE)
380: then
381: htp.p(LayOutputLine || htf.tableRowClose);
382: else
383: if LayStyle = LAYOUT_PREFORMAT and LayBorderTable then
384: if LayHoriBorderChars is null then
385: LayHoriBorderChars := '-';
386: for l_loop in 1..LayNumOfCols loop
387: LayHoriBorderChars := LayHoriBorderChars || rpad('-', LayColumnWidths(l_loop) + 1, '-');
388: end loop;
389: end if;
390: htp.p(LayHoriBorderChars);
391: end if;
392: htp.p(LayOutputLine);
393:
394: end if;
388: end loop;
389: end if;
390: htp.p(LayHoriBorderChars);
391: end if;
392: htp.p(LayOutputLine);
393:
394: end if;
395: end if;
396: LayOutputLine := '';
645: LayNumberOfPages := LayNumberOfPages + 1;
646: LayInBottomFrame := p_bottomframe;
647:
648: if (LayNumberOfPages = 1) then
649: htp.htmlOpen;
650: htp.headOpen;
651: if p_title is not null then
652: htp.title(p_title);
653: end if;
646: LayInBottomFrame := p_bottomframe;
647:
648: if (LayNumberOfPages = 1) then
649: htp.htmlOpen;
650: htp.headOpen;
651: if p_title is not null then
652: htp.title(p_title);
653: end if;
654: end if;
648: if (LayNumberOfPages = 1) then
649: htp.htmlOpen;
650: htp.headOpen;
651: if p_title is not null then
652: htp.title(p_title);
653: end if;
654: end if;
655: exception
656: when others then
667: --------------------------------------------------------------------------------
668: procedure ClosePageHead is
669: begin
670: if (LayNumberOfPages = 1) then
671: htp.headClose;
672: end if;
673: exception
674: when others then
675: raise_application_error(-20000, 'XNP_WSGL.ClosePageHead
'||SQLERRM);
690: l_prev_centered boolean := FALSE;
691: begin
692: LayPageCenter(LayNumberOfPages) := p_center;
693: if (LayNumberOfPages = 1) then
694: htp.bodyOpen(cattributes=>p_attributes);
695: end if;
696: if (LayNumberOfPages > 1) then
697: l_prev_centered := LayPageCenter(LayNumberOfPages - 1);
698: end if;
696: if (LayNumberOfPages > 1) then
697: l_prev_centered := LayPageCenter(LayNumberOfPages - 1);
698: end if;
699: if LayPageCenter(LayNumberOfPages) and not l_prev_centered then
700: htp.p('
698: end if;
699: if LayPageCenter(LayNumberOfPages) and not l_prev_centered then
700: htp.p('
720: if (LayNumberOfPages > 1) then
721: l_this_centered := LayPageCenter(LayNumberOfPages - 1);
722: end if;
723: if l_this_centered and not LayPageCenter(LayNumberOfPages) then
724: htp.p('
722: end if;
723: if l_this_centered and not LayPageCenter(LayNumberOfPages) then
724: htp.p('
725: elsif not l_this_centered and LayPageCenter(LayNumberOfPages) then
726: htp.p('');
727: end if;
728: if (LayNumberOfPages = 1) then
729: htp.bodyClose;
730: htp.htmlClose;
731: end if;
732: LayNumberOfPages := LayNumberOfPages - 1;
733: exception
726: htp.p('');
727: end if;
728: if (LayNumberOfPages = 1) then
729: htp.bodyClose;
730: htp.htmlClose;
731: end if;
732: LayNumberOfPages := LayNumberOfPages - 1;
733: exception
734: when others then
776: --------------------------------------------------------------------------------
777: procedure DefaultPageCaption(p_caption in varchar2,
778: p_headlevel in number) is
779: begin
780: htp.header(nvl(p_headlevel, LayNumberOfPages), p_caption);
781: exception
782: when others then
783: raise_application_error(-20000, 'XNP_WSGL.DefaultPageCaption
'||SQLERRM);
784: end;
1231: -- close all opened menus
1232: levels := LayMenuLevel + 1;
1233: if levels > 0 then
1234: for i in 1..levels loop
1235: htp.menulistClose;
1236: end loop;
1237: end if;
1238: LayMenuLevel := -1;
1239: return;
1239: return;
1240: end if;
1241: if LayMenuLevel = -1 then
1242: -- first menu, put out a line
1243: htp.para;
1244: htp.line;
1245: end if;
1246: -- If there is a change in menu level, open or close menus as
1247: -- appropriate
1240: end if;
1241: if LayMenuLevel = -1 then
1242: -- first menu, put out a line
1243: htp.para;
1244: htp.line;
1245: end if;
1246: -- If there is a change in menu level, open or close menus as
1247: -- appropriate
1248: levels := (p_menu_level - LayMenuLevel);
1247: -- appropriate
1248: levels := (p_menu_level - LayMenuLevel);
1249: if levels > 0 then
1250: for i in 1..levels loop
1251: htp.menulistOpen;
1252: end loop;
1253: elsif levels < 0 then
1254:
1255: for i in 1..-levels loop
1252: end loop;
1253: elsif levels < 0 then
1254:
1255: for i in 1..-levels loop
1256: htp.menulistClose;
1257: end loop;
1258: htp.para;
1259: end if;
1260: -- if a procedure has been defined, build a link to it, or otherwise
1254:
1255: for i in 1..-levels loop
1256: htp.menulistClose;
1257: end loop;
1258: htp.para;
1259: end if;
1260: -- if a procedure has been defined, build a link to it, or otherwise
1261: -- just display the menu caption
1262: if p_proc is null then
1259: end if;
1260: -- if a procedure has been defined, build a link to it, or otherwise
1261: -- just display the menu caption
1262: if p_proc is null then
1263: htp.para;
1264: if p_style = MENU_LONG then
1265: htp.listItem;
1266: end if;
1267: htp.bold(p_caption);
1261: -- just display the menu caption
1262: if p_proc is null then
1263: htp.para;
1264: if p_style = MENU_LONG then
1265: htp.listItem;
1266: end if;
1267: htp.bold(p_caption);
1268: elsif p_style = MENU_SHORT then
1269: htp.p(htf.anchor2(p_proc, '['||p_caption||']', ctarget=>p_target)||' ');
1263: htp.para;
1264: if p_style = MENU_LONG then
1265: htp.listItem;
1266: end if;
1267: htp.bold(p_caption);
1268: elsif p_style = MENU_SHORT then
1269: htp.p(htf.anchor2(p_proc, '['||p_caption||']', ctarget=>p_target)||' ');
1270: elsif p_style = MENU_LONG then
1271: htp.p(htf.listItem||htf.anchor2(p_proc, p_caption, ctarget=>p_target)||' ');
1265: htp.listItem;
1266: end if;
1267: htp.bold(p_caption);
1268: elsif p_style = MENU_SHORT then
1269: htp.p(htf.anchor2(p_proc, '['||p_caption||']', ctarget=>p_target)||' ');
1270: elsif p_style = MENU_LONG then
1271: htp.p(htf.listItem||htf.anchor2(p_proc, p_caption, ctarget=>p_target)||' ');
1272: end if;
1273: LayMenuLevel := p_menu_level;
1267: htp.bold(p_caption);
1268: elsif p_style = MENU_SHORT then
1269: htp.p(htf.anchor2(p_proc, '['||p_caption||']', ctarget=>p_target)||' ');
1270: elsif p_style = MENU_LONG then
1271: htp.p(htf.listItem||htf.anchor2(p_proc, p_caption, ctarget=>p_target)||' ');
1272: end if;
1273: LayMenuLevel := p_menu_level;
1274: exception
1275: when others then
1357: begin
1358: if NOT LayActionCreated then
1359:
1360: htp.p('');
1364: LayActionCreated := true;
1365:
1358: if NOT LayActionCreated then
1359:
1360: htp.p('');
1364: LayActionCreated := true;
1365:
1366: end if;
1359:
1360: htp.p('');
1364: LayActionCreated := true;
1365:
1366: end if;
1367:
1370: if buttonJS is null
1371: then
1372:
1373: htp.p('//--> '||htf.formSubmit(p_name, p_title)||' ');
1376: htp.p('');
1377:
1378: else
1371: then
1372:
1373: htp.p('//--> '||htf.formSubmit(p_name, p_title)||' ');
1376: htp.p('');
1377:
1378: else
1379:
1372:
1373: htp.p('//--> '||htf.formSubmit(p_name, p_title)||' ');
1376: htp.p('');
1377:
1378: else
1379:
1380: -- Conditionally escape '' in buttonJS depending upon whether it is already escaped or not
1389: end if;
1390:
1391: htp.p ('document.write('''')');
1393: htp.p ('//-->');
1394: htp.p ('');
1395:
1396: if XNP_WSGL.IsSupported ('NOSCRIPT')
1397: then
1390:
1391: htp.p ('document.write('''')');
1393: htp.p ('//-->');
1394: htp.p ('');
1395:
1396: if XNP_WSGL.IsSupported ('NOSCRIPT')
1397: then
1398:
1395:
1396: if XNP_WSGL.IsSupported ('NOSCRIPT')
1397: then
1398:
1399: htp.p ('1400: htp.p (htf.formSubmit(p_name, p_title));
1401: htp.p ('');
1402:
1403: end if;
1396: if XNP_WSGL.IsSupported ('NOSCRIPT')
1397: then
1398:
1399: htp.p ('');
1402:
1403: end if;
1404:
1397: then
1398:
1399: htp.p ('');
1402:
1403: end if;
1404:
1405: end if; -- buttonJS is null
1453:
1454: end if;
1455:
1456: htp.p ('document.write ('''')');
1457: htp.p('//-->');
1458: htp.p('');
1459:
1460: if XNP_WSGL.IsSupported ('NOSCRIPT')
1461: then
1454: end if;
1455:
1456: htp.p ('document.write ('''')');
1457: htp.p('//-->');
1458: htp.p('');
1459:
1460: if XNP_WSGL.IsSupported ('NOSCRIPT')
1461: then
1462:
1459:
1460: if XNP_WSGL.IsSupported ('NOSCRIPT')
1461: then
1462:
1463: htp.p ('1464: htp.p (htf.formSubmit(p_name, p_title));
1465: htp.p ('');
1466:
1467: end if;
1460: if XNP_WSGL.IsSupported ('NOSCRIPT')
1461: then
1462:
1463: htp.p ('');
1466:
1467: end if;
1468:
1461: then
1462:
1463: htp.p ('');
1466:
1467: end if;
1468:
1469: elsif (p_dojs) then
1472: htp.p('');
1478:
1479: if XNP_WSGL.IsSupported ('NOSCRIPT')
1480: then
1473: htp.p('var msg'||to_char(LayNumberOfRLButs)||'="'||p_mess||'"');
1474: htp.p('document.write('''')');
1476: htp.p('//-->');
1477: htp.p('');
1478:
1479: if XNP_WSGL.IsSupported ('NOSCRIPT')
1480: then
1481:
1478:
1479: if XNP_WSGL.IsSupported ('NOSCRIPT')
1480: then
1481:
1482: htp.p ('1483: htp.p (htf.formSubmit(p_name, p_title));
1484: htp.p ('');
1485:
1486: end if;
1479: if XNP_WSGL.IsSupported ('NOSCRIPT')
1480: then
1481:
1482: htp.p ('');
1485:
1486: end if;
1487:
1480: then
1481:
1482: htp.p ('');
1485:
1486: end if;
1487:
1488: end if;
2099: --------------------------------------------------------------------------------
2100: procedure HiddenField(p_paramname in varchar2,
2101: p_paramval in varchar2) is
2102: begin
2103: htp.formHidden(p_paramname, replace(p_paramval,'"','"'));
2104: exception
2105: when others then
2106: raise_application_error(-20000, 'XNP_WSGL.HiddenField
'||SQLERRM);
2107: end;
2116: p_paramval in typString240Table) is
2117: i number := 1;
2118: begin
2119: while true loop
2120: htp.formHidden(p_paramname, replace(p_paramval(i),'"','"'));
2121: i := i+1;
2122: end loop;
2123: exception
2124: when no_data_found then
2151: DefinePageHead(p_title);
2152: OpenPageBody(FALSE, p_attributes);
2153: if LayNumberOfPages = 1 then
2154: DefaultPageCaption(p_title);
2155: htp.para;
2156: end if;
2157: if p_type = MESS_INFORMATION then
2158: htp.bold(l_mess);
2159: elsif p_type = MESS_SUCCESS then
2154: DefaultPageCaption(p_title);
2155: htp.para;
2156: end if;
2157: if p_type = MESS_INFORMATION then
2158: htp.bold(l_mess);
2159: elsif p_type = MESS_SUCCESS then
2160: htp.bold(''||htf.italic(MsgGetText(121,XNP_WSGLM.DSP121_SUCCESS))||
2161: '
'||l_mess);
2162: elsif p_type = MESS_WARNING then
2156: end if;
2157: if p_type = MESS_INFORMATION then
2158: htp.bold(l_mess);
2159: elsif p_type = MESS_SUCCESS then
2160: htp.bold(''||htf.italic(MsgGetText(121,XNP_WSGLM.DSP121_SUCCESS))||
2161: '
'||l_mess);
2162: elsif p_type = MESS_WARNING then
2163: -- NB, MESS_WARNING not used at present, just issue error message
2164: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2160: htp.bold(''||htf.italic(MsgGetText(121,XNP_WSGLM.DSP121_SUCCESS))||
2161: '
'||l_mess);
2162: elsif p_type = MESS_WARNING then
2163: -- NB, MESS_WARNING not used at present, just issue error message
2164: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2165: '
'||l_mess);
2166: elsif p_type = MESS_ERROR then
2167:
2168: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2164: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2165: '
'||l_mess);
2166: elsif p_type = MESS_ERROR then
2167:
2168: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2169: '
'||l_mess);
2170: elsif p_type = MESS_ERROR_QRY then
2171: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2172: '
');
2167:
2168: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2169: '
'||l_mess);
2170: elsif p_type = MESS_ERROR_QRY then
2171: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2172: '
');
2173: htp.bold(p_context);
2174: htp.para;
2175: htp.small(l_mess);
2169: '
'||l_mess);
2170: elsif p_type = MESS_ERROR_QRY then
2171: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2172: '
');
2173: htp.bold(p_context);
2174: htp.para;
2175: htp.small(l_mess);
2176: if p_action is not null then
2177: htp.para;
2170: elsif p_type = MESS_ERROR_QRY then
2171: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2172: '
');
2173: htp.bold(p_context);
2174: htp.para;
2175: htp.small(l_mess);
2176: if p_action is not null then
2177: htp.para;
2178: htp.bold(p_action);
2171: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2172: '
');
2173: htp.bold(p_context);
2174: htp.para;
2175: htp.small(l_mess);
2176: if p_action is not null then
2177: htp.para;
2178: htp.bold(p_action);
2179: end if;
2173: htp.bold(p_context);
2174: htp.para;
2175: htp.small(l_mess);
2176: if p_action is not null then
2177: htp.para;
2178: htp.bold(p_action);
2179: end if;
2180: elsif p_type = MESS_EXCEPTION then
2181: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2174: htp.para;
2175: htp.small(l_mess);
2176: if p_action is not null then
2177: htp.para;
2178: htp.bold(p_action);
2179: end if;
2180: elsif p_type = MESS_EXCEPTION then
2181: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2182: '
');
2177: htp.para;
2178: htp.bold(p_action);
2179: end if;
2180: elsif p_type = MESS_EXCEPTION then
2181: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2182: '
');
2183: htp.bold(MsgGetText(217,XNP_WSGLM.MSG217_EXCEPTION, p_location));
2184: htp.para;
2185: htp.p(l_mess);
2179: end if;
2180: elsif p_type = MESS_EXCEPTION then
2181: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2182: '
');
2183: htp.bold(MsgGetText(217,XNP_WSGLM.MSG217_EXCEPTION, p_location));
2184: htp.para;
2185: htp.p(l_mess);
2186: htp.para;
2187: htp.bold(MsgGetText(218,XNP_WSGLM.MSG218_CONTACT_SUPPORT));
2180: elsif p_type = MESS_EXCEPTION then
2181: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2182: '
');
2183: htp.bold(MsgGetText(217,XNP_WSGLM.MSG217_EXCEPTION, p_location));
2184: htp.para;
2185: htp.p(l_mess);
2186: htp.para;
2187: htp.bold(MsgGetText(218,XNP_WSGLM.MSG218_CONTACT_SUPPORT));
2188: end if;
2181: htp.bold(''||htf.italic(MsgGetText(122,XNP_WSGLM.DSP122_ERROR))||
2182: '
');
2183: htp.bold(MsgGetText(217,XNP_WSGLM.MSG217_EXCEPTION, p_location));
2184: htp.para;
2185: htp.p(l_mess);
2186: htp.para;
2187: htp.bold(MsgGetText(218,XNP_WSGLM.MSG218_CONTACT_SUPPORT));
2188: end if;
2189: htp.para;
2182: '
');
2183: htp.bold(MsgGetText(217,XNP_WSGLM.MSG217_EXCEPTION, p_location));
2184: htp.para;
2185: htp.p(l_mess);
2186: htp.para;
2187: htp.bold(MsgGetText(218,XNP_WSGLM.MSG218_CONTACT_SUPPORT));
2188: end if;
2189: htp.para;
2190: ClosePageBody;
2183: htp.bold(MsgGetText(217,XNP_WSGLM.MSG217_EXCEPTION, p_location));
2184: htp.para;
2185: htp.p(l_mess);
2186: htp.para;
2187: htp.bold(MsgGetText(218,XNP_WSGLM.MSG218_CONTACT_SUPPORT));
2188: end if;
2189: htp.para;
2190: ClosePageBody;
2191: end;
2185: htp.p(l_mess);
2186: htp.para;
2187: htp.bold(MsgGetText(218,XNP_WSGLM.MSG218_CONTACT_SUPPORT));
2188: end if;
2189: htp.para;
2190: ClosePageBody;
2191: end;
2192:
2193: --------------------------------------------------------------------------------
2307: function NotLowerCase return boolean is
2308: begin
2309: URLComplete := true;
2310: if (owa_util.get_cgi_env('PATH_INFO') <> lower(owa_util.get_cgi_env('PATH_INFO')))then
2311: htp.htmlOpen;
2312: htp.headOpen;
2313: RefreshURL;
2314: htp.headClose;
2315: htp.htmlClose;
2308: begin
2309: URLComplete := true;
2310: if (owa_util.get_cgi_env('PATH_INFO') <> lower(owa_util.get_cgi_env('PATH_INFO')))then
2311: htp.htmlOpen;
2312: htp.headOpen;
2313: RefreshURL;
2314: htp.headClose;
2315: htp.htmlClose;
2316: return true;
2310: if (owa_util.get_cgi_env('PATH_INFO') <> lower(owa_util.get_cgi_env('PATH_INFO')))then
2311: htp.htmlOpen;
2312: htp.headOpen;
2313: RefreshURL;
2314: htp.headClose;
2315: htp.htmlClose;
2316: return true;
2317: end if;
2318: return false;
2311: htp.htmlOpen;
2312: htp.headOpen;
2313: RefreshURL;
2314: htp.headClose;
2315: htp.htmlClose;
2316: return true;
2317: end if;
2318: return false;
2319: exception
2332: --
2333: --------------------------------------------------------------------------------
2334: procedure RefreshURL is
2335: begin
2336: htp.p('');
2337: exception
2338: when others then
2339: raise_application_error(-20000, 'XNP_WSGL.RefreshURL
'||SQLERRM);
2340: end;
2672: --
2673: --------------------------------------------------------------------------------
2674: procedure RowContext(p_context in varchar2) is
2675: begin
2676: htp.header(2, p_context);
2677: end;
2678:
2679: --------------------------------------------------------------------------------
2680: -- Name: MAX_ROWS_MESSAGE