projects
/
Biblio-Isis
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a82f5a3
)
better eliminination of empty subfields
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 25 Aug 2006 16:35:47 +0000
(16:35 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Fri, 25 Aug 2006 16:35:47 +0000
(16:35 +0000)
git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@67
4670fa4d
-42ec-0310-ab5b-
a66af6943492
lib/Biblio/Isis.pm
patch
|
blob
|
history
diff --git
a/lib/Biblio/Isis.pm
b/lib/Biblio/Isis.pm
index
f310501
..
3f70647
100644
(file)
--- 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 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') {
# warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1);
if (ref( $val->{$sf} ) eq 'ARRAY') {