From eac60e3292daeeff827e87301f064cf9c6f1c1f2 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Tue, 17 Mar 2009 11:51:58 +0100
Subject: [PATCH] Adding Authorities list

---
 authorities/authorities-list.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 authorities/authorities-list.pl

diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl
new file mode 100644
index 0000000000..435948921d
--- /dev/null
+++ b/authorities/authorities-list.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use C4::Context;
+use C4::AuthoritiesMarc;
+use utf8;
+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({});
+print "id;authtype;heading;count usage\n";
+foreach my $authority (@$dataauthorities){
+  my $marcauthority=GetAuthority($authority->{'authid'});
+  if ($marcauthority && $marcauthority->field($authtypes{$authority->{'authtypecode'}}->{'tag'})){
+    print qq($authority->{'authid'};"),$authtypes{$authority->{'authtypecode'}}->{'lib'},qq(";"),$marcauthority->field($authtypes{$authority->{'authtypecode'}}->{"tag"})->as_string(),qq(";), CountUsage($authority->{authid}),"\n";
+  }
+}
-- 
2.20.1