#!usr/local/bin/perl;
####################################################
#	Annotation Master v. .0001
#	Wendy Seltzer | wendy@seltzer.com
#	adds text markup in a separate frame 
#  	(and I'm sure you need that!)
####################################################

use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $query=new CGI;
print $query->header();
print $query->start_html();
$transcript_filename=$query->param(trans);
$transcript_page=$query->param(page);
print qq!Add your annotations to <a href="$transcript_filename.html#page$transcript_page" target="transcript">page
	 $transcript_page</a> of the $transcript_filename transcript.\n!;
#$form.=qq!<center><table width="100%" cellspacing="0" cellpadding="1" border="0" bgcolor="3366cc"><tr><td>!;
$form.=qq!<form action="addnote.cgi" method="POST">\n!;
$form.=qq!Type your comments in the box below:<br>
	<textarea name="note" cols="30" rows="10" wrap="virtual"></textarea>\n
	<input type="hidden" name="page" value="$transcript_page">\n   
	<input type="hidden" name="trans" value="$transcript_filename"><p>\n!;
$form.=qq!Add your name and email address (optional):<br>\n
	Name: <input type="text" name="name" size="15"><br>\n
	Email: <input type="text" name="email" size="25"><p>\n!;

$form.=qq!<center> <INPUT TYPE="submit" NAME="Submit" value="Submit">!.
	"&nbsp;&nbsp;&nbsp;&nbsp;".
	$query->reset.
	"</center><p>\n";
#$form.=qq!</td></tr></table></center>!;
print "$form";
print $query->end_html;