#!/usr/bin/perl  -w

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;


my $JSCRIPT=<<EOF;

function sub_dispatcher(passit) {
  document.sql_tool.submit();
}

var myRef;
function windo(arg){
 var url = 'http://bioinfo.weizmann.ac.il/safety/images/db_connect_qfile.htm';
 if(myRef == null ||  myRef.closed){
   myRef =  window.open(url,'mywin','left=20,top=20,width=500,height=500,resizable=1,scrollbars=1');
 }else if(!myRef.closed){
   myRef.focus();
   myRef.location.reload(true);
 }
}
EOF
;

#-------------------------------
#SETTING UP A FORM FOR INPUT:
print $query->header();

print $query->start_html(-title => 'Selection ',
                         -BGCOLOR=>'lavender',
                         -script=>$JSCRIPT);

print $query->startform(-name=>'sql_tool');


#SETTING UP A FORM FOR INPUT:
print $query->button(-name=>'listfile',
                     -value=>'direct function-call',
                     -onClick=>'windo("win")'
                      ),p;
print $query->button(-name=>'embedvar',
                     -value=>'indirect function-call',
                     -onClick=>"sub_dispatcher('call_windo')"
                      ),p;

print $query->endform(),
hr;
#------------------------------------------------------

#JS FUNCTION CALL:

        my $writsql= "-code=>\'windo(\"no_win\")\'}),p";
                my $prntvar =  "print \$query->start_html(-script=>{-language=>\'JavaScript',$writsql;
\n";
                eval $prntvar;

print end_html;