$Querryname=$Formdata[0];
$Searchstring=$Formdata[1];
$libstitle=$Formdata[2];
$type=$Formdata[4];
$searchtype=$Formdata[5];

#  Begin Test code for that freaky check box problem
$loopcounter = 0;
while ( $loopcounter <= 5 ) {
	@libstosearch[$loopcounter] = $Formdata[3][$loopcounter];
	$loopcounter++;
	}

#  We really should have + signs between everything that we pass to the library CGI
$Searchstring=~/\Q$Searchstring\E/;
$Searchstring =~ s/ /\+/g;

#  Here's where I'll get the flag variables ready.  If a flag is true, then that library
#  is searched.  If false, then the user gets the "Didn't search" page.

$libone = 0;
$libtwo = 0;
$libthree = 0;
$libfour = 0;
$libfive = 0;
$libsix = 0;

#  Ok.  Now we can get on with the business of throwing the right flags.
foreach $i (@libstosearch)  {
	if ($i eq 'first') { $libone = 1; }
	elsif ($i eq 'second') { $libtwo = 1; }
	elsif ($i eq 'third') { $libthree = 1; }
	elsif ($i eq 'fourth') { $libfour = 1; }
	elsif ($i eq 'fifth') { $libfive = 1; }
	elsif ($i eq 'sixth') { $libsix = 1; }
	}
	
#Below is the old code
#  That was painful, wasn't it?
#  Now I'll set the false libraries to the "Didn't Search" page
#if ($libone < 1) { $one = "<frame name=\"1\" src=\"\.\.\\Bellwood-Antis\\index\.html\" scrolling=\"no\">\n<frame name=\"one\" src=\"\.\.\\Bellwood-Antis\\not\.html\" scrolling = \"auto\">";  }
#if ($libtwo < 1 )  { $two = "<frame name=\"2\" src=\"\.\.\\Claysburg\\index\.html\" scrolling=\"no\">\n<frame name=\"two\" src=\"\.\.\\Claysburg\\not\.html\" scrolling = \"auto\">";}
#if ($libthree < 1 )  { $three = "<frame name=\"3\" src=\"\.\.\\Martinsburg\\index\.html\" scrolling=\"no\">\n<frame name=\"three\" src=\"\.\.\\Martinsburg\\not\.html\" scrolling = \"auto\">";}
#if ($libfour < 1 )  {  $four = "<frame name=\"4\" src=\"\.\.\\RoaringSpring\\index\.html\" scrolling=\"no\">\n<frame name=\"four\" src=\"\.\.\\RoaringSpring\\not\.html\" scrolling = \"auto\">";}
#if ($libfive < 1 )  {  $five = "<frame name=\"5\" src=\"\.\.\\Williamsburg\\index\.html\" scrolling=\"no\">\n<frame name=\"five\" src=\"\.\.\\Williamsburg\\not\.html\" scrolling = \"auto\">";}
#if ($libsix < 1 )  {  $six = "<frame name=\"6\" src=\"\.\.\\Altoona\\index\.html\" scrolling=\"no\">\n<frame name=\"one\" src=\"\.\.\\Bellwood-Antis\\not\.html\" scrolling = \"auto\">";}

#  Let's fire up those space variables
@space = ();
$one = ("\n");
$two = ("\n");
$three = ("\n");
$four = ("\n");
$five = ("\n");
$six = ("\n");


#  Here's the new code.  If the search for a particular library is false, we print a carriage return,
#  and set the space variable to null
if ($libone <= 1) {
	$one = "<frame name=\"1\" src=\"\.\.\\Bellwood-Antis\\index\.html\" scrolling=\"no\">\n<frame name=\"one\" src=\"http\:\/\/tome\.bapl\.lib\.pa\.us\/wx\/s\.dll\?s1=$Searchstring&s12\.x=DEFAULT&$searchtype\+Search\.x=12&$searchtype\+Search\.y=28\" frameborder=0 border=0>\n";
	shift("\*", @space);
	}
if ($libtwo <= 1 )  {
	$two = "<frame name=\"2\" src=\"\.\.\\Claysburg\\index\.html\" scrolling=\"no\">\n<frame name=\"two\" src=\"http\:\/\/209\.158\.4\.224\/Claysburg\/wx\/s\.dll\?s1=$Searchstring&s12\.x=DEFAULT&$searchtype\+Search\.x=12&$searchtype\+Search\.y=28\" frameborder=0 border=0>\n";
	$space2 = (); }
if ($libthree <= 1 )  { 
	$three = "<frame name=\"3\" src=\"\.\.\\Martinsburg\\index\.html\" scrolling=\"no\">\n<frame name=\"three\" src=\"http\:\/\/209\.158\.4\.224\/Martinsburg\/wx\/s\.dll\?s1=$Searchstring&s12\.x=DEFAULT&$searchtype\+Search\.x=12&$searchtype\+Search\.y=28\" frameborder=0 border=0>\n";
	$space3 = (); }
if ($libfour <= 1 )  {  
	$four = "<frame name=\"4\" src=\"\.\.\\RoaringSpring\\index\.html\" scrolling=\"no\">\n<frame name=\"four\" src=\"http\:\/\/209\.158\.4\.224\/RoaringSpring\/wx\/s\.dll\?s1=$Searchstring&s12\.x=DEFAULT&$searchtype\+Search\.x=12&$searchtype\+Search\.y=28\" frameborder=0 border=0>\n";
	$space4 = (); }
if ($libfive <= 1 )  {  
	$five = "<frame name=\"5\" src=\"\.\.\\Williamsburg\\index\.html\" scrolling=\"no\">\n<frame name=\"five\" src=\"http\:\/\/209\.158\.4\.224\/Williamsburg\/wx\/s\.dll\?s1=$Searchstring&s12\.x=DEFAULT&$searchtype\+Search\.x=12&$searchtype\+Search\.y=28\" frameborder=0 border=0>\n";
	$space5 = (); }
if ($libsix <= 1 )  {  
	$six = "<frame name=\"6\" src=\"\.\.\\Altoona\\index\.html\" scrolling=\"no\">\n<frame name=\"six\" src=\"http\:\/\/tome\.bapl\.lib\.pa\.us\/wx\/s\.dll\?s1=$Searchstring&s12\.x=DEFAULT&$searchtype\+Search\.x=12&$searchtype\+Search\.y=28\" frameborder=0 border=0>\n";
	$space6 = (); }



print "Content-type: text/html\n\n";
print <<'HEADER';


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title></title>

</head>

HEADER

print "<frameset rows=\"$space1 $space2 $space3 $space4 $space5 $space6\" cols=\"140,*\">";
#  This was the old Frameset <frameset rows="60,60,60,60,60,60" cols="140,*">

print "$one\n";
print "$two\n";
print "$three\n";
print "$four\n";
print "$five\n";
print "$six\n";
print "<\/frameset>\n";
print "<\/html>\n";

print "<a href=\"http:\/\/tome\.bapl\.lib\.pa\.us\/wx\/s\.dll\?s1=" . "$Searchstring" . "&s12\.x=DEFAULT&" . "$searchtype" . "\+Search\.x=12&" . "$searchtype" . "\+Search\.y=28\">Click Here<\/a>";
print "@libstosearch\n\n";
print "<\/body>";
print "<\/html>";