
<{perl
  $self->define_tag ("lang", \&handle_lang_tag, qw(id));

  sub handle_lang_tag {
	  my ($tagname, $attrs, $text) = @_;
	  my $l = $attrs->{id};

	  $_ = "";
	  if ($self->{main}->{current_subst}->{lang} =~ lc($l)) {
		$_ = $text;
	  }
  }
}>

