use C4::AuthoritiesMarc;
use strict;
+#use warnings; FIXME - Bug 2505
#
# script that fills the nozebra table
#
# limit for database dumping
my $limit;# = "LIMIT 100";
my $directory;
-my $skip_export;
-my $keep_export;
-my $reset;
-my $biblios;
+#my $skip_export;
+#my $keep_export;
+#my $reset;
+#my $biblios;
my $authorities;
my $sysprefs;
-GetOptions(
+my $commit;
+my $want_help;
+
+my $result = GetOptions(
'd:s' => \$directory,
- 'reset' => \$reset,
- 's' => \$skip_export,
- 'k' => \$keep_export,
- 'b' => \$biblios,
- 'a' => \$authorities,
+# 'reset' => \$reset,
+# 's' => \$skip_export, # Not used and conflicts with 's' option some lines below for sysprefs!!!
+# 'k' => \$keep_export,
+# 'b' => \$biblios,
+# 'a' => \$authorities,
's' => \$sysprefs, # rebuild 'NoZebraIndexes' syspref
+ 'h|help' => \$want_help,
+ 'commit:f' => \$commit,
);
+if (not $result or $want_help) {
+ print_usage();
+ exit 0;
+}
+
+
+sub print_usage {
+ print <<_USAGE_;
+$0: reindex MARC bibs and authorities if NOT using Zebra ("NoZebra").
+
+Use this batch job to reindex all biblio and authority
+records in your Koha database. This job is useful
+only if you are NOT using Zebra ('NoZebra'); if you are
+using the 'Zebra'mode, this job should NOT be used.
+
+Parameters:
+ -d Temporary directory for indexing.
+ If not specified, one is automatically
+ created. The export directory
+ is automatically deleted unless
+ you supply the -k switch.
+
+ -s Rebuild "NoZebraIndexes" System Preference
+
+ --help or -h show this message.
+_USAGE_
+} # END of print_usage sub
+
+
+my $commitnum = 1000;
+$commitnum = $commit if ($commit) ;
+
$directory = "export" unless $directory;
my $dbh=C4::Context->dbh;
$dbh->do("update systempreferences set value=1 where variable='NoZebra'");
'callnum' => '952o',
'an' => '6009,6109,6119',
'series' => 440*,490*,
-'host-item' => '952a,952c',
+'host-item' => '9529
+'shelf' => '952c',
+'collection' => '9528',
\"WHERE variable='NoZebraIndexes'");
%index = GetNoZebraIndexes();
}
$|=1;
+$dbh->{AutoCommit} = 0;
+
print "***********************************\n";
print "***** building BIBLIO indexes *****\n";
print "***********************************\n";
+
my $sth;
$sth=$dbh->prepare("select biblionumber from biblioitems order by biblionumber $limit");
$sth->execute();
}
next unless $record;
# get title of the record (to store the 10 first letters with the index)
- my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title');
+ my ($titletag,$titlesubfield) = GetMarcFromKohaField('biblio.title', '');
my $title = lc($record->subfield($titletag,$titlesubfield));
# remove blancks comma (that could cause problem when decoding the string for CQL retrieval) and regexp specific values
# check each index to see if the subfield is stored somewhere
# otherwise, store it in __RAW__ index
foreach my $key (keys %index) {
- if ($index{$key} =~ /$tag\*/ or $index{$key} =~ /$tag$subfieldcode/) {
+ if ($index{$key} =~ /\Q$tag\E\*/ or $index{$key} =~ /\Q$tag$subfieldcode\E/) {
$indexed=1;
my $line= lc $subfield->[1];
# remove meaningless value in the field...
}
}
}
+
+
print "\nInserting records...\n";
$i=0;
$sth->execute($key,$index,$result{$key}->{$index});
$dbh->commit() if (0 == $i % $commitnum);
}
+ $dbh->commit() if (0 == $i % $commitnum);
}
+$dbh->commit;
+
+
print "\nbiblios done\n";
print "\n***********************************\n";
}
}
}
+
+
+
print "\nInserting...\n";
$i=0;
$sth->execute($key,$index,$result{$key}->{$index});
$dbh->commit() if (0 == $i % $commitnum);
}
+ $dbh->commit() if (0 == $i % $commitnum);
}
+$dbh->commit;
print "\nauthorities done\n";