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

(-)a/misc/migration_tools/remove_unused_authorities.pl (-2 / +1 lines)
Lines 95-101 while (my $data=$rqselect->fetchrow_hashref){ Link Here
95 
    }
 95 
    }
96 
    unless ($used > 0){
 96 
    unless ($used > 0){
97 
        unless ($test) {
 97 
        unless ($test) {
98 
            DelAuthority({ authid => $data->{'authid'} });
 98 
            DelAuthority({ authid => $data->{'authid'}, skip_merge => 1 });
99 
            print " : deleted";
 99 
            print " : deleted";
100 
        } else {
 100 
        } else {
101 
            print " : can be deleted";
 101 
            print " : can be deleted";
102 
-

Return to bug 26337