[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/misc/migration_tools rebuild_zebra.pl
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/misc/migration_tools rebuild_zebra.pl |
Date: |
Wed, 01 Aug 2007 09:20:03 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/08/01 09:20:03
Modified files:
misc/migration_tools: rebuild_zebra.pl
Log message:
eval() on getAuthority & getBiblio to avoid a script failure
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/misc/migration_tools/rebuild_zebra.pl?cvsroot=koha&r1=1.11&r2=1.12
Patches:
Index: rebuild_zebra.pl
===================================================================
RCS file: /sources/koha/koha/misc/migration_tools/rebuild_zebra.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- rebuild_zebra.pl 6 Jun 2007 13:08:36 -0000 1.11
+++ rebuild_zebra.pl 1 Aug 2007 09:20:03 -0000 1.12
@@ -290,7 +290,15 @@
$sth->execute();
my $i=0;
while (my ($authid) = $sth->fetchrow) {
- my $record = GetAuthority($authid);
+ my $record;
+ eval {
+ $record = GetAuthority($authid);
+ };
+ if($@){
+ print " There was some pb getting authority : ".$authid."\n";
+ next;
+ }
+
print ".";
print "\r$i" unless ($i++ %100);
# remove leader length, that could be wrong, it will be calculated
automatically by as_usmarc
@@ -481,11 +489,18 @@
open(OUT,">:utf8 ","$directory/biblios/export") or die $!;
my $dbh=C4::Context->dbh;
my $sth;
- $sth=$dbh->prepare("select biblionumber from biblioitems where
biblionumber >54000 order by biblionumber $limit");
+ $sth=$dbh->prepare("select biblionumber from biblioitems order by
biblionumber $limit");
$sth->execute();
my $i=0;
while (my ($biblionumber) = $sth->fetchrow) {
- my $record = GetMarcBiblio($biblionumber);
+ my $record;
+ eval {
+ $record = GetMarcBiblio($biblionumber);
+ };
+ if($@){
+ print " There was some pb getting biblio :
#".$biblionumber."\n";
+ next;
+ }
# warn $record->as_formatted;
# die if $record->subfield('090','9') eq 11;
# print $record;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/misc/migration_tools rebuild_zebra.pl,
paul poulain <=