#!/usr/bin/perl -w use strict; use CGI qw(:standard); print header(), start_html("Street Print CD Catalog"), h1("StreetPrint CD Catalog"); if (param()) { my @supersaver = qw(Name Color Pattern CD_number Thumbnail_Image); chomp(my $color = param("color")); chomp(my $pattern = param("pattern")); chomp(my $cd_number = param("cdnumber")); print p(h4('You searched for:'),br(), h5("Color : $color"), h5("Patter +n : $pattern"), h5("Cd Number : $cd_number")); print table({-border=>1},Tr({-align=>'CENTER',-valign=>'MIDDLE'}, [td( +{-width=>'150'}, [b($supersaver[0]), b($supersaver[1]), b($supersaver +[2]), b($supersaver[3]), b($supersaver[4])])])); open (DBFILE, "<scform.db") or die "$!"; while (my $line = <DBFILE>) { chomp $line; my @record = split /\|/, $line, 6; ## $record[0] is name, 1 => color, 2 => pattern, 3 => cd, 4 => thumbna +il picture, 5=> screen res picture. ## C = color, P = Pattern, # = Cd Number, a = any if( $color eq "Any" || $record[1] =~ /^$color$/i and $pattern eq "Any" || $record[2] =~ /^$pattern$/i and $cd_number eq "Any" || $record[3] =~ /^$cd_number$/i ) { print table({-border=>1},Tr({-align=>'CENTER',-valign=>'MIDDLE'}, +[td({-width=>'150'}, [$record[0], $record[1], $record[2], $record[3], + [(start_a({-href=>"/images/screenres/$record[5]"}),img({-src=>"/imag +es/thumbnails/$record[4]"}), end_a())]])])); next; } } close (DBFILE); } else { ## stuff that doesn't matter to this problem }
In reply to Images, in links, in tables..... utter choas by wiz
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |