projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7122 - Add a div to opac-messaging.tt to facilitate consistent styling across...
[koha.git]
/
misc
/
batchCompareMARCvsFrameworks.pl
diff --git
a/misc/batchCompareMARCvsFrameworks.pl
b/misc/batchCompareMARCvsFrameworks.pl
index
e255602
..
9bbcde4
100755
(executable)
--- a/
misc/batchCompareMARCvsFrameworks.pl
+++ b/
misc/batchCompareMARCvsFrameworks.pl
@@
-3,6
+3,7
@@
use strict;
use strict;
+#use warnings; FIXME - Bug 2505
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
BEGIN {
# find Koha's Perl modules
# test carefully before changing this
@@
-69,7
+70,7
@@
my $i=0;
while ( my $record = $batch->next() ) {
$i++;
foreach my $MARCfield ($record->fields()) {
while ( my $record = $batch->next() ) {
$i++;
foreach my $MARCfield ($record->fields()) {
- next if $MARCfield->
tag()<=010;
+ next if $MARCfield->
is_control_field(); # tag num < 10
if ($MARCfield) {
foreach my $fields ($MARCfield->subfields()) {
if ($fields) {
if ($MARCfield) {
foreach my $fields ($MARCfield->subfields()) {
if ($fields) {