From a9c4524ca393a386328a1c2d70e18e03c7da795d Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 12 Aug 2016 14:15:41 +0200 Subject: [PATCH] remove duplicate marc items --- department_marc.pl | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/department_marc.pl b/department_marc.pl index 76d604f..b47b684 100755 --- a/department_marc.pl +++ b/department_marc.pl @@ -29,26 +29,32 @@ where biblionumber = ? }); +my $biblio; foreach ( keys %$auth_department ) { next unless m/psiho/; - my $marc_file = "/dev/shm/$_.mrac"; - warn "# $marc_file\n"; - - open(my $marc_fh, '>', $marc_file); foreach my $auth ( @{ $auth_department->{$_} } ) { foreach my $l1 ( keys %{ $authors->{$auth} } ) { foreach my $l2 ( keys %{ $authors->{$auth}->{$l1} } ) { foreach my $biblionumber ( @{ $authors->{$auth}->{$l1}->{$l2} } ) { - $sth_marc->execute($biblionumber); - my ( $marc ) = $sth_marc->fetchrow_array; - print $marc_fh $marc; + $biblio->{$biblionumber}++; + } } } } + my $marc_file = "/dev/shm/$_.marc"; + warn "# $marc_file\n"; + + open(my $marc_fh, '>', $marc_file); + + foreach my $biblionumber ( sort keys %$biblio ) { + $sth_marc->execute($biblionumber); + my ( $marc ) = $sth_marc->fetchrow_array; + print $marc_fh $marc; + } close($marc_fh); -- 2.20.1