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

(-)a/misc/migration_tools/remove_unused_authorities.pl (-2 / +4 lines)
Lines 45-52 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) {
48
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode();
49
if ( $errZebraConnection == 10000 ) {
49
    die "Zebra server seems not to be available. This script needs Zebra runs."
50
    die "Zebra server seems not to be available. This script needs Zebra runs."
51
} elsif ( $errZebraConnection ) {
52
    die "Error from Zebra: $errZebraConnection";
50
}
53
}
51
54
52
my $dbh=C4::Context->dbh;
55
my $dbh=C4::Context->dbh;
53
- 

Return to bug 15188