Archived
1
0

Trace printer handles <who/> tags

This commit is contained in:
Mercier Pierre-Olivier 2014-01-16 23:32:52 +01:00
parent 24df9247e7
commit 767a4f9be2

View File

@ -498,6 +498,14 @@ sub toString($$)
$e->setAttribute("id", $self->{id});
$e->setAttribute("type", $self->{type});
if (defined $self->{who})
{
my $w = $doc->createElement("who");
$w->setAttribute("login", $self->{who}{login});
$w->setAttribute("type", $self->{who}{type}) if (defined $self->{who}{type});
$e->appendChild( $w );
}
for my $k (keys %{ $self->{values} })
{
my $v = $doc->createElement("value");