use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(current_user);
use Dbase::Help qw(DoFn);
use Cf qw($MAILDOM);

sub get_mailadr(;$) {
	my($id) = @_;
	$id = current_user() unless $id;
		
	return undef unless $id;
	
	my $mid = DoFn("select email from person where id=$id");
	unless(defined $mid) {
		$mid = DoFn("select LOWER(user) from person where id=$id");
		$mid .= "\@$MAILDOM" if defined $mid;
	}
	$mid;
}
1;
