begin;
CREATE OR REPLACE FUNCTION person_save
(in_entity_id integer, in_salutation_id int,
in_first_name text, in_middle_name text, in_last_name text
)
RETURNS INT AS $$
DECLARE
e_id int;
e entity;
loc location;
l_id int;
p_id int;
BEGIN
select * into e from entity where id = in_entity_id and entity_class = 3;
e_id := in_entity_id;
IF NOT FOUND THEN
INSERT INTO entity (name, entity_class)
values (in_first_name || ' ' || in_last_name, 3);
e_id := currval('entity_id_seq');
END IF;
UPDATE person SET
salutation_id = in_salutation_id,
first_name = in_first_name,
last_name = in_last_name,
middle_name = in_middle_name
WHERE
entity_id = in_entity_id;
IF FOUND THEN
RETURN in_entity_id;
ELSE
-- Do an insert
INSERT INTO person (salutation_id, first_name, last_name, entity_id)
VALUES (in_salutation_id, in_first_name, in_last_name, e_id);
RETURN e_id;
END IF;
END;
$$ language plpgsql;
CREATE OR REPLACE FUNCTION employee__save
(in_entity_id int, in_start_date date, in_end_date date, in_dob date,
in_role text, in_ssn text, in_sales bool, in_manager_id int, in_employee_number text)
RETURNS int AS $$
DECLARE out_id INT;
BEGIN
UPDATE entity_employee
SET startdate = in_start_date,
enddate = in_end_date,
dob = in_dob,
role = in_role,
ssn = in_ssn,
manager_id = in_manager_id,
employeenumber = in_employee_number,
person_id = (select id FROM person
WHERE entity_id = in_entity_id)
WHERE entity_id = in_entity_id;
out_id = in_entity_id;
IF NOT FOUND THEN
INSERT INTO entity_employee
(startdate, enddate, dob, role, ssn, manager_id,
employeenumber, entity_id, person_id)
VALUES
(in_start_date, in_end_date, in_dob, in_role, in_ssn,
in_manager_id, in_employee_number, in_entity_id,
(SELECT id FROM person
WHERE entity_id = in_entity_id));
RETURN in_entity_id;
END IF;
END;
$$ LANGUAGE PLPGSQL;
CREATE OR REPLACE FUNCTION person__list_locations(in_entity_id int)
RETURNS SETOF location_result AS
$$
DECLARE out_row RECORD;
BEGIN
FOR out_row IN
SELECT l.id, l.line_one, l.line_two, l.line_three, l.city,
l.state, l.mail_code, c.name, lc.class
FROM location l
JOIN person_to_location ctl ON (ctl.location_id = l.id)
JOIN person p ON (ctl.person_id = p.id)
JOIN location_class lc ON (ctl.location_class = lc.id)
JOIN country c ON (c.id = l.country_id)
WHERE p.entity_id = in_entity_id
ORDER BY lc.id, l.id, c.name
LOOP
RETURN NEXT out_row;
END LOOP;
END;
$$ LANGUAGE PLPGSQL;
CREATE OR REPLACE FUNCTION person__list_contacts(in_entity_id int)
RETURNS SETOF contact_list AS
$$
DECLARE out_row RECORD;
BEGIN
FOR out_row IN
SELECT cc.class, c.description, c.contact
FROM person_to_contact c
JOIN contact_class cc ON (c.contact_class_id = cc.id)
JOIN person p ON (c.person_id = p.id)
WHERE p.entity_id = in_entity_id
LOOP
RETURN NEXT out_row;
END LOOP;
END;
$$ LANGUAGE plpgsql;
CREATE OR REPLACE FUNCTION person__save_contact
(in_entity_id int, in_contact_class int, in_contact text)
RETURNS INT AS
$$
DECLARE out_id int;
BEGIN
INSERT INTO person_to_contact(person_id, contact_class_id, contact)
SELECT id, in_contact_class, in_contact FROM person
WHERE entity_id = in_entity_id;
RETURN 1;
END;
$$ LANGUAGE PLPGSQL;
create or replace function person_location_save(
in_entity_id int, in_location_id int,
in_line_one text, in_line_two text,
in_line_three text, in_city TEXT, in_state TEXT, in_mail_code text,
in_country_code int
) returns int AS $$
DECLARE
l_row location;
l_id INT;
t_person_id int;
BEGIN
SELECT id INTO t_person_id
FROM person WHERE entity_id = in_entity_id;
DELETE FROM person_to_location
WHERE person_id = t_person_id
AND location_id = in_location_id;
SELECT location_save(in_line_one, in_line_two, in_line_three, in_city,
in_state, in_mail_code, in_country_code)
INTO l_id;
INSERT INTO person_to_location
(person_id, location_id)
VALUES (t_person_id, l_id);
RETURN l_id;
END;
$$ language 'plpgsql';
commit;
f%24f374a8d0%240b01a8c0@FUZZY/inbox| 0 | |
| -rw-r--r-- | tags/b2/38/00a301c3a18f%24f374a8d0%240b01a8c0@FUZZY/old | 0 | |
| -rw-r--r-- | tags/b2/38/163643586456.384345.8352764039719673761.reportbug@delta-one/debian | 0 | |
| -rw-r--r-- | tags/b2/38/163643586456.384345.8352764039719673761.reportbug@delta-one/unread | 0 | |
| -rw-r--r-- | tags/b2/38/165273163967.18990.5346245965338071656.reportbug@localhost/debian | 0 | |
| -rw-r--r-- | tags/b2/38/165273163967.18990.5346245965338071656.reportbug@localhost/unread | 0 | |
| -rw-r--r-- | tags/b2/38/20120222132447.GA6277@afflict.kos.to/debian | 0 | |
| -rw-r--r-- | tags/b2/38/20130830223028.874BD22DC9@db/sys | 0 | |
| -rw-r--r-- | tags/b2/38/20130830223028.874BD22DC9@db/unread | 0 | |
| -rw-r--r-- | tags/b2/38/20180319220213.026301C0A4@jawa.homebase.dk/hb | 0 | |
| -rw-r--r-- | tags/b2/38/20180319220213.026301C0A4@jawa.homebase.dk/sys | 0 | |
| -rw-r--r-- | tags/b2/38/20180319220213.026301C0A4@jawa.homebase.dk/unread | 0 | |
| -rw-r--r-- | tags/b2/38/20180918230001.C01811CD44D@lxp5.free-owl.de/sys | 0 | |
| -rw-r--r-- | tags/b2/38/20180918230001.C01811CD44D@lxp5.free-owl.de/unread | 0 | |
| -rw-r--r-- | tags/b2/38/20190807220002.0A3E11CD2CE@lxp5.free-owl.de/sys | 0 | |
| -rw-r--r-- | tags/b2/38/20190807220002.0A3E11CD2CE@lxp5.free-owl.de/unread | 0 | |
| -rw-r--r-- | tags/b2/38/20210906102837.2190387-4-martin.kepplinger@puri.sm/unread | 0 | |
| -rw-r--r-- | tags/b2/38/4A95D145.2050800@hiroshima-is.ac.jp/debian | 0 | |
| -rw-r--r-- | tags/b2/38/50C86F75.2090109@swissmail.org/openmoko | 0 | |
| -rw-r--r-- | tags/b2/38/50C86F75.2090109@swissmail.org/unread | 0 | |
| -rw-r--r-- | tags/b2/38/72d5c8fd0909202149j6662085as281ca68927d74264@mail.gmail.com/sugar | 0 | |
| -rw-r--r-- | tags/b2/38/87bps1ps4t.fsf@frosties.localdomain/debian | 0 | |
| -rw-r--r-- | tags/b2/38/87y7w84khq.fsf@informatik.uni-tuebingen.de/debian | 0 | |
| -rw-r--r-- | tags/b2/38/87y7w84khq.fsf@informatik.uni-tuebingen.de/inbox | 0 | |
| -rw-r--r-- | tags/b2/38/87y7w84khq.fsf@informatik.uni-tuebingen.de/old | 0 | |
| -rw-r--r-- | tags/b2/38/CAGDjS3dojbw_WYcSku7+pGC-ySpAwCVsGBG8CgX2rHp4Jc1Q2g@mail.gmail.com/debian | 0 | |
| -rw-r--r-- | tags/b2/38/CAGDjS3dojbw_WYcSku7+pGC-ySpAwCVsGBG8CgX2rHp4Jc1Q2g@mail.gmail.com/unread | 0 | |
| -rw-r--r-- | tags/b2/38/E1jWJi7-0009Iw-Ov@fasolo.debian.org/debian | 0 | |
| -rw-r--r-- | tags/b2/38/E1jWJi7-0009Iw-Ov@fasolo.debian.org/inbox | 0 | |
| -rw-r--r-- | tags/b2/38/E1jWJi7-0009Iw-Ov@fasolo.debian.org/killed | 0 | |
| -rw-r--r-- | tags/b2/38/E1jWJi7-0009Iw-Ov@fasolo.debian.org/unread | 0 | |
| -rw-r--r-- | tags/b2/38/edc293a9-d033-7720-cb83-fdc754320bcc@debian.org/attachment | 0 | |
| -rw-r--r-- | tags/b2/38/edc293a9-d033-7720-cb83-fdc754320bcc@debian.org/debian | 0 | |
| -rw-r--r-- | tags/b2/38/edc293a9-d033-7720-cb83-fdc754320bcc@debian.org/inbox | 0 | |
| -rw-r--r-- | tags/b2/38/edc293a9-d033-7720-cb83-fdc754320bcc@debian.org/killed | 0 | |
| -rw-r--r-- | tags/b2/38/edc293a9-d033-7720-cb83-fdc754320bcc@debian.org/replied | 0 | |
| -rw-r--r-- | tags/b2/38/edc293a9-d033-7720-cb83-fdc754320bcc@debian.org/signed | 0 | |
| -rw-r--r-- | tags/b2/38/handler.1003039.B1003039.16441510013755.ackinfo@bugs.debian.org/debian | 0 | |
| -rw-r--r-- | tags/b2/38/handler.1003039.B1003039.16441510013755.ackinfo@bugs.debian.org/inbox | 0 | |
| -rw-r--r-- | tags/b2/38/handler.1003039.B1003039.16441510013755.ackinfo@bugs.debian.org/killed | 0 | |
| -rw-r--r-- | tags/b2/38/p05111b00bac0a9ee6637@%5b192.168.1.2%5d/hb | 0 | |
| -rw-r--r-- | tags/b2/38/p05111b00bac0a9ee6637@%5b192.168.1.2%5d/inbox | 0 | |
| -rw-r--r-- | tags/b2/38/p05111b00bac0a9ee6637@%5b192.168.1.2%5d/old | 0 | |
| -rw-r--r-- | tags/b2/38/uzlka3kau.wl%25yoshiki@vpri.org/replied | 0 | |
| -rw-r--r-- | tags/b2/38/uzlka3kau.wl%25yoshiki@vpri.org/sugar | 0 | |
46 files changed, 0 insertions, 0 deletions