if ($record_type eq 'authority') {

        if ( $record_type eq 'biblio' ) {

            my $succeeded = fix_biblio_ids( $marc, $record_number );

            fix_biblio_items( $marc ) if $item_limit;

            return unless $succeeded;

        } else {

- 

#!/usr/bin/zsh

# Copyright 2011 BibLibre SARL

# This file is part of Koha.

#

# Koha is free software; you can redistribute it and/or modify it under the

# terms of the GNU General Public License as published by the Free Software

# Foundation; either version 2 of the License, or (at your option) any later

# version.

#

# Koha is distributed in the hope that it will be useful, but WITHOUT ANY

# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR

# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License along

# with Koha; if not, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

INCREMENT=$1

BIBLIOSTART=$2

BIBLIOEND=$3

#echo " | $INCREMENT , $BIBLIOSTART , $BIBLIOEND | ";

# this script rebuild the zebra index recursively

# BIBLIOSTART is the record number to BIBLIOSTART on

# BIBLIOEND is the record number to BIBLIOEND on

# increment specify how many records we must try at once

# At the BIBLIOEND of each "chunk", this script checks if the indexing process has been OK

# if it hasn't, the slice is splitted in 10, and the reindexing is called again on each smaller chunk

# if the increment goes to 1, it means we tried to reindex 1 by 1, and the failing indexing concern wrong records

# the logs are stored in a directory called logs/ that must be a subdirectory of reindex.zsh

# at the BIBLIOEND of the script, just type :

#grep -l "previous transaction" `ls rebuild1.*.err`

# the result contains all the biblios that have not been indexed

# WARNING : the numbers are not the biblionumber but the record number, they can be reached by :

# SELECT biblionumber FROM biblio LIMIT YourNumberHere,1;

# EXAMPLE to run the script on a 800 000 biblios database :

# ./reindex.zsh 50000 0 800000

# will reindex the DB, BIBLIOSTARTing with chunks of 50k biblios

#if { grep -E "previous transaction" `dirname $0`/logs/rebuild$INCREMENT.$i.err } ; then

lastbiblionumber=`perl -e '#!/usr/bin/perl

use C4::Context;

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

my $querylastbiblionumber = "SELECT max(biblionumber) FROM biblio;";

my $sthlastbiblionumber   = $dbh->prepare($querylastbiblionumber);

$sthlastbiblionumber->execute();

my ( $lastbiblionumber ) = $sthlastbiblionumber->fetchrow_array; print $lastbiblionumber;'`

#echo $lastbiblionumber;

let "maxbiblionumber = $lastbiblionumber + 1"

if [ $# = 2 ]

then

    BIBLIOEND=$lastbiblionumber

elif [ $# = 1 ]

then

    BIBLIOSTART=0

    BIBLIOEND=$lastbiblionumber

elif [ $# = 0 ]

then

    INCREMENT=10000

    BIBLIOSTART=0

    BIBLIOEND=$lastbiblionumber

fi

if [[ $INCREMENT =~ ^10*$ ]]

then

else

    echo "The first argument (INCREMENT) must be 1 or a multiple of 10"

    exit 2

fi

if [[ $BIBLIOSTART =~ ^[0-9]*$ ]]

then

else

    echo "The second argument (BIBLIOSTART) must be an integer"

    exit 2

fi

if [[ $BIBLIOEND =~ ^[0-9]*$ ]]

then

else

    echo "The third argument (BIBLIOEND) must be an integer"

    exit 2

fi

if [ $BIBLIOSTART -lt $BIBLIOEND ]

then

else

    echo "The second argument (BIBLIOSTART) must be lower than the third argument (BIBLIOEND)"

    exit 2

fi

if [ $BIBLIOEND -lt $maxbiblionumber ]

then

else

    echo "end"

    exit 1

fi

    ls `dirname $0`/logs/ >/dev/null 2>&1

    if [ $? != 0 ]

    then

        mkdir `dirname $0`/logs

    else

        rm `dirname $0`/logs/*

    fi

    #/home/koha/src/misc/migration_tools/rebuild_zebra.pl -r -b -v -x -nosanitize -offset 1 -length 1

    for ((i=$BIBLIOSTART ; i<$BIBLIOEND ; i=i+$INCREMENT))

    do

        echo "I = " $i "with increment " $INCREMENT

        `dirname $0`/rebuild_zebra.pl -b -v -x -nosanitize -d /tmp/rebuild -k -offset $INCREMENT -length $i > `dirname $0`/logs/rebuild$INCREMENT.$i.log 2> `dirname $0`/logs/rebuild$INCREMENT.$i.err

        if (($INCREMENT >1 ));

        then

            if { grep -q "previous transaction" `dirname $0`/logs/rebuild$INCREMENT.$i.err } ;

            then

                echo "I must split $i (increment $INCREMENT) because previous transaction didn't reach commit"

                ((subincrement=$INCREMENT/10))

                ((newBIBLIOEND=$i+$INCREMENT))

                $0 $subincrement $i $newBIBLIOEND

            elif { ! grep -q "Records: $INCREMENT" `dirname $0`/logs/rebuild$INCREMENT.$i.err } ;

            then

                echo "I must split $i (increment $INCREMENT) because index was uncomplete, less than $INCREMENT records indexed"

                ((subincrement=$INCREMENT/10))

                ((newBIBLIOEND=$i+$INCREMENT))

                $0 $subincrement $i $newBIBLIOEND

            fi

        fi

    done

exit 0