sub update_email_address( $ )
{
   my $data;
   my $query;   

   my $self = shift;


    if( !Email::Valid->address( $_[0] ) )
    {
       $self->{'error_type'}   = "email invalid";   
       $self->{'error_string'} = "E-mail address is invalid.";   
       return( undef );      
    }
    #else if good so use it for something
}