sub printAllResponses{

print <<"HTML";

<table border="0" cellspacing="0" cellpadding="0">

<tr><td colspan=3><center>
<h2>Notes for $call{'user'} on the $call{'database'} Database </h2>
</center>
</td></tr>
HTML

	while ($i <= $#matchQuestionsAndAnswers){

		if ($matchQuestionsAndAnswers[$i]{'datatype'} eq '1'){

			print "<tr><td colspan=3><hr></td></tr>\n";
			print "<tr>\n";
			print "<td valign=top>\n";
			print "<font size=\"2\">\n";
			print "<b>Keywords <a href=
			\"$url$script?user-$call{'user'}&";
		
			@kywrds = split(/:/, $matchQuestionsAndAnswers[$i]{'keywords'});
		
			$k = 0;
		
			while ($k <= $#kywrds){
		
				$k++;		
				print "keywords$k-";
				print "$kywrds[$k-1]&";

			}
		
			print "&database-$call{'database'}&keywords-123\"
			>Edit Entry</a></b><br>\n";

			foreach $kywrd (@kywrds){
		
				$j += 1;
			
				print "$kywrd<br>\n";
			
			}

			$j = 0;
		
			print "</font>\n";
			print "</td>\n";
			print "<td>&nbsp;&nbsp;&nbsp;</td>\n";
			print "<td valign=top>\n";
			print "<b>Q: $matchQuestionsAndAnswers[$i]{'question'}</b><br><br>\n";
		
			$i++;

			print "<b>A:  $matchQuestionsAndAnswers[$i]{'question'}</b>\n";
			print "</td>\n";
			print "</tr>\n";

		}

		if ($matchQuestionsAndAnswers[$i]{'datatype'} eq '2'){
		
			print "<tr><td colspan=3><hr></td></tr>\n";
			print "<tr>\n";
			print "<td valign=top>\n";
			print "<font size=\"2\">\n";
			print "<b>Keywords <a href=
			\"$url$script?user-keny&";
		
			@kywrds = split(/:/, $matchQuestionsAndAnswers[$i]{'keywords'});
		
			$k = 0;
		
			while ($k <= $#kywrds){
		
				$k++;		
				print "keywords$k-";
				print "$kywrds[$k-1]&";

			}
		
			print "&database-$call{'database'}&keywords-123\"
			>Edit Entry</a></b><br>\n";

			foreach $kywrd (@kywrds){
		
				$j += 1;
			
				print "$kywrd<br>\n";
			
			}

			$j = 0;
		
			print "</font>\n";
			print "</td>\n";
			print "<td>&nbsp;&nbsp;&nbsp;</td>\n";
			print "<td valign=top>\n";
			print "<b>Note: $matchQuestionsAndAnswers[$i]{'question'}</b><br><br>\n";
			print "</td>\n";
			print "</tr>\n";
			
		}
	$i++;
	}

print <<"HTML";

<tr><td colspan=3><hr></td></tr>
<tr><td colspan=3><font size="2">No more notes found for user $call{'user'}</font></td></tr>

</table>

</center>
HTML

}

