Alert addresses for patron registration : DB/IDL

DB and IDL components to support configuration of alert addresses.  The
target use case for alert addresses is in the patron registration
interface.  When a patron's address matches an alert address, the staff
should be notified.

Alert address fields are treated as regular expressions.

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index ec1cac6..327f515 100644 (file)
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -3043,6 +3043,33 @@ Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
                        <link field="replaces" reltype="has_a" key="id" map="" class="aua"/>
                </links>
        </class>
+       <class id="aal" controller="open-ils.cstore open-ils.pcrud" oils_obj:fieldmapper="actor::address_alert" oils_persist:tablename="actor.address_alert" reporter:label="Address Alert">
+               <fields oils_persist:primary="id" oils_persist:sequence="actor.address_alert_id_seq">
+                       <field reporter:label="Address Alert ID" name="id" reporter:datatype="id" />
+                       <field reporter:label="Owner" name="owner" reporter:datatype="link" oils_obj:required="true"/>
+                       <field reporter:label="Match All Fields" name="match_all" reporter:datatype="bool" />
+                       <field reporter:label="Alert Message" name="alert_message" reporter:datatype="text" oils_obj:required="true"/>
+                       <field reporter:label="Street (1)" name="street1"  reporter:datatype="text"/>
+                       <field reporter:label="Street (2)" name="street2"  reporter:datatype="text"/>
+                       <field reporter:label="City" name="city"  reporter:datatype="text"/>
+                       <field reporter:label="County" name="county"  reporter:datatype="text"/>
+                       <field reporter:label="State" name="state"  reporter:datatype="text"/>
+                       <field reporter:label="Country" name="country"  reporter:datatype="text"/>
+                       <field reporter:label="Postal Code" name="post_code" reporter:datatype="text"/>
+               </fields>
+               <links>
+                       <link field="owner" reltype="has_a" key="id" map="" class="aou"/>
+               </links>
+               <permacrud xmlns="http://open-ils.org/spec/opensrf/IDL/permacrud/v1">
+                       <actions>
+                               <create   context_field='owner' permission="ADMIN_ADDRESS_ALERT"/>
+                               <retrieve context_field='owner' permission="ADMIN_ADDRESS_ALERT VIEW_ADDRESS_ALERT CREATE_USER"/>
+                               <update   context_field='owner' permission="ADMIN_ADDRESS_ALERT"/>
+                               <delete   context_field='owner' permission="ADMIN_ADDRESS_ALERT"/>
+                       </actions>
+               </permacrud>
+       </class>
+
 
        <class id="auss" controller="open-ils.cstore open-ils.pcrud" oils_obj:fieldmapper="actor::usr_saved_search" oils_persist:tablename="actor.usr_saved_search" reporter:label="User Saved Search">
                <fields oils_persist:primary="id" oils_persist:sequence="actor.usr_saved_search_id_seq">

diff --git a/Open-ILS/src/sql/Pg/005.schema.actors.sql b/Open-ILS/src/sql/Pg/005.schema.actors.sql
index 3f8fb92..0148bb6 100644 (file)
--- a/Open-ILS/src/sql/Pg/005.schema.actors.sql
+++ b/Open-ILS/src/sql/Pg/005.schema.actors.sql
@@ -605,4 +605,18 @@ CREATE TABLE actor.usr_saved_search (
        CONSTRAINT name_once_per_user UNIQUE (owner, name)
 );
 
+CREATE TABLE actor.address_alert (
+    id              SERIAL  PRIMARY KEY,
+       owner           INT     NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
+    match_all       BOOL    NOT NULL DEFAULT TRUE,
+    alert_message   TEXT    NOT NULL,
+    street1         TEXT,
+    street2         TEXT,
+    city            TEXT,
+    county          TEXT,
+    state           TEXT,
+    country         TEXT,
+    post_code       TEXT
+);
+
 COMMIT;

