From 5bd480a3b71b1760ec1c2eba62f36e568568ab05 Mon Sep 17 00:00:00 2001
From: blake <blake@mobiusconsortium.org>
Date: Fri, 15 Jan 2021 16:59:19 -0600
Subject: [PATCH] Overhauling the Tattler mechanism

This commit moves most of the functionality into:
https://github.com/mcoia/mobius_evergreen/tree/seek_and_destroy_tattle_tale_reporting

This code has been condensed into a single web call that responds with
0,1,2 depending on the state of seekdestroy.ignore_list.

The table creation is not included as it's part of the main
seek_and_destroy code right now.

TODO:
Fully integrate the seek and destroy funcationality into Evergreen,
including:

new schema
action triggers
catalog administration interfaces
catalog participation interfaces

Signed-off-by: blake <blake@mobiusconsortium.org>
---
 Open-ILS/examples/fm_IDL.xml                       |  15 +-
 .../Storage/CDBI/{tattler.pm => seekdestroy.pm}    |  12 +-
 .../OpenILS/Application/Storage/Driver/Pg/dbi.pm   |   6 +-
 .../src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm    |   2 +-
 .../lib/OpenILS/WWW/EGCatLoader/Tattler.pm         |  45 ++--
 Open-ILS/src/sql/Pg/tattle-tale-reports.sql        |  12 -
 .../src/sql/Pg/upgrade/1174.schema.tattler.sql     |  14 --
 .../tattle-tale-scripts/DVD-mismatch.sql           |  71 ------
 ...Audiobook-MARC-with-physical-Items-attached.sql |  21 --
 .../tattle-tale-scripts/VHS-mismatch.sql           |  64 -----
 .../audio-not-attached-to-audio-bibs.sql           |  51 ----
 .../items-that-are-attached-to-deleted-bibs.sql    |  38 ---
 ...arge-print-attached-to-non-large-print-bibs.sql |  56 -----
 .../not-audio-but-are-attached-to-audio-bibs.sql   |  39 ----
 ...-print-but-are-attached-to-large-print-bibs.sql |  43 ----
 .../questionable-music-format-mismatches.sql       |  74 ------
 .../questionable-video-format-mismatches.sql       |  85 -------
 Open-ILS/src/support-scripts/tattler.pl.in         | 259 ---------------------
 Open-ILS/src/templates/opac/tattler.tt2            |  15 +-
 19 files changed, 44 insertions(+), 878 deletions(-)
 rename Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/{tattler.pm => seekdestroy.pm} (58%)
 delete mode 100644 Open-ILS/src/sql/Pg/tattle-tale-reports.sql
 delete mode 100644 Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/DVD-mismatch.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/Electronic-Audiobook-MARC-with-physical-Items-attached.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/VHS-mismatch.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/audio-not-attached-to-audio-bibs.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/items-that-are-attached-to-deleted-bibs.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/large-print-attached-to-non-large-print-bibs.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/not-audio-but-are-attached-to-audio-bibs.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/not-large-print-but-are-attached-to-large-print-bibs.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-music-format-mismatches.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-video-format-mismatches.sql
 delete mode 100644 Open-ILS/src/support-scripts/tattler.pl.in

diff --git a/Open-ILS/examples/fm_IDL.xml b/Open-ILS/examples/fm_IDL.xml
index bf2d24cd18..c52a4f88ee 100644
--- a/Open-ILS/examples/fm_IDL.xml
+++ b/Open-ILS/examples/fm_IDL.xml
@@ -12792,18 +12792,13 @@ 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">
+	</class>
+    <class id="sdil" controller="open-ils.cstore" oils_obj:fieldmapper="seekdestroy::ignore_list" oils_persist:tablename="seekdestroy.ignore_list" reporter:label="Seek and Destroy Ignore List">
+		<fields oils_persist:primary="id" oils_persist:sequence="seekdestroy.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"/>
+			<field reporter:label="Report ID" name="report" reporter:datatype="int"/>
+			<field reporter:label="Copy ID" name="target_copy" reporter:datatype="int"/>
 		</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/seekdestroy.pm
similarity index 58%
rename from Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/tattler.pm
rename to Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/seekdestroy.pm
index bab9e6348e..b4d3c77bf3 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/tattler.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Storage/CDBI/seekdestroy.pm
@@ -1,16 +1,16 @@
-package OpenILS::Application::Storage::CDBI::tattler;
+package OpenILS::Application::Storage::CDBI::seekdestroy;
 our $VERSION = 1;
 
 #-------------------------------------------------------------------------------
-package tattler;
+package seekdestroy;
 use base qw/OpenILS::Application::Storage::CDBI/;
 #-------------------------------------------------------------------------------
 
-package tattler::ignore_list;
-use base qw/tattler/;
-__PACKAGE__->table('tattler_ignore_list');
+package seekdestroy::ignore_list;
+use base qw/seekdestroy/;
+__PACKAGE__->table('seekdestroy_ignore_list');
 __PACKAGE__->columns(Primary => 'id');
-__PACKAGE__->columns(Essential => qw/report_name target_copy org_unit/);
+__PACKAGE__->columns(Essential => qw/report target_copy/);
 #-------------------------------------------------------------------------------
 
 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 443e2a625c..7e4cfe1560 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,9 +836,9 @@
 
     #-------------------------------------------------------------------------------
 
