andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Scheme Changes:

Browse Source 
Replaced Access_Controls with APEX_AUTHORISATION
Created POSTCODES, ERROR_LOGS and SYSTEM_CONFIGURATION.
Added missing columns to ENQUIRIES, REGULATORS, etc.
Added views V_PROFILE_RT_CODE_FOR_ENRO.vw, V_PARTY_RELATIONSHIPS.vw, V_LATEST_RT_CODE_FOR_ENRO.vw.

Modules:

Added cout_err.pck, cout_system_configuration.pck.

Data:

Added Data/Demo files
Added Data/Seed files for postcodes, regions and DatabaseItemToFunctionalSpecificationReference.csv

Documentation:

Added Documentation/pldoc for plsqldoc-generated files.
Added Documentation/SupportingDocumentation/Regions to hold region definition information.

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@2890 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2007-11-27 11:48:13 +00:00
parent 2a490afbbc
commit 2920f4d016
49 changed files with 18360 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
Modules/Modules.sql
View File

@@ -10,5 +10,6 @@ set define off
@@mip_regions.pck
@@cout_assert.pck
@@cout_err.pck
@@cout_system_configuration.pck
exit

26
Modules/cout_err.pck
View File

@@ -78,8 +78,6 @@ CREATE OR REPLACE PACKAGE BODY cout_err IS
g_file VARCHAR2(2000) := 'err.log';
g_dir VARCHAR2(2000) := '/export/home/mcdonald/INBOX';
g_tapi_exception_number CONSTANT NUMBER := -20999;
PROCEDURE pl(p_msg VARCHAR2) IS
l_start NUMBER := 1;
l_len CONSTANT NUMBER := 255;
@@ -201,26 +199,7 @@ CREATE OR REPLACE PACKAGE BODY cout_err IS
l_err_loc VARCHAR2(240);
BEGIN
IF p_exception_number = g_tapi_exception_number THEN
IF cg$errors.pop_head(msg => l_err_msg
,error => l_err_error
,msg_type => l_err_msg_type
,msgid => l_err_msgid
,loc => l_err_loc) THEN
p_message := l_err_msg;
p_exme_type := substr(l_err_error
,1
,1);
cg$errors.push(msg => l_err_msg
,error => l_err_error
,msg_type => l_err_msg_type
,msgid => l_err_msgid
,loc => l_err_loc);
ELSE
p_message := 'Unable to retrieve TAPI error';
p_exme_type := 'E';
END IF;
ELSE
BEGIN
SELECT to_char(abs(exception_number)) || ': ' || message
,exme_type
@@ -244,8 +223,7 @@ CREATE OR REPLACE PACKAGE BODY cout_err IS
,p_substitution_list(l_index));
l_index := p_substitution_list.NEXT(l_index);
END LOOP;
END IF;
END get_exception_message;
PROCEDURE log(p_exception_number IN PLS_INTEGER := NULL

121
Modules/cout_system_configuration.pck Normal file
View File

@@ -0,0 +1,121 @@
CREATE OR REPLACE PACKAGE cout_system_configuration IS
/**
-- Package containing the common utility system configuration routines used by the Access Manager application
-- #version $Revision: $
-- #author Andy Hardy
*/
/*
$Header: $ Logfile, Revision, Date, Author
$Modtime: $ Date and time of last modification
$History: $
*/
/** Default date format for stored configuration items*/
g_date_format CONSTANT VARCHAR2(80) := 'DD/MM/YYYY HH24:MI:SS';
/** Add a date configuration item
#param p_parameter The name of the configuration item
#param p_value The value to be given to the configuration item
#param p_description The description of the configuration item
*/
PROCEDURE add_configuration_item_date(p_parameter IN system_configuration.parameter%TYPE
,p_value IN DATE
,p_description IN system_configuration.description%TYPE := NULL);
/** Add a non-date configuration item
#param p_parameter The name of the configuration item
#param p_value The value to be given to the configuration item
#param p_description The description of the configuration item
*/
PROCEDURE add_configuration_item(p_parameter IN system_configuration.parameter%TYPE
,p_value IN system_configuration.VALUE%TYPE DEFAULT NULL
,p_description IN system_configuration.description%TYPE := NULL);
/** Get a date configuration item
#param p_parameter The name of the configuration item to be retrieved
#return Value of the configuration item as a date
*/
FUNCTION get_configuration_item_date(p_parameter IN system_configuration.parameter%TYPE)
RETURN DATE;
/** Get a configuration item
#param p_parameter The name of the configuration item to be retrieved
#return Value of the configuration item
*/
FUNCTION get_configuration_item(p_parameter IN system_configuration.parameter%TYPE)
RETURN system_configuration.VALUE%TYPE;
END cout_system_configuration;
/
CREATE OR REPLACE PACKAGE BODY cout_system_configuration IS
-- Author : HARDYA
-- Created : 25/08/2004 14:22:59
-- Purpose : Enter default system configuration details into the SYSTEM_CONFIGURATION table
/*
$Header: $ Logfile, Revision, Date, Author
25/08/2004: $ Date and time of last checkin
$Modtime: $ Date and time of last modification
$History: $
*/
PROCEDURE add_configuration_item(p_parameter IN system_configuration.parameter%TYPE
,p_value IN system_configuration.VALUE%TYPE DEFAULT NULL
,p_description IN system_configuration.description%TYPE := NULL) IS
BEGIN
INSERT INTO system_configuration
(parameter
,VALUE
,description)
VALUES
(upper(p_parameter)
,p_value
,p_description);
EXCEPTION
WHEN dup_val_on_index THEN
UPDATE system_configuration
SET VALUE = p_value
WHERE parameter = p_parameter;
END add_configuration_item;
PROCEDURE add_configuration_item_date(p_parameter IN system_configuration.parameter%TYPE
,p_value IN DATE
,p_description IN system_configuration.description%TYPE := NULL) IS
BEGIN
add_configuration_item(p_parameter => p_parameter
,p_value => to_char(p_value
,g_date_format)
,p_description => p_description);
END add_configuration_item_date;
FUNCTION get_configuration_item(p_parameter IN system_configuration.parameter%TYPE)
RETURN system_configuration.VALUE%TYPE IS
l_value system_configuration.VALUE%TYPE;
BEGIN
SELECT VALUE
INTO l_value
FROM system_configuration
WHERE parameter = upper(p_parameter);
RETURN l_value;
EXCEPTION
WHEN no_data_found THEN
RETURN NULL;
END get_configuration_item;
FUNCTION get_configuration_item_date(p_parameter IN system_configuration.parameter%TYPE)
RETURN DATE IS
l_value system_configuration.VALUE%TYPE;
BEGIN
l_value := get_configuration_item(p_parameter);
RETURN to_date(l_value
,g_date_format);
END get_configuration_item_date;
END cout_system_configuration;
/

12
Modules/mip_security.pck
View File

@@ -16,12 +16,23 @@ CREATE OR REPLACE PACKAGE mip_security AS
,p_session_id IN VARCHAR2
,p_flow_page IN VARCHAR2);
/** Generate a hash from the given username and password
The system does not record users passwords 'in the plain', instead we
recordThe resultant hash is recorded as the username 'password hash'
*/
FUNCTION get_hash(p_username IN VARCHAR2
,p_password IN VARCHAR2) RETURN VARCHAR2;
/**
%obs private function
*/
PROCEDURE valid_user2(p_username IN VARCHAR2
,p_password IN VARCHAR2);
/**
%obs replaced by authenticate_user
*/
FUNCTION valid_user(p_username IN VARCHAR2
,p_password IN VARCHAR2) RETURN BOOLEAN;
@@ -209,6 +220,7 @@ CREATE OR REPLACE PACKAGE BODY mip_security AS
FUNCTION valid_user(p_username IN VARCHAR2
,p_password IN VARCHAR2) RETURN BOOLEAN AS
BEGIN
htp.bold('YOU SENT ME :' || p_username || ':' || p_password);
valid_user2(p_username
,p_password);
RETURN TRUE;