delete duplicate biblionumber items

[koha-eprints] / ffzg-search.pl

diff --git a/ffzg-search.pl b/ffzg-search.pl
index b483231..553842c 100755 (executable)
--- a/ffzg-search.pl
+++ b/ffzg-search.pl
@@ -32,6 +32,10 @@ $list->map( sub {
 
        if ( my $biblionumber = $eprint->get_value('biblionumber') ) {
                push @{ $info->{biblionumber}->{$biblionumber} }, $eprint->id;
+               if ($#{ $info->{biblionumber}->{$biblionumber} } >= 1 ) {
+                       $eprint->delete;
+                       warn "# DELETE duplicate $biblionumber ", $eprint->id;
+               }
        } else {
                $info->{no_biblionumber}++;
        }