Display HTML with FORM data

[sajjad]

Hi all,

I want to display the entered data in the following form.pl as HTML.

Any suggestions?
/sajjad
***********************************************************
#!usr/bin/perl -w --

use strict;# get in the habit of using this and -w above -
# it will save you grief in the long run. You
# can also use use warnings; instead of -w
use CGI;

# To get the errors back to the browser:

use CGI::Carp qw(fatalsToBrowser);

# Output a content header prior to any text

print "Content-Type: text/html\n\n";

my $query = new CGI;

print $query->start_html(-title=>'Request Form');
print $query->h3(qq{Document Request Form for <font color="blue">} .$query->param('name'), "</font>");

print $query->start_form(-action => 'purchase_form_post1.pl');
print $query->p("<table>");

print $query->p("<tr><td>Purchase Date</td><td>".$query->textfield(-name=>'pdate'),"</td></tr>");
print $query->p("<tr><td>Purchase Number</td><td>".$query->textfield(-name=>'pnumber'),"</td></tr>");

print $query->p("<tr><td>Product</td><td>Price (HTVA)</td><td>TVA</td><td>Quantity</td></tr>");

print $query->p("<tr><td>".$query->textfield(-name=>'pproduct1'),
"</td><td>".$query->textfield(-name=>'pprice1'),
"</td><td>".$query->textfield(-name=>'ptva1'),
"</td><td>".$query->textfield(-name=>'pquantity1'),"</td></tr>");

print $query->p("<tr><td>".$query->textfield(-name=>'pproduct2'),
"</td><td>".$query->textfield(-name=>'pprice2'),
"</td><td>".$query->textfield(-name=>'ptva2'),
"</td><td>".$query->textfield(-name=>'pquantity2'),"</td></tr>");

print $query->p("<tr><td>".$query->textfield(-name=>'pproduct3'),
"</td><td>".$query->textfield(-name=>'pprice3'),
"</td><td>".$query->textfield(-name=>'ptva3'),
"</td><td>".$query->textfield(-name=>'pquantity3'),"</td></tr>");

print $query->p("<tr><td>".$query->textfield(-name=>'pproduct4'),
"</td><td>".$query->textfield(-name=>'pprice4'),
"</td><td>".$query->textfield(-name=>'ptva4'),"</td><td>".$query->textfield(-name=>'pquantity4'),"</td></tr>");

print $query->p("<tr><td>".$query->textfield(-name=>'pproduct5'),
"</td><td>".$query->textfield(-name=>'pprice5'),
"</td><td>".$query->textfield(-name=>'ptva5'),"</td><td>".$query->textfield(-name=>'pquantity5'),"</td></tr>");

print $query->p("</table>");

print $query->submit(-name=>'submit');
print $query->end_form();
print $query->end_html();

[edited by: sajjad at 2:29 pm (utc) on Dec. 16, 2003]

[edited by: jatar_k at 5:19 pm (utc) on Dec. 16, 2003]
[edit reason] broke lines for sidescroll [/edit]

[sajjad]

i have figured it out..yet not completed.
give me ur comments on the following please

following does not work
------------------------
for (my $i=1;$i<=3;$i++){

print "<tr>";
print "<td width=90>$in{$key='pproduct$i'}</td>";
print "<td width=90>$in{$key='pprice$i'}</td>";
print "<td width=90>$in{$key='ptva$i'}</td>";
print "<td width=90>$in{$key='pquantity$i'}</td>";
print "</tr>";
}

while following works!
----------------------
print "<table border=1>";

print "<tr>";
print "<td width=90>Product</td>";
print "<td width=90>Price (HTVA)</td>";
print "<td width=90>TVA</td>";
print "<td width=90>Quantity</td>";
print "</tr width=90>";

print "<tr>";
print "<td width=90>$in{$key='pproduct1'}</td>";
print "<td width=90>$in{$key='pprice1'}</td>";
print "<td width=90>$in{$key='ptva1'}</td>";
print "<td width=90>$in{$key='pquantity1'}</td>";
print "</tr>";

print "<tr>";
print "<td width=90>$in{$key='pproduct2'}</td>";
print "<td width=90>$in{$key='pprice2'}</td>";
print "<td width=90>$in{$key='ptva2'}</td>";
print "<td width=90>$in{$key='pquantity2'}</td>";
print "</tr>";

print "<tr>";
print "<td width=90>$in{$key='pproduct3'}</td>";
print "<td width=90>$in{$key='pprice3'}</td>";
print "<td width=90>$in{$key='ptva3'}</td>";
print "<td width=90>$in{$key='pquantity3'}</td>";
print "</tr>";

print "</table>";