Attachment 27025 Details for Bug 11441 – Bug 11441 - Ability to globally remove authorities with no bibliographic record linked.

[patch] Bug 11441 - Ability to globally remove authorities with no bibliographic record linked.

Bug-11441---Ability-to-globally-remove-authorities.patch (text/plain), 1.99 KB, created by Kyle M Hall (khall) on 2014-04-11 14:16:32 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Kyle M Hall (khall)

Created: 2014-04-11 14:16:32 UTC

Size: 1.99 KB

patch

obsolete

>From 36afde80a3029e1791e7e2c4ce7e01faf1feb092 Mon Sep 17 00:00:00 2001
>From: Juan Romay Sieira <juan.sieira@xercode.es>
>Date: Tue, 21 Jan 2014 12:46:09 +0100
>Subject: [PATCH] Bug 11441 - Ability to globally remove authorities with no bibliographic record linked.
>
>To test it:
>	Parse only PERSO_NAME authorities:
>		misc/migration_tools/remove_unused_authorities.pl -aut PERSO_NAME
>
>	Parse all authorities:
>		misc/migration_tools/remove_unused_authorities.pl
>
>Signed-off-by: Nicolas Legrand <nicolas.legrand@bulac.fr>
>Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
>---
> misc/migration_tools/remove_unused_authorities.pl |   11 ++++-------
> 1 files changed, 4 insertions(+), 7 deletions(-)
>
>diff --git a/misc/migration_tools/remove_unused_authorities.pl b/misc/migration_tools/remove_unused_authorities.pl
>index 7920923..5171538 100755
>--- a/misc/migration_tools/remove_unused_authorities.pl
>+++ b/misc/migration_tools/remove_unused_authorities.pl
>@@ -46,16 +46,13 @@ if ($test) {
> }
> 
> my $dbh=C4::Context->dbh;
>-@authtypes or @authtypes = qw( NC );
> my $thresholdmin=0;
> my $thresholdmax=0;
> my @results;
> # prepare the request to retrieve all authorities of the requested types
>-my $rqselect = $dbh->prepare(
>-    qq{SELECT * from auth_header where authtypecode IN (}
>-    . join(",",map{$dbh->quote($_)}@authtypes)
>-    . ")"
>-);
>+my $rqsql = "SELECT * from auth_header where 1";
>+$rqsql .= " AND authtypecode IN (".join(",",map{$dbh->quote($_)}@authtypes).")" if @authtypes;
>+my $rqselect = $dbh->prepare($rqsql);
> $|=1;
> 
> $rqselect->execute;
>@@ -89,7 +86,7 @@ sub print_usage {
>     print <<_USAGE_;
> $0: Removes unused authorities.
> 
>-This script will parse all authoritiestypes given as parameter, and remove authorities without any biblio attached.
>+This script will parse all authoritiestypes (or only those given as parameter), and remove authorities without any biblio attached.
> warning : there is no individual confirmation !
> parameters
>     --aut|authtypecode TYPE       the list of authtypes to check
>-- 
>1.7.2.5

Actions: View | Diff | Splinter Review

Attachments on bug 11441: 24594 | 26326 | 27025