#!/usr/local/bin/perl use CGI qw(:cgi-lib); use XML::Simple; use Data::Dumper; use Image::Size; &ReadParse; $portfolio = $in{'portfolio'}; # Read in the requested portfolio $portfolio_xml = XMLin("portfolio.xml", forcearray=>1); # Parse the appropriate XML file print &PrintHeader; # Head up the HTML print `cat header.html`; # HTML Header print '
' . $portfolio_xml->{category}->{$portfolio}->{description}[0] . ' Portfolio | ' . ''; print $portfolio_xml->{category}->{$portfolio}->{note}[0] if $portfolio_xml->{category}->{$portfolio}->{note}[0]; print ' | ' . 'Click on images to enlarge | ' . '
' # Cell
. ''
. '{category}->{$portfolio}->{item}[$i]->{path} . '_small.jpg" width="' . $image_width . '" height="' . $image_height . '" vspace="' . $vspace . '" border="0"> ' . '' . $portfolio_xml->{category}->{$portfolio}->{item}[$i]->{project}[0] . ' ' . "\n"; print $portfolio_xml->{category}->{$portfolio}->{item}[$i]->{architect}[0] if $portfolio_xml->{category}->{$portfolio}->{item}[$i]->{architect}[0]; print ' | ';
if ($i % 4 == 3 || !$portfolio_xml->{category}->{$portfolio}->{item}[$i + 1]->{path}) { # End of Line or Last Image
print '||||||
'; } } print ' |