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

(-)a/C4/AuthoritiesMarc.pm (-6 / +1 lines)
Lines 784-798 Comments : an improvement would be to return All the records that match. Link Here
784
sub FindDuplicateAuthority {
784
sub FindDuplicateAuthority {
785
785
786
    my ($record,$authtypecode)=@_;
786
    my ($record,$authtypecode)=@_;
787
#    warn "IN for ".$record->as_formatted;
788
    my $dbh = C4::Context->dbh;
787
    my $dbh = C4::Context->dbh;
789
#    warn "".$record->as_formatted;
790
    my $auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report;
788
    my $auth_tag_to_report = Koha::Authority::Types->find($authtypecode)->auth_tag_to_report;
791
#     warn "record :".$record->as_formatted."  auth_tag_to_report :$auth_tag_to_report";
792
    # build a request for SearchAuthorities
789
    # build a request for SearchAuthorities
793
    my $op = 'AND';
790
    my $op = 'AND';
794
    $authtypecode =~ s#/#\\/#; # GENRE/FORM contains forward slash which is a reserved character
791
    my $query='at:"'.$authtypecode.'" '; # Quote authtype code to avoid unescaping slash in GENRE/FORM later
795
    my $query='at:'.$authtypecode.' ';
796
    my $filtervalues=qr([\001-\040\Q!'"`#$%&*+,-./:;<=>?@(){[}_|~\E\]]);
792
    my $filtervalues=qr([\001-\040\Q!'"`#$%&*+,-./:;<=>?@(){[}_|~\E\]]);
797
    if ($record->field($auth_tag_to_report)) {
793
    if ($record->field($auth_tag_to_report)) {
798
        foreach ($record->field($auth_tag_to_report)->subfields()) {
794
        foreach ($record->field($auth_tag_to_report)->subfields()) {
799
- 

Return to bug 31023