From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 25 Aug 2006 16:35:47 +0000 (+0000)
Subject: better eliminination of empty subfields
X-Git-Url: http://git.rot13.org/?p=Biblio-Isis;a=commitdiff_plain;h=c10aa28ae7ca5b67e53f7de9d415402b5a82c6e0

better eliminination of empty subfields

git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@67 4670fa4d-42ec-0310-ab5b-a66af6943492
---

diff --git a/lib/Biblio/Isis.pm b/lib/Biblio/Isis.pm
index f310501..3f70647 100644
--- a/lib/Biblio/Isis.pm
+++ b/lib/Biblio/Isis.pm
@@ -599,7 +599,7 @@ sub to_hash {
 					next if (! $t);
 					my ($sf,$v) = (substr($t,0,1), substr($t,1));
 					# XXX this might be option, but why?
-					next unless ($v);
+					next unless (defined($v) && $v ne '');
 #					warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1);
 
 					if (ref( $val->{$sf} ) eq 'ARRAY') {