Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

next if there is an error getting the biblio.

Browse source
This commit is contained in:
toins 2007-06-11 15:22:59 +00:00
parent 7fc3f2394b
commit 6dfb0dca36
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
misc/migration_tools/rebuild_nozebra.pl
View file

@ -80,8 +80,14 @@ my %result;
while (my ($biblionumber) = $sth->fetchrow) {
$i++;
print "\r$i";
my $record = GetMarcBiblio($biblionumber);
my $record;
eval{
$record = GetMarcBiblio($biblionumber);
};
if($@){
print " There was some pb getting biblionumber : ".$biblionumber."\n";
next;
}
# get title of the record (to store the 10 first letters with the index)
my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title');
my $title = lc($record->subfield($titletag,$titlesubfield));