[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: |
Tue, 10 Jan 2006 17:03:32 +0000 |
CVSROOT: /cvsroot/koha
Module name: koha
Branch:
Changes by: paul poulain <address@hidden> 06/01/10 17:03:32
Modified files:
misc/migration_tools: rebuild_zebra.pl
Log message:
new version of rebuild_zebra. Should work with Perl-ZOOM, but DOES NOT
WORK for me.
I get :
ZOOM error 10002 "Encoding failed" from diag-set 'ZOOM'
help expected from indexdata...
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/misc/migration_tools/rebuild_zebra.pl.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: koha/misc/migration_tools/rebuild_zebra.pl
diff -u koha/misc/migration_tools/rebuild_zebra.pl:1.2
koha/misc/migration_tools/rebuild_zebra.pl:1.3
--- koha/misc/migration_tools/rebuild_zebra.pl:1.2 Fri Jan 6 16:39:42 2006
+++ koha/misc/migration_tools/rebuild_zebra.pl Tue Jan 10 17:03:32 2006
@@ -46,21 +46,12 @@
$Zpackage->option(databaseName => 'Koha');
# $Zpackage->send("drop");
};
-if ($@) {
- print "Error dropping /CODE:", address@hidden>code()," /MSG:
",address@hidden>message(),"\n";
-# die;
-}
-# then recreate it
+
eval {
my $Zpackage = $Zconn->package();
$Zpackage->option(databaseName => 'Koha');
-# $Zpackage->send("create");
+ $Zpackage->send("create");
};
-if ($@) {
- print "Error creating /CODE:", address@hidden>code(),"\n
/MSG:",address@hidden>message(),"\n\n";
-# die;
-}
-
my $cgidir = C4::Context->intranetdir ."/cgi-bin";
unless (opendir(DIR, "$cgidir")) {
$cgidir = C4::Context->intranetdir."/";
@@ -71,25 +62,20 @@
$sth->execute;
my $i=0;
while ((my $biblionumber) = $sth->fetchrow) {
- my $record = MARCgetbiblio($dbh,$biblionumber);
-# my $filename = $cgidir."/zebra/biblios/BIBLIO".$biblionumber."iso2709";
-# open F,"> $filename";
-# print F $record->as_usmarc();
-# close F;
+ my $record = XMLgetbiblio($dbh,$biblionumber);
my $Zpackage = $Zconn->package();
-# print "=>".$record->as_xml()."\n";
+ $Zpackage->option(databaseName => 'Koha');
$Zpackage->option(action => "recordInsert");
- $Zpackage->option(record => $record->as_usmarc());
- eval {
- $Zpackage->send("update");
- };
- if ($@) {
- print "Error updating /CODE:", address@hidden>code(),"
/MSG:",address@hidden>message(),"\n";
- die;
- }
+ $Zpackage->option(record => $record);
+ $Zpackage->send("update");
$Zpackage->destroy;
$i++;
- print "\r$i" unless ($i % 100);
+ print '.';
+ print "$i\r" unless ($i % 100);
+# exit if $i>100;
}
+my $Zpackage = $Zconn->package();
+$Zpackage->option(databaseName => 'Koha');
+$Zpackage->send("commit");
my $timeneeded = gettimeofday - $starttime;
-print "\n$i MARC record done in $timeneeded seconds\n";
+print "\n\n$i MARC record done in $timeneeded seconds\n";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/misc/migration_tools rebuild_zebra.pl,
paul poulain <=