[Home] [Help]
1: package body OWA_UTIL is
2:
3: owa_version CONSTANT varchar2(64) := '10.1.2.1.9';
4:
5: table_border char(1);
1: package body OWA_UTIL is
2:
3: owa_version CONSTANT varchar2(64) := '10.1.2.1.9';
4:
5: table_border char(1);
6:
7: /* datatypes for procedure calendarprint */
9: type vcArray is table of varchar2(2000) index by binary_integer;
10: type ncArray is table of nvarchar2(2000) index by binary_integer;
11:
12: /* NL_CHAR can be computed from a Unicode string in a portable manner. */
13: NL_CHAR constant varchar2(10) := owa_cx.nl_char;
14: /* Constant is set here instead of owachars to avoid invalid objects */
15: CR_CHAR constant varchar2(10) := chr(13);
16:
17: colTblSz binary_integer;
10: type ncArray is table of nvarchar2(2000) index by binary_integer;
11:
12: /* NL_CHAR can be computed from a Unicode string in a portable manner. */
13: NL_CHAR constant varchar2(10) := owa_cx.nl_char;
14: /* Constant is set here instead of owachars to avoid invalid objects */
15: CR_CHAR constant varchar2(10) := chr(13);
16:
17: colTblSz binary_integer;
18: colTbl dbms_utility.uncl_array;
317: signature;
318: end;
319:
320: /**************************************************/
321: /* Procedures for printing out an OWA "signature" */
322: /**************************************************/
323: procedure signature is
324: begin
325: htp.line;
330:
331: procedure signature(cname in varchar2 character set any_cs) is
332: begin
333: signature;
334: htp.anchor(owa_util.get_owa_service_path||
335: 'owa_util.showsource?cname='||cname,
336: 'View PL/SQL source code');
337: end;
338:
331: procedure signature(cname in varchar2 character set any_cs) is
332: begin
333: signature;
334: htp.anchor(owa_util.get_owa_service_path||
335: 'owa_util.showsource?cname='||cname,
336: 'View PL/SQL source code');
337: end;
338:
339: /******************************************************/
350: /**************************************************************/
351: function get_cgi_env(param_name in varchar2) return varchar2 is
352: upper_param_name varchar2(2000) := upper(param_name);
353: begin
354: for i in 1..owa.num_cgi_vars
355: loop
356: if (upper(owa.cgi_var_name(i)) = upper_param_name)
357: then return(owa.cgi_var_val(i));
358: end if;
352: upper_param_name varchar2(2000) := upper(param_name);
353: begin
354: for i in 1..owa.num_cgi_vars
355: loop
356: if (upper(owa.cgi_var_name(i)) = upper_param_name)
357: then return(owa.cgi_var_val(i));
358: end if;
359: end loop;
360:
353: begin
354: for i in 1..owa.num_cgi_vars
355: loop
356: if (upper(owa.cgi_var_name(i)) = upper_param_name)
357: then return(owa.cgi_var_val(i));
358: end if;
359: end loop;
360:
361: return NULL;
362: end;
363:
364: procedure print_cgi_env is
365: begin
366: for i in 1..owa.num_cgi_vars
367: loop
368: htp.print(owa.cgi_var_name(i)||' = '||owa.cgi_var_val(i)||htf.nl);
369: end loop;
370: end;
364: procedure print_cgi_env is
365: begin
366: for i in 1..owa.num_cgi_vars
367: loop
368: htp.print(owa.cgi_var_name(i)||' = '||owa.cgi_var_val(i)||htf.nl);
369: end loop;
370: end;
371:
372: function get_owa_service_path return varchar2 is
368: htp.print(owa.cgi_var_name(i)||' = '||owa.cgi_var_val(i)||htf.nl);
369: end loop;
370: end;
371:
372: function get_owa_service_path return varchar2 is
373: script_name varchar2(2000) := get_cgi_env('SCRIPT_NAME');
374: begin
375: if (substr(script_name,-1) = '/')
376: then
397: then
398: -- Check the ccontent_type is of type 'text'
399: if (upper(l_ccontent_type) like 'TEXT%')
400: then
401: charset := owa_util.get_cgi_env('REQUEST_IANA_CHARSET');
402: if (charset is null)
403: then
404: htp.prn('Content-type: '||l_ccontent_type||NL_CHAR);
405: else
408: end if;
409: else
410: htp.prn('Content-type: '||l_ccontent_type||NL_CHAR);
411: end if;
412: htp.setHTTPCharset(charset, owa_util.get_cgi_env('REQUEST_CHARSET'));
413: else
414: -- Just output what was passed in without check for type 'text'
415: if (l_ccharset is null) then
416: htp.prn('Content-type: '||l_ccontent_type||NL_CHAR);
413: else
414: -- Just output what was passed in without check for type 'text'
415: if (l_ccharset is null) then
416: htp.prn('Content-type: '||l_ccontent_type||NL_CHAR);
417: htp.setHTTPCharset(l_ccharset, owa_util.get_cgi_env('REQUEST_CHARSET'));
418: else
419: htp.prn('Content-type: '||l_ccontent_type
420: ||'; charset='||l_ccharset||NL_CHAR);
421: htp.setHTTPCharset(l_ccharset);
1713: t varchar2(50);
1714: begin
1715: who_called_me( o, n, l, t );
1716:
1717: return owa_util.get_cgi_env( 'SCRIPT_NAME' ) || '/' || n;
1718: end path_to_me;
1719:
1720:
1721: /******************************************************************/
2348: /******************************************************************/
2349:
2350: procedure calendarprint( p_query in varchar2, p_mf_only in varchar2 default 'N' )
2351: is
2352: l_cursor integer default owa_util.bind_variables( p_query );
2353: begin
2354: calendarprint( l_cursor, p_mf_only );
2355: dbms_sql.close_cursor(l_cursor);
2356: exception
2463: /* Function to obtain the version number */
2464: /**********************************************************************/
2465: function get_version return varchar2 is
2466: begin
2467: return(owa_version);
2468: end;
2469:
2470: /**********************************************************************/
2471: /* Procedure to print the version number */
2471: /* Procedure to print the version number */
2472: /**********************************************************************/
2473: procedure print_version is
2474: begin
2475: htp.print('Current OWA toolkit version is '||owa_version);
2476: end;
2477: end;