--- trunk/MWS_swish.pm	2004/05/06 22:52:19	15
+++ trunk/MWS_swish.pm	2004/05/06 23:06:08	16
@@ -88,10 +88,11 @@
 	my $xml = qq{<message>};
 	foreach my $tag (keys %$document) {
 		my $data = $document->{$tag};
+		next if (! $data || $data eq '');
 		# save [cr/]lf before conversion to XML
 		$data =~ s/\n\r/##lf##/gs;
 		$data =~ s/\n/##lf##/gs;
-		$xml .= "<$tag><![CDATA[".$data."]]></$tag>\n" if ($data && $data ne '');
+		$xml .= "<$tag><![CDATA[".$data."]]></$tag>\n";
 	}
 	$xml .= qq{</message>};