Bugzilla – Attachment 70282 Details for
Bug 19881
authorities-list.pl can be executed by anybody
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 19881: Remove authorities-list.pl
Bug-19881-Remove-authorities-listpl.patch (text/plain), 2.15 KB, created by
Nick Clemens (kidclamp)
on 2018-01-05 11:15:26 UTC
(
hide
)
Description:
Bug 19881: Remove authorities-list.pl
Filename:
MIME Type:
Creator:
Nick Clemens (kidclamp)
Created:
2018-01-05 11:15:26 UTC
Size:
2.15 KB
patch
obsolete
>From 533a633dd18f9b70a2ec38843ff1fc23e3a4bedc 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> >--- > 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 0afa5e7..0000000 >--- 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.1.4
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 19881
:
70166
|
70168
| 70282