#!/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
$item = $in{'item'};
$portfolio_xml = XMLin("portfolio.xml", forcearray=>1); # Parse the appropriate XML file
$portfolio_xml->{category}->{$portfolio}->{item}[$item]->{architect}[0] = $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{architect_enlarged}[0] if $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{architect_enlarged}[0];
print &PrintHeader; # Head up the HTML
print `cat header.html`; # HTML Header
print "{category}->{$portfolio}->{item}[$item]->{path}_large.jpg\">
"
. '
' . 'Return to ' . $portfolio_xml->{category}->{$portfolio}->{description}[0] . ' Portfolio' . ' | '
. $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{project}[0] . ', ' . $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{architect}[0];
print ' ' . $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{note}[0] . '' if $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{note}[0]; print ' |