');
status := TRUE;
else
htp.p('
');
status := FALSE;
end if;
exception
when others then
status := FALSE;
wf_core.context('Wf_Forms', 'Applet', fname, port);
raise;
end Applet;
--
-- AppletWindow
-- Generate the applet window to call up a form
-- IN
-- fname - form function with format 'func1:PARAM1="&ID" PARAM2="&NAME"'
-- port - port listened by the socket listener
-- codebase - where the java classes can be located
-- code - name for the class
-- archive - first looks for java classes at this archive
--
procedure AppletWindow(fname in varchar2,
port in varchar2 ,
codebase in varchar2 ,
code in varchar2,
archive in varchar2 )
is
l_archive varchar2(2000) := Wf_Forms.java_loc||
'oracle/apps/fnd/jar/wffrm.jar,'||
Wf_Forms.java_loc||'oracle/apps/fnd/jar/fndewt.jar,'||
Wf_Forms.java_loc||'oracle/apps/fnd/jar/fndswing.jar,'||
Wf_Forms.java_loc||'oracle/apps/fnd/jar/fndbalishare.jar';
l_func varchar2(240);
l_colon pls_integer;
l_ie_plugin_ver varchar2(80); -- IE version is delimited by ','
begin
if (archive is not null) then
l_archive := archive;
end if;
l_colon := instr(fname, ':');
if (l_colon <> 0) then
l_func := substr(fname, 1, l_colon - 1);
else
l_func := fname;
end if;
htp.p('');
htp.p('');
htp.p('| '); l_ie_plugin_ver := replace(Wf_Core.translate('WF_PLUGIN_VERSION'), '.', ','); if (instr(UPPER(owa_util.get_cgi_env('HTTP_USER_AGENT')), 'WIN') > 0) then htp.p(''); else -- Client is not Windows, so we don't want to call Jinitiator. htp.p(''); end if; htp.p(' | '); htp.p(''||wf_core.translate('WFFRM_LOOK_IN_NAVIGATOR')||' | '); htp.p('
| '); htp.p(''); htp.p(' | '); htp.p('|
');
-- end if;
htp.p('');
htp.p('');
exception
when others then
wf_core.context('Wf_Forms', 'AppletWindow', fname, port);
raise;
end AppletWindow;
end WF_FORMS;
/
commit;
exit;