[Home] [Help]
PACKAGE BODY: OWAPUB.HTF
Source
1 package body htf as
2
3 /* This function is private to the HTF package */
4 function IFNOTNULL(str1 in varchar2, str2 in varchar2) return varchar2 is
5 begin
6 if (str1 is NULL)
7 then return (NULL);
8 else return (str2);
9 end if;
10 end;
11
12 /* STRUCTURE tags */
13 function bodyOpen(cbackground in varchar2 DEFAULT NULL,
14 cattributes in varchar2 DEFAULT NULL) return varchar2 is
15 begin return('<BODY'||
16 IFNOTNULL(cbackground,' BACKGROUND="'||cbackground||'"')||
17 IFNOTNULL(cattributes,' '||cattributes)||
18 '>'); end;
19 /* END STRUCTURE tags */
20
21 /* HEAD Related elements tags */
22 function title (ctitle in varchar2) return varchar2 is
23 begin return ('<TITLE>'||ctitle||'</TITLE>'); end;
24
25 function htitle(ctitle in varchar2,
26 nsize in integer DEFAULT 1,
27 calign in varchar2 DEFAULT NULL,
28 cnowrap in varchar2 DEFAULT NULL,
29 cclear in varchar2 DEFAULT NULL,
30 cattributes in varchar2 DEFAULT NULL) return varchar2 is
31 begin return (title(ctitle)||
32 header(nsize,ctitle,calign,cnowrap,cclear,cattributes)); end;
33
34 function base( ctarget in varchar2 DEFAULT NULL,
35 cattributes in varchar2 DEFAULT NULL) return varchar2 is
36 begin return('<BASE'||
37 IFNOTNULL(ctarget,' TARGET="'||ctarget||'"')||
38 IFNOTNULL(cattributes,' '||cattributes)||
39 ' HREF="http://'||owa_util.get_cgi_env('SERVER_NAME')||':'||
40 owa_util.get_cgi_env('SERVER_PORT')||
41 owa_util.get_cgi_env('SCRIPT_NAME')||
42 owa_util.get_cgi_env('PATH_INFO')||'">');
43 end;
44
45 function isindex(cprompt in varchar2 DEFAULT NULL,
46 curl in varchar2 DEFAULT NULL) return varchar2 is
47 begin return('<ISINDEX'||
48 IFNOTNULL(cprompt,' PROMPT="'||cprompt||'"')||
49 IFNOTNULL(curl,' HREF="'||curl||'"')||
50 '>'); end;
51
52 function linkRel(crel in varchar2,
53 curl in varchar2,
54 ctitle in varchar2 DEFAULT NULL) return varchar2 is
55 begin return('<LINK REL="'||crel||'"'||
56 ' HREF="'||curl||'"'||
57 IFNOTNULL(ctitle,' TITLE="'||ctitle||'"')||
58 '>'); end;
59
60 function linkRev(crev in varchar2,
61 curl in varchar2,
62 ctitle in varchar2 DEFAULT NULL) return varchar2 is
63 begin return('<LINK REV="'||crev||'"'||
64 ' HREF="'||curl||'"'||
65 IFNOTNULL(ctitle,' TITLE="'||ctitle||'"')||
66 '>'); end;
67
68 function meta(chttp_equiv in varchar2,
69 cname in varchar2,
70 ccontent in varchar2) return varchar2 is
71 begin return('<META HTTP-EQUIV="'||chttp_equiv||
72 '" NAME="'||cname||
73 '" CONTENT="'||ccontent||
74 '">');
75 end;
76
77 function nextid(cidentifier in varchar2) return varchar2 is
78 begin return ('<NEXTID N="'||cidentifier||'>'); end;
79
80 function style(cstyle in varchar2) return varchar2 is
81 begin return ('<STYLE>'||cstyle||'</STYLE>'); end;
82
83 function script(cscript in varchar2,
84 clanguage in varchar2 DEFAULT NULL) return varchar2 is
85 begin return('<SCRIPT'||
86 IFNOTNULL(clanguage,' LANGUAGE='''||clanguage||'''')||
87 '>'||cscript||
88 '</SCRIPT>');
89 end;
90
91 /* END HEAD Related elements tags */
92
93 /* BODY ELEMENT tags */
94 function hr (cclear in varchar2 DEFAULT NULL,
95 csrc in varchar2 DEFAULT NULL,
96 cattributes in varchar2 DEFAULT NULL) return varchar2 is
97 begin return('<HR'||
98 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
99 IFNOTNULL(csrc,' SRC="'||csrc||'"')||
100 IFNOTNULL(cattributes,' '||cattributes)||
101 '>');
102 end;
103
104 function line(cclear in varchar2 DEFAULT NULL,
105 csrc in varchar2 DEFAULT NULL,
106 cattributes in varchar2 DEFAULT NULL) return varchar2 is
107 begin return(hr(cclear, csrc, cattributes)); end;
108
109 function br(cclear in varchar2 DEFAULT NULL,
110 cattributes in varchar2 DEFAULT NULL) return varchar2 is
111 begin return('<BR'||
112 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
113 IFNOTNULL(cattributes,' '||cattributes)||
114 '>');
115 end;
116
117 function nl(cclear in varchar2 DEFAULT NULL,
118 cattributes in varchar2 DEFAULT NULL) return varchar2 is
119 begin return(br(cclear, cattributes)); end;
120
121 function header(nsize in integer,
122 cheader in varchar2,
123 calign in varchar2 DEFAULT NULL,
124 cnowrap in varchar2 DEFAULT NULL,
125 cclear in varchar2 DEFAULT NULL,
126 cattributes in varchar2 DEFAULT NULL) return varchar2 is
127 ch varchar2(2);
128 begin
129 ch := 'H'||to_char(least(abs(nsize),6));
130 return('<'||ch||
131 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
132 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
133 IFNOTNULL(cnowrap,' NOWRAP')||
134 IFNOTNULL(cattributes,' '||cattributes)||
135 '>'||cheader||
136 '</'||ch||'>');
137 end;
138
139 function anchor(curl in varchar2,
140 ctext in varchar2,
141 cname in varchar2 DEFAULT NULL,
142 cattributes in varchar2 DEFAULT NULL) return varchar2 is
143 begin return( anchor2(curl,
144 ctext,
145 cname,
146 NULL,
147 cattributes));
148 end;
149
150 function anchor2(curl in varchar2,
151 ctext in varchar2,
152 cname in varchar2 DEFAULT NULL,
153 ctarget in varchar2 DEFAULT NULL,
154 cattributes in varchar2 DEFAULT NULL) return varchar2 is
155 curl_cname_null EXCEPTION;
156 begin
157 if curl is NULL and cname is NULL then
158 return('<!-- ERROR in anchor2 usage, curl and cname cannot be NULL --><A NAME=" "'||
159 IFNOTNULL(ctext,'> '||ctext||' </A')||
160 '>');
161
162 end if;
163
164 if curl is NULL then
165 return('<A NAME="'||cname||'"'||
166 IFNOTNULL(ctext,'> '||ctext||' </A')||
167 '>');
168 else
169 return('<A HREF="'||curl||'"'||
170 IFNOTNULL(cname,' NAME="'||cname||'"')||
171 IFNOTNULL(ctarget,' TARGET="'||ctarget||'"')||
172 IFNOTNULL(cattributes,' '||cattributes)||
173 '>'||ctext||
174 '</A>');
175 end if;
176 end;
177
178
179 function mailto(caddress in varchar2,
180 ctext in varchar2,
181 cname in varchar2 DEFAULT NULL,
182 cattributes in varchar2 DEFAULT NULL) return varchar2 is
183 begin return (anchor('mailto:'||caddress,ctext,cname,cattributes)); end;
184
185 function img(curl in varchar2,
186 calign in varchar2 DEFAULT NULL,
187 calt in varchar2 DEFAULT NULL,
188 cismap in varchar2 DEFAULT NULL,
189 cattributes in varchar2 DEFAULT NULL
190 ) return varchar2 is
191 begin return('<IMG SRC="'||curl||'"'||
192 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
193 IFNOTNULL(calt,' ALT="'||calt||'"')||
194 IFNOTNULL(cismap,' ISMAP')||
195 IFNOTNULL(cattributes,' '||cattributes)||
196 '>'); end;
197
198 function img2(curl in varchar2,
199 calign in varchar2 DEFAULT NULL,
200 calt in varchar2 DEFAULT NULL,
201 cismap in varchar2 DEFAULT NULL,
202 cusemap in varchar2 DEFAULT NULL,
203 cattributes in varchar2 DEFAULT NULL
204 ) return varchar2 is
205 begin return('<IMG SRC="'||curl||'"'||
206 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
207 IFNOTNULL(calt,' ALT="'||calt||'"')||
208 IFNOTNULL(cismap,' ISMAP')||
209 IFNOTNULL(cusemap,' USEMAP="'||cusemap||'"')||
210 IFNOTNULL(cattributes,' '||cattributes)||
211 '>'); end;
212
213
214 function area( ccoords in varchar2,
215 cshape in varchar2 DEFAULT NULL,
216 chref in varchar2 DEFAULT NULL,
217 cnohref in varchar2 DEFAULT NULL,
218 ctarget in varchar2 DEFAULT NULL,
219 cattributes in varchar2 DEFAULT NULL) return varchar2 is
220 begin return('<AREA'||
221 IFNOTNULL(cshape,' SHAPE="'||cshape||'"')||
222 ' COORDS="'||ccoords||'"'||
223 IFNOTNULL(chref,' HREF="'||chref||'"')||
224 IFNOTNULL(cnohref,' NOHREF')||
225 IFNOTNULL(ctarget,' TARGET="'||ctarget||'"')||
226 IFNOTNULL(cattributes,' '||cattributes)||
227 '>'); end;
228
229 function mapOpen(cname in varchar2,cattributes in varchar2 DEFAULT NULL) return varchar2 is
230 begin return('<MAP NAME="'||cname||'"'||
231 IFNOTNULL(cattributes,' '||cattributes)||
232 '>'); end;
233
234 function bgsound(csrc in varchar2,
235 cloop in varchar2 DEFAULT NULL,
236 cattributes in varchar2 DEFAULT NULL) return varchar2 is
237 begin return('<BGSOUND SRC="'||csrc||'"'||
238 IFNOTNULL(cloop,' LOOP="'||cloop||'"')||
239 IFNOTNULL(cattributes,' '||cattributes)||
240 '>');end;
241
242
243 function paragraph(calign in varchar2 DEFAULT NULL,
244 cnowrap in varchar2 DEFAULT NULL,
245 cclear in varchar2 DEFAULT NULL,
246 cattributes in varchar2 DEFAULT NULL) return varchar2 is
247 begin return('<P'||
248 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
249 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
250 IFNOTNULL(cnowrap,' NOWRAP')||
251 IFNOTNULL(cattributes,' '||cattributes)||
252 '>');
253 end;
254
255 function div( calign in varchar2 DEFAULT NULL,
256 cattributes in varchar2 DEFAULT NULL) return varchar2 is
257 begin return('<DIV'||
258 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
259 IFNOTNULL(cattributes,' '||cattributes)||
260 '>');
261 end;
262
263 function address(cvalue in varchar2,
264 cnowrap in varchar2 DEFAULT NULL,
265 cclear in varchar2 DEFAULT NULL,
266 cattributes in varchar2 DEFAULT NULL) return varchar2 is
267 begin return('<ADDRESS'||
268 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
269 IFNOTNULL(cnowrap,' NOWRAP')||
270 IFNOTNULL(cattributes,' '||cattributes)||
271 '>'||cvalue||
272 '</ADDRESS>'); end;
273
274 function comment(ctext in varchar2) return varchar2 is
275 begin return('<!-- '||ctext||' -->'); end;
276
277 function preOpen(cclear in varchar2 DEFAULT NULL,
278 cwidth in varchar2 DEFAULT NULL,
279 cattributes in varchar2 DEFAULT NULL) return varchar2 is
280 begin return('<PRE'||
281 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
282 IFNOTNULL(cwidth,' WIDTH="'||cwidth||'"')||
283 IFNOTNULL(cattributes,' '||cattributes)||
284 '>'); end;
285
286 function nobr(ctext in varchar2) return varchar2 is
287 begin return('<NOBR>'||ctext||'</NOBR>'); end;
288
289 function center(ctext in varchar2) return varchar2 is
290 begin return('<CENTER>'||ctext||'</CENTER>'); end;
291
292
293 function blockquoteOpen(cnowrap in varchar2 DEFAULT NULL,
294 cclear in varchar2 DEFAULT NULL,
295 cattributes in varchar2 DEFAULT NULL) return varchar2
296 is
297 begin return('<BLOCKQUOTE'||
298 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
299 IFNOTNULL(cnowrap,' NOWRAP')||
300 IFNOTNULL(cattributes,' '||cattributes)||
301 '>'); end;
302
303 /* LIST tags */
304 function listHeader(ctext in varchar2,
305 cattributes in varchar2 DEFAULT NULL) return varchar2 is
306 begin return('<LH'||
307 IFNOTNULL(cattributes,' '||cattributes)||
308 '>'||ctext||
309 '</LH>'); end;
310
311 function listItem(ctext in varchar2 DEFAULT NULL,
312 cclear in varchar2 DEFAULT NULL,
313 cdingbat in varchar2 DEFAULT NULL,
314 csrc in varchar2 DEFAULT NULL,
315 cattributes in varchar2 DEFAULT NULL) return varchar2 is
316 begin return('<LI'||
317 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
318 IFNOTNULL(cdingbat,' DINGBAT="'||cdingbat||'"')||
319 IFNOTNULL(csrc,' SRC="'||csrc||'"')||
320 IFNOTNULL(cattributes,' '||cattributes)||
321 '>'||ctext);
322 end;
323
324 function ulistOpen(cclear in varchar2 DEFAULT NULL,
325 cwrap in varchar2 DEFAULT NULL,
326 cdingbat in varchar2 DEFAULT NULL,
327 csrc in varchar2 DEFAULT NULL,
328 cattributes in varchar2 DEFAULT NULL) return varchar2 is
329 begin return('<UL'||
330 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
331 IFNOTNULL(cwrap,' WRAP="'||cwrap||'"')||
332 IFNOTNULL(cdingbat,' DINGBAT="'||cdingbat||'"')||
333 IFNOTNULL(csrc,' SRC="'||csrc||'"')||
334 IFNOTNULL(cattributes,' '||cattributes)||
335 '>');
336 end;
337
338 function olistOpen(cclear in varchar2 DEFAULT NULL,
339 cwrap in varchar2 DEFAULT NULL,
340 cattributes in varchar2 DEFAULT NULL) return varchar2 is
341 begin return('<OL'||
342 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
343 IFNOTNULL(cwrap,' WRAP="'||cwrap||'"')||
347
344 IFNOTNULL(cattributes,' '||cattributes)||
345 '>');
346 end;
348 function dlistOpen(cclear in varchar2 DEFAULT NULL,
349 cattributes in varchar2 DEFAULT NULL) return varchar2 is
350 begin return('<DL'||
351 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
352 IFNOTNULL(cattributes,' '||cattributes)||
353 '>');
354 end;
355
356 function dlistTerm(ctext in varchar2 DEFAULT NULL,
357 cclear in varchar2 DEFAULT NULL,
358 cattributes in varchar2 DEFAULT NULL) return varchar2 is
359 begin return('<DT'||
360 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
361 IFNOTNULL(cattributes,' '||cattributes)||
362 '>'||ctext);
363 end;
364
365 function dlistDef(ctext in varchar2 DEFAULT NULL,
366 cclear in varchar2 DEFAULT NULL,
367 cattributes in varchar2 DEFAULT NULL) return varchar2 is
368 begin return('<DD'||
369 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
370 IFNOTNULL(cattributes,' '||cattributes)||
371 '>'||ctext);
372 end;
373 /* END LIST tags */
374
375 /* SEMANTIC FORMAT ELEMENTS */
376 function dfn(ctext in varchar2,
377 cattributes in varchar2 DEFAULT NULL) return varchar2 is
378 begin return('<DFN'||
379 IFNOTNULL(cattributes,' '||cattributes)||
380 '>'||ctext||'</DFN>'); end;
381
382 function cite(ctext in varchar2,
383 cattributes in varchar2 DEFAULT NULL) return varchar2 is
384 begin return('<CITE'||
385 IFNOTNULL(cattributes,' '||cattributes)||
386 '>'||ctext||'</CITE>'); end;
387
388 function code(ctext in varchar2,
389 cattributes in varchar2 DEFAULT NULL) return varchar2 is
390 begin return('<CODE'||
391 IFNOTNULL(cattributes,' '||cattributes)||
392 '>'||ctext||'</CODE>'); end;
393
394 function em (ctext in varchar2,
395 cattributes in varchar2 DEFAULT NULL) return varchar2 is
396 begin return('<EM'||
397 IFNOTNULL(cattributes,' '||cattributes)||
398 '>'||ctext||'</EM>'); end;
399
400 function emphasis(ctext in varchar2,
401 cattributes in varchar2 DEFAULT NULL) return varchar2 is
402 begin return(em(ctext,cattributes)); end;
403
404 function kbd(ctext in varchar2,
405 cattributes in varchar2 DEFAULT NULL) return varchar2 is
406 begin return('<KBD'||
407 IFNOTNULL(cattributes,' '||cattributes)||
408 '>'||ctext||'</KBD>'); end;
409
410 function keyboard(ctext in varchar2,
411 cattributes in varchar2 DEFAULT NULL) return varchar2 is
412 begin return(kbd(ctext,cattributes)); end;
413
414 function sample(ctext in varchar2,
415 cattributes in varchar2 DEFAULT NULL) return varchar2 is
416 begin return('<SAMP'||
417 IFNOTNULL(cattributes,' '||cattributes)||
418 '>'||ctext||'</SAMP>'); end;
419
420 function strong (ctext in varchar2,
421 cattributes in varchar2 DEFAULT NULL) return varchar2 is
422 begin return('<STRONG'||
423 IFNOTNULL(cattributes,' '||cattributes)||
424 '>'||ctext||'</STRONG>'); end;
425
426 function variable(ctext in varchar2,
427 cattributes in varchar2 DEFAULT NULL) return varchar2 is
428 begin return('<VAR'||
429 IFNOTNULL(cattributes,' '||cattributes)||
430 '>'||ctext||'</VAR>'); end;
431
432 function big( ctext in varchar2,
433 cattributes in varchar2 DEFAULT NULL) return varchar2 is
434 begin return('<BIG'||
435 IFNOTNULL(cattributes,' '||cattributes)||
436 '>'||ctext||'</BIG>'); end;
437
438 function small( ctext in varchar2,
439 cattributes in varchar2 DEFAULT NULL) return varchar2 is
440 begin return('<SMALL'||
441 IFNOTNULL(cattributes,' '||cattributes)||
442 '>'||ctext||'</SMALL>'); end;
443
444 function sub( ctext in varchar2,
445 calign in varchar2 DEFAULT NULL,
446 cattributes in varchar2 DEFAULT NULL) return varchar2 is
447 begin return('<SUB'||
448 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
449 IFNOTNULL(cattributes,' '||cattributes)||
450 '>'||ctext||'</SUB>'); end;
451
452 function sup( ctext in varchar2,
453 calign in varchar2 DEFAULT NULL,
454 cattributes in varchar2 DEFAULT NULL) return varchar2 is
455 begin return('<SUP'||
456 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
457 IFNOTNULL(cattributes,' '||cattributes)||
458 '>'||ctext||'</SUP>'); end;
459
460 /* END SEMANTIC FORMAT ELEMENTS */
461
462 /* PHYSICAL FORMAT ELEMENTS */
463 function basefont(nsize in integer,
464 cattributes in varchar2 DEFAULT NULL) return varchar2 is
465 begin return('<BASEFONT SIZE="'||nsize||'"'||
466 IFNOTNULL(cattributes,' '||cattributes)||
467 '>'); end;
468
469
470 function fontOpen( ccolor in varchar2 DEFAULT NULL,
471 cface in varchar2 DEFAULT NULL,
472 csize in varchar2 DEFAULT NULL,
473 cattributes in varchar2 DEFAULT NULL) return varchar2 is
474 begin return('<FONT'||
475 IFNOTNULL(ccolor,' COLOR="'||ccolor||'"')||
476 IFNOTNULL(cface,' FACE="'||cface||'"')||
477 IFNOTNULL(csize,' SIZE="'||csize||'"')||
478 IFNOTNULL(cattributes,' '||cattributes)||
479 '>');end;
480
481 function bold (ctext in varchar2,
482 cattributes in varchar2 DEFAULT NULL) return varchar2 is
486
483 begin return('<B'||
484 IFNOTNULL(cattributes,' '||cattributes)||
485 '>'||ctext||'</B>'); end;
487 function italic (ctext in varchar2,
488 cattributes in varchar2 DEFAULT NULL) return varchar2 is
489 begin return('<I'||
490 IFNOTNULL(cattributes,' '||cattributes)||
491 '>'||ctext||'</I>'); end;
492
493 function teletype(ctext in varchar2,
494 cattributes in varchar2 DEFAULT NULL) return varchar2 is
495 begin return('<TT'||
496 IFNOTNULL(cattributes,' '||cattributes)||
497 '>'||ctext||'</TT>'); end;
498
499 function plaintext (ctext in varchar2,
500 cattributes in varchar2 DEFAULT NULL) return varchar2 is
501 begin return('<PLAINTEXT'||
502 IFNOTNULL(cattributes,' '||cattributes)||
503 '>'||ctext||'</PLAINTEXT>'); end;
504 function s (ctext in varchar2,
505 cattributes in varchar2 DEFAULT NULL) return varchar2 is
506 begin return('<S'||
507 IFNOTNULL(cattributes,' '||cattributes)||
508 '>'||ctext||'</S>'); end;
509 function strike (ctext in varchar2,
510 cattributes in varchar2 DEFAULT NULL) return varchar2 is
511 begin return('<STRIKE'||
512 IFNOTNULL(cattributes,' '||cattributes)||
513 '>'||ctext||'</STRIKE>'); end;
514 function underline (ctext in varchar2,
515 cattributes in varchar2 DEFAULT NULL) return varchar2 is
516 begin return('<U'||
517 IFNOTNULL(cattributes,' '||cattributes)||
518 '>'||ctext||'</U>'); end;
519 /* END PHYSICAL FORMAT ELEMENTS */
520
521
522 /* HTML FORMS */
523
524 function formOpen(curl in varchar2,
525 cmethod in varchar2 DEFAULT 'POST',
526 ctarget in varchar2 DEFAULT NULL,
527 cenctype in varchar2 DEFAULT NULL,
528 cattributes in varchar2 DEFAULT NULL) return varchar2 is
529 begin return('<FORM ACTION="'||curl||'" METHOD="'||cmethod||'"'||
530 IFNOTNULL(ctarget,' TARGET="'||ctarget||'"')||
531 IFNOTNULL(cenctype,' ENCTYPE="'||cenctype||'"')||
532 IFNOTNULL(cattributes,' '||cattributes)||
533 '>'); end;
534
535 function formCheckbox(cname in varchar2,
536 cvalue in varchar2 DEFAULT 'on',
537 cchecked in varchar2 DEFAULT NULL,
538 cattributes in varchar2 DEFAULT NULL) return varchar2 is
539 begin
540 return('<INPUT TYPE="checkbox" NAME="'||cname||'"'||
541 IFNOTNULL(cvalue,' VALUE="'||cvalue||'"')||
542 IFNOTNULL(cchecked,' CHECKED')||
543 IFNOTNULL(cattributes,' '||cattributes)||
544 '>');
545 end;
546
547 function formFile(cname in varchar2,
548 caccept in varchar2 DEFAULT NULL,
549 cattributes in varchar2 DEFAULT NULL) return varchar2 is
550 begin return('<INPUT TYPE="file"'||
551 IFNOTNULL(cname,' NAME="'||cname||'"')||
552 IFNOTNULL(caccept,' ACCEPT="'||caccept||'"')||
553 IFNOTNULL(cattributes,' '||cattributes)||
554 '>'); end;
555
556 function formHidden(cname in varchar2,
557 cvalue in varchar2 DEFAULT NULL,
558 cattributes in varchar2 DEFAULT NULL) return varchar2 is
559 begin
560 return('<INPUT TYPE="hidden" NAME="'||cname||'"'||' VALUE="'||cvalue||'"'||
561 IFNOTNULL(cattributes,' '||cattributes)||
562 '>');
563 end;
564
565 function formImage(cname in varchar2,
566 csrc in varchar2,
567 calign in varchar2 DEFAULT NULL,
568 cattributes in varchar2 DEFAULT NULL) return varchar2 is
569 begin return('<INPUT TYPE="image" NAME="'||cname||'"'||
570 ' SRC="'||csrc||'"'||
571 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
572 IFNOTNULL(cattributes,' '||cattributes)||
573 '>');
574 end;
575
576 function formPassword(cname in varchar2,
577 csize in varchar2 DEFAULT NULL,
578 cmaxlength in varchar2 DEFAULT NULL,
579 cvalue in varchar2 DEFAULT NULL,
580 cattributes in varchar2 DEFAULT NULL) return varchar2 is
581 begin
582 return('<INPUT TYPE="password" NAME="'||cname||'"'||
583 IFNOTNULL(csize,' SIZE="'||csize||'"')||
584 IFNOTNULL(cmaxlength,' MAXLENGTH="'||cmaxlength||'"')||
585 IFNOTNULL(cvalue,' VALUE="'||cvalue||'"')||
586 IFNOTNULL(cattributes,' '||cattributes)||
587 '>');
588 end;
589
590 function formRadio(cname in varchar2,
591 cvalue in varchar2,
592 cchecked in varchar2 DEFAULT NULL,
593 cattributes in varchar2 DEFAULT NULL) return varchar2 is
594 begin return('<INPUT TYPE="radio" NAME="'||cname||'"'||
595 ' VALUE="'||cvalue||'"'||
596 IFNOTNULL(cchecked,' CHECKED')||
597 IFNOTNULL(cattributes,' '||cattributes)||
598 '>');
599 end;
600
601 function formReset(cvalue in varchar2 DEFAULT 'Reset',
602 cattributes in varchar2 DEFAULT NULL) return varchar2 is
603 begin return('<INPUT TYPE="reset" VALUE="'||cvalue||'"'||
604 IFNOTNULL(cattributes,' '||cattributes)||
605 '>'); end;
606
607 function formSubmit(cname in varchar2 DEFAULT NULL,
608 cvalue in varchar2 DEFAULT 'Submit',
609 cattributes in varchar2 DEFAULT NULL) return varchar2 is
613 IFNOTNULL(cattributes,' '||cattributes)||
610 begin return('<INPUT TYPE="submit"'||
611 IFNOTNULL(cname,' NAME="'||cname||'"')||
612 IFNOTNULL(cvalue,' VALUE="'||cvalue||'"')||
614 '>'); end;
615
616 function formText(cname in varchar2,
617 csize in varchar2 DEFAULT NULL,
618 cmaxlength in varchar2 DEFAULT NULL,
619 cvalue in varchar2 DEFAULT NULL,
620 cattributes in varchar2 DEFAULT NULL) return varchar2 is
621 begin
622 return('<INPUT TYPE="text" NAME="'||cname||'"'||
623 IFNOTNULL(csize,' SIZE="'||csize||'"')||
624 IFNOTNULL(cmaxlength,' MAXLENGTH="'||cmaxlength||'"')||
625 IFNOTNULL(cvalue,' VALUE="'||cvalue||'"')||
626 IFNOTNULL(cattributes,' '||cattributes)||
627 '>');
628 end;
629
630 function formSelectOpen(cname in varchar2,
631 cprompt in varchar2 DEFAULT NULL,
632 nsize in integer DEFAULT NULL,
633 cattributes in varchar2 DEFAULT NULL) return varchar2 is
634 begin return(cprompt||
635 '<SELECT NAME="'||cname||'"'||
636 IFNOTNULL(nsize,' SIZE="'||nsize||'"')||
637 IFNOTNULL(cattributes,' '||cattributes)||
638 '>');
639 end;
640
641 function formSelectOption(cvalue in varchar2,
642 cselected in varchar2 DEFAULT NULL,
643 cattributes in varchar2) return varchar2 is
644 begin return('<OPTION'||
645 IFNOTNULL(cselected,' SELECTED')||
646 IFNOTNULL(cattributes,' '||cattributes)||
647 '>'||cvalue); end;
648
649 function formTextarea(cname in varchar2,
650 nrows in integer,
651 ncolumns in integer,
652 calign in varchar2 DEFAULT NULL,
653 cattributes in varchar2 DEFAULT NULL) return varchar2 is
654 begin return('<TEXTAREA NAME="'||cname||'"'||
655 ' ROWS='||to_char(nrows)||
656 ' COLS='||to_char(ncolumns)||
657 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
658 IFNOTNULL(cattributes,' '||cattributes)||
659 '></TEXTAREA>');
660 end;
661
662
663 function formTextarea2(cname in varchar2,
664 nrows in integer,
665 ncolumns in integer,
666 calign in varchar2 DEFAULT NULL,
667 cwrap in varchar2 DEFAULT NULL,
668 cattributes in varchar2 DEFAULT NULL) return varchar2 is
669 begin return('<TEXTAREA NAME="'||cname||'"'||
670 ' ROWS='||to_char(nrows)||
671 ' COLS='||to_char(ncolumns)||
672 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
673 IFNOTNULL(cwrap,' WRAP="'||cwrap||'"')||
674 IFNOTNULL(cattributes,' '||cattributes)||
675 '></TEXTAREA>');
676 end;
677
678 function formTextareaOpen(cname in varchar2,
679 nrows in integer,
680 ncolumns in integer,
681 calign in varchar2 DEFAULT NULL,
682 cattributes in varchar2 DEFAULT NULL) return varchar2
683 is
684 begin return('<TEXTAREA NAME="'||cname||'"'||
685 ' ROWS='||to_char(nrows)||
686 ' COLS='||to_char(ncolumns)||
687 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
688 IFNOTNULL(cattributes,' '||cattributes)||
689 '>');
690 end;
691
692
693 function formTextareaOpen2(cname in varchar2,
694 nrows in integer,
695 ncolumns in integer,
696 calign in varchar2 DEFAULT NULL,
697 cwrap in varchar2 DEFAULT NULL,
698 cattributes in varchar2 DEFAULT NULL) return varchar2
699 is
700 begin return('<TEXTAREA NAME="'||cname||'"'||
701 ' ROWS='||to_char(nrows)||
702 ' COLS='||to_char(ncolumns)||
703 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
704 IFNOTNULL(cwrap,' WRAP="'||cwrap||'"')||
705 IFNOTNULL(cattributes,' '||cattributes)||
706 '>');
707 end;
708 /* END HTML FORMS */
709
710 /* HTML TABLES */
711 function tableOpen(cborder in varchar2 DEFAULT NULL,
712 calign in varchar2 DEFAULT NULL,
713 cnowrap in varchar2 DEFAULT NULL,
714 cclear in varchar2 DEFAULT NULL,
715 cattributes in varchar2 DEFAULT NULL) return varchar2 is
716 begin return ('<TABLE '||
717 IFNOTNULL(cborder,' '||cborder)||
718 IFNOTNULL(cnowrap,' NOWRAP')||
719 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
720 IFNOTNULL(cclear,' CLEAR="'||cclear||'"')||
721 IFNOTNULL(cattributes,' '||cattributes)||
722 '>'); end;
723
724 function tableCaption(ccaption in varchar2,
725 calign in varchar2 DEFAULT NULL,
726 cattributes in varchar2 DEFAULT NULL) return varchar2 is
727 begin return ('<CAPTION'||
728 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
729 IFNOTNULL(cattributes,' '||cattributes)||
730 '>'||
731 ccaption||'</CAPTION>'); end;
732
733 function tableRowOpen(calign in varchar2 DEFAULT NULL,
734 cvalign in varchar2 DEFAULT NULL,
738 begin return ('<TR'||
735 cdp in varchar2 DEFAULT NULL,
736 cnowrap in varchar2 DEFAULT NULL,
737 cattributes in varchar2 DEFAULT NULL) return varchar2 is
739 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
740 IFNOTNULL(cvalign,' VALIGN="'||cvalign||'"')||
741 IFNOTNULL(cdp,' DP="'||cdp||'"')||
742 IFNOTNULL(cnowrap,' NOWRAP')||
743 IFNOTNULL(cattributes,' '||cattributes)||
744 '>'); end;
745
746 function tableHeader(cvalue in varchar2 DEFAULT NULL,
747 calign in varchar2 DEFAULT NULL,
748 cdp in varchar2 DEFAULT NULL,
749 cnowrap in varchar2 DEFAULT NULL,
750 crowspan in varchar2 DEFAULT NULL,
751 ccolspan in varchar2 DEFAULT NULL,
752 cattributes in varchar2 DEFAULT NULL) return varchar2 is
753 begin return ('<TH'||
754 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
755 IFNOTNULL(cdp,' DP="'||cdp||'"')||
756 IFNOTNULL(crowspan,' ROWSPAN="'||crowspan||'"')||
757 IFNOTNULL(ccolspan,' COLSPAN="'||ccolspan||'"')||
758 IFNOTNULL(cnowrap,' NOWRAP')||
759 IFNOTNULL(cattributes,' '||cattributes)||
760 '>'||
761 cvalue||'</TH>'); end;
762
763 function tableData(cvalue in varchar2 DEFAULT NULL,
764 calign in varchar2 DEFAULT NULL,
765 cdp in varchar2 DEFAULT NULL,
766 cnowrap in varchar2 DEFAULT NULL,
767 crowspan in varchar2 DEFAULT NULL,
768 ccolspan in varchar2 DEFAULT NULL,
769 cattributes in varchar2 DEFAULT NULL) return varchar2 is
770 begin return ('<TD'||
771 IFNOTNULL(calign,' ALIGN="'||calign||'"')||
772 IFNOTNULL(cdp,' DP="'||cdp||'"')||
773 IFNOTNULL(crowspan,' ROWSPAN="'||crowspan||'"')||
774 IFNOTNULL(ccolspan,' COLSPAN="'||ccolspan||'"')||
775 IFNOTNULL(cnowrap,' NOWRAP')||
776 IFNOTNULL(cattributes,' '||cattributes)||
777 '>'||
778 cvalue||'</TD>'); end;
779
780 function format_cell(
781 columnValue in varchar2, format_numbers in varchar2 default null
782 ) return varchar2 is
783 dummy number;
784 function tochar(d in number, f in varchar2) return varchar2 is
785 begin
786 return nvl(ltrim(to_char(d,f)), '(null)');
787 end tochar;
788 begin
789 if (format_numbers is NULL) then
790 return(tableData(columnValue));
791 end if;
792
793 dummy := to_number(columnValue);
794 if (trunc(dummy) = dummy) then
795 return(tableData(tochar(dummy,'999,999,999,999'), 'right'));
796 else
797 return(tableData(tochar(dummy,'999,999,990.99'), 'right'));
798 end if;
799 exception
800 when others then
801 return(tableData(nvl(columnValue, '(null)')));
802 end format_cell;
803 /* END HTML TABLES */
804
805 /* BEGIN HTML FRAMES - Netscape Extensions FRAMESET, FRAME tags */
806 function framesetOpen( crows in varchar2 DEFAULT NULL, /* row height value list */
807 ccols in varchar2 DEFAULT NULL,
808 cattributes in varchar2 DEFAULT NULL) return varchar2 is /* column width list */
809 begin
810 return('<FRAMESET'||
811 IFNOTNULL(crows, ' ROWS="'||crows||'"')||
812 IFNOTNULL(ccols, ' COLS="'||ccols||'"')||
813 IFNOTNULL(cattributes,' '||cattributes)||
814 '>');
815 end framesetOpen;
816
817
818 function frame( csrc in varchar2, /* URL */
819 cname in varchar2 DEFAULT NULL, /* Window name */
820 cmarginwidth in varchar2 DEFAULT NULL, /* value in pixels */
821 cmarginheight in varchar2 DEFAULT NULL, /* value in pixels */
822 cscrolling in varchar2 DEFAULT NULL, /* yes | no | auto */
823 cnoresize in varchar2 DEFAULT NULL,
824 cattributes in varchar2 DEFAULT NULL) return varchar2 is /* user cannot resize frame */
825 begin
826 return('<FRAME SRC="'||csrc||'"'||
827 IFNOTNULL(cname, ' NAME="'||cname||'"')||
828 IFNOTNULL(cmarginwidth, ' MARGINWIDTH="'||cmarginwidth||'"')||
829 IFNOTNULL(cmarginheight, ' MARGINHEIGHT="'||cmarginheight||'"')||
830 IFNOTNULL(cscrolling, ' SCROLLING="'||cscrolling||'"')||
831 IFNOTNULL(cnoresize, ' NORESIZE')||
832 IFNOTNULL(cattributes,' '||cattributes)||
833 '>');
834 end frame;
835
836
837 /* END HTML FRAMES */
838
839 /* SPECIAL HTML TAGS */
840 function appletOpen(ccode in varchar2,
841 cwidth in integer,
842 cheight in integer,
843 cattributes in varchar2 DEFAULT NULL) return varchar2 is
844 begin return('<APPLET CODE='||ccode||
845 ' WIDTH='||cwidth||
846 ' HEIGHT='||cheight||
847 IFNOTNULL(cattributes,' '||cattributes)||
848 '>');
849 end;
850
851 function param(cname in varchar2,
852 cvalue in varchar2) return varchar2 is
853 begin return('<PARAM NAME='||cname||' VALUE= "'||cvalue||
854 '" >');
855 end;
856
857 /* END SPECIAL HTML TAGS */
858
859 /* SPECIAL FUNCTIONS */
860 function escape_sc(ctext in varchar2) return varchar2 is
861 begin return(replace(
862 replace(
863 replace(
864 replace(ctext, '&', '&' ),
865 '"', '"'),
866 '<', '<' ),
867 '>', '>' ));
868 end;
869
870 function escape_url(p_url in varchar2) return varchar2 is
871 begin
872 return replace(escape_sc(p_url), '%', '%25');
873 end;
877 end;
874 /* END SPECIAL FUNCTIONS */
875
876 /* END BODY ELEMENT tags */