projects
/
crolist2marc
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
control fields don't have idicators or subfields
[crolist2marc]
/
crolist2marc.pl
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 );
}
}