sub write_form{

   my $additional_html = shift;
    
    $additional_html ||='';
    print $dw->header({'menu'   => 1,
    		       'script' => "function check_name() {  
                             var sname;
			     var r;
                             sname = document.main.snp.value;
                             confirm(sname) ;  
                       }" });
   

		       
    print $additional_html;
    print $cgi->br();
    print $cgi->h4('Register TaqMan Assay');
    print $cgi->br();
    print $cgi->start_form({-name =>'main',
    			    -method =>'post',
			    -action =>'/cgi-bin/prodsoft/Genotyping/register_taqman_new.pl',
			    -onSubmit=>'return check_name()'});


}