--- google/rules.pl	2007/06/17 23:02:08	26
+++ google/rules.pl	2007/06/17 23:05:52	27
@@ -16,7 +16,7 @@
 sub _tag {
 	my ( $tag_hash, $name, $sub_key ) = @_;
 	confess "need hash as first argument" unless ( ref $tag_hash eq 'HASH' );
-	$name = (grep { m/$name/i } keys %$tag_hash )[0];
+	$name = (grep { m/^(?:\w+:)*$name$/i } keys %$tag_hash )[0];
 #	$name =~ s/^\w+://;
 	if ( defined $tag_hash->{$name} ) {
 		if ( ! defined $sub_key ) {
@@ -49,6 +49,10 @@
 			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
 			warn dump( $tag_name, $tag_hash, $context );
 		},
+		'ID' => sub {
+			my ($tag_name, $tag_hash, $context, $parent_data) = @_;
+			$state->{ID} = $tag_hash->{_content};
+		},
 		#
 		# Inform
 		#