From: miker Date: Fri, 18 Feb 2005 18:26:10 +0000 (+0000) Subject: adjust RESULT objects to allow empty string X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=a1ad1868ec54a835f4ca81645f6ad52c35a41a74;p=opensrf%2Fbjwebb.git 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 --- 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);