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
|
#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Catmandu::Sane;
use Catmandu::AlephX;
use Catmandu::Importer::AlephX;
use Catmandu::AlephX::Metadata::MARC::Aleph;
use Data::Dumper;
use File::Slurp;
use open qw(:std :utf8);
my $aleph = Catmandu::AlephX->new(url => "http://borges1.ugent.be/X");
my $importer = Catmandu::Importer::AlephX->new(
url => 'http://borges1.ugent.be/X',
query => 'WRD=(art)',
base => 'usm01'
);
my $marc = $importer->first();
print Dumper($marc);
my %args = (
'library' => 'usm01',
'doc_action' => 'UPDATE',
'doc_number' => $marc->{_id},
marc => $marc
);
my $info = $aleph->update_doc(%args);
if($info->is_success){
say "all ok";
}else{
say "test";
say "num errors:".scalar(@{ $info->errors() });
say STDERR join("\n",@{$info->errors});
}
|
