gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 6001 : batchRebuildBiblioTables.pl doesn't crash anymore when GetMarcBiblio fails. Unprocessed biblionumbers are displayed at the end of the execution instead. 

Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Matthias Meusburger 2010-04-01 16:07:25 +02:00 committed by Chris Cormack
parent e8b7b297c0
commit a9cb5fa1ee
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
misc/batchRebuildBiblioTables.pl
View File

@ -58,9 +58,14 @@ my $sth = $dbh->prepare("SELECT biblionumber FROM biblio");
$sth->execute;
# my ($biblionumbermax) = $sth->fetchrow;
# warn "$biblionumbermax <<==";
my @errors;
while (my ($biblionumber)= $sth->fetchrow) {
#now, parse the record, extract the item fields, and store them in somewhere else.
my $record = GetMarcBiblio($biblionumber);
if (not defined $record) {
push @errors, $biblionumber;
next;
}
my @fields = $record->field($tagfield);
my @items;
my $nbitems=0;
@ -82,6 +87,9 @@ while (my ($biblionumber)= $sth->fetchrow) {
# $dbh->do("unlock tables");
my $timeneeded = time() - $starttime;
print "$i MARC record done in $timeneeded seconds\n";
if (scalar(@errors) > 0) {
print "Some biblionumber could not be processed though: ", join(" ", @errors);
}
# modified NEWmodbiblio to jump the MARC part of the biblio modif
# highly faster