From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Tue, 25 Aug 2009 23:40:24 +0000 (+0200)
Subject: Adding Authorities list
X-Git-Tag: v3.02.00-alpha~54^2~426
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=e5c0c4a8a2a44122e703d985d146215e364a3cf5;p=koha.git

Adding Authorities list

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---

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";
+  }
+}