--- trunk/lib/WebPAC/Output/SWISH.pm	2009/04/24 17:03:11	1151
+++ trunk/lib/WebPAC/Output/SWISH.pm	2009/04/25 10:59:43	1154
@@ -161,7 +161,8 @@
 		next if ! $vals;
 
 		$vals =~ s/($escape_re)/$escape{$1}/gs;
-		$xml .= qq{<$tag><![CDATA[$vals]]></$tag>};
+		# BW & EW are our markers for tag boundry
+		$xml .= qq{<$tag><![CDATA[BW $vals EW]]></$tag>};
 
 		$self->{stats}->{attr}->{$tag}++;
 
@@ -181,7 +182,7 @@
 	print $fh "Path-Name: $uri\nContent-Length: $len\nDocument-Type: XML\n\n$xml" or
 		die "can't add $uri: $@\n$xml";
 
-#	warn "$xml\n";
+	$log->debug( $xml );
 
 	return 1;
 }