From 3848f81c3c0eaafca162a1fdf3d3aa2de8fd3d43 Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Date: Tue, 26 Dec 2017 18:05:56 -0300
Subject: [PATCH] Bug 19881: Remove authorities-list.pl

For obvious reasons...

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 authorities/authorities-list.pl | 37 ---------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100755 authorities/authorities-list.pl

diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl
deleted file mode 100755
index 0afa5e7fba..0000000000
--- a/authorities/authorities-list.pl
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use C4::Context;
-use C4::AuthoritiesMarc;
-use utf8;
-use open qw[ :std :encoding(utf8) ];
-use Koha::SearchEngine;
-use Koha::SearchEngine::Search;
-
-my $dbh=C4::Context->dbh;
-my $datatypes_query = $dbh->prepare(<<ENDSQL);
-SELECT authtypecode,authtypetext,auth_tag_to_report from auth_types;
-ENDSQL
-$datatypes_query->execute;
-my $datatypes=$datatypes_query->fetchall_arrayref({});
-my %authtypes;
-map { $authtypes{$_->{'authtypecode'}}={"tag"=> $_->{'auth_tag_to_report'}, "lib"=> $_->{'authtypetext'}};} @$datatypes;
-my $data_query = $dbh->prepare(<<ENDSQL);
-SELECT authid, authtypecode from auth_header
-ENDSQL
-$data_query->execute;
-my $dataauthorities=$data_query->fetchall_arrayref({});
-foreach my $authority (@$dataauthorities){
-  my $marcauthority=GetAuthority($authority->{'authid'});
-  my $query;
-  $query= "an=".$authority->{'authid'};
-  # search for biblios mapped
-  my $searcher = Koha::SearchEngine::Search->new({index => $Koha::SearchEngine::BIBLIOS_INDEX});
-  my ($err,undef,$used) = $searcher->simple_search_compat($query,0,1);
-  if (defined $err) {
-      $used = 0;
-  }
-  if ($marcauthority && $marcauthority->field($authtypes{$authority->{'authtypecode'}}->{'tag'})){
-    print qq("),$marcauthority->field($authtypes{$authority->{'authtypecode'}}->{"tag"})->as_string(),qq(";),qq($authority->{'authid'};"),$authtypes{$authority->{'authtypecode'}}->{'lib'},qq(";$used\n);
-  }
-}
-- 
2.39.5