-    package tattler::ignore_list;
-    tattler::ignore_list->sequence( 'tattler.ignore_list_id_seq' );
-    tattler::ignore_list->table('tattler.ignore_list');
+    package seekdestroy::ignore_list;
+    seekdestroy::ignore_list->sequence( 'seekdestroy.ignore_list_id_seq' );
+    seekdestroy::ignore_list->table('seekdestroy.ignore_list');
 
     #-------------------------------------------------------------------------------
 
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
index b49107a394..241ca974b2 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader.pm
@@ -164,7 +164,6 @@ sub load {
     #  Everything below here requires SSL
     # ----------------------------------------------------------------
     return $self->redirect_ssl unless $self->cgi->https;
-    return $self->update_tattle_list if $path =~ m|opac/tattler|;
     return $self->load_password_reset if $path =~ m|opac/password_reset|;
     return $self->load_logout if $path =~ m|opac/logout|;
     return $self->load_patron_reg if $path =~ m|opac/register|;
@@ -234,6 +233,7 @@ sub load {
     return $self->load_myopac_reservations if $path =~ m|opac/myopac/reservations|;
     return $self->load_sms_cn if $path =~ m|opac/sms_cn|;
 
+    return $self->update_tattle_list if $path =~ m|opac/tattler|;
 
     return Apache2::Const::OK;
 }
diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Tattler.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Tattler.pm
index e2ef953cc3..b1026c7f83 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Tattler.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Tattler.pm
@@ -11,30 +11,41 @@ my $U = 'OpenILS::Application::AppUtils';
 
 sub update_tattle_list {
     my $self = shift;
-    my %kwargs = @_;
     my $ctx = $self->ctx;
     my $cgi = $self->cgi;
     my $usr = $ctx->{user};
     my $permission = $usr && $self->{editor}->allowed('UPDATE_RECORD');
-    return Apache2::Const::FORBIDDEN unless  $permission == 1;
-    if( $cgi->request_method eq 'POST'){
-        $self->{editor}->xact_begin;
-        my $sysID = $cgi->param('systemID');
-        my $report = $cgi->param('reportName');
-        $ctx->{report} = $report;
-        $ctx->{copies} = [];
-        my @copy_array = $cgi->param("copyID[]");
-        $ctx->{copies} = [@copy_array];
-        foreach(@copy_array){
-            my $rec = Fieldmapper::tattler::ignore_list->new;
-            $logger->info("Adding Copy ".$_." to tattler ignore list for ".$report." at system ".$sysID);
-            $rec->org_unit($sysID);
-            $rec->target_copy($_);
-            $rec->report_name($report);
-            $self->{editor}->create_tattler_ignore_list($rec);
+    return Apache2::Const::FORBIDDEN unless $permission;
+    my $copy_id = $cgi->param('copyid');
+    my $report = $cgi->param('reportid');
+    if( $copy_id && $report ) {
+        my $already_exists = $self->{editor}->json_query({
+            select => { sdil => ['id'] },
+            from => 'sdil',
+            where => {
+                report => $report,
+                target_copy => $copy_id
+            }
+        });
+        if( @$already_exists[0] ) {
+            $logger->info("Seek and Destroy Ignore report: $report, copy: $copy_id already exists");
+            $ctx->{status} = 2;
+            return Apache2::Const::OK;
         }
+        $self->{editor}->xact_begin;
+        my $rec = Fieldmapper::seekdestroy::ignore_list->new;
+        $logger->info("Adding copy to seekdestory ignore list for $report on copy $copy_id");
+        $rec->target_copy($copy_id);
+        $rec->report($report);
+        $self->{editor}->create_seekdestroy_ignore_list($rec);
         $self->{editor}->xact_commit;
+        $ctx->{status} = 1;
     }
+    else {
+        $logger->info("Failed seekdestory ignore list for $report on copy $copy_id");
+        $ctx->{status} = 0;
+    }
+
     return Apache2::Const::OK;
 }
 
diff --git a/Open-ILS/src/sql/Pg/tattle-tale-reports.sql b/Open-ILS/src/sql/Pg/tattle-tale-reports.sql
deleted file mode 100644
index 9f1ace6bc0..0000000000
--- a/Open-ILS/src/sql/Pg/tattle-tale-reports.sql
+++ /dev/null
@@ -1,12 +0,0 @@
-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
deleted file mode 100644
index 40e23c2d9e..0000000000
--- a/Open-ILS/src/sql/Pg/upgrade/1174.schema.tattler.sql
+++ /dev/null
@@ -1,14 +0,0 @@
-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
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/DVD-mismatch.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/DVD-mismatch.sql
deleted file mode 100644
index 350b812965..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/DVD-mismatch.sql
+++ /dev/null
@@ -1,71 +0,0 @@
-DROP TABLE IF EXISTS dvd_mis;
-DROP TABLE IF EXISTS icon_formats;
-CREATE TEMP TABLE icon_formats AS
-SELECT id,STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID HAVING count(id) = 1;
-
-CREATE TEMP TABLE dvd_mis AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL as call_number_label,icon_formats."FORMAT",crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,AOU.NAME, ac.circ_lib
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL,ACTOR.USR EDTR,ACTOR.USR CRTR, icon_formats where
-AOU.ID=AC.CIRC_LIB AND
-EDTR.ID = AC.EDITOR AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-BRE.ID=icon_formats.id AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-ACN.ID IN(SELECT ID FROM ASSET.CALL_NUMBER WHERE (LOWER(LABEL)~$$ dvd$$ OR LOWER(LABEL)~$$^dvd$$) )
-OR
-ACL.ID IN(SELECT ID FROM ASSET.COPY_LOCATION WHERE (LOWER(NAME)~$$ dvd$$ OR LOWER(NAME)~$$^dvd$$) )
-OR
-lower(ac.circ_modifier) ~* $$ dvd$$ OR
-lower(ac.circ_modifier) ~* $$^dvd$$
-)
-AND
-icon_formats."FORMAT"!~$$dvd$$
-UNION
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL as call_number_label,icon_formats."FORMAT",crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,AOU.NAME, ac.circ_lib
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR EDTR,ACTOR.USR CRTR, icon_formats where
-AOU.ID=AC.CIRC_LIB AND
-EDTR.ID = AC.EDITOR AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-BRE.ID=icon_formats.id AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-	lower(acn.label) !~* $$ dvd$$ and
-	lower(acn.label) !~* $$^dvd$$ and
-	lower(acn.label) !~* $$movie$$ and
-	lower(acn.label) !~* $$video$$
-)
-and
-(
-	lower(acl.name) !~* $$ dvd$$ and
-	lower(acl.name) !~* $$^dvd$$ and
-	lower(acl.name) !~* $$movie$$ and
-	lower(acl.name) !~* $$video$$
-)
-and
-(
-	lower(ac.circ_modifier) !~* $$ dvd$$ and
-	lower(ac.circ_modifier) !~* $$^dvd$$ and
-	lower(ac.circ_modifier) !~* $$movie$$ and
-	lower(ac.circ_modifier) !~* $$video$$
-)
-AND
-icon_formats."FORMAT"~$$dvd$$
-
-order by 1;
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select dvd_mis.*,aou.name from dvd_mis join actor.org_unit aou on aou.id = circ_lib where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id  limit ?
-) as p on true
-
-order by system_id;
\ No newline at end of file
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/Electronic-Audiobook-MARC-with-physical-Items-attached.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/Electronic-Audiobook-MARC-with-physical-Items-attached.sql
deleted file mode 100644
index 0bb1f47c2a..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/Electronic-Audiobook-MARC-with-physical-Items-attached.sql
+++ /dev/null
@@ -1,21 +0,0 @@
-DROP TABLE IF EXISTS audio_bibs;
-CREATE TEMP TABLE audio_bibs AS
-select bre.id as bib_id,ac.id as copy_id, ac.circ_lib from biblio.record_entry bre, actor.usr crtr, actor.usr edtr, asset.call_number acn, asset.copy ac
-where 
-bre.ID=acn.RECORD AND
-acn.ID=ac.CALL_NUMBER AND
-
-not bre.deleted and lower(marc) ~ $$<datafield tag="856" ind1="4" ind2="0">$$ and edtr.id = bre.editor and crtr.id = bre.creator	
-and
-(
-	marc ~ $$tag="008">.......................[oqs]$$
-	or
-	marc ~ $$tag="006">......[oqs]$$
-)
-and
-(
-	marc ~ $$<leader>......i$$
-);
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select audio_bibs.*,aou.name from audio_bibs join actor.org_unit aou on aou.id = circ_lib where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?) as p on true;
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/VHS-mismatch.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/VHS-mismatch.sql
deleted file mode 100644
index d0ef94f1fb..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/VHS-mismatch.sql
+++ /dev/null
@@ -1,64 +0,0 @@
-DROP TABLE IF EXISTS vhs_mis;
-DROP TABLE IF EXISTS icon_formats;
-CREATE TEMP TABLE icon_formats AS
-SELECT id,STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID HAVING count(id) = 1;
-CREATE TEMP TABLE vhs_mis AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,icon_formats."FORMAT",crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,AOU.NAME, ac.circ_lib
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR EDTR,ACTOR.USR CRTR,icon_formats where
-AOU.ID=AC.CIRC_LIB AND
-EDTR.ID = AC.EDITOR AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-BRE.ID=icon_formats.id AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-ACN.ID IN(SELECT ID FROM ASSET.CALL_NUMBER WHERE (LOWER(LABEL)~$$vhs$$) )
-OR
-ACL.ID IN(SELECT ID FROM ASSET.COPY_LOCATION WHERE (LOWER(NAME)~$$vhs$$) )
-OR
-lower(ac.circ_modifier) ~* $$vhs$$
-)
-AND
-icon_formats."FORMAT"!~$$vhs$$
-UNION
-select BRE.id bib_id,AC.id as copy_id,ACN.LABEL,icon_formats."FORMAT",crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,AOU.NAME, ac.circ_lib
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR EDTR,ACTOR.USR CRTR,icon_formats where
-AOU.ID=AC.CIRC_LIB AND
-EDTR.ID = AC.EDITOR AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-BRE.ID=icon_formats.id AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-	lower(acn.label) !~* $$movie$$ and
-	lower(acn.label) !~* $$vhs$$ and
-	lower(acn.label) !~* $$video$$
-)
-and
-(
-	lower(acl.name) !~* $$movie$$ and
-	lower(acl.name) !~* $$vhs$$ and
-	lower(acl.name) !~* $$video$$
-)
-and
-(
-	lower(ac.circ_modifier) !~* $$movie$$ and
-	lower(ac.circ_modifier) !~* $$vhs$$ and
-	lower(ac.circ_modifier) !~* $$video$$
-)
-AND
-icon_formats."FORMAT"~$$vhs$$
-order by 1;
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select vhs_mis.*,aou.name from vhs_mis join actor.org_unit aou on aou.id = circ_lib where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?
-) as p on true
-order by system_id;
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/audio-not-attached-to-audio-bibs.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/audio-not-attached-to-audio-bibs.sql
deleted file mode 100644
index 7a72e6b56a..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/audio-not-attached-to-audio-bibs.sql
+++ /dev/null
@@ -1,51 +0,0 @@
-DROP TABLE IF EXISTS audio_copies;
-CREATE TEMP TABLE audio_copies AS
-select bre.id as bib_id, ac.id as copy_id,bre.marc,string_agg(ac.barcode,$$,$$),crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,  ac.circ_lib from biblio.record_entry bre, asset.copy ac, asset.call_number acn, asset.copy_location acl, actor.usr crtr, actor.usr edtr where
-
-acl.id=ac.location and
-crtr.id = ac.creator and
-edtr.id = ac.editor and
-bre.id=acn.record and
-acn.id=ac.call_number and
-not acn.deleted and
-not ac.deleted and
-not bre.deleted and
-(
-	lower(acn.label) ~* $$cass$$ or
-	lower(acn.label) ~* $$aud$$ or
-	lower(acn.label) ~* $$disc$$ or
-	lower(acn.label) ~* $$mus$$ or
-	lower(acn.label) ~* $$ cd$$ or
-	lower(acn.label) ~* $$^cd$$ or
-	lower(acn.label) ~* $$disk$$
-or
-	lower(acl.name) ~* $$cas$$ or
-	lower(acl.name) ~* $$aud$$ or
-	lower(acl.name) ~* $$disc$$ or
-	lower(acl.name) ~* $$mus$$ or
-	lower(acl.name) ~* $$ cd$$ or
-	lower(acl.name) ~* $$^cd$$ or
-	lower(acl.name) ~* $$disk$$
-)
-and
-ac.circ_modifier in ( $$AudioBooks$$,$$CD$$ ) and
-(
-(
-
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$music$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$casaudiobook$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$casmusic$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$cassette$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$cd$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$cdaudiobook$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$cdmusic$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$playaway$$ and
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) !~ $$kit$$
-)
-OR
-(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID) IS NULL
-)
-group by bre.id,ac.id,bre.marc,creator_id,editor_id, ac.circ_lib;
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select audio_copies.*,aou.name from audio_copies join actor.org_unit aou on aou.id = circ_lib where (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id and copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) limit ?) as p on true order by system_id;
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/items-that-are-attached-to-deleted-bibs.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/items-that-are-attached-to-deleted-bibs.sql
deleted file mode 100644
index 124ef76628..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/items-that-are-attached-to-deleted-bibs.sql
+++ /dev/null
@@ -1,38 +0,0 @@
-DROP TABLE IF EXISTS del_bibs;
-CREATE TEMP TABLE del_bibs AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID),AOU.NAME, circ_lib, DELUSR.id as deletor_id, DELUSR.email as deletor_email
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR DELUSR where
-AOU.ID=AC.CIRC_LIB AND
-BRE.ID=ACN.RECORD AND
-DELUSR.ID = BRE.EDITOR AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT BRE.DELETED AND
-BRE.EDITOR != 1 AND 
-BRE.ID > 0 AND
-NOT AC.DELETED AND
-lower(BRE.marc) ~ $$<datafield tag="856" ind1="4" ind2="0">$$ AND
-BRE.id in
-(
-select record from asset.call_number where not deleted and id in(select call_number from asset.copy where not deleted)
-)
-and
-(
-	BRE.marc ~ $$tag="008">.......................[oqs]$$
-	or
-	BRE.marc ~ $$tag="006">......[oqs]$$
-)
-and
-(
-	BRE.marc ~ $$<leader>......[at]$$
-)
-and
-(
-	BRE.marc ~ $$<leader>.......[acdm]$$
-);
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select * from del_bibs where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?
-) as p on true
-
-order by system_id;
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/large-print-attached-to-non-large-print-bibs.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/large-print-attached-to-non-large-print-bibs.sql
deleted file mode 100644
index eea86e9683..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/large-print-attached-to-non-large-print-bibs.sql
+++ /dev/null
@@ -1,56 +0,0 @@
-DROP TABLE IF EXISTS lp_bibs;
-CREATE TEMP TABLE lp_bibs AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID),AOU.NAME as library_name, circ_lib, crtr.id as creator_id, crtr.email as creator_email
-
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR CRTR where
-
-
-AOU.ID=AC.CIRC_LIB AND
-CRTR.ID = AC.CREATOR AND
-
-BRE.ID=ACN.RECORD AND
-
-ACN.ID=AC.CALL_NUMBER AND
-
-ACL.ID=AC.LOCATION AND
-
-NOT ACN.DELETED AND
-
-NOT AC.DELETED AND
-
-(
-
-ACN.ID IN(SELECT ID FROM ASSET.CALL_NUMBER WHERE (LOWER(LABEL)~$$ lp$$ OR LOWER(LABEL)~$$^lp$$ OR LOWER(LABEL)~$$large$$ OR LOWER(LABEL)~$$lg$$ OR LOWER(LABEL)~$$sight$$) )
-
-OR
-
-ACL.ID IN(SELECT ID FROM ASSET.COPY_LOCATION WHERE (LOWER(NAME)~$$ lp$$ OR LOWER(NAME)~$$^lp$$ OR LOWER(NAME)~$$large$$ OR LOWER(NAME)~$$lg$$ OR LOWER(NAME)~$$sight$$) )
-
-)
-
-AND
-
-BRE.ID IN
-
-(
-SELECT A.ID FROM
-	(
-
-SELECT STRING_AGG(VALUE,$$ $$) "FORMAT",ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID) AS A
-
-	WHERE A."FORMAT"!~$$lpbook$$
-UNION
-
-	SELECT ID FROM BIBLIO.RECORD_ENTRY WHERE ID NOT IN(SELECT ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$)
-
-) AND
-
-BRE.ID > 0
-order by ac.edit_date desc;
-
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral (select * from lp_bibs where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?
-) p on true
-
-order by system_id;
\ No newline at end of file
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/not-audio-but-are-attached-to-audio-bibs.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/not-audio-but-are-attached-to-audio-bibs.sql
deleted file mode 100644
index 54e89477f2..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/not-audio-but-are-attached-to-audio-bibs.sql
+++ /dev/null
@@ -1,39 +0,0 @@
-DROP TABLE IF EXISTS non_audio_copies;
-CREATE TEMP TABLE non_audio_copies AS
-select bre.id as bib_id,ac.id as copy_id,bre.marc,string_agg(ac.barcode,$$,$$), crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,  ac.circ_lib from biblio.record_entry bre, asset.copy ac, asset.call_number acn, asset.copy_location acl, actor.usr crtr, actor.usr edtr  where
-bre.marc ~ $$<leader>......i$$ and
-acl.id=ac.location and
-crtr.id = ac.creator and
-edtr.id = ac.editor and
-bre.id=acn.record and
-acn.id=ac.call_number and
-not acn.deleted and
-not ac.deleted and
-not bre.deleted and
-BRE.ID>0 AND
-(
-	lower(acn.label) !~* $$cass$$ and
-	lower(acn.label) !~* $$aud$$ and
-	lower(acn.label) !~* $$disc$$ and
-	lower(acn.label) !~* $$mus$$ and
-	lower(acn.label) !~* $$ cd$$ and
-	lower(acn.label) !~* $$^cd$$ and
-	lower(acn.label) !~* $$disk$$
-)
-and
-(
-	lower(acl.name) !~* $$cas$$ and
-	lower(acl.name) !~* $$aud$$ and
-	lower(acl.name) !~* $$disc$$ and
-	lower(acl.name) !~* $$mus$$ and
-	lower(acl.name) !~* $$ cd$$ and
-	lower(acl.name) !~* $$^cd$$ and
-	lower(acl.name) !~* $$disk$$
-)
-and
-ac.circ_modifier not in ( $$AudioBooks$$,$$CD$$ )
-group by bre.id,ac.id,bre.marc,crtr.id,edtr.id,ac.circ_lib;
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select non_audio_copies.*,aou.name from non_audio_copies join actor.org_unit aou on aou.id = circ_lib where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?) as p on true
-order by system_id;
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/not-large-print-but-are-attached-to-large-print-bibs.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/not-large-print-but-are-attached-to-large-print-bibs.sql
deleted file mode 100644
index bbfab951d8..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/not-large-print-but-are-attached-to-large-print-bibs.sql
+++ /dev/null
@@ -1,43 +0,0 @@
-DROP TABLE IF EXISTS lp_bibs;
-CREATE TEMP TABLE lp_bibs AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID), AC.circ_lib,AOU.NAME,crtr.id, crtr.email
-
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR CRTR where
-
-AOU.ID=AC.CIRC_LIB AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-
-
-
-
-
-NOT AC.DELETED AND
-
-(
-ACN.ID IN(SELECT ID FROM ASSET.CALL_NUMBER WHERE (LOWER(LABEL)!~$$ lp$$ AND LOWER(LABEL)!~$$^lp$$ AND LOWER(LABEL)!~$$large$$ AND LOWER(LABEL)!~$$lg$$ AND LOWER(LABEL)!~$$sight$$ AND LOWER(LABEL)!~$$s\.s\.$$) )AND
-
-ACL.ID IN(SELECT ID FROM ASSET.COPY_LOCATION WHERE (LOWER(NAME)!~$$ lp$$ AND LOWER(NAME)!~$$^lp$$ AND LOWER(NAME)!~$$large$$ AND LOWER(NAME)!~$$lg$$ AND LOWER(NAME)!~$$sight$$ AND LOWER(NAME)!~$$s\.s\.$$) )
-)
-AND
-BRE.ID IN
-(
-	SELECT A.ID FROM
-	(
-	SELECT STRING_AGG(VALUE,$$ $$) "FORMAT",ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID
-	) AS A
-	WHERE A."FORMAT"~$$lpbook$$
-) AND
-BRE.ID > 0
-order by ac.edit_date desc;
-
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral (
-select * from lp_bibs 
-where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id
-limit ?
-) p on true
-order by system_id;
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-music-format-mismatches.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-music-format-mismatches.sql
deleted file mode 100644
index 15b5e452ee..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-music-format-mismatches.sql
+++ /dev/null
@@ -1,74 +0,0 @@
-DROP TABLE IF EXISTS mus_mis;
-CREATE TEMP TABLE mus_mis AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID),AC.CIRC_LIB,AOU.NAME
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL where
-AOU.ID=AC.CIRC_LIB AND
-BRE.ID=ACN.RECORD AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-ACN.ID IN(SELECT ID FROM ASSET.CALL_NUMBER WHERE (LOWER(LABEL)~$$music$$ OR LOWER(LABEL)~$$^folk$$ OR LOWER(LABEL)~$$ folk$$ OR LOWER(LABEL)~$$classical$$) AND LOWER(LABEL)!~$$folktale$$ )
-OR
-ACL.ID IN(SELECT ID FROM ASSET.COPY_LOCATION WHERE (LOWER(NAME)~$$music$$) )
-OR
-lower(ac.circ_modifier) ~* $$music$$
-)
-AND
-BRE.ID IN
-(
-	SELECT A.ID FROM
-	(
-	SELECT STRING_AGG(VALUE,$$ $$) "FORMAT",ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID
-	) AS A
-	WHERE A."FORMAT"!~$$music$$
-	UNION
-	SELECT ID FROM BIBLIO.RECORD_ENTRY WHERE ID NOT IN(SELECT ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$)
-)
-UNION
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID),AC.CIRC_LIB,AOU.NAME
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL where
-AOU.ID=AC.CIRC_LIB AND
-BRE.ID=ACN.RECORD AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-	lower(acn.label) !~* $$music$$ and
-	lower(acn.label) !~* $$ folk$$ and
-	lower(acn.label) !~* $$^folk$$ and
-	lower(acn.label) !~* $$readalong$$ and
-	lower(acn.label) !~* $$singalong$$ and
-	lower(acn.label) !~* $$classical$$
-	
-)
-and
-(
-	lower(acl.name) !~* $$music$$ and
-	lower(acl.name) !~* $$singalong$$ and
-	lower(acl.name) !~* $$readalong$$
-)
-and
-(
-	lower(ac.circ_modifier) !~* $$music$$ and
-	lower(ac.circ_modifier) !~* $$cd$$
-)
-AND
-BRE.ID IN
-(
-	SELECT A.ID FROM
-	(
-	SELECT STRING_AGG(VALUE,$$ $$) "FORMAT",ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID
-	) AS A
-	WHERE A."FORMAT"~$$music$$
-)
-order by 1;
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral (select * from mus_mis where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?
-) p on true
-
-order by system_id;
\ No newline at end of file
diff --git a/Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-video-format-mismatches.sql b/Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-video-format-mismatches.sql
deleted file mode 100644
index 7f6b6fa703..0000000000
--- a/Open-ILS/src/support-scripts/tattle-tale-scripts/questionable-video-format-mismatches.sql
+++ /dev/null
@@ -1,85 +0,0 @@
-DROP TABLE IF EXISTS vid_mis;
-CREATE TEMP TABLE vid_mis AS
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID),crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,AOU.NAME, ac.circ_lib
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR EDTR,ACTOR.USR CRTR where
-AOU.ID=AC.CIRC_LIB AND
-EDTR.ID = AC.EDITOR AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-ACN.ID IN(SELECT ID FROM ASSET.CALL_NUMBER WHERE (LOWER(LABEL)~$$ dvd$$ OR LOWER(LABEL)~$$^dvd$$ OR LOWER(LABEL)~$$vhs$$ OR LOWER(LABEL)~$$video$$ OR LOWER(LABEL)~$$movie$$) )
-OR
-ACL.ID IN(SELECT ID FROM ASSET.COPY_LOCATION WHERE (LOWER(NAME)~$$ dvd$$ OR LOWER(NAME)~$$^dvd$$ OR LOWER(NAME)~$$vhs$$ OR LOWER(NAME)~$$video$$ OR LOWER(NAME)~$$movie$$) )
-OR
-lower(ac.circ_modifier) ~* $$ dvd$$ OR
-lower(ac.circ_modifier) ~* $$^dvd$$ OR
-lower(ac.circ_modifier) ~* $$movie$$ OR
-lower(ac.circ_modifier) ~* $$vhs$$ OR
-lower(ac.circ_modifier) ~* $$video$$
-)
-AND
-BRE.ID IN
-(
-	SELECT A.ID FROM
-	(
-	SELECT STRING_AGG(VALUE,$$ $$) "FORMAT",ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID
-	) AS A
-	WHERE A."FORMAT"!~$$dvd$$ AND A."FORMAT"!~$$vhs$$ AND A."FORMAT"!~$$blu$$
-	UNION
-	SELECT ID FROM BIBLIO.RECORD_ENTRY WHERE ID NOT IN(SELECT ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$)
-)
-UNION
-select BRE.id as bib_id,AC.id as copy_id,ACN.LABEL,(SELECT STRING_AGG(VALUE,$$ $$) "FORMAT" from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ AND ID=BRE.ID GROUP BY ID),crtr.id as creator_id, crtr.email as creator_email, edtr.id editor_id, edtr.email editor_email,AOU.NAME, circ_lib
-from biblio.record_entry BRE, ASSET.COPY AC, ACTOR.ORG_UNIT AOU,ASSET.CALL_NUMBER ACN,ASSET.COPY_LOCATION ACL, ACTOR.USR EDTR,ACTOR.USR CRTR where
-AOU.ID=AC.CIRC_LIB AND
-EDTR.ID = AC.EDITOR AND
-CRTR.ID = AC.CREATOR AND
-BRE.ID=ACN.RECORD AND
-ACN.ID=AC.CALL_NUMBER AND
-ACL.ID=AC.LOCATION AND
-NOT ACN.DELETED AND
-NOT AC.DELETED AND
-BRE.ID>0 AND
-(
-	lower(acn.label) !~* $$ dvd$$ and
-	lower(acn.label) !~* $$^dvd$$ and
-	lower(acn.label) !~* $$movie$$ and
-	lower(acn.label) !~* $$vhs$$ and
-	lower(acn.label) !~* $$video$$
-)
-and
-(
-	lower(acl.name) !~* $$ dvd$$ and
-	lower(acl.name) !~* $$^dvd$$ and
-	lower(acl.name) !~* $$movie$$ and
-	lower(acl.name) !~* $$vhs$$ and
-	lower(acl.name) !~* $$video$$
-)
-and
-(
-	lower(ac.circ_modifier) !~* $$ dvd$$ and
-	lower(ac.circ_modifier) !~* $$^dvd$$ and
-	lower(ac.circ_modifier) !~* $$movie$$ and
-	lower(ac.circ_modifier) !~* $$vhs$$ and
-	lower(ac.circ_modifier) !~* $$video$$
-)
-AND
-BRE.ID IN
-(
-	SELECT A.ID FROM
-	(
-	SELECT STRING_AGG(VALUE,$$ $$) "FORMAT",ID from METABIB.RECORD_ATTR_FLAT WHERE ATTR=$$icon_format$$ GROUP BY ID
-	) AS A
-	WHERE A."FORMAT"~$$dvd$$ or A."FORMAT"~$$blu$$ or A."FORMAT"~$$vhs$$
-)
-order by 1;
-select * from (select id as system_id from actor.org_unit where parent_ou = 1) as systems
-join lateral ( select vid_mis.* from vid_mis where copy_id not in (select target_copy from tattler.ignore_list where org_unit = system_id and report_name = ?) and (select id from actor.org_unit_ancestor_at_depth(circ_lib, 1)) = system_id limit ?
-) as p on true
-
-order by system_id;
diff --git a/Open-ILS/src/support-scripts/tattler.pl.in b/Open-ILS/src/support-scripts/tattler.pl.in
deleted file mode 100644
index 751e57e245..0000000000
--- a/Open-ILS/src/support-scripts/tattler.pl.in
+++ /dev/null
@@ -1,259 +0,0 @@
-use strict;
-use warnings;
-use DBI;
-use File::Spec;
-use File::Basename;
-use File::Path qw(remove_tree rmtree);
-use OpenSRF::System;
-
-#ssh host
-my $total_time_start = time();
-my $config = '@sysconfdir@/opensrf_core.xml';
-OpenSRF::System->bootstrap_client( config_file => $config );
-
-my (%data_db, %state_db);
-
-my $sc = OpenSRF::Utils::SettingsClient->new;
-
-my $driver = $sc->config_value( reporter => setup => database => 'driver' );
-my $host   = $sc->config_value( reporter => setup => database => 'host' );
-my $port   = $sc->config_value( reporter => setup => database => 'port' );
-my $db   = $sc->config_value( reporter => setup => database => 'db' );
-if (!$db) {
-    $db = $sc->config_value( reporter => setup => database => 'name' );
-    print STDERR "WARN: <database><name> is a deprecated setting for database name. For future compatibility, you should use <database><db> instead." if $db; 
-}
-my $usr  = $sc->config_value( reporter => setup => database => 'user' );
-my $pwrd     = $sc->config_value( reporter => setup => database => 'pw' );
-
-
-my $dsn = "dbi:$driver:dbname='$db';host='$host';port='$port';";
-
-# folders to output web content
-my $output_folder = "../var/web/tattler-output/";
-# script will run every report in this folder
-my $sqldir = "./tattle-tale-scripts";
-# how many rows to return per report
-my $limit =  15;
-my $copy_url =  "/eg/staff/cat/item/";
-my $bib_url = "/eg/staff/cat/catalog/record/";
-my $patron_url = "/eg/staff/circ/patron/";
-my $tattler_url = "/eg/opac/tattler";
-my $dbh =DBI->connect($dsn, $usr, $pwrd, {AutoCommit => 0}) or die ( "Couldn't connect to database: " . DBI->errstr );
-
-# get org unit names and shortnames
-my $org_st = $dbh->prepare("select * from actor.org_unit");
-my %org_name; 
-my %org_shortname; 
-print("Retrieving org unit data\n");
-$org_st->execute();
-for((0..$org_st->rows-1)){
-    my $sql_hash_ref = $org_st->fetchrow_hashref;
-    $org_name{$sql_hash_ref->{'id'}} = $sql_hash_ref->{'name'}; 
-    $org_shortname{$sql_hash_ref->{'id'}} = $sql_hash_ref->{'shortname'}; 
-    # remove directory if it exists so we will have fresh results
-    my $sys_dir = "$output_folder/$sql_hash_ref->{'shortname'}";
-    if(-d $sys_dir){
-        print("removing $sys_dir\n");
-        rmtree($sys_dir);
-    }
-}
-$org_st->finish();
-
-my @files = glob $sqldir."/*.sql";
-# iterate over all SQl scripts in the sql directory
-foreach my $sql_file (@files) {
-    my ($report_title,$dir,$ext) = fileparse($sql_file,'\..*');
-    my $nice_report_title = "$report_title";
-    # report title is the file name with the extension removed and dashes turned to spaces
-    $nice_report_title =~ s/-/ /g;;
-
-    print "running " . $report_title . "\n";
-    open my $fh, '<', $sql_file or die "Can't open file $!";
-    my $statement_body = do { local $/; <$fh> };
-
-    # prepare statement
-    my $sth = $dbh->prepare($statement_body);
-    my $start_time = time();
-    # the first bind variable is the name of the report, it is used with the ignore table
-    # the second bind variable is the number of rows to return per system
-    $sth->execute($report_title,$limit);   
-    my $header_ref = $sth->{NAME_lc};
-    my @headers = @$header_ref;
-    my $data_ref = $sth->fetchall_arrayref();
-    my @data = @$data_ref;
-    my ($sys_id_index) = grep { $headers[$_] eq 'system_id' } (0 .. (scalar @headers)-1);
-    my ($bib_id_index) = grep { $headers[$_] eq 'bib_id' } (0 .. (scalar @headers)-1);
-    my ($copy_id_index) = grep { $headers[$_] eq 'copy_id' } (0 .. (scalar @headers)-1);
-    my ($circ_lib_index) = grep { $headers[$_] eq 'circ_lib' } (0 .. (scalar @headers)-1);
-
-    $sth->finish;
-    my $current_system = 0;
-    my $current_count = 1;
-    my $current_file;
-     my $l = $#data + 1;
-     my $complete_time = (time() - $start_time)/60.0;
-     print("retrieved $l rows in $complete_time minutes\n");
-     # for each row returned
-    for(my $i = 0; $i < $l; $i++){
-        my $sql_row_ref = $data[$i];
-        my @sql_row = @$sql_row_ref;
-
-        # set up file if this is new system
-        if($sql_row[$sys_id_index] != $current_system){
-            # set new current system
-            $current_system = $sql_row[$sys_id_index];
-            $current_count = 1;
-      
-            # end previous file
-            if(defined $current_file){
-                print $current_file "</tbody></tr></table>";
-                print $current_file "</form>";
-                print $current_file "</html>";
-                close $current_file;
-            }
-            my $sys_dir = "$output_folder/$org_shortname{$current_system}";
-            mkdir $sys_dir unless -d $sys_dir;
-            my $file = $sys_dir."/".$report_title.".html";
-
-            # create the file.
-            unless(open $current_file, '>'.$file) {
-                die "\nUnable to create $file\n";
-            }
-
-            # init file
-            # set up style for file
-            # TODO: Move style stuff into a static CSS file
-            print $current_file "<html><style> 
-    input[type=\"submit\"]{display: inline-block;margin-bottom: 20px;font-weight: 400;text-align: center;white-space: nowrap;vertical-align: middle;-ms-touch-action: manipulation;touch-action: manipulation;cursor: pointer;background-image: none;border: 1px solid transparent;padding: 6px 12px;font-size: 14px;line-height: 1.42857143;border-radius: 4px; user-select: none;color: #333; background-color: #fff;border-color: #ccc; } body{font-family: arial;} .tt-table{border-collapse:collapse;} .tt-table td{padding-left: 15px; padding-top: 5px; padding-bottom: 5px; padding-right: 15px;} .tt-table thead tr{color: rgb(100, 100, 100); background-color:rgb(225, 225, 225);border-bottom-style: solid; border-bottom-width: 1.5px; border-bottom-color:rgb(200, 200, 200);  border-collapse: collapse; font-weight: bold;} .tt-table tbody td:nth-child(1){color: rgb(100, 100, 100); background-color:rgb(225, 225, 225);border-right-style: solid; border-right-width: 1.5px; border-right-color:rgb(200, 200, 200);  border-collapse: collapse; font-weight: bold;border-bottom-color:rgb(128, 200, 200) !important;} .tt-table tbody tr { border-bottom-style: solid; border-bottom-width: 1px; border-bottom-color:rgb(221, 221, 221);  border-collapse: collapse;} .tt-table tbody tr:nth-child(odd){background-color:rgb(245, 245, 245);}</style>";
-            print $current_file "<h1>$org_name{$current_system}</h1>";
-            print $current_file "<h2>$nice_report_title</h2>";
-            print $current_file "<a href=\"index.html\">Return to index</a>";
-            print $current_file "<hr/>";
-            # create form for user created ignore list
-            print $current_file "<form action=\"$tattler_url\" method=\"POST\" id=\"ignoreForm\">";
-            print $current_file "<p>Check the boxes within the table to ignore to a copy. That copy will not appear on the next report that is generated.</p>";          
-            print $current_file "<input type=\"hidden\" id=\"reportName\" name=\"reportName\" value=\"$report_title\">";
-            print $current_file "<input type=\"hidden\" id=\"systemID\" name=\"systemID\" value=\"$current_system\">";
-            print $current_file "<input type=\"submit\">";
-            print $current_file "<table class=\"tt-table\">";
-            print $current_file "<thead><tr>";
-            print $current_file "<td>#</td>";
-            print $current_file "<td>Ignore</td>";
-            # init headers from data in table
-            for (@headers){
-                print $current_file "<td>$_</td>";
-            }
-            print $current_file "</tr></thead>";
-            print $current_file "<tbody>";
-        }
-        # send staff to the right subdomain for their system, assumed to be their system's shortname
-        my $subdomain ="https://";
-        $subdomain .= $org_shortname{$current_system}.".";
-        my $copy_id = $sql_row[$copy_id_index];
-        print $current_file "<tr>";
-        print $current_file "<td>$current_count</td>";
-        # check box marks this copy to be ignored next time
-        print $current_file "<td><input type=\"checkbox\" name=\"copyID[]\" value=\"$copy_id\"></td>";
-        while (my ($index, $elem) = each @sql_row) {
-            # set up links to Evergreen based on header name
-            if(defined($elem)){
-                if ($headers[$index] =~ m/email/ ) {
-                    print $current_file "<td><a href=\"mailto:$elem\">$elem</a></td>";
-                }
-                elsif ($headers[$index] =~ m/bib_id/ ) {
-                    print $current_file "<td><a href=\"$subdomain$bib_url$elem\">$elem</a></td>";
-                }
-                elsif ($headers[$index] =~ m/copy_id/ ) {
-                    print $current_file "<td><a href=\"$subdomain$copy_url$elem\">$elem</a></td>";
-                }
-                elsif ($headers[$index] =~ m/creator_id/ ) {
-                    print $current_file "<td><a href=\"$subdomain$patron_url$elem/checkout\">$elem</a></td>";
-                }
-                elsif ($headers[$index] =~ m/editor_id/ ) {
-                    print $current_file "<td><a href=\"$subdomain$patron_url$elem/checkout\">$elem</a></td>";
-                }
-                elsif ($headers[$index] =~ m/deletor_id/ ) {
-                    print $current_file "<td><a href=\"$subdomain$patron_url$elem/checkout\">$elem</a></td>";
-                }
-                else{              
-                    print $current_file "<td>$elem</td>";
-                }
-            }
-            else{
-                print $current_file "<td></td>";
-            }
-        }
-        print $current_file "</tr>";
-        
-        $current_count += 1;   
-    }
-    # end last file
-    if(defined $current_file){
-        print $current_file "</tbody></tr></table>";
-        print $current_file "</form>";
-        print $current_file "</html>";
-        close $current_file;
-    }
-}
-# close connection to database       
-$dbh->disconnect;
-# begin root index 
-my $index_data = "<html><style> body{font-family: arial;}</style><body><ul>";
-# build index for all webpages output
-foreach my $current_system (keys %org_shortname){
-    my $current_folder = "$output_folder/$org_shortname{$current_system}";
-    if(-d $current_folder){
-            # add this system to the root index
-            $index_data .= "<li><a href=\"$org_shortname{$current_system}\">$org_shortname{$current_system}</a></li>";
-            my @report_files;
-            opendir(DIR, $current_folder) or die $!;
-            
-            while (my $file = readdir(DIR)) 
-            {
-            next unless (-f "$current_folder/$file");
-                # Use a regular expression to find files ending in .html
-                next if (lc$file =~ m/index/);
-                next unless (lc$file =~ m/\.html$/);
-                push(@report_files,$file);
-            }
-            closedir(DIR);
-        
-        my $index_file;
-        my $index_file_name = $current_folder."/index.html";
-           unless(open $index_file, '>'.$index_file_name) {
-                    die "\nUnable to create $index_file_name\n";
-                }
-            print $index_file "<html>";
-            print $index_file "<style> body{font-family: arial;}</style>";
-            print $index_file "<h1>$org_name{$current_system}</h1>";
-            print $index_file "<a href=\"../index.html\">Return to index</a>";
-            print $index_file "<hr/>\n";
-            print $index_file "<ul>\n";
-            foreach(@report_files)
-            {
-                my $file = $_;
-                my @s1 = split(/\./,$file);
-                my @s2 = split(/-/,$s1[0]);
-                my $nice_report_title = join(" ",@s2);
-                
-                 print $index_file "<li><a href=\"$file\">$nice_report_title</a></li>\n";
-            }
-            
-             print $index_file "</ul>\n";
-             print $index_file "</html>";
-             close $index_file;
-    }
-}
-$index_data .= "</ul></body></html>";
-# create root index file
-my $index_file;
-my $index_file_name = $output_folder."/index.html";
-unless(open $index_file, '>'.$index_file_name) {
-        die "\nUnable to create $index_file_name\n";
-    }
-print $index_file $index_data;  
-close $index_file;    
-my $complete_time = (time() - $total_time_start)/60.0;
-print("script finished in $complete_time minutes\n");
-     
diff --git a/Open-ILS/src/templates/opac/tattler.tt2 b/Open-ILS/src/templates/opac/tattler.tt2
index d8368ded6b..da9937fe3c 100644
--- a/Open-ILS/src/templates/opac/tattler.tt2
+++ b/Open-ILS/src/templates/opac/tattler.tt2
@@ -1,14 +1 @@
-[%
-  ctx.page_title = l("Tattler"); 
-  ctx.page_app = "TattlerUpdate";
-%]
-[% WRAPPER base.tt2 %]
-<div style="color:black;">
-    The following copies will be ignored the next time the tattle-tale report is executed:
-    <ul>
-        [% FOREACH c IN ctx.copies %]
-        <li>[% c %]</li>
-        [% END %]
-    </ul>
-</div>
-[% END %]
+[%- ctx.status; -%]
\ No newline at end of file
-- 
2.11.0