From 11a81df15a15460b973e913f9ca5f3432fb120a2 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 19 Nov 2013 11:34:56 +0100 Subject: [PATCH] don't filter authors for KNJ itemtype --- html.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/html.pl b/html.pl index a4c99a1..25ff9ae 100755 --- a/html.pl +++ b/html.pl @@ -29,6 +29,7 @@ select ExtractValue(marcxml,'//datafield[@tag="100"]/subfield[@code="9"]') as first_author, ExtractValue(marcxml,'//datafield[@tag="700"]/subfield[@code="9"]') as other_authors, ExtractValue(marcxml,'//datafield[@tag="942"]/subfield[@code="t"]') as category, + itemtype, marcxml from biblioitems where @@ -40,7 +41,7 @@ order by SUBSTR(ExtractValue(marcxml,'//controlfield[@tag="008"]'),8,4) desc $sth_select_authors->execute(); while( my $row = $sth_select_authors->fetchrow_hashref ) { # warn dump($row),$/; - if ( $row->{first_author} ) { + if ( $row->{first_author} || $row->{itemtype} !~ m/^KNJ/ ) { my $all_authors = join(' ', $row->{first_author}, $row->{other_authors}); foreach my $authid ( split(/\s+/, $all_authors) ) { push @{ $authors->{$authid}->{ $row->{category} } }, $row->{biblionumber}; -- 2.20.1