diff --git a/Open-ILS/src/sql/Pg/999.functions.global.sql b/Open-ILS/src/sql/Pg/999.functions.global.sql
index 4eff147..1ce50e1 100644 (file)
--- a/Open-ILS/src/sql/Pg/999.functions.global.sql
+++ b/Open-ILS/src/sql/Pg/999.functions.global.sql
@@ -2035,3 +2035,35 @@ for my $key ( keys %map ) {
 return $default;
 
 $f$ LANGUAGE PLPERLU;
+
+CREATE OR REPLACE FUNCTION actor.address_alert_matches 
+    (org_unit INT, street1 TEXT, street2 TEXT, city TEXT, county TEXT, state TEXT, country TEXT, post_code TEXT) 
+    RETURNS SETOF actor.address_alert AS $$
+SELECT *
+FROM actor.address_alert
+WHERE
+    owner IN (SELECT id FROM actor.org_unit_ancestors($1)) AND (
+        (
+            match_all
+            AND LOWER(COALESCE($2, '')) ~ LOWER(COALESCE(street1,   '.*'))
+            AND LOWER(COALESCE($3, '')) ~ LOWER(COALESCE(street2,   '.*'))
+            AND LOWER(COALESCE($4, '')) ~ LOWER(COALESCE(city,      '.*'))
+            AND LOWER(COALESCE($5, '')) ~ LOWER(COALESCE(county,    '.*'))
+            AND LOWER(COALESCE($6, '')) ~ LOWER(COALESCE(state,     '.*'))
+            AND LOWER(COALESCE($7, '')) ~ LOWER(COALESCE(country,   '.*'))
+            AND LOWER(COALESCE($8, '')) ~ LOWER(COALESCE(post_code, '.*'))
+        ) OR (
+            NOT match_all AND (
+               LOWER($2) ~ LOWER(street1)
+            OR LOWER($3) ~ LOWER(street2)
+            OR LOWER($4) ~ LOWER(city)
+            OR LOWER($5) ~ LOWER(county)
+            OR LOWER($6) ~ LOWER(state)
+            OR LOWER($7) ~ LOWER(country)
+            OR LOWER($8) ~ LOWER(post_code)
+            )
+        )
+    )
+    ORDER BY actor.org_unit_proximity(owner, $1)
+$$ LANGUAGE SQL;
+

diff --git a/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.address-alert.sql b/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.address-alert.sql
new file mode 100644 (file)
index 0000000..6085b3f
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/upgrade/XXXX.schema.address-alert.sql
@@ -0,0 +1,58 @@
+-- Evergreen DB patch XXXX.schema.address-alert.sql
+--
+BEGIN;
+
+-- check whether patch can be applied
+SELECT evergreen.upgrade_deps_block_check('XXXX', :eg_version);
+
+CREATE TABLE actor.address_alert (
+    id              SERIAL  PRIMARY KEY,
+       owner           INT     NOT NULL REFERENCES actor.org_unit (id) DEFERRABLE INITIALLY DEFERRED,
+    match_all       BOOL    NOT NULL DEFAULT TRUE,
+    alert_message   TEXT    NOT NULL,
+    street1         TEXT,
+    street2         TEXT,
+    city            TEXT,
+    county          TEXT,
+    state           TEXT,
+    country         TEXT,
+    post_code       TEXT
+);
+
+CREATE OR REPLACE FUNCTION actor.address_alert_matches 
+    (org_unit INT, street1 TEXT, street2 TEXT, city TEXT, county TEXT, state TEXT, country TEXT, post_code TEXT) 
+    RETURNS SETOF actor.address_alert AS $$
+SELECT *
+FROM actor.address_alert
+WHERE
+    owner IN (SELECT id FROM actor.org_unit_ancestors($1)) AND (
+        (
+            match_all
+            AND LOWER(COALESCE($2, '')) ~ LOWER(COALESCE(street1,   '.*'))
+            AND LOWER(COALESCE($3, '')) ~ LOWER(COALESCE(street2,   '.*'))
+            AND LOWER(COALESCE($4, '')) ~ LOWER(COALESCE(city,      '.*'))
+            AND LOWER(COALESCE($5, '')) ~ LOWER(COALESCE(county,    '.*'))
+            AND LOWER(COALESCE($6, '')) ~ LOWER(COALESCE(state,     '.*'))
+            AND LOWER(COALESCE($7, '')) ~ LOWER(COALESCE(country,   '.*'))
+            AND LOWER(COALESCE($8, '')) ~ LOWER(COALESCE(post_code, '.*'))
+        ) OR (
+            NOT match_all AND (
+               LOWER($2) ~ LOWER(street1)
+            OR LOWER($3) ~ LOWER(street2)
+            OR LOWER($4) ~ LOWER(city)
+            OR LOWER($5) ~ LOWER(county)
+            OR LOWER($6) ~ LOWER(state)
+            OR LOWER($7) ~ LOWER(country)
+            OR LOWER($8) ~ LOWER(post_code)
+            )
+        )
+    )
+    ORDER BY actor.org_unit_proximity(owner, $1)
+$$ LANGUAGE SQL;
+
+COMMIT;
+
+/* UNDO
+DROP FUNCTION actor.address_alert_matches(INT, TEXT, TEXT, TEXT, TEXT, TEXT, TEXT, TEXT);
+DROP TABLE actor.address_alert;
+*/