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

(-)a/C4/AuthoritiesMarc.pm (-1 / +1 lines)
Lines 1496-1502 sub merge { Link Here
1496
            push @editedbiblios, $biblionumber;
1496
            push @editedbiblios, $biblionumber;
1497
        }
1497
        }
1498
    }#foreach $marc
1498
    }#foreach $marc
1499
1499
    DelAuthority($mergefrom) if ($mergefrom != $mergeto);
1500
    return @editedbiblios;
1500
    return @editedbiblios;
1501
}
1501
}
1502
1502
(-)a/misc/migration_tools/dedup_authorities.pl (-3 / +2 lines)
Lines 143-152 for my $authtypecode (@authtypecodes) { Link Here
143
            ($verbose >= 2) and logger("Building query...");
143
            ($verbose >= 2) and logger("Building query...");
144
            my $query = _build_query( $authrecord, $attempt );
144
            my $query = _build_query( $authrecord, $attempt );
145
            ($verbose >= 2) and logger("Building query done.");
145
            ($verbose >= 2) and logger("Building query done.");
146
            $debug and $query and warn $query;
146
            ($verbose >= 2) and logger ($query);
147
            # This prevent too general queries to be executed
147
            # This prevent too general queries to be executed
148
            # TODO: This should allow more than these 3 indexes
148
            # TODO: This should allow more than these 3 indexes
149
            next unless $query =~ /(he|he-main|ident)(,\S*)*(=|:)/;
149
            next unless $query =~ /(ppn|he|he-main|ident)(,\S*)*(=|:)/;
150
150
151
            ($verbose >= 2) and logger("Searching...");
151
            ($verbose >= 2) and logger("Searching...");
152
            my ($error, $results) = SimpleSearch($query, undef, undef, ["authorityserver"]);
152
            my ($error, $results) = SimpleSearch($query, undef, undef, ["authorityserver"]);
153
- 

Return to bug 7419