sub make_entry 
{
	my($query) = @_;
	my $PUBFILE = "temp.html";
	    
	open PUBFILE, ">$PUBFILE";
		
	select STDOUT;
	my $pubtitle    = $query->param('pubtitle');
	my $pubauthor   = $query->param('pubauthor');
	my $pubdate     = $query->param('pubdate');
	my $pubjournal  = $query->param('pubjournal');
	my $pubcategory = $query->param('pubcategory');
	my $puburl      = $query->param('puburl');
	my $pubkey1     = $query->param('pubkey1');
	my $pubkey2     = $query->param('pubkey2');
	my $pubkey3     = $query->param('pubkey3');
	my $pubkey4     = $query->param('pubkey4');
	my $pubcomments = $query->param('pubcomments');
	#my $pubupload
	my $yourname    = $query->param('yourname');
	my $youremail   = $query->param('youremail');
	my $yourphone   = $query->param('yourphone');
		
	print PUBFILE <<END;
		
	<!-- \n
	$pubtitle \n
	$pubauthor \n
	$pubcategory \n
	$pubkey1 &amp;amp;amp;amp;nbsp $pubkey2 &amp;amp;amp;amp;nbsp &amp;amp;amp;amp;pubkey3 &amp;amp;amp;amp;nbsp \n
	-->
	\n
	<table>\n
		<tr><td>Title: </td><td>$pubtitle</td><tr>\n
		<tr><td>Author: </td><td>$pubauthor</td><tr>\n
		<tr><td>Publish Date: </td><td>$pubdate</td><tr>\n
		<tr><td>Journal: </td><td>$pubjournal</td><tr>\n
		<tr><td>Category: </td><td>$pubcategory</td><tr>\n
		<tr><td>URL: </td><td><a href="$puburl">$puburl</a></td><tr>\n
		<tr><td>Keywords: </td><td>$pubkey1 &nbsp $pubkey2 &nbsp $pubkey3 &nbsp $pubkey4</td><tr>\n
		<tr><td>Comments: </td><td>$pubcomments</td><tr>\n
		<tr><td>Posted: </td><td></td><tr>\n
	</table>
	<table>
		<tr><td>Name of Poster: </td><td>$yourname</td><tr>\n
		<tr><td>Email of Poster: </td><td>$youremail</td><tr>\n
		<tr><td>Daytime Phone of Poster: </td>$yourphone<td></td><tr>\n
	</table>
		
END

close PUBFILE;
}