gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

small tool to check MARC fields/subfields in your DB that are related to subfields ignored in MARC structure (Koha >> parameters >> biblio framework) 

Run without args to see more details (with export PERL5LIB=/path/to/koha as usual)
This commit is contained in:
tipaul 2005-03-01 13:07:57 +00:00
parent 53ff024612
commit 06db659c8e
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
misc/migration_tools/check_marc_definition.pl Executable file
View File

@ -0,0 +1,47 @@
#!/usr/bin/perl
# script that rebuild thesaurus from biblio table.
use strict;
# Koha modules used
use MARC::File::USMARC;
use MARC::Record;
use MARC::Batch;
use C4::Context;
use C4::Biblio;
use C4::AuthoritiesMarc;
use Time::HiRes qw(gettimeofday);
use Getopt::Long;
my ( $input_marc_file, $number) = ('',0);
my ($version,$confirm);
GetOptions(
'h' => \$version,
'c' => \$confirm,
);
if ($version || ($confirm eq '')) {
print <<EOF
Script that compare the datas in the DB and the setting of MARC structure
It show all fields/subfields that are in the MARC DB but NOT in any tab (= fields used but not visible) Usually, this means you made an error in your MARC editor. Sometimes, this is something normal.
Enter $0 -c to run this script (the -c being here only to "confirm"
EOF
;#
exit;
}#/
my $dbh = C4::Context->dbh;
print "Checking\n";
my $sth = $dbh->prepare("SELECT count(*), tag, subfieldcode, frameworkcode FROM marc_subfield_table, marc_biblio WHERE marc_biblio.bibid = marc_subfield_table.bibid group by frameworkcode,tag,subfieldcode");
$sth->execute;
my $sth2 = $dbh->prepare("select tab,liblibrarian,kohafield from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?");
while (my ($total,$tag,$subfield,$frameworkcode) = $sth->fetchrow) {
$sth2->execute($tag,$subfield,$frameworkcode);
my ($tab,$liblibrarian,$kohafield) = $sth2->fetchrow;
if ($tab eq -1 && $kohafield ne "biblio.biblionumber" && $kohafield ne "biblioitems.biblioitemnumber" && $kohafield ne "items.itemnumber") {
print "Tab ignore for framework $frameworkcode, $tag\$$subfield - $liblibrarian (used $total times)\n";
}
}
print "Done\n";