#!/usr/bin/perl 
use Pg;
use CGI qw(:standard);
use CGI qw(:cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
###########################################################
# Copyright Paul Barrette and the Trajan Column Project,  #
# 1999.                                                   #
# Interested parties may use parts and/or adapt           #
# this script for their own NON-COMMERCIAL projects       #
# provided that this copywrite notice is kept intact      #
# at the head of the CGI script.                          #
# Thank you.                                              #
# Paul Barrette, barretp@mcmaster.ca                      #
###########################################################
print header;
ReadParse();
#extract the key num from a link and grab the following fields from the db
#$slide=$ARGV[0];  #passed after the ? in a link
$key=$ARGV[0];  #passed after the ? in a link
$relatedtrue=$ARGV[1];


#get header and footer
$head=`cat stndheader.txt`;
$footer=`cat stndfooter.txt`;

#things to extract from the db
#1. vwdescription
#2. scenenumber
#3. drumnumber
#4. sideofcolumn
#5. notessubject
#6. relatedslides

#if related slide is true use this sql
if ($relatedtrue){
	$sql = "SELECT vwdescription,
	scenenumber,
	drumnumber,
	sideofcolumn,
	notessubject,
	relatedslides,
	imagenumber,
	cdnumber,
	relatedslides,
	furthernotes,
	toolkeywords,
	notesdescription,
	subjectkeywords,
	slidenumber,
	photographer,
	key
	FROM traj WHERE slidenumber = '$ARGV[0]'";

#use for normal page

}else{
	$sql = "SELECT vwdescription,
	scenenumber,
	drumnumber,
	sideofcolumn,
	notessubject,
	relatedslides,
	imagenumber,
	cdnumber,
	relatedslides,
	furthernotes,
	toolkeywords,
	notesdescription,
	subjectkeywords,
	slidenumber,
	photographer,
	key
	FROM traj WHERE key = '$ARGV[0]'";
}

#FROM traj WHERE slidenumber = '$slide'";
 
####################################
#CONNECT TO THE DATABASE
#================================
$conn = Pg::connectdb("dbname=trajan");
#execute the query
Pg::doQuery($conn, $sql, \@ary);
#================================
$count=0;
#print @ary;
#print "sql=$sql||";
#print "slide=$slide";
for $i(0..$ary) {
	$vwdescription=$ary[$i][0];
	$scenenumber=$ary[$i][1];
	$drumnumber=$ary[$i][2];
	$sideofcolumn=$ary[$i][3];
	$notessubject=$ary[$i][4];
	$relatedslides=$ary[$i][5];
	$imagenumber=$ary[$i][6];
	$cdnumber=$ary[$i][7];
	$relatedslides=$ary[$i][8];
	$furthernotes=$ary[$i][9];
	$toolkeywords=$ary[$i][10];
	$tooldescription=$ary[$i][11];
	$subjectkeywords=$ary[$i][12];
	$slidenumber=$ary[$i][13];
	$photographer=$ary[$i][14];
	$key=$ary[$i][15];
}


#build next and previous links
if ($key > 1 && $key < 511){
	$next=$key;
	$next++;
	$previous=$key;
	$previous--;
}elsif ($key==1){
	$next=$key;
	$next++;
	$previous=$key;
}elsif ($key==511) {
	$next=$key;
	$previous=$key;
	$previous--;
}

#check to see if the drumnumber field is empty

#separate spiral and drum number, use these for cartoon links.
@sd=split ",",$drumnumber;
$spiralonly=$sd[0];
$drumonly=$sd[1];

#some spirals are 10-18, fix this
if ($sd[0]=~s/-/-/){
	@ssd= split "-", $sd[0];
	$spiralnumber=$ssd[0];
	$drum=$sd[1];
}else{
	$spiralnumber=$sd[0];
	$drum=$sd[1];
}


#append the "a,b,c or d" to spiral num
#strip spaces
$sideofcolumn=~s/ //g;
if ($sideofcolumn eq "1-2"){ $sc="a";$panel="a-b";}
if ($sideofcolumn eq "2-3"){ $sc="b";$panel="b-c";}
if ($sideofcolumn eq "3-4"){ $sc="c";$panel="c-d";}
if ($sideofcolumn eq "1-4"){ $sc="d";$panel="a-d";}
if ($sideofcolumn eq "4-1"){ $sc="d";$panel="d-next spiral";}

#now set abcd
if ($sideofcolumn eq "1"){ $sc="a";$panel="a";}
if ($sideofcolumn eq "2"){ $sc="b";$panel="b";}
if ($sideofcolumn eq "3"){ $sc="c";$panel="c";}
if ($sideofcolumn eq "4"){ $sc="d";$panel="d";}

#check to see if drumnumbercontains data
if ($drumnumber=~s/_/_/){
	$spiralnumber="";
}else{
	$spiralnumber.=$sc;
	$spirallink="<a href=\"buildcartoon.cgi?$spiralnumber\">Spiral $spiralnumber</a>";
}


#======================
#link up related slides
#======================
if ($relatedslides) {
	@rs=split  ",",$relatedslides;
	@fs=split ",",$furthernotes;
	$count=0;
	foreach $i(@rs) {
		if (!($i eq "_")){
			$i=~s/ //g;
			$relatedlinks.="<LI><a href=\"buildtrajanpage.cgi?$i+true\">$fs[$count]</a>\n";
			$count++;
		}
	}
	chop($relatedlinks);
}
		

#print "vwdescription=$vwdescription \n\n scenenumber=$scenenumber \n\n drumnumber=$drumnumber \n\n sideofcolumn=$sideofcolumn \n\n notessubject=$notessubject \n\n relatedslides=$relatedslides";

#==========
#now build the webpage
print <<eof;
<html>
<head>
<title>Trajan's Column - Image Database</title>
<link rel="schema.DC" href="http://purl.org/dc">
<meta name="DC.Title" lang="en" content="Trajan's Column - Image Database: $vwdescription.  Image $imagenumber.  Record $key. Slide Number  $slidenumber">
<meta name="DC.Creator" content="Umholtz, Gretchen; Rockwell, Geoffrey; George, Michele; Barrette, Paul; Beckmann, Martin; Rich, Saul">
<meta name="DC.Subject" lang="en" content="Trajan, Trajan's Column, Roman Architecture, Roman Carving Technique, Sculpture, Roman Army">
<meta name="DC.Description" lang="en" content="$vwdescription  $notessubject $furthernotes">
<meta name="DC.Publisher" content="McMaster University">
<meta name="DC.Contributor" content="Rockwell, Peter; Martini, Claudio; Rockwell, Mary">
<meta name="DC.Date" scheme="WTN8601" content="1999-08-20">
<meta name="DC.Type" content="Interactive.Multimedia">
<meta name="DC.Format" content="text/html">
<meta name="DC.Identifier" content="http://cheiron.humanities.mcmaster.ca/~trajan/buildtrajanpage.cgi?$key">
<meta name="DC.Language" content="English">
<meta name="DC.Rights" content="Image copyright - Peter Rockwell; WWW Site copyright - Umholtz, G., Rockwell, G., George, M., McMaster University">
</head>
<body bgcolor=white LINK="#993300" VLINK="#330000">
<center>
$head
<!--<P>$relatedtrue
<P>cdnumber=$cdnumber
<P>imagenumber=$imagenumber<P>
<P>$sql-->
<table border=0 width=500 CELLPADDING=0>

<!--image-->
	<tr align=top>
		<td><center><img src="images/low/$cdnumber.$imagenumber.l.jpg"></center><P>&nbsp;</td>
		<td><UL>Resolutions:
			<LI><a href="images/med/$cdnumber.$imagenumber.m.jpg">Medium</a>
			<LI><a href="images/hi/$cdnumber.$imagenumber.h.jpg">High (slower to download)</a>
			</UL>
		
		 <UL>View Cartoon:
		 <LI>$spirallink
		 </UL>
		
		 <UL>Related Images:
		 $relatedlinks
		 </UL>
		</td>
	</tr>
	
<!--image links res  HIDDEN FOR NOW
	<TR>
		<th align=right>Resolutions:</th><td><a href="images/med/$cdnumber.$imagenumber.m.jpg">Medium</a>, <a href="images/hi/$cdnumber.$imagenumber.h.jpg">High (slower to download)</a></td>
	</tr>
-->

<!--scenenumber-->
	<TR>
		<th align=right>Scene Number: </th><td>$scenenumber</td>
	</tr>
	
<!--viewdescription-->
	<tr BGCOLOR="#CCCCCC">
		<th align=right>Subject: </th><td>$vwdescription</td>
	</tr>
	
<!--spiral -->
	<TR>
		<th align=right>Spiral & Panel Number:</th><td>$spiralonly$panel</td>
	</tr>
	
<!--spiral panel	HIDDEN FOR NOW
	<tr>
		<th align=right>Spiral Panel(s):</th><td>$panel</td>
	</tr>
-->	

<!--drum-->
	<tr BGCOLOR="#CCCCCC">
		<th align=right>Drum Number(s):</th><td>$drumonly</td>
	</tr>

<!--cartoonlink   HIDDEN FOR NOW
	<TR>
		<th align=right>View Cartoon Showing This Scene: </th><td>$spirallink</td>
	</tr>
-->	
<!--notessubject-->
	<tr>
		<th align=right>Subject Description: </th><td>$notessubject</td>
	</tr>	
	
<!--subjectkeyword-->
	<tr BGCOLOR="#CCCCCC">
		<th align=right>Subject Keywords: </th><td>$subjectkeywords</td>
	</tr>
<!--tooldescription-->
	<tr>
		<th align=right>Tool & Technical Description: </th><td>$tooldescription</td>
	</tr>	
	
<!--toolkeywords-->
	<tr BGCOLOR="#CCCCCC">
		<th align=right>Tool Keywords: </th><td>$toolkeywords</td>
	</tr>	
	
<!--relatedslides  HIDDEN FOR NOW
	<tr>
		<th align=right>Related Images: </th><td>$relatedlinks</td>
	</tr>
-->
<!--photographer-->
	<TR>
		<th align=right>Photographer: </th><td>$photographer</td>
	</tr>	
	
<!--cdnumber-->
	<tr BGCOLOR="#CCCCCC">
		<th align=right>CD Number: </th><td>$cdnumber</td>
	</tr>

<!--imagenumber-->
	<TR>
		<th align=right>Image Number: </th><td>$imagenumber</td>
	</tr>	

<!--slidenumber-->
	<tr BGCOLOR="#CCCCCC">
		<th align=right>PR Slide Number: </th><td>$slidenumber</td>
	</tr>
	
<!--recordnumber-->
	<TR>
		<th align=right>Record Number: </th><td>$key</td>
	</tr>
	
<!--next & previous-->	
	<tr>
		<th align=right colspan=2><A HREF="buildtrajanpage.cgi?$next">Next Image</A><BR>
<A HREF="buildtrajanpage.cgi?$previous">Previous Image</A></th>
	</tr>
<!--key-->	
	<tr>
		<th align=right colspan=2>$key</th>
	</tr>
</table>
$footer
</center>
</html>
eof
	








exit;