Added log prefix features. Fixed handling of "0" values in data1.

[idzebra-moved-to-github.git] / perl / lib / IDZebra / Data1.pm

diff --git a/perl/lib/IDZebra/Data1.pm b/perl/lib/IDZebra/Data1.pm
index 9aa54ff..1a36216 100644 (file)
--- a/perl/lib/IDZebra/Data1.pm
+++ b/perl/lib/IDZebra/Data1.pm
@@ -103,7 +103,7 @@ sub tag_add_attr {
 
 sub mk_text {
     my ($self, $parent, $text) = @_;
-    $text = "" unless ($text);
+    $text = "" unless defined ($text);
     return (IDZebra::data1_mk_text($self->{dh}, $self->{mem},
                                   $text, $parent)); 
 }