CGI, HTML TABLE, and LOOP

samesale · Oct 12, 2003

I have written the following program. The purpose is to read three records and print them accross, and then read another three records and print them until all the records are written. With the logic in my program, it reads and prints one record, and prints it accross the three places. It prints the first record three times but it does not print the picture. Any help will be appreciated.

#!/usr/bin/perl
print "Content-type:text/html\n\n";

#storer.cgi - use with store.html and store.cgi and store.out - item for Sale

open(INF,"store1.out&quot

or dienice("Couldn't open auto.out for reading: $! \n&quot

;

print "<h2>ITEMS For Sale</h2>\n";

@data = <INF>;
close(INF);

# First we initialize some counters and hashes for storing the
# summarized data.
$count =0;
$commentary ="";
$d ="\$";

foreach $i (@data) {

$coun=1;

sub_loop;

chomp($i);
($name,$add,$city,$state,$zip,$item,$photo,$size,$color,$price,$email,$tele,
$time,$photo1,$comment,$month,$day,$year)=split(/\|/,$i);

# this is the same as $count = $count + 1;

$count++;

print "$coun\n";

if ($coun=1) {

$name1 = $name;
$add1 = $add;
$city1 = $city;
$state1 = $state;
$zip1 = $zip;
$item1 = $item;
$photo1 = $photo;
$size1 = $size;
$color1 = $color;
$price1 = $price;
$email1 = email;
$tele1 = $tele;
$time1 = $time;
$photo11 = $photo1;
$comment1 = $comment;
$month1 = $month;
$day1 = $day;
$year1 = $year;
print "=1\n";

}

if ($coun=2) {

$name2 = $name;
$add2 = $add;
$city2 = $city;
$state2 = $state;
$zip2 = $zip;
$item2 = $item;
$photo2 = $photo;
$size2 = $size;
$color2 = $color;
$price2 = $price;
$email2 = email;
$tele2 = $tele;
$time2 = $time;
$photo12 = $photo1;
$comment2 = $comment;
$month2 = $month;
$day2 = $day;
$year2 = $year;
print "=2\n";
}

if ($coun=3) {

$name3 = $name;
$add3 = $add;
$city3 = $city;
$state3 = $state;
$zip3 = $zip;
$item3 = $item;
$photo3 = $photo;
$size3 = $size;
$color3 = $color;
$price3 = $price;
$email3 = email;
$tele3 = $tele;
$time3 = $time;
$photo13 = $photo1;
$comment3 = $comment;
$month3 = $month;
$day3 = $day;
$year3 = $year;
print "=3\n";
}

$coun++;

if ($coun<3) {
&loop;
}

print "<table width=\"100%\"> <tr>\n";
print "<td><img src=\"/images/$photo11\" width=\"150\" height=\"150\" align=\"left\" hspace=\"15\"></td>\n";
print "<td><img src=\"/images/$photo12\" width=\"150\" height=\"150\" align=\"left\" hspace=\"15\"></td>\n";
print "<td><img src=\"/images/$photo13\" width=\"150\" height=\"150\" align=\"left\" hspace=\"15\"></td></tr>\n";
print "<tr><td>Item : $item1 Price: $d$price1 Color: $color1 Size: $size1 Phone:
$tele1 Time-to-call: $time1 E-mail: $email1 \n";
print "Description: $comment1. \n";
print "<td>Item : $item2 Price: $d$price2 Color: $color2 Size: $size2 Phone:
$tele2 Time-to-call: $time2 E-mail: $email2 \n";
print "Description: $comment2. \n";

print "<td>Item : $item3 Price: $d$price3 Color: $color3 Size: $size3 Phone:
$tele3 Time-to-call: $time3 E-mail: $email3 \n";
print "Description: $comment3. </tr>\n";

print "$coun, $count\n";

&loop1;
}

close INF;

print <<EndHTML;
EndHTML
sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}

duncdude · Oct 13, 2003

can you show the contents of your store1.out file and maybe an example of how you want it to appear as HTML formatted text

Duncan

samesale · Oct 13, 2003

Here is a sample record:
|||||Purse|Yes|6 x 8 |light black|10|shaha1s@cmich.edu|773-6497|after 5 P.M.|purse2.jpg|Hand-made purse with embroidery.|10|11|2003
There are three similar records.

I want them to show up as:

Picture Picture Picture

name name name
size size size
and so on.

Thanks for your help.

ChrisHunt · Oct 24, 2003

When you say "It doesn't print the picture", what does it show - the broken picture image, or nothing at all? Take a look at the <img> tag in the generated HTML page - maybe it'll show up a problem that isn't obvious in the source code.

You also have the problem of printing each record three times, rather than printing them three at a time - which I assume is what you're trying to do. Some adjustments to your loops and judicious use of arrays will make it work, and make it simpler too...
[tt]
#!/usr/bin/perl
print "Content-type:text/html\n\n";

#storer.cgi - use with store.html and store.cgi and store.out - item for Sale

# $COLUMNS holds the number of columns to display
# It's easier to change it subsequently if you put it up here!
$COLUMNS = 3;

open(INF,"store1.out&quot

or dienice("Couldn't open auto.out for reading: $! \n&quot

;

print "<h2>ITEMS For Sale</h2>\n";

@data = <INF>;
close(INF);

# First we initialize some counters and hashes for storing the
# summarized data.
$commentary ="";
$d ="\$";

$col = 1;

print "<table width=\"100%\">\n";

foreach $i (@data) {

chomp($i);
($name,$add,$city,$state,$zip,$item,$photo,$size,$color,$price,$email,$tele,
$time,$photo1,$comment,$month,$day,$year)=split(/\|/,$i);

$name[$col] = $name;
$photo1[$col] = $photo1;
$item[$col] = $item;
# You can type in the rest of the columns here!

if ($col == $COLUMNS) {
print "<tr>\n";
for ($i=1; $i <= $COLUMNS; $i++) {
print "<td><img src=\"/images/$photo1[$i]\" width=\"150\" height=\"150\" align=\"left\" hspace=\"15\"></td>\n";
}
print "</tr>\n";

print "<tr>\n";
for ($i=1; $i <= $COLUMNS; $i++) {
print "<td>Item : $item[$i] Name: $name[$i]</td>";
}
print "</tr>\n";

# Having printed one line of records, reset for the next
$col = 1;
} else {
$col++
}
}

# We get here when we've reached the end of the file
# but there might be a half-finished row still to print...

if ($col > 1) {

print "<tr>\n";
for ($i=1; $i < $col; $i++) {
print "<td><img src=\"/images/$photo1[$i]\" width=\"150\" height=\"150\" align=\"left\" hspace=\"15\"></td>\n";
}
for ($i=$col; $i <= $COLUMNS; $i++) {
print "<td>&nbsp;</td>";
}
print "</tr>\n";

print "<tr>\n";
for ($i=1; $i < $col; $i++) {
print "<td>Item : $item[$i] Name: $name[$i]</td>";
}
for ($i=$col; $i <= $COLUMNS; $i++) {
print "<td>&nbsp;</td>";
}
print "</tr>\n";
}

print "</table>";

close INF;

print <<EndHTML;
EndHTML
sub dienice {
my($msg) = @_;
print "<h2>Error</h2>\n";
print $msg;
exit;
}
[/tt]
I haven't been able to test this, but it should be more-or-less right. Hopefully it'll put you on the right track.

-- Chris Hunt

http://www.extracon.com

http://www.mcgonagall-online.org.uk

http://www.napitalia.org.uk

http://www.leicesteryha.org.uk

samesale · Oct 24, 2003

ChrisHunt:

Your program worked. I really appreciate your help. I was wondering what to change if I wanted to print four columns accross instead of three. I could see how you set it up for three.

Thanks again.

GREAT JOB!!!!!!

siberian · Oct 24, 2003

Change
$COLUMNS = 3;

to

$COLUMNS = 4;

samesale · Oct 26, 2003

Thanks once again.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

CGI, HTML TABLE, and LOOP

samesale

Programmer

duncdude

Programmer

samesale

Programmer

ChrisHunt

Programmer

samesale

Programmer

siberian

Programmer

samesale

Programmer

Similar threads

Part and Inventory Search

Sponsor