From 5c33a7000e1341b39da695e56a145feac0b144e5 Mon Sep 17 00:00:00 2001
From: Llewellyn Marshall <llewellyn.marshall@ncdcr.gov>
Date: Tue, 23 Jun 2020 16:39:33 -0400
Subject: [PATCH] database changes for tattler

---
 Open-ILS/examples/fm_IDL.xml                             | 12 ++++++++++++
 .../lib/OpenILS/Application/Storage/CDBI/tattler.pm      | 16 ++++++++++++++++
 .../lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm     |  5 +++++
 Open-ILS/src/sql/Pg/tattle-tale-reports.sql              | 12 ++++++++++++
 Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql      | 14 ++++++++++++++
 5 files changed, 59 insertions(+)
 create mode 100644 Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/tattler.pm
 create mode 100644 Open-ILS/src/sql/Pg/tattle-tale-reports.sql
 create mode 100644 Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index 9b256d050d..bf2d24cd18 100644
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -12792,6 +12792,18 @@ SELECT  usr,
 				<delete permission="ADMIN_WORKSTATION_SETTING_TYPE" global_required="true"/>
 			</actions>
 		</permacrud>
+	</class> 
+    <class id="igl" controller="open-ils.cstore" oils_obj:fieldmapper="tattler::ignore_list" oils_persist:tablename="tattler.ignore_list" reporter:label="Tattler Ignore List">
+		<fields oils_persist:primary="id" oils_persist:sequence="tattler.ignore_list_id_seq">
+			<field reporter:label="ID" name="id" reporter:datatype="id" />
+			<field reporter:label="Report Name" name="report_name" oils_persist:primitive="string"  reporter:datatype="text"/>
+			<field reporter:label="System" name="org_unit" reporter:datatype="link"/>
+			<field reporter:label="Asset" name="target_copy" reporter:datatype="link"/>
+		</fields>
+		<links>
+			<link field="target_copy" reltype="has_a" key="id" map="" class="acp"/>
+			<link field="org_unit" reltype="has_a" key="id" map="" class="aou"/>
+		</links>
 	</class>
 
 	<!-- no pcrud access is granted for now, because it's assumed these
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/tattler.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/tattler.pm
new file mode 100644
index 0000000000..bab9e6348e
--- /dev/null
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/tattler.pm
@@ -0,0 +1,16 @@
+package OpenILS::Application::Storage::CDBI::tattler;
+our $VERSION = 1;
+
+#-------------------------------------------------------------------------------
+package tattler;
+use base qw/OpenILS::Application::Storage::CDBI/;
+#-------------------------------------------------------------------------------
+
+package tattler::ignore_list;
+use base qw/tattler/;
+__PACKAGE__->table('tattler_ignore_list');
+__PACKAGE__->columns(Primary => 'id');
+__PACKAGE__->columns(Essential => qw/report_name target_copy org_unit/);
+#-------------------------------------------------------------------------------
+
+1;
\ No newline at end of file
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
index f680b1c9d1..443e2a625c 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/Driver/Pg/dbi.pm
@@ -836,6 +836,11 @@
 
     #-------------------------------------------------------------------------------
 
+    package tattler::ignore_list;
+    tattler::ignore_list->sequence( 'tattler.ignore_list_id_seq' );
+    tattler::ignore_list->table('tattler.ignore_list');
+
+    #-------------------------------------------------------------------------------
 
 }
 
diff --git a/Open-ILS/src/sql/Pg/tattle-tale-reports.sql b/Open-ILS/src/sql/Pg/tattle-tale-reports.sql
new file mode 100644
index 0000000000..9f1ace6bc0
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/tattle-tale-reports.sql
@@ -0,0 +1,12 @@
+DROP SCHEMA IF EXISTS tattler CASCADE;
+
+BEGIN;
+CREATE SCHEMA tattler;
+CREATE TABLE tattler.ignore_list (
+    id SERIAL PRIMARY KEY,
+    report_name TEXT,
+    org_unit BIGINT NOT NULL REFERENCES actor.org_unit(id) ON DELETE CASCADE DEFERRABLE,
+    target_copy BIGINT NOT NULL REFERENCES asset.copy(id) ON DELETE CASCADE DEFERRABLE
+);
+
+COMMIT;
\ No newline at end of file
diff --git a/Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql b/Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql
new file mode 100644
index 0000000000..40e23c2d9e
--- /dev/null
+++ b/Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql
@@ -0,0 +1,14 @@
+BEGIN;
+
+INSERT INTO config.upgrade_log (version) VALUES ('1174'); 
+
+CREATE TABLE tattler.ignore_list (
+    id SERIAL PRIMARY KEY,
+    report_name TEXT,
+    org_unit BIGINT NOT NULL REFERENCES actor.org_unit(id) ON DELETE CASCADE DEFERRABLE,
+    target_copy BIGINT NOT NULL REFERENCES asset.copy(id) ON DELETE CASCADE DEFERRABLE
+);
+END;
+$func$ LANGUAGE PLPGSQL;
+
+COMMIT;
\ No newline at end of file
-- 
2.11.0