[Home] [Help]
PACKAGE BODY: APPS.POS_TOOLBAR_SV
Source
1 PACKAGE BODY POS_TOOLBAR_SV AS
2 /* $Header: POSTLBRB.pls 115.3 2001/10/30 16:27:56 pkm ship $*/
3
4
5 /* -------------- Private Procedures -------------- */
6 PROCEDURE InitializeToolbar;
7 PROCEDURE CloseToolbar;
8 PROCEDURE PaintToolbarEdge;
9 PROCEDURE PaintCancel;
10 PROCEDURE PaintTitle(p_title VARCHAR2);
11 PROCEDURE PaintDivider;
12 PROCEDURE PaintSave;
13 PROCEDURE PaintPrint;
14 PROCEDURE PaintReload;
15 PROCEDURE PaintStop;
16 PROCEDURE PaintUserPref;
17 PROCEDURE PaintHelp;
18 PROCEDURE PaintAppsLogo;
19
20
21
22 /* -------------- Private Procedure Implementation -------------- */
23
24 /* InitializeToolbar
25 * -----------------
26 */
27 PROCEDURE InitializeToolbar IS
28 BEGIN
29
30 htp.p('<!--Outer table containing toolbar and logo cells-->');
31 htp.p('<TABLE width=100% Cellpadding=0 Cellspacing=0 border=0>');
32 htp.p('<TR>');
33 htp.p(' <td width=10></td> <!--spacer cell-->');
34 htp.p(' <td>');
35
36 END InitializeToolbar;
37
38
39 /* CloseToolbar
40 * ------------
41 */
42 PROCEDURE CloseToolbar IS
43 BEGIN
44
45 htp.p('</TR>');
46 htp.p('</TABLE>');
47
48 END CloseToolbar;
49
50
51 /* PaintToolbarEdge
52 * ----------------
53 */
54 PROCEDURE PaintToolbarEdge IS
55 BEGIN
56
57 htp.p('<tr>');
58 htp.p(' <td rowspan=3><img src=/OA_MEDIA/FNDGTBL.gif></td>');
59 htp.p(' <td bgcolor=#ffffff height=1 colspan=3>
60 <img src=/OA_MEDIA/FNDPX6.gif></td>');
61 htp.p(' <td rowspan=3><img src=/OA_MEDIA/FNDGTBR.gif></td>');
62 htp.p('</tr>');
63
64 END PaintToolbarEdge;
65
66
67 /* PaintCancel
68 * -----------
69 */
70 PROCEDURE PaintCancel IS
71 BEGIN
72
73 htp.p('<td bgcolor=#cccccc nowrap height=30 align=middle>');
74 -- need javascript link here
75 htp.p('<a href="javascript:top.cancelClicked()"
76 onmousedown = "document.cancel.src=cancel_down.src"
77 onmouseover = "document.cancel.src=cancel_over.src"
78 onmouseout = "document.cancel.src=cancel_out.src">');
79 htp.p('<script>document.write("<img name = cancel src = /OA_MEDIA/FNDIWHOM.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_CANCEL"] + "''>") </script></a>');
80
81 PaintDivider;
82 htp.p('</td>');
83
84 END PaintCancel;
85
86
87 /* PaintTitle
88 * ----------
89 */
90 PROCEDURE PaintTitle(p_title VARCHAR2) IS
91 BEGIN
92
93 htp.p('<td bgcolor=#cccccc nowrap height=30 align=middle>');
94 htp.p(' <font class=dropdownmenu>');
95 htp.p(' ' ||
96 nvl(fnd_message.get_string('ICX', p_title), p_title) ||
97 ' ');
98 htp.p(' </font>');
99 htp.p('</td>');
100
101 END PaintTitle;
102
103
104 /* PaintDivider
105 * ------------
106 */
107 PROCEDURE PaintDivider IS
108 BEGIN
109
110 htp.p('<img src=/OA_MEDIA/FNDIWDVD.gif align=absmiddle>');
111
112 END PaintDivider;
113
114
115 /* PaintSave
116 * ---------
117 */
118 PROCEDURE PaintSave IS
119 BEGIN
120
121 -- need javascript link
122 --htp.p('<img src=/OA_MEDIA/FNDIWSAV.gif border=no align=absmiddle></a>');
123 -- disable button for the mean time
124 /*
125 htp.p('<a href = ""
126 onMouseDown = "document.save.src=save_down.src"
127 onMouseOver = "document.save.src=save_over.src"
128 onMouseOut = "document.save.src=save_out.src">');
129 */
130 htp.p('<script>document.write("<img name = save src = /OA_MEDIA/FNDIWSAD.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_SAVE"] + "''>") </script></a>');
131
132 END PaintSave;
133
134
135 /* PaintPrint
136 * ----------
137 */
138 PROCEDURE PaintPrint IS
139 BEGIN
140
141 -- need javascript link
142 --htp.p('<img src=/OA_MEDIA/FNDIWPRT.gif border=no align=absmiddle></a>');
143 htp.p('<a href = "javascript:top.printWindow()"
144 onMouseDown = "document.print.src=print_down.src"
145 onMouseOver = "document.print.src=print_over.src"
146 onMouseOut = "document.print.src=print_out.src">');
147 htp.p('<script>document.write("<img name = print src = /OA_MEDIA/FNDIWPRT.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_PRINT"] + "''>") </script></a>');
148
149 END PaintPrint;
150
151
152 /* PaintReload
153 * -----------
154 */
155 PROCEDURE PaintReload IS
156 BEGIN
157
158 -- need javascript link
159 --htp.p('<img src=/OA_MEDIA/FNDIWRLD.gif border=no align=absmiddle></a>');
160 htp.p('<a href = "javascript:top.refreshFrame()"
161 onMouseDown = "document.reload.src=reload_down.src"
162 onMouseOver = "document.reload.src=reload_over.src"
163 onMouseOut = "document.reload.src=reload_out.src">');
164 htp.p('<script>document.write("<img name = reload src = /OA_MEDIA/FNDIWRLD.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_RELOAD"] + "''>") </script></a>');
165
166 END PaintReload;
167
168
169 /* PaintStop
170 * ---------
171 */
172 PROCEDURE PaintStop IS
173 BEGIN
174
175 -- need javascript link
176 --htp.p('<img src=/OA_MEDIA/FNDIWSTP.gif border=no align=absmiddle></a>');
177 htp.p('<a href = "javascript:top.stopLoading()"
178 onMouseDown = "document.stop.src=stop_down.src"
179 onMouseOver = "document.stop.src=stop_over.src"
180 onMouseOut = "document.stop.src=stop_out.src">');
181 htp.p('<script>document.write("<img name = stop src = /OA_MEDIA/FNDIWSTP.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_STOP"] + "''>") </script></a>');
182
183 END PaintStop;
184
185
186 /* PaintUserPref
187 * -------------
188 */
189 PROCEDURE PaintUserPref IS
190 BEGIN
191
192 -- need javascript link
193 -- htp.p('<img src=/OA_MEDIA/FNDIWPPR.gif border=no align=absmiddle></a>');
194 -- disable button for the mean time...
195 /*
196 htp.p('<a href = ""
197 onMouseDown = "document.prefs.src=prefs_down.src"
198 onMouseOver = "document.prefs.src=prefs_over.src"
199 onMouseOut = "document.prefs.src=prefs_out.src">');
200 */
201 htp.p('<script>document.write("<img name = prefs src = /OA_MEDIA/FNDIWPPD.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_PREFS"] + "''>") </script></a>');
202
203 END PaintUserPref;
204
205
206 /* PaintHelp
207 * ---------
208 */
209 PROCEDURE PaintHelp IS
210 BEGIN
211
212 -- iHelp javascript link
213 js.scriptOpen;
214 icx_admin_sig.help_win_script('smp_top',
215 icx_sec.getID(icx_sec.PV_LANGUAGE_CODE));
216 js.scriptClose;
217
218 htp.p('<a href = "javascript:help_window()"
219 onMouseDown = "document.help.src=help_down.src"
220 onMouseOver = "document.help.src=help_over.src"
221 onMouseOut = "document.help.src=help_out.src">');
222 htp.p('<script>document.write("<img name = help src = /OA_MEDIA/FNDIWHLP.gif border=no align=absmiddle alt = ''" + window.top.FND_MESSAGES["ICX_POS_TLB_HELP"] + "''>") </script></a>');
223
224 END PaintHelp;
225
226
227 /* PaintToolbarBottom
228 * ------------------
229 */
230 PROCEDURE PaintToolbarBottom IS
231 BEGIN
232
233 htp.p('<tr>');
234 htp.p(' <td bgcolor=#666666 height=1 colspan=3>
235 <img src=/OA_MEDIA/FNDPX1.gif></td>');
236 htp.p('</tr>');
237
238 END PaintToolbarBottom;
239
240
241
242 /* PaintAppsLogo
243 * -------------
244 */
245 PROCEDURE PaintAppsLogo IS
246 BEGIN
247
248 htp.p('<TD rowspan=5 width=100% align=right>
249 <IMG src=/OA_MEDIA/FNDLWAPP.gif></TD>');
250
251 END PaintAppsLogo;
252
253
254
255
256
257 /* -------------- Public Procedure Implementation -------------- */
258
259 /* PaintToolBar
260 * ------------
261 */
262 PROCEDURE PaintToolBar(p_title VARCHAR2) IS
263 BEGIN
264
265 IF NOT icx_sec.validatesession THEN
266 RETURN;
267 END IF;
268
269 htp.htmlOpen;
270 -- don't think i really need this title
271 htp.title('Web Suppliers Toolbar');
272
273 htp.headOpen;
274 htp.linkRel('STYLESHEET', '/OA_HTML/US/POSSTYLE.css');
275
276 htp.p(' <script src="/OA_HTML/POSICONS.js" language="JavaScript">');
277 htp.p(' </script>');
278
279 htp.headClose;
280
281 htp.bodyOpen(NULL,'bgcolor=#336699');
282
283 InitializeToolbar;
284
285 htp.p('<!--inner table to define toolbar-->');
286 htp.p('<table Cellpadding=0 Cellspacing=0 Border=0>');
287 PaintToolbarEdge;
288 PaintCancel;
289
290 PaintTitle(p_title);
291
292 htp.p('<td bgcolor=#cccccc nowrap height=30 align=middle>');
293 PaintDivider;
294 -- PaintSave;
295 PaintPrint;
296 PaintDivider;
297
298 PaintReload;
299 PaintStop;
300 PaintDivider;
301
302 -- PaintUserPref;
303 -- PaintDivider;
304 PaintHelp;
305
306 PaintToolbarBottom;
307 htp.p('</td>');
308 htp.p('</table>');
309
310
311 PaintAppsLogo;
312
313 CloseToolbar;
314
315
316 htp.bodyClose;
317 htp.htmlClose;
318
319 END PaintToolBar;
320
321
322
323 END POS_TOOLBAR_SV;