Create HTML form within a perl function.

[Lance Prais]

I am not sure if I am going to ask this question correctly therefore, please
ask as many questions as you need to understand.

My situation is a follows:   I have a perl script that extracts data from a
list then processes this information and outputs is to HTML.  I am working
off someone else code and understand enough of it to be dangerous.

Therefore, with the code below I can do some tweaking.

This code outputs the following for example:
File                    Size     Image
Description

I need to do this:
Title                                 Item a
Description                     item b  item c
                                      Item d
                                Item e  item f
                                      Item g

I am just not to clear on how I need to modify the code to get the above
output.  If someone could help me out or point to a place on the web that
talks about this it would be greatly appreciated.

The code I am using is:

# Create education list table
sub docTableList {
        my %args = (
                BGCOLOR_FLAG => '',
                FILESIZE => '',
                FILENAME => '',
                TITLE => '',
                DESC => '',
                EXAM => '',
                POINTS => '',
                DELIVERY => '',
                @_,
        );
        $bgcolor_flag = $args{BGCOLOR_FLAG};
        $filesize = $args{FILESIZE};
        $filename = $args{FILENAME};
        $summary  = "this is a summary of the item";
        $title = $args{TITLE};
        $desc = $args{DESC};
        $exam = $args{EXAM};
        $points = $args{POINTS};
        $delivery = $args{DELIVERY};


        $display_result = "";
        $display_result = $display_result . $doc_list_table_product . "\n";
        $display_result = $display_result . $doc_list_tr_product . "\n";
        if ($bgcolor_flag == 0) {
                $display_result = $display_result . $doc_list_title_td_one_product .
$doc_list_title_font_product;
        } else {
                $display_result = $display_result . $doc_list_title_td_two_product .
$doc_list_title_font_product;
        }
        $display_result = $display_result  . $desc . "\<\/font\>\<\/td\>" . "\n";
        $display_result = $display_result . "\<a href=\"" . $filename . "\"\>" .
$title . "\<\/a\>\<\/font\>\<\/td\>" . "\n";
        if ($bgcolor_flag == 0) {
                $display_result = $display_result . $doc_list_size_td_one_product . 
"\n";
        } else {
                $display_result = $display_result . $doc_list_size_td_two_product . 
"\n";
        }
        $display_result = $display_result . $doc_list_size_div_product .
$doc_list_size_font_product;
        $display_result = $display_result . $filesize . "\<\/font\>\<\/div\>";
        $display_result = $display_result . "\<\/td\>" . "\n";
        if ($bgcolor_flag == 0) {
                $bgcolor_flag = 1;
                $display_result = $display_result . $doc_list_image_td_one_product . 
"\n";
        } else {
                $bgcolor_flag = 0;
                $display_result = $display_result . $doc_list_image_td_two_product . 
"\n";
        }
        $display_result = $display_result . $doc_list_image_div_product . "\n";
        $icon_image = fileImage(FILENAME => $filename);
        $display_result = $display_result . "\<img src=\"..\/..\/..\/..\/images\/"
.. $icon_image . "\" width=\"16\" height=\"16\"\>\<\/div\>";
        $display_result = $display_result . "\<\/td\>" . "\n";
        $display_result = $display_result . "\<\/tr\>" . "\n";

        return  $display_result;
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]