From a1ad1868ec54a835f4ca81645f6ad52c35a41a74 Mon Sep 17 00:00:00 2001 From: miker Date: Fri, 18 Feb 2005 18:26:10 +0000 Subject: [PATCH] adjust RESULT objects to allow empty string git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@89 9efc2488-bf62-4759-914b-345cdb29e865 --- src/perlmods/OpenSRF/DomainObject/oilsResponse.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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); -- 2.43.2