View | Details | Raw Unified | Return to bug 13706
Collapse All | Expand All

(-)a/misc/migration_tools/dedup_authorities.pl (-3 / +12 lines)
Lines 12-17 use Getopt::Long; Link Here
12
use YAML;
12
use YAML;
13
use List::MoreUtils qw/uniq/;
13
use List::MoreUtils qw/uniq/;
14
14
15
=head1 NAME
16
17
misc/migration_tools/dedup_authorities.pl - Deduping authorities script
18
19
=head1 DESCRIPTION
20
21
Use this script to remove duplicate authorities.
22
23
=cut
24
15
my @matchstrings;
25
my @matchstrings;
16
my $choosemethod = "u";   # by default, choose to keep the most used authority
26
my $choosemethod = "u";   # by default, choose to keep the most used authority
17
my ($verbose, $all, $help, $wherestring, $test);
27
my ($verbose, $all, $help, $wherestring, $test);
Lines 426-438 sub _is_duplicate { Link Here
426
        warn "no or bad authoritytypecode for $authid1";
436
        warn "no or bad authoritytypecode for $authid1";
427
        return 0;
437
        return 0;
428
    }
438
    }
429
    my $auth_tag   = $authtypes{$at1} if (exists $authtypes{$at1});
439
    my $auth_tag   = exists $authtypes{$at1} ? $authtypes{$at1} : '';
430
    my $at2        = GetAuthTypeCode($authid2);
440
    my $at2        = GetAuthTypeCode($authid2);
431
    if (!$at2){
441
    if (!$at2){
432
        warn "no or bad authoritytypecode for $authid2";
442
        warn "no or bad authoritytypecode for $authid2";
433
        return 0;
443
        return 0;
434
    }
444
    }
435
    my $auth_tag2  = $authtypes{$at2} if (exists $authtypes{$at2});
445
    my $auth_tag2  = exists $authtypes{$at2} ? $authtypes{$at2} : '';
436
    $debug and warn YAML::Dump($authrecord);
446
    $debug and warn YAML::Dump($authrecord);
437
    $debug and warn YAML::Dump($marc);
447
    $debug and warn YAML::Dump($marc);
438
    SetUTF8Flag($authrecord);
448
    SetUTF8Flag($authrecord);
439
- 

Return to bug 13706