|
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 |
- |
|
|