309 |
|
|
310 |
|
|
311 |
# build the page |
# build the page |
312 |
my $user = $cgi->hidden(-name=>'user'); |
my $user = $cgi->param('user'); |
313 |
my $link = "protein.cgi?prot=$peg&user=$user"; |
my $link = "protein.cgi?prot=$peg&user=$user"; |
314 |
push @$html, |
push @$html, |
315 |
#$cgi->start_multipart_form(), |
#$cgi->start_multipart_form(), |
317 |
$cgi->hidden(-name=>'prot', -value=>'$peg'), |
$cgi->hidden(-name=>'prot', -value=>'$peg'), |
318 |
$cgi->hidden(-name=>'user', -value=>'$user'), |
$cgi->hidden(-name=>'user', -value=>'$user'), |
319 |
$cgi->br, |
$cgi->br, |
320 |
"<a href=$link>Back to protein page</a>", |
"<a href=$link Back to protein page</a>", |
321 |
$cgi->br, |
$cgi->br, |
322 |
"<h2>Controlled Vocabulary Workbench for $peg</h2>", |
"<h2>Controlled Vocabulary Workbench for $peg</h2>", |
323 |
$cgi->hr, |
$cgi->hr, |