|
Lines 48-58
if (@authtypes) {
Link Here
|
| 48 |
print "Restricted to authority type(s) : ".join(',', @authtypes).".\n"; |
48 |
print "Restricted to authority type(s) : ".join(',', @authtypes).".\n"; |
| 49 |
} |
49 |
} |
| 50 |
|
50 |
|
| 51 |
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); |
51 |
my $searcher = Koha::SearchEngine::Search->new( { index => 'biblios' } ); |
| 52 |
if ( $errZebraConnection == 10000 ) { |
52 |
my $checksearch; |
| 53 |
die "Zebra server seems not to be available. This script needs Zebra runs."; |
53 |
if ( C4::Context->preference("SearchEngine") eq 'Zebra' ) { |
| 54 |
} elsif ( $errZebraConnection ) { |
54 |
# Check server state |
| 55 |
die "Error from Zebra: $errZebraConnection"; |
55 |
my $errZebraConnection = C4::Context->Zconn("biblioserver",0)->errcode(); |
|
|
56 |
if ( $errZebraConnection == 10000 ) { |
| 57 |
die "Zebra server seems not to be available. This script needs Zebra runs."; |
| 58 |
} elsif ( $errZebraConnection ) { |
| 59 |
die "Error from Zebra: $errZebraConnection"; |
| 60 |
} |
| 61 |
$checksearch = q{an,alwaysmatches=''}; |
| 62 |
} |
| 63 |
else { |
| 64 |
$checksearch = q{an:*}; |
| 65 |
} |
| 66 |
# Check search on authority number as at least one result |
| 67 |
my ($err,$res,$nb) = $searcher->simple_search_compat($checksearch,0,10); |
| 68 |
unless ($nb > 0) { |
| 69 |
die "Searching authority number in biblio records seems not to be available : $checksearch"; |
| 56 |
} |
70 |
} |
| 57 |
|
71 |
|
| 58 |
my $dbh=C4::Context->dbh; |
72 |
my $dbh=C4::Context->dbh; |
|
Lines 67-73
$rqselect->execute(@authtypes);
Link Here
|
| 67 |
my $counter=0; |
81 |
my $counter=0; |
| 68 |
my $totdeleted=0; |
82 |
my $totdeleted=0; |
| 69 |
my $totundeleted=0; |
83 |
my $totundeleted=0; |
| 70 |
my $searcher = Koha::SearchEngine::Search->new({index => 'biblios'}); |
|
|
| 71 |
while (my $data=$rqselect->fetchrow_hashref){ |
84 |
while (my $data=$rqselect->fetchrow_hashref){ |
| 72 |
$counter++; |
85 |
$counter++; |
| 73 |
print 'authid='.$data->{'authid'}; |
86 |
print 'authid='.$data->{'authid'}; |
| 74 |
- |
|
|