fgDOMWRTFormatPrettyPrint: not all that pretty

[Richardson, Steven]

Hi:

 

I'm trying to write a DOM tree to a file using the DOMWriter object and I'm not having total success with the fgDOMWRTFormatPrettyPrint feature.

 

I get a strange mix of leading spaces and/or tabs on some lines that throw off the "pretty" alignment.

 

Here's basically what I'm doing:

sub writeDocument
{
    my($doc, $file) = @_;

 

    my $impl = XML::Xerces::DOMImplementationRegistry::getDOMImplementation('LS');

 

    my $writer = $impl->createDOMWriter();

 

    if($writer->canSetFeature("$XML::Xerces::XMLUni::fgDOMWRTFormatPrettyPrint", 1))
    {
        $writer->setFeature("$XML::Xerces::XMLUni::fgDOMWRTFormatPrettyPrint", 1);
    }

 

    if($writer->canSetFeature("$XML::Xerces::XMLUni::fgDOMWRTWhitespaceInElementContent", 1))
    {
        $writer->setFeature("$XML::Xerces::XMLUni::fgDOMWRTWhitespaceInElementContent", 1);
    }

 

    my $target = XML::Xerces::LocalFileFormatTarget->new($file);
                                

    $writer->writeNode($target, $doc);

 

    return;
}

Steven Richardson          Sonus Networks
www.sonusnet.com          The Voice of the New Public Network
732-625-3003  x233