Bugzilla – Attachment 24594 Details for
Bug 11441
Ability to globally remove authorities with no bibliographic record linked.
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 11441 - Ability to globally remove authorities with no bibliographic record linked.
Bug-11441-Ability-to-globally-remove-authorities-wit.patch (text/plain), 1.92 KB, created by
Juan Romay Sieira
on 2014-01-21 11:58:47 UTC
(
hide
)
Description:
Bug 11441 - Ability to globally remove authorities with no bibliographic record linked.
Filename:
MIME Type:
Creator:
Juan Romay Sieira
Created:
2014-01-21 11:58:47 UTC
Size:
1.92 KB
patch
obsolete
>From 8a1f9153b01f192fdab135e67d9b90ffd3d10d88 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. >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 >
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 11441
:
24594
|
26326
|
27025