my ($self, $data) = @_;
my $obj = $self->{'obj'};
+ # find the ID, if any
+ my $id = $data->{'Attributes'}->{'{http://template.sesse.net/}id'};
+ $id = $id->{'Value'} if (defined($id));
+
# within a replacement; just ignore everything
return if (!defined($obj));
my $match = undef;
for my $key (keys %$obj) {
if ($key =~ /^#(.*)$/) {
- if ($data->{'NamespaceURI'} eq 'http://template.sesse.net/' && $data->{'LocalName'} eq $1) {
+ if (defined($id) && $id eq $1) {
$match = $obj->{$key};
last;
}