X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=authorities%2Fauthorities-list.pl;h=2b15856dcfaf4b371a7c2c732799613f7ff64006;hb=8469d53f02d77dbc940dcac80c1a64bf932db994;hp=435948921d2a91526b4b02af624db6a897e9bb24;hpb=e5c0c4a8a2a44122e703d985d146215e364a3cf5;p=koha.git

diff --git a/authorities/authorities-list.pl b/authorities/authorities-list.pl
old mode 100644
new mode 100755
index 435948921d..2b15856dcf
--- a/authorities/authorities-list.pl
+++ b/authorities/authorities-list.pl
@@ -4,6 +4,8 @@ use warnings;
 use C4::Context;
 use C4::AuthoritiesMarc;
 use utf8;
+use open qw[ :std :encoding(utf8) ];
+
 my $dbh=C4::Context->dbh;
 my $datatypes_query = $dbh->prepare(<<ENDSQL);
 SELECT authtypecode,authtypetext,auth_tag_to_report from auth_types;
@@ -17,10 +19,16 @@ 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'});
+  my $query;
+  $query= "an=".$authority->{'authid'};
+  # search for biblios mapped
+  my ($err,$res,$used) = C4::Search::SimpleSearch($query,0,10);
+  if (defined $err) {
+      $used = 0;
+  }
   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";
+    print qq("),$marcauthority->field($authtypes{$authority->{'authtypecode'}}->{"tag"})->as_string(),qq(";),qq($authority->{'authid'};"),$authtypes{$authority->{'authtypecode'}}->{'lib'},qq(";$used\n);
   }
 }