From 8a1f9153b01f192fdab135e67d9b90ffd3d10d88 Mon Sep 17 00:00:00 2001 From: Juan Romay Sieira Date: Tue, 21 Jan 2014 12:46:09 +0100 Subject: [PATCH] Bug 11441 - Ability to globally remove authorities with no bibliographic record linked. Content-Type: text/plain; charset="utf-8" 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 --- 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