14: --
15: -- Error (PRIVATE)
16: -- Print a page with an error message.
17: -- Errors are retrieved from these sources in order: 18: -- 1. wf_core errors 19: -- 2. Oracle errors
20: -- 3. Unspecified INTERNAL error
21: --
22: procedure Error
Line 61: htp.title(wf_core.translate('WFA_LOGIN_REQUEST'));
57: -- Set the language to the default language for the system
58:
59: htp.htmlOpen;
60: htp.headOpen; 61: htp.title(wf_core.translate('WFA_LOGIN_REQUEST')); 62: wfa_html.create_help_function('wf/links/log.htm?LOGIN');
63: htp.headClose;
64: wfa_sec.Header(background_only=>FALSE, inc_lov_applet=>FALSE);
65:
Line 75: htp.header(4, wf_core.translate(message));
71: end if;
72:
73:
74: if (message is not null) then 75: htp.header(4, wf_core.translate(message)); 76: htp.br;
77: end if;
78:
79: htp.br;
123: htp.htmlClose;
124: exception
125: when others then
126: rollback; 127: wf_core.context('Wfa_Html', 'Login'); 128: wfa_html.Error;
129: end Login;
130:
131: --
Line 165: if (wf_core.error_name='WFSEC_USER_PASSWORD') then
161: begin
162: wfa_sec.CreateSession(username, password);
163: exception
164: when others then 165: if (wf_core.error_name='WFSEC_USER_PASSWORD') then 166: -- Bad username or password
167: wf_core.clear;
168: wfa_html.Login('WFA_ILLEGAL_IDP');
169: return;
Line 167: wf_core.clear;
163: exception
164: when others then
165: if (wf_core.error_name='WFSEC_USER_PASSWORD') then
166: -- Bad username or password 167: wf_core.clear; 168: wfa_html.Login('WFA_ILLEGAL_IDP');
169: return;
170: end if;
171: -- Raise any other error message
Line 203: wf_core.context('Wfa_Html', 'Viewer', user_id, password);
199:
200: exception
201: when others then
202: rollback; 203: wf_core.context('Wfa_Html', 'Viewer', user_id, password); 204: wfa_html.Error;
205: end Viewer;
206:
207:
Line 285: WFA_HTML.g_priority := WF_CORE.Translate('WFJSP_HIGH_PRIORITY');
281: return varchar2
282: as
283: begin
284: if (priority < 34) /* HIGH */ then 285: WFA_HTML.g_priority := WF_CORE.Translate('WFJSP_HIGH_PRIORITY'); 286: return(wfa_html.image_loc||'high.gif');
287: elsif (priority > 66) /* LOW */ then
288: WFA_HTML.g_priority := WF_CORE.Translate('WFJSP_LOW_PRIORITY');
289: return(wfa_html.image_loc||'low.gif');
Line 288: WFA_HTML.g_priority := WF_CORE.Translate('WFJSP_LOW_PRIORITY');
284: if (priority < 34) /* HIGH */ then
285: WFA_HTML.g_priority := WF_CORE.Translate('WFJSP_HIGH_PRIORITY');
286: return(wfa_html.image_loc||'high.gif');
287: elsif (priority > 66) /* LOW */ then 288: WFA_HTML.g_priority := WF_CORE.Translate('WFJSP_LOW_PRIORITY'); 289: return(wfa_html.image_loc||'low.gif');
290: else /* NORMAL */
291: return null;
292: end if;
Line 385: Wf_Core.Token('NID', nid);
381: from WF_NOTIFICATIONS WN
382: where WN.NOTIFICATION_ID = nid;
383: exception
384: when no_data_found then 385: Wf_Core.Token('NID', nid); 386: Wf_Core.Raise('WFNTF_NID');
387: end;
388:
389: -- Verify this notification was sent to this user
Line 386: Wf_Core.Raise('WFNTF_NID');
382: where WN.NOTIFICATION_ID = nid;
383: exception
384: when no_data_found then
385: Wf_Core.Token('NID', nid); 386: Wf_Core.Raise('WFNTF_NID'); 387: end;
388:
389: -- Verify this notification was sent to this user
390: -- Note that username could be the in the recipient role
Line 471: admin_role := wf_core.translate('WF_ADMIN_ROLE');
467: exception
468: when no_data_found then
469: -- Check if current user has WF_ADMIN_ROLE privileges.
470: -- If so, allow access anyway. 471: admin_role := wf_core.translate('WF_ADMIN_ROLE'); 472: if (admin_role <> '*' and
473: not Wf_Directory.IsPerformer(username, admin_role)) then
474: Wf_Core.Token('USER', username);
475: Wf_Core.Token('NID', to_char(nid));
Line 474: Wf_Core.Token('USER', username);
470: -- If so, allow access anyway.
471: admin_role := wf_core.translate('WF_ADMIN_ROLE');
472: if (admin_role <> '*' and
473: not Wf_Directory.IsPerformer(username, admin_role)) then 474: Wf_Core.Token('USER', username); 475: Wf_Core.Token('NID', to_char(nid));
476: Wf_Core.Raise('WFNTF_ACCESS_USER');
477: end if;
478: end;
Line 475: Wf_Core.Token('NID', to_char(nid));
471: admin_role := wf_core.translate('WF_ADMIN_ROLE');
472: if (admin_role <> '*' and
473: not Wf_Directory.IsPerformer(username, admin_role)) then
474: Wf_Core.Token('USER', username); 475: Wf_Core.Token('NID', to_char(nid)); 476: Wf_Core.Raise('WFNTF_ACCESS_USER');
477: end if;
478: end;
479: else
Line 476: Wf_Core.Raise('WFNTF_ACCESS_USER');
472: if (admin_role <> '*' and
473: not Wf_Directory.IsPerformer(username, admin_role)) then
474: Wf_Core.Token('USER', username);
475: Wf_Core.Token('NID', to_char(nid)); 476: Wf_Core.Raise('WFNTF_ACCESS_USER'); 477: end if;
478: end;
479: else
480: -- Nkey passed, means this must be disconnected (mailed html).
Line 499: wf_core.raise('WFNTF_ACCESS_KEY');
495: end if;
496:
497: username := Wf_Notification.AccessCheck(wfsession);
498: if (username is null) then 499: wf_core.raise('WFNTF_ACCESS_KEY'); 500: end if;
501: end if;
502:
503: return(username);
Line 507: wf_core.context('Wfa_Html', 'Authenticate', to_char(nid), nkey);
503: return(username);
504:
505: exception
506: when others then 507: wf_core.context('Wfa_Html', 'Authenticate', to_char(nid), nkey); 508: raise;
509: end Authenticate;
510:
511: --
Line 667: wf_core.context('Wfa_Html', 'RespFrameSize', to_char(nid));
663: return(respsize);
664:
665: exception
666: when others then 667: wf_core.context('Wfa_Html', 'RespFrameSize', to_char(nid)); 668: raise;
669: end RespFrameSize;
670:
671: --
Line 731: htf.title(wf_core.translate('WFA_DTITLE')||' '||realname)||
727: result := htf.htmlOpen ||g_newLine;
728: result := result || htf.headOpen||g_newLine;
729: if (status = 'OPEN') then
730: result := result || 731: htf.title(wf_core.translate('WFA_DTITLE')||' '||realname)|| 732: g_newLine;
733: else
734: result := result ||
735: htf.title(wf_core.translate('WFA_CDTITLE')||' '||realname)||
Line 735: htf.title(wf_core.translate('WFA_CDTITLE')||' '||realname)||
731: htf.title(wf_core.translate('WFA_DTITLE')||' '||realname)||
732: g_newLine;
733: else
734: result := result || 735: htf.title(wf_core.translate('WFA_CDTITLE')||' '||realname)|| 736: g_newLine;
737: end if;
738:
739: --tr: dont execute the help function
Line 753: WF_CORE.Translate('WFA_DTITLE_TBAR') || '" LONGDESC="' ||
749: -- NOTE: Do NOT set the focus here, because it is not supported on
750: -- all platforms, and it is unknown at this point what browser will
751: -- be used to display the html returned to the mailer.
752: result := result||'
'||g_newLine;
772: result := result || htf.htmlClose;
Line 786: htf.title(wf_core.translate('WFA_LOGIN_REQUEST'))||
782:
783: result := htf.htmlOpen ||g_newLine;
784: result := result || htf.headOpen||g_newLine;
785: result := result || 786: htf.title(wf_core.translate('WFA_LOGIN_REQUEST'))|| 787: g_newLine;
788: result := result || htf.headClose||g_newLine;
789:
790: result := result||'