adjust RESULT objects to allow empty string

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@89 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm b/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm
index b94df89..dc5d857 100644 (file)
--- a/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm
+++ b/src/perlmods/OpenSRF/DomainObject/oilsResponse.pm
@@ -221,7 +221,7 @@ sub content {
 
        my ($content) = $self->getChildrenByTagName('oils:domainObject');
 
-       if ($new_content) {
+       if (defined $new_content) {
                $new_content = OpenSRF::DomainObject::oilsScalar->new( JSON->perl2JSON( $new_content ) );
 
                $self->removeChild($content) if ($content);