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]
