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

(-)a/misc/migration_tools/remove_unused_authorities.pl (-1 / +4 lines)
Lines 45-50 if ($test) { Link Here
45 
    print "testing only, authorities will not be deleted.\n";
 45 
    print "testing only, authorities will not be deleted.\n";
46 
}
 46 
}
47 

          47
          

        

            

              
              
              48
              
if (C4::Context->Zconn("biblioserver",0)->errcode() == 10000) {

            

            

              49
              
    die "Zebra server seems not to be available. This script needs Zebra runs."

            

            

              50
              
}

            

            

              51
              

            

        

          48
          
my $dbh=C4::Context->dbh;

          52
          
my $dbh=C4::Context->dbh;

        

        

          49
          
my $thresholdmin=0;

          53
          
my $thresholdmin=0;

        

        

          50
          
my $thresholdmax=0;

          54
          
my $thresholdmax=0;

        

            

              51
              
- 

              
              
            






  

  Return to bug 15188