sub get_element_by_name($$)
{
  my ($conf,$name)=@_;
  return undef unless(is_valid($conf,'name',$name));
  my $system=$conf->{system};
  my $data=$conf->{data}->{$system};

  return $data->{elements}->{$name}
}

sub get_element_namespace($$)
{
  my ($conf,$element)=@_;
  return undef unless(is_valid($conf,'element',$element));
  my $system=$conf->{system};
  my $data=$conf->{data}->{$system};

  return $data->{namespaces}->{$element->{namespace}};
}

sub get_namespace_default($$)
{
  my ($conf,$namespace)=@_;
  return undef unless(is_valid($conf,'namespace',$namespace));
  my $system=$conf->{system};
  my $data=$conf->{data}->{$system};

  my $default=$data->{default};
  my $name=$data->{namespaces}->{$namespace}->{$default};
  return $data->{elements}->{$name};
}