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
|
#!/usr/bin/env perl
use FindBin;
use lib "$FindBin::Bin/../lib";
use Catmandu::Sane;
use Catmandu::AlephX;
use open qw(:std :utf8);
use Data::Dumper;
sub alephx {
state $a = Catmandu::AlephX->new(url => "http://borges1.ugent.be/X");
}
my $doc_number = shift;
my %args = (
'library' => 'usm01',
'doc_action' => 'DELETE',
'doc_number' => $doc_number
);
my $u = alephx->update_doc(%args);
if($u->is_success){
say "all ok";
}else{
say STDERR join("\n",@{$u->errors});
}
|
