projects
/
crolist2marc
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
11bf190
)
control fields don't have idicators or subfields
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 12 Sep 2013 20:27:33 +0000
(22:27 +0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Thu, 12 Sep 2013 20:28:35 +0000
(22:28 +0200)
crolist2marc.pl
patch
|
blob
|
history
diff --git
a/crolist2marc.pl
b/crolist2marc.pl
index
49aa86a
..
e74069c
100755
(executable)
--- a/
crolist2marc.pl
+++ b/
crolist2marc.pl
@@
-116,9
+116,10
@@
foreach my $id ( @ids ) {
}
foreach my $arr ( @{ $data->{$id}->{$field} } ) {
if ( ! $arr ) {
}
foreach my $arr ( @{ $data->{$id}->{$field} } ) {
if ( ! $arr ) {
-
print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} ), "\n";
+
#
print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} ), "\n";
next;
}
next;
}
+ $arr = [ $arr->[3] ] if ( $field < 010 ); # control fields don't have idicators or subfields
$rec->add_fields( $field, @$arr );
}
}
$rec->add_fields( $field, @$arr );
}
}