2 # small script that dumps an iso2709 file.
6 #use warnings; FIXME - Bug 2505
11 use MARC::File::USMARC;
14 use Getopt::Long qw( GetOptions );
17 my ( $input_marc_file,$number,$nowarning,$frameworkcode) = ('',0);
20 'file:s' => \$input_marc_file,
24 'c' => \$frameworkcode,
27 $frameworkcode="" unless $frameworkcode;
29 if ($version || ($input_marc_file eq '')) {
31 This script compares an iso2709 file and Koha's MARC frameworks
32 It will show the marc fields/subfields used in Koha, and that
33 are not in the iso2709 file and which fields/subfields that are
34 used in the iso2709 file and not in Koha.
37 \tv : this version/help screen
38 \tfile /path/to/file/to/dump : the file to dump
39 \tw : warning and strict off. If your dump fails, try -w option. It it works, then, the file is iso2709, but a buggy one !
40 \tc : the frameworkcode. If omitted, set to ""
42 SAMPLE : ./compare_iso_and_marc_parameters.pl -file /home/paul/koha.dev/local/npl -n 1
49 my $fh = IO::File->new($input_marc_file); # don't let MARC::Batch open the file, as it applies the ':utf8' IO layer
50 my $batch = MARC::Batch->new( 'USMARC', $fh );
51 $batch->warnings_off() unless $nowarning;
52 $batch->strict_off() unless $nowarning;
53 my $dbh=C4::Context->dbh;
54 my $sth = $dbh->prepare("select tagfield,tagsubfield,tab from marc_subfield_structure where frameworkcode=?");
55 $sth->execute($frameworkcode);
59 while (my ($tagfield,$tagsubfield,$tab) = $sth->fetchrow) {
60 $hash_unused{"$tagfield$tagsubfield"} = 1 if ($tab eq -1);
61 $hash_used{"$tagfield$tagsubfield"} = 1 if ($tab ne -1);
64 while ( my $record = $batch->next() ) {
66 foreach my $MARCfield ($record->fields()) {
67 next if $MARCfield->is_control_field(); # tag num < 10
69 foreach my $fields ($MARCfield->subfields()) {
71 if ($hash_unused{$MARCfield->tag().@$fields[0]}>=1) {
72 $hash_unused{$MARCfield->tag().@$fields[0]}++;
74 if ($hash_used{$MARCfield->tag().@$fields[0]}>=1) {
75 $hash_used{$MARCfield->tag().@$fields[0]}++;
78 # foreach my $field (@$fields) {
79 # warn "==>".$MARCfield->tag().@$fields[0];
85 print "Undeclared tag/subfields that exists in the file\n";
86 print "================================================\n";
87 foreach my $key (sort keys %hash_unused) {
88 print "$key => ".($hash_unused{$key}-1)."\n" unless ($hash_unused{$key}==1);
91 print "Declared tag/subfields unused in the iso2709 file\n";
92 print "=================================================\n";
93 foreach my $key (sort keys %hash_used) {
94 print "$key => ".($hash_used{$key}-1)."\n" if ($hash_used{$key}==1);
97 # foreach my $x (sort keys %resB) {
98 # print "$x => ".$resB{$x}."\n";
100 print "\n==================\n$i record parsed\n";