#!/usr/bin/perl
use Pg;
use CGI qw(:standard);
use CGI qw(:cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
#############################################
#take a value from the buildindex? and call PG and make a list of all matches
#
#############################################
print header;
ReadParse();
$elem=$ARGV[0];
$fld=$ARGV[1];
$linkword=$ARGV[2];
#make an sql statment for each field
if ($fld eq "subjectkeywords"){$sql="select * from traj where $fld ~\'$elem\'";}
if ($fld eq "toolkeywords"){$sql="select * from traj where $fld ~\'$elem\'";}
if ($fld eq "sideofcolumn"){$sql="select * from traj where $fld ~\'$elem\'";}
if ($fld eq "scenenumber"){$sql="select * from traj where $fld =\'$elem\'";}
if ($fld eq "drumnumber" && !($linkword eq "spiral")){$sql="select * from traj where $fld ~\', $elem$\'";}
if ($fld eq "drumnumber" && $linkword eq "spiral"){$sql="select * from traj where $fld ~\'\^$elem,\'";}
#get header and footer
$header=`cat stndheader.txt`;
$footer=`cat stndfooter.txt`;
#CALL PG AND GET LIST OF A FIELD
#$sql ="SELECT * from traj";
$conn = Pg::connectdb("dbname=trajan");
Pg::doQuery($conn, $sql, \@ary);
#now extract info and build a list of links for this keyword
#just need the key field
for $i ( 0 .. $#ary ) {
if ($linkword eq "spiral"){
#drumnum=14
$key= "$ary[$i][0]";
$dnum="$ary[$i][14]";
@dary=split ",", $dnum;
$spiralnum=$dary[0];
$out.= "