OWAPUB.OWA_UTIL dependencies on HTP

Line 259: htp.header(1,'Source code for ' || procname);

255: begin
256:
257: name_resolve(cname, procowner, procname);
258:
259: htp.header(1,'Source code for ' || procname);
260: htp.preOpen;
261:
262: stmt_cursor := open_source_cursor(procowner, procname);
263: while (fetch_source_cursor(stmt_cursor, line, text) >= 0)

Line 260: htp.preOpen;

256:
257: name_resolve(cname, procowner, procname);
258:
259: htp.header(1,'Source code for ' || procname);
260: htp.preOpen;
261:
262: stmt_cursor := open_source_cursor(procowner, procname);
263: while (fetch_source_cursor(stmt_cursor, line, text) >= 0)
264: loop

Line 270: htp.print;

266: then
267: line1s := line1s + 1;
268: if (line1s = 2)
269: then
270: htp.print;
271: end if;
272: end if;
273: htp.prints(translate(text,NL_CHAR,' '));
274: end loop;

Line 273: htp.prints(translate(text,NL_CHAR,' '));

269: then
270: htp.print;
271: end if;
272: end if;
273: htp.prints(translate(text,NL_CHAR,' '));
274: end loop;
275: close_source_cursor(stmt_cursor);
276:
277: htp.preClose;

Line 277: htp.preClose;

273: htp.prints(translate(text,NL_CHAR,' '));
274: end loop;
275: close_source_cursor(stmt_cursor);
276:
277: htp.preClose;
278: signature;
279: end;
280:
281: /**************************************************/

Line 286: htp.line;

282: /* Procedures for printing out an OWA "signature" */
283: /**************************************************/
284: procedure signature is
285: begin
286: htp.line;
287: htp.p('This page was produced by the ');
288: htp.p(htf.bold('PL/SQL Cartridge')||' on '||
289: to_char(sysdate,'Month DD, YYYY HH12:MI PM')||htf.nl);
290: end;

Line 287: htp.p('This page was produced by the ');

283: /**************************************************/
284: procedure signature is
285: begin
286: htp.line;
287: htp.p('This page was produced by the ');
288: htp.p(htf.bold('PL/SQL Cartridge')||' on '||
289: to_char(sysdate,'Month DD, YYYY HH12:MI PM')||htf.nl);
290: end;
291:

Line 288: htp.p(htf.bold('PL/SQL Cartridge')||' on '||

284: procedure signature is
285: begin
286: htp.line;
287: htp.p('This page was produced by the ');
288: htp.p(htf.bold('PL/SQL Cartridge')||' on '||
289: to_char(sysdate,'Month DD, YYYY HH12:MI PM')||htf.nl);
290: end;
291:
292: procedure signature(cname in varchar2) is

Line 295: htp.anchor(owa_util.get_owa_service_path||

291:
292: procedure signature(cname in varchar2) is
293: begin
294: signature;
295: htp.anchor(owa_util.get_owa_service_path||
296: 'owa_util.showsource?cname='||cname,
297: 'View PL/SQL source code');
298: end;
299:

Line 301: /* Procedure for printing a page generated by htp/htf */

297: 'View PL/SQL source code');
298: end;
299:
300: /******************************************************/
301: /* Procedure for printing a page generated by htp/htf */
302: /* in SQL*Plus or SQL*DBA */
303: /******************************************************/
304: procedure showpage is
305: begin

Line 306: htp.showpage;

302: /* in SQL*Plus or SQL*DBA */
303: /******************************************************/
304: procedure showpage is
305: begin
306: htp.showpage;
307: end;
308:
309: /**************************************************************/
310: /* Procedure/function for accessing CGI environment variables */

Line 329: htp.print(owa.cgi_var_name(i)||' = '||owa.cgi_var_val(i)||htf.nl);

325: procedure print_cgi_env is
326: begin
327: for i in 1..owa.num_cgi_vars
328: loop
329: htp.print(owa.cgi_var_name(i)||' = '||owa.cgi_var_val(i)||htf.nl);
330: end loop;
331: end;
332:
333: function get_owa_service_path return varchar2 is

Line 352: htp.prn('Content-type: '||ccontent_type||NL_CHAR);

348: is
349: begin
350: if (ccharset is NULL)
351: then
352: htp.prn('Content-type: '||ccontent_type||NL_CHAR);
353: else
354: htp.prn('Content-type: '||ccontent_type
355: ||'; charset='||ccharset||' '||NL_CHAR);
356: end if;

Line 354: htp.prn('Content-type: '||ccontent_type

350: if (ccharset is NULL)
351: then
352: htp.prn('Content-type: '||ccontent_type||NL_CHAR);
353: else
354: htp.prn('Content-type: '||ccontent_type
355: ||'; charset='||ccharset||' '||NL_CHAR);
356: end if;
357:
358: if (bclose_header)

Line 367: htp.prn('Location: '||curl||NL_CHAR);

363: procedure redirect_url(curl in varchar2,
364: bclose_header in boolean DEFAULT TRUE)
365: is
366: begin
367: htp.prn('Location: '||curl||NL_CHAR);
368:
369: if (bclose_header)
370: then http_header_close;
371: end if;

Line 379: htp.prn('Status: '||nstatus||' '||creason||NL_CHAR);

375: creason in varchar2 DEFAULT NULL,
376: bclose_header in boolean DEFAULT TRUE)
377: is
378: begin
379: htp.prn('Status: '||nstatus||' '||creason||NL_CHAR);
380:
381: if (bclose_header)
382: then http_header_close;
383: end if;

Line 388: htp.prn(NL_CHAR);

384: end;
385:
386: procedure http_header_close is
387: begin
388: htp.prn(NL_CHAR);
389: end;
390:
391: /**********************************************/
392: /* A couple of handy routines used internally */

Line 1143: htp.formHidden('ctable', ctable);

1139: /* We will need to parse out the owner, etc. */
1140: resolve_table(ctable,USER,
1141: table_resolved,owner_resolved,db_link_resolved);
1142:
1143: htp.formHidden('ctable', ctable);
1144: htp.formHidden('COLS', 'DUMMY');
1145:
1146: cols_cursor := dbms_sql.open_cursor;
1147: sys.dbms_sys_sql.parse_as_user(cols_cursor,

Line 1144: htp.formHidden('COLS', 'DUMMY');

1140: resolve_table(ctable,USER,
1141: table_resolved,owner_resolved,db_link_resolved);
1142:
1143: htp.formHidden('ctable', ctable);
1144: htp.formHidden('COLS', 'DUMMY');
1145:
1146: cols_cursor := dbms_sql.open_cursor;
1147: sys.dbms_sys_sql.parse_as_user(cols_cursor,
1148: 'select column_name from all_tab_columns where table_name = upper(:t)

Line 1159: htp.formCheckbox('COLS', col_name);

1155: loop
1156: if (dbms_sql.fetch_rows(cols_cursor) > 0)
1157: then
1158: dbms_sql.column_value(cols_cursor, 1, col_name);
1159: htp.formCheckbox('COLS', col_name);
1160: htp.print(col_name);
1161: htp.nl;
1162: else
1163: exit;

Line 1160: htp.print(col_name);

1156: if (dbms_sql.fetch_rows(cols_cursor) > 0)
1157: then
1158: dbms_sql.column_value(cols_cursor, 1, col_name);
1159: htp.formCheckbox('COLS', col_name);
1160: htp.print(col_name);
1161: htp.nl;
1162: else
1163: exit;
1164: end if;

Line 1161: htp.nl;

1157: then
1158: dbms_sql.column_value(cols_cursor, 1, col_name);
1159: htp.formCheckbox('COLS', col_name);
1160: htp.print(col_name);
1161: htp.nl;
1162: else
1163: exit;
1164: end if;
1165: end loop;

Line 1167: htp.formSubmit(NULL,'Execute Query');

1163: exit;
1164: end if;
1165: end loop;
1166: dbms_sql.close_cursor(cols_cursor);
1167: htp.formSubmit(NULL,'Execute Query');
1168: end;
1169:
1170: function tablePrint(ctable in varchar2,
1171: cattributes in varchar2 DEFAULT NULL,

Line 1257: htp.tableOpen(NULL, NULL, NULL, NULL, cattributes);

1253: is
1254: begin
1255: if (ntable_type = HTML_TABLE)
1256: then
1257: htp.tableOpen(NULL, NULL, NULL, NULL, cattributes);
1258: else
1259: if (cattributes is not null)
1260: then
1261: table_border := '|';

Line 1265: htp.print('

');

1261: table_border := '|';
1262: else
1263: table_border := ' ';
1264: end if;
1265: htp.print('

');

1266: end if;

1267: end;

1268: 

1269: procedure tableCaption(ccaption in varchar2,


Line 1275: htp.tableCaption(ccaption, calign);


1271: ntable_type in integer DEFAULT HTML_TABLE) is

1272: begin

1273: if (ntable_type = HTML_TABLE)

1274: then

1275: htp.tableCaption(ccaption, calign);

1276: else

1277: htp.print(ccaption);

1278: end if;

1279: end;


Line 1277: htp.print(ccaption);


1273: if (ntable_type = HTML_TABLE)

1274: then

1275: htp.tableCaption(ccaption, calign);

1276: else

1277: htp.print(ccaption);

1278: end if;

1279: end;

1280: 

1281: procedure tableHeaderRowOpen(crowstring in out varchar2,


Line 1287: htp.tableRowOpen;


1283: is

1284: begin

1285: if (ntable_type = HTML_TABLE)

1286: then

1287: htp.tableRowOpen;

1288: else

1289: crowstring := table_border;

1290: end if;

1291: end;


Line 1300: htp.tableRowOpen;


1296: is

1297: begin

1298: if (ntable_type = HTML_TABLE)

1299: then

1300: htp.tableRowOpen;

1301: else

1302: ntable_width := 1;

1303: crowstring := table_border;

1304: end if;


Line 1316: htp.tableHeader(ccolumn_name);


1312: is

1313: begin

1314: if (ntable_type = HTML_TABLE)

1315: then

1316: htp.tableHeader(ccolumn_name);

1317: else

1318: crowstring := crowstring||align(ccolumn_name,ncolumn_size,calign);

1319: end if;

1320: end;


Line 1332: htp.tableHeader(ccolumn_name);


1328: is

1329: begin

1330: if (ntable_type = HTML_TABLE)

1331: then

1332: htp.tableHeader(ccolumn_name);

1333: else

1334: ntable_width := ntable_width+ncolumn_size+3;

1335: crowstring := crowstring||align(ccolumn_name,ncolumn_size,calign);

1336: end if;


Line 1345: htp.tableRowClose;


1341: is

1342: begin

1343: if (ntable_type = HTML_TABLE)

1344: then

1345: htp.tableRowClose;

1346: else

1347: htp.print(crowstring);

1348: end if;

1349: end;


Line 1347: htp.print(crowstring);


1343: if (ntable_type = HTML_TABLE)

1344: then

1345: htp.tableRowClose;

1346: else

1347: htp.print(crowstring);

1348: end if;

1349: end;

1350: 

1351: procedure tableHeaderRowClose(crowstring in out varchar2,


Line 1358: htp.tableRowClose;


1354: is

1355: begin

1356: if (ntable_type = HTML_TABLE)

1357: then

1358: htp.tableRowClose;

1359: else

1360: if (table_border = '|')

1361: then

1362: htp.print(rpad('-',ntable_width,'-'));


Line 1362: htp.print(rpad('-',ntable_width,'-'));


1358: htp.tableRowClose;

1359: else

1360: if (table_border = '|')

1361: then

1362: htp.print(rpad('-',ntable_width,'-'));

1363: htp.print(crowstring);

1364: htp.print(rpad('-',ntable_width,'-'));

1365: else

1366: htp.print(' ');


Line 1363: htp.print(crowstring);


1359: else

1360: if (table_border = '|')

1361: then

1362: htp.print(rpad('-',ntable_width,'-'));

1363: htp.print(crowstring);

1364: htp.print(rpad('-',ntable_width,'-'));

1365: else

1366: htp.print(' ');

1367: htp.print(crowstring);


Line 1364: htp.print(rpad('-',ntable_width,'-'));


1360: if (table_border = '|')

1361: then

1362: htp.print(rpad('-',ntable_width,'-'));

1363: htp.print(crowstring);

1364: htp.print(rpad('-',ntable_width,'-'));

1365: else

1366: htp.print(' ');

1367: htp.print(crowstring);

1368: htp.print(' ');


Line 1366: htp.print(' ');


1362: htp.print(rpad('-',ntable_width,'-'));

1363: htp.print(crowstring);

1364: htp.print(rpad('-',ntable_width,'-'));

1365: else

1366: htp.print(' ');

1367: htp.print(crowstring);

1368: htp.print(' ');

1369: end if;

1370: end if;


Line 1367: htp.print(crowstring);


1363: htp.print(crowstring);

1364: htp.print(rpad('-',ntable_width,'-'));

1365: else

1366: htp.print(' ');

1367: htp.print(crowstring);

1368: htp.print(' ');

1369: end if;

1370: end if;

1371: end;


Line 1368: htp.print(' ');


1364: htp.print(rpad('-',ntable_width,'-'));

1365: else

1366: htp.print(' ');

1367: htp.print(crowstring);

1368: htp.print(' ');

1369: end if;

1370: end if;

1371: end;

1372: 


Line 1379: htp.tableRowOpen;


1375: is

1376: begin

1377: if (ntable_type = HTML_TABLE)

1378: then

1379: htp.tableRowOpen;

1380: else

1381: crowstring := table_border;

1382: end if;

1383: end;


Line 1394: htp.tableData(cdata, calign);


1390: is

1391: begin

1392: if (ntable_type = HTML_TABLE)

1393: then

1394: htp.tableData(cdata, calign);

1395: else

1396: crowstring := crowstring||align(translate(cdata,NL_CHAR,' '),

1397: ncolumn_size, calign);

1398: end if;


Line 1410: htp.tableData('No data found', ccolspan=>nnum_cols);


1406: is

1407: begin

1408: if (ntable_type = HTML_TABLE)

1409: then

1410: htp.tableData('No data found', ccolspan=>nnum_cols);

1411: else

1412: crowstring := crowstring||align('No data found',ntable_width-4,calign);

1413: end if;

1414: end;


Line 1422: htp.tableRowClose;


1418: is

1419: begin

1420: if (ntable_type = HTML_TABLE)

1421: then

1422: htp.tableRowClose;

1423: else

1424: htp.print(crowstring);

1425: end if;

1426: end;


Line 1424: htp.print(crowstring);


1420: if (ntable_type = HTML_TABLE)

1421: then

1422: htp.tableRowClose;

1423: else

1424: htp.print(crowstring);

1425: end if;

1426: end;

1427: 

1428: procedure tableClose(ntable_type in integer DEFAULT HTML_TABLE)


Line 1433: htp.tableClose;


1429: is

1430: begin

1431: if (ntable_type = HTML_TABLE)

1432: then

1433: htp.tableClose;

1434: else

1435: htp.print('

Line 1435: htp.print('');

1431: if (ntable_type = HTML_TABLE)
1432: then
1433: htp.tableClose;
1434: else
1435: htp.print('');
1436: end if;
1437: end;
1438:
1439: procedure tableClose(ntable_width in integer,

Line 1445: htp.tableClose;

1441: is
1442: begin
1443: if (ntable_type = HTML_TABLE)
1444: then
1445: htp.tableClose;
1446: else
1447: if (table_border = '|')
1448: then
1449: htp.print(rpad('-',ntable_width,'-'));

Line 1449: htp.print(rpad('-',ntable_width,'-'));

1445: htp.tableClose;
1446: else
1447: if (table_border = '|')
1448: then
1449: htp.print(rpad('-',ntable_width,'-'));
1450: else
1451: htp.print(' ');
1452: end if;
1453:

Line 1451: htp.print(' ');

1447: if (table_border = '|')
1448: then
1449: htp.print(rpad('-',ntable_width,'-'));
1450: else
1451: htp.print(' ');
1452: end if;
1453:
1454: htp.print('');
1455: end if;

Line 1454: htp.print('');

1450: else
1451: htp.print(' ');
1452: end if;
1453:
1454: htp.print('');
1455: end if;
1456: end;
1457:
1458: /******************************************************************/

Line 1502: htp.p(htf.format_cell(columnValue, format_numbers));

1498: procedure format_cell(
1499: columnValue in varchar2, format_numbers in varchar2
1500: ) is
1501: begin
1502: htp.p(htf.format_cell(columnValue, format_numbers));
1503: end format_cell;
1504:
1505: function bind_outputs( p_theCursor in integer ) return number
1506: is

Line 1712: htp.tableRowOpen;

1708: recIx := recIx + 1;
1709: if (recIx > p_skip_rec)
1710: then
1711: recCnt := recCnt + 1;
1712: htp.tableRowOpen;
1713: for i in 1..colCnt
1714: loop
1715: dbms_sql.column_value(p_theCursor, i, columnValue);
1716: format_cell(columnValue, p_format_numbers);

Line 1718: htp.tableRowClose;

1714: loop
1715: dbms_sql.column_value(p_theCursor, i, columnValue);
1716: format_cell(columnValue, p_format_numbers);
1717: end loop;
1718: htp.tableRowClose;
1719: end if;
1720: end loop;
1721: dbms_sql.close_cursor(tmpCursor);
1722: p_reccnt := recCnt;

Line 1747: htp.tableRowOpen;

1743: recMax := p_resultTbl.count / p_colCnt;
1744: colRec := 0;
1745: for recIx in 1..recMax
1746: loop
1747: htp.tableRowOpen;
1748: for i in 1..p_colCnt
1749: loop
1750: colRec := colRec + 1;
1751: format_cell(p_resultTbl(colRec), p_format_numbers);

Line 1753: htp.tableRowClose;

1749: loop
1750: colRec := colRec + 1;
1751: format_cell(p_resultTbl(colRec), p_format_numbers);
1752: end loop;
1753: htp.tableRowClose;
1754: end loop;
1755: end cellsprint;
1756:
1757: procedure cellsprint( p_theQuery in varchar2,

Line 1877: htp.formSelectOpen( cname => p_cname,

1873: selected varchar2(2000);
1874: begin
1875: colCnt := bind_outputs( p_theCursor );
1876: --
1877: htp.formSelectOpen( cname => p_cname,
1878: nsize => p_nsize,
1879: cattributes => ite( p_multiple,'multiple',NULL) );
1880: loop
1881: exit when ( dbms_sql.fetch_rows(p_theCursor) <= 0 );

Line 1885: htp.formSelectOption( cvalue => visible,

1881: exit when ( dbms_sql.fetch_rows(p_theCursor) <= 0 );
1882: dbms_sql.column_value( p_theCursor, 1, value );
1883: dbms_sql.column_value( p_theCursor, 2, visible );
1884: dbms_sql.column_value( p_theCursor, 3, selected );
1885: htp.formSelectOption( cvalue => visible,
1886: cselected => ite( selected IS NULL, NULL, 'SELECTED' ),
1887: cattributes => 'value="' || value || '"' );
1888: end loop;
1889: htp.formSelectClose;

Line 1889: htp.formSelectClose;

1885: htp.formSelectOption( cvalue => visible,
1886: cselected => ite( selected IS NULL, NULL, 'SELECTED' ),
1887: cattributes => 'value="' || value || '"' );
1888: end loop;
1889: htp.formSelectClose;
1890: end listprint;
1891:
1892: procedure listprint( p_theQuery in varchar2,
1893: p_cname in varchar2,

Line 1912: htp.formSelectOpen( cname => p_name, nsize => 1 );

1908: l_day number default to_number(to_char(p_date,'DD'));
1909: l_mon number default to_number(to_char(p_date,'MM'));
1910: l_year number default to_number(to_char(p_date,'YYYY'));
1911: begin
1912: htp.formSelectOpen( cname => p_name, nsize => 1 );
1913: for i in 1 .. 31 loop
1914: htp.formSelectOption( cvalue => i,
1915: cselected => ite( i=l_day, 'SELECTED', NULL ),
1916: cattributes => 'value="' ||

Line 1914: htp.formSelectOption( cvalue => i,

1910: l_year number default to_number(to_char(p_date,'YYYY'));
1911: begin
1912: htp.formSelectOpen( cname => p_name, nsize => 1 );
1913: for i in 1 .. 31 loop
1914: htp.formSelectOption( cvalue => i,
1915: cselected => ite( i=l_day, 'SELECTED', NULL ),
1916: cattributes => 'value="' ||
1917: ltrim(to_char(i,'00')) || '"' );
1918: end loop;

Line 1919: htp.formSelectClose;

1915: cselected => ite( i=l_day, 'SELECTED', NULL ),
1916: cattributes => 'value="' ||
1917: ltrim(to_char(i,'00')) || '"' );
1918: end loop;
1919: htp.formSelectClose;
1920: htp.p( '-' );
1921: htp.formSelectOpen( cname => p_name, nsize => 1 );
1922: for i in 1 .. 12 loop
1923: htp.formSelectOption( cvalue => to_char( to_date( i, 'MM' ), 'MON' ),

Line 1920: htp.p( '-' );

1916: cattributes => 'value="' ||
1917: ltrim(to_char(i,'00')) || '"' );
1918: end loop;
1919: htp.formSelectClose;
1920: htp.p( '-' );
1921: htp.formSelectOpen( cname => p_name, nsize => 1 );
1922: for i in 1 .. 12 loop
1923: htp.formSelectOption( cvalue => to_char( to_date( i, 'MM' ), 'MON' ),
1924: cselected => ite( i=l_mon, 'SELECTED', NULL ),

Line 1921: htp.formSelectOpen( cname => p_name, nsize => 1 );

1917: ltrim(to_char(i,'00')) || '"' );
1918: end loop;
1919: htp.formSelectClose;
1920: htp.p( '-' );
1921: htp.formSelectOpen( cname => p_name, nsize => 1 );
1922: for i in 1 .. 12 loop
1923: htp.formSelectOption( cvalue => to_char( to_date( i, 'MM' ), 'MON' ),
1924: cselected => ite( i=l_mon, 'SELECTED', NULL ),
1925: cattributes => 'value="' ||

Line 1923: htp.formSelectOption( cvalue => to_char( to_date( i, 'MM' ), 'MON' ),

1919: htp.formSelectClose;
1920: htp.p( '-' );
1921: htp.formSelectOpen( cname => p_name, nsize => 1 );
1922: for i in 1 .. 12 loop
1923: htp.formSelectOption( cvalue => to_char( to_date( i, 'MM' ), 'MON' ),
1924: cselected => ite( i=l_mon, 'SELECTED', NULL ),
1925: cattributes => 'value="' ||
1926: ltrim(to_char(i,'00')) || '"' );
1927: end loop;

Line 1928: htp.formSelectClose;

1924: cselected => ite( i=l_mon, 'SELECTED', NULL ),
1925: cattributes => 'value="' ||
1926: ltrim(to_char(i,'00')) || '"' );
1927: end loop;
1928: htp.formSelectClose;
1929: htp.p( '-' );
1930: htp.formSelectOpen( cname => p_name, nsize => 1 );
1931: for i in l_year-5 .. l_year+5 loop
1932: htp.formSelectOption( cvalue => i,

Line 1929: htp.p( '-' );

1925: cattributes => 'value="' ||
1926: ltrim(to_char(i,'00')) || '"' );
1927: end loop;
1928: htp.formSelectClose;
1929: htp.p( '-' );
1930: htp.formSelectOpen( cname => p_name, nsize => 1 );
1931: for i in l_year-5 .. l_year+5 loop
1932: htp.formSelectOption( cvalue => i,
1933: cselected => ite( i=l_year, 'SELECTED', NULL ),

Line 1930: htp.formSelectOpen( cname => p_name, nsize => 1 );

1926: ltrim(to_char(i,'00')) || '"' );
1927: end loop;
1928: htp.formSelectClose;
1929: htp.p( '-' );
1930: htp.formSelectOpen( cname => p_name, nsize => 1 );
1931: for i in l_year-5 .. l_year+5 loop
1932: htp.formSelectOption( cvalue => i,
1933: cselected => ite( i=l_year, 'SELECTED', NULL ),
1934: cattributes => 'value="' ||

Line 1932: htp.formSelectOption( cvalue => i,

1928: htp.formSelectClose;
1929: htp.p( '-' );
1930: htp.formSelectOpen( cname => p_name, nsize => 1 );
1931: for i in l_year-5 .. l_year+5 loop
1932: htp.formSelectOption( cvalue => i,
1933: cselected => ite( i=l_year, 'SELECTED', NULL ),
1934: cattributes => 'value="' ||
1935: ltrim(to_char(i,'0000')) || '"' );
1936: end loop;

Line 1937: htp.formSelectClose;

1933: cselected => ite( i=l_year, 'SELECTED', NULL ),
1934: cattributes => 'value="' ||
1935: ltrim(to_char(i,'0000')) || '"' );
1936: end loop;
1937: htp.formSelectClose;
1938: end;
1939:
1940: function todate( p_dateArray in dateType ) return date
1941: is

Line 1995: htp.tableOpen( cborder=>'border', cattributes=>'width="100%"' );

1991: l_loop_start := 1;
1992: l_loop_stop := 5;
1993: end if;
1994:
1995: htp.tableOpen( cborder=>'border', cattributes=>'width="100%"' );
1996: htp.tableCaption( to_char( l_start, 'Month YYYY' ) );
1997:
1998: for i in l_loop_start .. l_loop_stop loop
1999: htp.tableHeader( cvalue => to_char( l_magic_date+i, 'Day' ),

Line 1996: htp.tableCaption( to_char( l_start, 'Month YYYY' ) );

1992: l_loop_stop := 5;
1993: end if;
1994:
1995: htp.tableOpen( cborder=>'border', cattributes=>'width="100%"' );
1996: htp.tableCaption( to_char( l_start, 'Month YYYY' ) );
1997:
1998: for i in l_loop_start .. l_loop_stop loop
1999: htp.tableHeader( cvalue => to_char( l_magic_date+i, 'Day' ),
2000: cattributes => l_width );

Line 1999: htp.tableHeader( cvalue => to_char( l_magic_date+i, 'Day' ),

1995: htp.tableOpen( cborder=>'border', cattributes=>'width="100%"' );
1996: htp.tableCaption( to_char( l_start, 'Month YYYY' ) );
1997:
1998: for i in l_loop_start .. l_loop_stop loop
1999: htp.tableHeader( cvalue => to_char( l_magic_date+i, 'Day' ),
2000: cattributes => l_width );
2001: end loop;
2002: htp.tableRowOpen;
2003: loop

Line 2002: htp.tableRowOpen;

1998: for i in l_loop_start .. l_loop_stop loop
1999: htp.tableHeader( cvalue => to_char( l_magic_date+i, 'Day' ),
2000: cattributes => l_width );
2001: end loop;
2002: htp.tableRowOpen;
2003: loop
2004: exit when to_char( l_magic_date, 'DY' ) = to_char(l_start,'DY');
2005: if ( not l_mf_only or not is_weekend(l_magic_date) ) then
2006: htp.tableData( htf.br );

Line 2006: htp.tableData( htf.br );

2002: htp.tableRowOpen;
2003: loop
2004: exit when to_char( l_magic_date, 'DY' ) = to_char(l_start,'DY');
2005: if ( not l_mf_only or not is_weekend(l_magic_date) ) then
2006: htp.tableData( htf.br );
2007: end if;
2008: l_magic_date := l_magic_date+1;
2009: end loop;
2010:

Line 2015: htp.p( '' );

2011: loop
2012: exit when ( to_char( p_start,'MON') <> to_char( l_start,'MON') );
2013:
2014: if ( not l_mf_only or not is_weekend(l_start) ) then
2015: htp.p( '' );
2016: htp.p( htf.italic(htf.bold(to_char(l_start,'DD'))) || htf.br );
2017: end if;
2018:
2019: while(l_cnt < p_cnt AND to_char(l_start) = to_char(p_dates(l_cnt)) )

Line 2016: htp.p( htf.italic(htf.bold(to_char(l_start,'DD'))) || htf.br );

2012: exit when ( to_char( p_start,'MON') <> to_char( l_start,'MON') );
2013:
2014: if ( not l_mf_only or not is_weekend(l_start) ) then
2015: htp.p( '' );
2016: htp.p( htf.italic(htf.bold(to_char(l_start,'DD'))) || htf.br );
2017: end if;
2018:
2019: while(l_cnt < p_cnt AND to_char(l_start) = to_char(p_dates(l_cnt)) )
2020: loop

Line 2022: htp.p( '»' );

2018:
2019: while(l_cnt < p_cnt AND to_char(l_start) = to_char(p_dates(l_cnt)) )
2020: loop
2021: if ( not l_mf_only or not is_weekend(l_start) ) then
2022: htp.p( '»' );
2023: if ( p_link(l_cnt) is NULL ) then
2024: htp.p( p_text(l_cnt) );
2025: else
2026: htp.anchor( p_link(l_cnt), p_text(l_cnt) );

Line 2024: htp.p( p_text(l_cnt) );

2020: loop
2021: if ( not l_mf_only or not is_weekend(l_start) ) then
2022: htp.p( '»' );
2023: if ( p_link(l_cnt) is NULL ) then
2024: htp.p( p_text(l_cnt) );
2025: else
2026: htp.anchor( p_link(l_cnt), p_text(l_cnt) );
2027: end if;
2028: htp.br;

Line 2026: htp.anchor( p_link(l_cnt), p_text(l_cnt) );

2022: htp.p( '»' );
2023: if ( p_link(l_cnt) is NULL ) then
2024: htp.p( p_text(l_cnt) );
2025: else
2026: htp.anchor( p_link(l_cnt), p_text(l_cnt) );
2027: end if;
2028: htp.br;
2029: end if;
2030: l_cnt := l_cnt+1;

Line 2028: htp.br;

2024: htp.p( p_text(l_cnt) );
2025: else
2026: htp.anchor( p_link(l_cnt), p_text(l_cnt) );
2027: end if;
2028: htp.br;
2029: end if;
2030: l_cnt := l_cnt+1;
2031: end loop;
2032: if ( not l_mf_only or not is_weekend( l_start ) ) then

Line 2033: htp.p( '' );

2029: end if;
2030: l_cnt := l_cnt+1;
2031: end loop;
2032: if ( not l_mf_only or not is_weekend( l_start ) ) then
2033: htp.p( '' );
2034: end if;
2035:
2036: if ( to_char(l_start,'DY','NLS_DATE_LANGUAGE=AMERICAN') = 'SAT' ) then
2037: htp.tableRowClose;

Line 2037: htp.tableRowClose;

2033: htp.p( '' );
2034: end if;
2035:
2036: if ( to_char(l_start,'DY','NLS_DATE_LANGUAGE=AMERICAN') = 'SAT' ) then
2037: htp.tableRowClose;
2038: if ( l_start <> last_day(l_start) ) then
2039: htp.tableRowOpen;
2040: end if;
2041: end if;

Line 2039: htp.tableRowOpen;

2035:
2036: if ( to_char(l_start,'DY','NLS_DATE_LANGUAGE=AMERICAN') = 'SAT' ) then
2037: htp.tableRowClose;
2038: if ( l_start <> last_day(l_start) ) then
2039: htp.tableRowOpen;
2040: end if;
2041: end if;
2042: l_start := l_start+1;
2043: end loop;

Line 2047: htp.tableData( htf.br );

2043: end loop;
2044: if ( to_char(l_start ,'DY','NLS_DATE_LANGUAGE=AMERICAN') <> 'SUN' ) then
2045: loop
2046: if ( not l_mf_only or not is_weekend( l_start ) ) then
2047: htp.tableData( htf.br );
2048: end if;
2049: exit when ( to_char(l_start,'DY','NLS_DATE_LANGUAGE=AMERICAN') = 'SAT' );
2050: l_start := l_start+1;
2051: end loop;

Line 2052: htp.tableRowClose;

2048: end if;
2049: exit when ( to_char(l_start,'DY','NLS_DATE_LANGUAGE=AMERICAN') = 'SAT' );
2050: l_start := l_start+1;
2051: end loop;
2052: htp.tableRowClose;
2053: end if;
2054: htp.tableClose;
2055:
2056: end show_internal;

Line 2054: htp.tableClose;

2050: l_start := l_start+1;
2051: end loop;
2052: htp.tableRowClose;
2053: end if;
2054: htp.tableClose;
2055:
2056: end show_internal;
2057:
2058: