#!/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	"<img src=\"/images/portfolio/$portfolio/$portfolio_xml->{category}->{$portfolio}->{item}[$item]->{path}_large.jpg\"><br>"
	. 	'<table width="100%"><tr valign="top"><td align="left">'
	.	'<a href="portfolio.cgi?portfolio=' . $portfolio . '" class="enlargement">Return to ' . $portfolio_xml->{category}->{$portfolio}->{description}[0] . ' Portfolio</a>'
	.	'</td><td align="right" class="enlargement">'
	.	$portfolio_xml->{category}->{$portfolio}->{item}[$item]->{project}[0] . ', ' . $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{architect}[0];
print '<br><i>' . $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{note}[0] . '</i>' if $portfolio_xml->{category}->{$portfolio}->{item}[$item]->{note}[0];
print	'</td></tr></table>';

print `cat footer.html`;												# HTML Footer