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

(-)a/C4/Biblio.pm (-22 / +21 lines)
Lines 2930-2956 sub ModZebra { Link Here
2930
        else {
2930
        else {
2931
            croak "ModZebra called with unknown operation: $op";
2931
            croak "ModZebra called with unknown operation: $op";
2932
        }
2932
        }
2933
    } else {
2933
    }
2934
        my $dbh = C4::Context->dbh;
2934
2935
2935
    my $dbh = C4::Context->dbh;
2936
        # true ModZebra commented until indexdata fixes zebraDB crashes (it seems they occur on multiple updates
2936
2937
        # at the same time
2937
    # true ModZebra commented until indexdata fixes zebraDB crashes (it seems they occur on multiple updates
2938
        # replaced by a zebraqueue table, that is filled with ModZebra to run.
2938
    # at the same time
2939
        # the table is emptied by rebuild_zebra.pl script (using the -z switch)
2939
    # replaced by a zebraqueue table, that is filled with ModZebra to run.
2940
        my $check_sql = "SELECT COUNT(*) FROM zebraqueue
2940
    # the table is emptied by rebuild_zebra.pl script (using the -z switch)
2941
        WHERE server = ?
2941
    my $check_sql = "SELECT COUNT(*) FROM zebraqueue
2942
            AND   biblio_auth_number = ?
2942
    WHERE server = ?
2943
            AND   operation = ?
2943
        AND   biblio_auth_number = ?
2944
            AND   done = 0";
2944
        AND   operation = ?
2945
        my $check_sth = $dbh->prepare_cached($check_sql);
2945
        AND   done = 0";
2946
        $check_sth->execute( $server, $biblionumber, $op );
2946
    my $check_sth = $dbh->prepare_cached($check_sql);
2947
        my ($count) = $check_sth->fetchrow_array;
2947
    $check_sth->execute( $server, $biblionumber, $op );
2948
        $check_sth->finish();
2948
    my ($count) = $check_sth->fetchrow_array;
2949
        if ( $count == 0 ) {
2949
    $check_sth->finish();
2950
            my $sth = $dbh->prepare("INSERT INTO zebraqueue  (biblio_auth_number,server,operation) VALUES(?,?,?)");
2950
    if ( $count == 0 ) {
2951
            $sth->execute( $biblionumber, $server, $op );
2951
        my $sth = $dbh->prepare("INSERT INTO zebraqueue  (biblio_auth_number,server,operation) VALUES(?,?,?)");
2952
            $sth->finish;
2952
        $sth->execute( $biblionumber, $server, $op );
2953
        }
2953
        $sth->finish;
2954
    }
2954
    }
2955
}
2955
}
2956
2956
2957
- 

Return to bug 16248