Browse Source
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>18.05.x
Jonathan Druart
7 years ago
1 changed files with 0 additions and 37 deletions
@ -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); |
|
||||
} |
|
||||
} |
|
Loading…
Reference in new issue