sub getDrawInfo
{
  my ($t, $data)= @_;
  my $name = $data->{'att'}->{'draw:name'};
  print "DEBUG name: $name\n";
  print "DEBUG " . $data->text . "\n";
}