1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
package Catmandu::Importer::MARC::Decoder;
use Catmandu::Sane;
use Moo;
our $VERSION = '1.32';
sub fake_marc_file {
my ($self,$fh,$class) = @_;
my $obj = {
filename => scalar($fh),
fh => $fh,
recnum => 0,
warnings => [],
};
return( bless $obj , $class );
}
sub decode {
my ($self, $record, $id) = @_;
return unless eval { $record->isa('MARC::Record') };
my @result = ();
push @result , [ 'LDR' , ' ', ' ' , '_' , $record->leader ];
for my $field ($record->fields()) {
my $tag = $field->tag;
my $ind1 = $field->indicator(1) // ' ';
my $ind2 = $field->indicator(2) // ' ';
my @sf = ();
if ($field->is_control_field) {
push @sf , '_', $field->data;
}
for my $subfield ($field->subfields) {
push @sf , @$subfield;
}
push @result, [$tag,$ind1,$ind2,@sf];
}
my $sysid = undef;
if ($id =~ /^00/ && $record->field($id)) {
$sysid = $record->field($id)->data();
}
elsif ($id =~ /^([0-9]{3})([[0-9a-zA-Z])$/) {
my $field = $record->field($1);
$sysid = $field->subfield($2) if ($field);
}
elsif (defined $id && $record->field($id)) {
$sysid = $record->field($id)->subfield("a");
}
return { _id => $sysid , record => \@result };
}
1;
|
