From 3312b0fa59ae260195cfc53d7d7d63b0accbe3d2 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 18 May 2007 21:41:19 +0000
Subject: [PATCH] request Biblio::Isis 0.24 to ignore empty subfields

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@825 07558da8-63fa-0310-ba24-9fe276d99e06
---
 Makefile.PL              | 2 +-
 lib/WebPAC/Input/ISIS.pm | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index d7948a0..0dcc728 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -24,7 +24,7 @@ WriteMakefile(
 	'Encode' => 0,
 	'LWP' => 0,
 	'File::Path' => 0,
-	'Biblio::Isis' => 0.23,
+	'Biblio::Isis' => 0.24,
 	'MARC::Fast' => 0.05,
 	'Search::Estraier' => 0.06,
 	'List::Util' => 0,
diff --git a/lib/WebPAC/Input/ISIS.pm b/lib/WebPAC/Input/ISIS.pm
index 293a666..1dca616 100644
--- a/lib/WebPAC/Input/ISIS.pm
+++ b/lib/WebPAC/Input/ISIS.pm
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use WebPAC::Input;
-use Biblio::Isis 0.23;
+use Biblio::Isis;
 use base qw/WebPAC::Common/;
 
 =head1 NAME
@@ -72,6 +72,7 @@ sub new {
 		isisdb => $arg->{path},
 		include_deleted => 1,
 		hash_filter => $arg->{filter} ? sub { return $arg->{filter}->(@_); } : undef,
+		ignore_empty_subfields => 1,
 	) or $log->logdie("can't find database $arg->{path}");
 
 	$self->{_isis_db} = $isis_db;
-- 
2.20.1