sub printSortedArray{

	$keywordcount = ($#formkeys + 1);
	
	print "<form method=post action=\"/ncsa/riverweb/notebook/notebook1/notebook.cgi\">\n";
	print "<input type=\"hidden\" name=\"database\" value=\"$call{'database'}\">\n";
	print "<input type=\"hidden\" name=\"keywords\" value=\"123\">\n";
	print "<input type=\"hidden\" name=\"questioncount\" value=\"$questions\">\n";	# parsedata.pl getQuestionsForLocation
	print "<input type=\"hidden\" name=\"keywordcount\" value=\"$keywordcount\">\n";
	print "<input type=\"hidden\" name=\"wildcardcount\" value=\"$wildcardcount\">\n";
	print "<input type=\"hidden\" name=\"user\" value=\"$call{'user'}\">\n";

	print "<table border=\"0\" cellspacing=\"0\" cellpadding=\"0\">\n<tr>\n<td>\n";
	
	print "\n\n";
	
	# @parsekeywords = split(/:/, $matchQuestionsAndAnswers[$i]{'keywords'});
	
	print "<b>$call{'user'}, your location is:<br>\n";
	
	while ($i <= $#formkeys){
	
		$j = ($i + 1);
		
		print "<input type=\"hidden\" name=\"keywords$j\" value=\"$formkeys[$i]\">\n";
		
		$formkeys[$i] =~ s/=/&nbsp;=&nbsp;/g;
	
		print "$formkeys[$i]<br>\n";
		
		$formkeys[$i] =~ s/&nbsp;=&nbsp;/=/g;
		
		$i++;
	
	}
	
	$j = 0;
	$i = 0;

	print "</b><br><br>\n";

	print "\n\n";
	
	# print the array
	while ($i <= $#matchQuestionsAndAnswers){
		
		# print "<b>matchQuestionsAndAnswers $i</b><br>\n";
		# print "ID: $matchQuestionsAndAnswers[$i]{'ID'}<br>\n";
		# print "datatype: $matchQuestionsAndAnswers[$i]{'datatype'}<br>\n";
		# print "user: $matchQuestionsAndAnswers[$i]{'user'}<br>\n";
		# print "linkid: $matchQuestionsAndAnswers[$i]{'linkid'}<br>\n";
		# print "$matchQuestionsAndAnswers[$i]{'question'}<br><br>\n";
	
	
	
	
	
		if ($matchQuestionsAndAnswers[$i]{'datatype'} eq '1'){
		
			if ($call{'user'} eq $hash{'1'}){
			
				$k += 1;
				print "<b>Question:</b><br><textarea wrap=virtual name=\"question$k\" rows=\"4\" 
				cols=\"30\">$matchQuestionsAndAnswers[$i]{'question'}</textarea><br><br>\n";
				print "<input type=\"hidden\" name=\"qlink$k\" value=\"$matchQuestionsAndAnswers[$i]{'linkid'}\">\n";
				print "<input type=\"hidden\" name=\"qid$k\" value=\"$matchQuestionsAndAnswers[$i]{'ID'}\">\n";
				
			}
			else {
		
				print "<b>Question:</b> $matchQuestionsAndAnswers[$i]{'question'}<br><br>\n";
			
			}
			#$questions--;
			#$ques = ($questions +1);
			
			$j = ($j + 1);
			
			if ($matchQuestionsAndAnswers[$i+1]{'datatype'} eq '3'){
			
				print "<b>Answer:</b><br><textarea  wrap=virtual name=\"answer$j\" rows=\"4\" 
				cols=\"30\">$matchQuestionsAndAnswers[$i+1]{'question'}</textarea><br>\n";
				print "<input type=\"hidden\" name=\"link$j\" value=\"$matchQuestionsAndAnswers[$i]{'ID'}\">\n";
				print "<input type=\"hidden\" name=\"ansid$j\" value=\"$matchQuestionsAndAnswers[$i+1]{'ID'}\">\n";
				print "<hr>\n";
				
			}
			
			else {
			
				print "<b>Answer:</b><br><textarea wrap=virtual name=\"answer$j\" rows=\"4\" 
				cols=\"30\"></textarea><br>\n";
				print "<input type=\"hidden\" name=\"link$j\" value=\"$matchQuestionsAndAnswers[$i]{'ID'}\">\n";
				print "<input type=\"hidden\" name=\"ansid$j\" value=\"new\">\n";
				print "<hr>\n";
				
			}
			
			$i++;
		}
		
		elsif ($matchQuestionsAndAnswers[$i]{'datatype'} eq '2'){

			$yeah = 'yeah';
			$notelocation = $i;
			
			$i++;
		}
		
		else {
		
			$i++;
		
		}

	}
	
	$i = 0;
	$j = 0;
	$k = 0;
	
	print "\n\n";
	
	# Now we print the wildcard q's the array is full of Q's and A's in no order
	
	while ($i <= $#wildcards){
	
		if ($wildcards[$i]{'datatype'} eq '1'){
			
			$k += 1;
			
			if ($call{'user'} eq $hash{'1'}){
			
				print "<b>Question:</b><br><textarea wrap=virtual name=\"wildcardq$k\" rows=\"4\" 
				cols=\"30\">$wildcards[$i]{'question'}</textarea><br><br>\n";
				print "<input type=\"hidden\" name=\"wildcardqlink$k\" value=\"$wildcards[$i]{'linkid'}\">\n";
				print "<input type=\"hidden\" name=\"wildcardqid$k\" value=\"$wildcards[$i]{'ID'}\">\n";
				
			}
			
			else {
			
				print "<b>Question:</b> $wildcards[$i]{'question'}<br><br>\n";
				print "<input type=\"hidden\" name=\"wildcardqid$k\" value=\"$wildcards[$i]{'ID'}\">\n";
			}
			
			#loop through the array again, looking for the answer
			# if no answer, print empty answer field
			
			while ($j <= $#wildcards){
				
				$jid = $wildcards[$j]{'linkid'};
				
				$jid =~ s/w//;
				
				#print "jid: $jid<br>\n";
				
				if (( $jid eq $wildcards[$i]{'ID'}) && 
					($wildcards[$j]{'datatype'} eq '3')){
				
					print "<b>Answer:</b><br><textarea  wrap=virtual name=\"wildcard$k\" rows=\"4\" 
					cols=\"30\">$wildcards[$j]{'question'}</textarea><br>\n";
					print "<input type=\"hidden\" name=\"wildcardlink$k\" value=\"$wildcards[$i]{'ID'}\">\n";
					print "<input type=\"hidden\" name=\"wildcardansid$k\" value=\"$wildcards[$j]{'ID'}\">\n";
					print "<hr>\n";
					
					$j = $#wildcards;
					$yeah2 = 'yeah';
				}
			$j++;
			}
			
			$j = 0;
			
			if ($yeah2 ne 'yeah'){
			
				print "<b>Answer:</b><br><textarea wrap=virtual name=\"wildcard$k\" rows=\"4\" 
				cols=\"30\"></textarea><br>\n";
				print "<input type=\"hidden\" name=\"wildcardlink$k\" value=\"$wildcards[$i]{'ID'}\">\n";
				print "<input type=\"hidden\" name=\"wildcardansid$k\" value=\"new\">\n";
				print "<hr>\n";
			
			}
		}
		
		$i++;
	}
	
	print "\n\n";
	
	# Time to print the notes...
	
	if ($yeah ne 'yeah'){
	
		print "<br><b>Your notes on this location:</b> <br><textarea wrap=virtual name=\"notes\" 
		rows=\"4\" cols=\"30\"></textarea><br>\n";
		print "<input type=\"hidden\" name=\"note\" value=\"new\">\n";

	}
	elsif ($yeah eq 'yeah'){
	
		print "<br><b>Your notes on this location:</b> <br><textarea wrap=virtual name=\"notes\" 
		rows=\"4\" cols=\"30\">$matchQuestionsAndAnswers[$notelocation]{'question'}</textarea><br>\n";
		print "<input type=\"hidden\" name=\"note\" value=\"$matchQuestionsAndAnswers[$notelocation]{'ID'}\">\n";		
	
	}

	print "<input type=\"submit\" name=\"submit\" value=\"Add Answers and Notes\"><input type=\"submit\" name=\"displayall\" value=\"Display All Responses\"><input type=\"reset\">\n";

	print "</form>\n";
	
	print "</td></tr></table>";
	
	$j = 0;
	$i = 0;
}

sub printAddQuestionSummary{

	# displays the html when a question was added.
	
	print "<h3>$call{'user'}, The question $call{'question'}
	 was added to the database. We also added the following keywords
	 to the database.</h3>\n";
	 
	print "<ol><b>\n";
	
	while ($i <= $#formkeys){
	
		# while looking at all the keywords
		$d = ($i + 1);
		print "<input type=\"hidden\" name=\"keywords$d\" value=\"$formkeys[$i]\">\n";
		print "<li>$formkeys[$i]\n";
		$i++;
		
	}
	
	print "</ol></b>\n";
	
}

sub printFinalizeAddForm{

	print "<h3>$call{'user'}, Please verify that the information you entered is correct.
	If it is not, use your browser's back button to fix the error</h3>\n";

	print "<table cellpadding=0 cellspacing=0 border=0>\n<tr>\n<td>\n";

	print "<form method=post action=\"$script\">\n";
	print "<input type=\"hidden\" name=\"add\" value=\"1\">\n";
	print "<input type=\"hidden\" name=\"finalizeadd\" value=\"1\">\n";
	print "<input type=\"hidden\" name=\"user\" value=\"$call{'user'}\">\n";
	print "<input type=\"hidden\" name=\"password\" value=\"$call{'password'}\">\n";
	print "<input type=\"hidden\" name=\"database\" value=\"$call{'database'}\">\n";
	print "<input type=\"hidden\" name=\"data\" value=\"1\">\n";
	print "<input type=\"hidden\" name=\"question\" value=\"$call{'question'}\">\n";
	print "<h3>Question:</h3> <b>$call{'question'}</b>\n";
	
	$i = 0;

	print "<h3>Keywords</h3>\n";
	print "<b><ol>\n";

	while ($i <= $#formkeys){
	
		# while looking at all the keywords
		$d = ($i + 1);
		print "<input type=\"hidden\" name=\"keywords$d\" value=\"$formkeys[$i]\">\n";
		print "<li>$formkeys[$i]\n";
		$i++;
		
	}
	print "</ol></b>\n";
	
	$i = 0;
	
	if ($keywordsfound == '1'){
		print "<h3>Other questions with the same keywords were found. Please set the 
		order of the following questions to control how they appear together</h3>\n";
		
		&printSetOrderOfQuestions;
		
		# print "Hey There I am $keywordsfound";
	}
	
	print "<br><input type=\"submit\" name=\"submit\" value=\"Add Question\">\n";
	print "</form>\n";
	
	print "</table>\n</tr>\n</td>\n";
}

sub printSetOrderOfQuestions {

	# evaluates if there are any location matches in @matches and prints
	# form syntax to the finalize window
	
	if (@matches != ''){
	
		&openDBhash;
		$i = 1;
		
		while ($i <= $#matches){
			
			# open database back up and parse the questions that 
			# are in matches
			$hashloc = $matches[$i];
			$val = $hash{$hashloc};
			parseDatabaseString($val);

			# print radio buttons to set order for each of the questions 
			# that matched the location.

			$j = 1;
			# print the radio button for how many matches there are + current
			while ($j <= ($#matches + 1)){
			
				print "$j: <input type=\"radio\" name=\"order$j\" value=\"$hashloc\">\n";
				$j++;
			
			}
			
			print "<br><b>$parsedinfo[4]</b><br><br>\n";
			
			$i++;

		}
		# print the new question and radio buttons to set order
		$k = ($#matches + 1);
		$j = 1;
		while ($j <= ($#matches + 1)){
		
			print "$j: <input type=\"radio\" name=\"order$j\" value=\"0\">\n";
			
			$j++;
		}
		print "<br><b> $call{'question'}</b><br><br>\n";
		
		print "<input type=\"hidden\" name=\"matchquestions\" value=\"1\">\n";
		print "<input type=\"hidden\" name=\"numbermatched\" value=\"$#matches\">\n";
		
		$i = 0;
		&closeDBhash;
	}
}

sub printHtmlHeader{

	print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">\n";
	print "<html>\n";
	print "<head>\n";
	print "<title>Notebook</title>\n";
	print "</head>\n";
	print "<body bgcolor=\"#ffffff\" text=\"#000000\">\n";
	print "<center>\n";

}

sub printHtmlFooter{

	print "</center>\n";
	print "</body>\n";
	print "</html>\n";

}

1;