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" );
                                                  
}

##</code><code>##

sub generate_stuff {
    my $self    = shift;
    my $what    = shift;
    my @numbers = @_;

    return(  &generate_line_form_element( "text", $stuff , $self->{$stuff},
                                          $self->{$stuff} , @numbers );
                                                  
}

##</code><code>##

generate_stuff( 'extension',      4,  4 ); # this is what a
generate_stuff( 'email_address', 30, 50 ); # call would look like