From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 19 Nov 2013 10:34:56 +0000 (+0100)
Subject: don't filter authors for KNJ itemtype
X-Git-Url: http://git.rot13.org/?p=koha-bibliografija;a=commitdiff_plain;h=11a81df15a15460b973e913f9ca5f3432fb120a2

don't filter authors for KNJ itemtype
---

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};