sub generate_extension
{
    my $self = shift;
    
    return(  &generate_line_form_element( "text", "extension" , $self->{extension}, $self->{extension} , "4" , "4" );
                                                  
}

sub generate_email_address
{
    my $self = shift;
    
    return(  &generate_line_form_element( "text", "email_address" , $self->{email_address},
                                          $self->{email_address} , "30" , "50" );
                                                  
}