Photo Gallery | Corinthian Catering and Dining

$firstrec[2] Click on an image to enlarge.
__END1__ @allrecs1 = sort(@allrecs); $tempreccount = 0; $rowcount = 0; print ""; foreach $temprec (@allrecs1) { $width = "\"150\""; #default narrow $height = "\"200\""; $border = "\"0\""; if ($tempreccount > 0) { if ($tempreccount % 4 == 0) { print ""; print ""; #$rowcount = 0; } } chomp $temprec; @thisrec = ""; #make sure it's empty @thisrec = split(/\|/, $temprec); if ($thisrec[5] eq "w") { $width = "\"200\""; #default wide $height = "\"150\""; $border = "\"0\""; } print ""; $tempreccount++; $tempdesc[$rowcount] = "$thisrec[2]"; $rowcount++; if ($tempreccount % 4 == 0) { print ""; # print ""; # for ($index = 0; $index < 4; $index++) { # print ""; # } # print ""; $rowcount = 0; } } if ($tempreccount % 4 != 0) { print ""; # print ""; # for ($index = 0; $index < $rowcount; $index++) { # print ""; # } # print ""; } print "

"; print ""; print " $\"\"$ "; print ""; print "

"; # print "$tempdesc[$index]

"; print "
$firstrec[1]

"; print <<__END2__;

__END2__