Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 97 lines (85 sloc) 3.044 kb
#!/usr/bin/env perl
# Small script that rebuilds the non-MARC DB
# Formerly named
use strict;
# use warnings; FIXME someday
# find Koha's Perl modules
# test carefully before changing this
use FindBin;
eval { require "$FindBin::Bin/" };
# Koha modules used
use MARC::Record;
use Koha;
use C4::Context;
use C4::Biblio;
use Time::HiRes qw(gettimeofday);
use Getopt::Long;
my ( $input_marc_file, $number) = ('', 0);
my ($version, $confirm, $test_parameter);
'c' => \$confirm,
'h' => \$version,
't' => \$test_parameter,
if ($version || (!$confirm)) {
print <<EOF
This script rebuilds the non-MARC DB from the MARC values.
You can/must use it when you change your mapping.
Example: you decide to map biblio.title to 200\$a (it was previously mapped to 610\$a).
Run this script or you will have strange results in OPAC !
\t./ -h (or without arguments => shows this screen)
\t./ -c (c like confirm => rebuild non marc DB (may be long)
\t-t => test only, change nothing in DB
my $dbh = C4::Context->dbh;
my $i=0;
my $starttime = time();
$|=1; # flushes output
$starttime = gettimeofday;
#1st of all, find item MARC tag.
my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.itemnumber",'');
# $dbh->do("lock tables biblio write, biblioitems write, items write, marc_biblio write, marc_subfield_table write, marc_blob_subfield write, marc_word write, marc_subfield_structure write, stopwords write");
my $sth = $dbh->prepare("SELECT biblionumber FROM biblio");
# my ($biblionumbermax) = $sth->fetchrow;
# warn "$biblionumbermax <<==";
while (my ($biblionumber)= $sth->fetchrow) {
#now, parse the record, extract the item fields, and store them in somewhere else.
my $record = GetMarcBiblio($biblionumber);
my @fields = $record->field($tagfield);
my @items;
my $nbitems=0;
print ".";
my $timeneeded = gettimeofday - $starttime;
print "$i in $timeneeded s\n" unless ($i % 50);
foreach my $field (@fields) {
my $item = MARC::Record->new();
push @items,$item;
# print "$biblionumber\n";
my $frameworkcode = GetFrameworkCode($biblionumber);
localNEWmodbiblio($dbh,$record,$biblionumber,$frameworkcode) unless $test_parameter;
# $dbh->do("unlock tables");
my $timeneeded = time() - $starttime;
print "$i MARC record done in $timeneeded seconds\n";
# modified NEWmodbiblio to jump the MARC part of the biblio modif
# highly faster
sub localNEWmodbiblio {
my ($dbh,$record,$biblionumber,$frameworkcode) =@_;
$frameworkcode="" unless $frameworkcode;
my $oldbiblio = TransformMarcToKoha($dbh,$record,$frameworkcode);
C4::Biblio::_koha_modify_biblio( $dbh, $oldbiblio, $frameworkcode );
C4::Biblio::_koha_modify_biblioitem_nonmarc( $dbh, $oldbiblio );
return 1;
Jump to Line
Something went wrong with that request. Please try again.