/**********************************************************************
 *
 * Voci del pannello a sx - BMR Genomics
 * serve per passare il sid alle pagine chiamate
 * created by Gabriele 
 * Versione: 1.0.0
 * Data Ultima Modifica: 26/03/2009
 *-----------------------------------------------------
 * 1.0.0: Comunicazioni aggiunta
 **********************************************************************/
/***************************************************************************************
 * Include a javascript from another javascript
 *
 ****************************************************************************************/
function addJs(jsname) {
	var th = document.getElementsByTagName('head')[0];
	var s = document.createElement('script');
	s.setAttribute('type','text/javascript');
	s.setAttribute('src',jsname);
	th.appendChild(s);
}

//nuovo utente
function nuovoUtente(l,a,s) {
	
	document.forms[1].action = "/gute/perl/NuovoUtente.cgi";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = s;	
	document.forms[1].submit();
	
	/* goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+''); */
}

//comunica con noi
function comunicazioni(l,a,s,sid) {
	
	document.forms[1].action = "/webp/perl/comunicazioni.cgi";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = s;	
	document.forms[1].sid.value = sid;	
	document.forms[1].submit();
	
	/* goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+''); */
}

//contatti
function contatti(l,a,s,sid) {
	if( a == 'PRO' ) {
		 area = 'professionisti';	
	}
	else {
		if( a == 'PVT' ) {
			area = 'privati';			
		}	
	}
	document.forms[1].action = "/webp/it/gen/"+area+"/contatti.html";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = s;	
	document.forms[1].sid.value = sid;	
	document.forms[1].submit();
	
	/* goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+''); */
}

//recupera password
function recuperapwd(l,a,s) {
	goToURL('/gute/perl/RecuperaPwd.cgi?lingua='+l+'&area='+a+'&section='+s+'');
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'');
}
//login
function login(l,a,s) {
	document.forms[1].action = "/gute/perl/SessionLogin.pl";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = s;
	document.forms[1].method = "post";
	document.forms[1].submit();
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'');
}

//logout
function logout(l,a,s,sid) {
	document.forms[1].action = "/gute/perl/Logout.pl";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = s;
	document.forms[1].sid.value = sid;	
	document.forms[1].method = "get";
	document.forms[1].submit();
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'');
}

//Ritorna alla home page mantenedo la sessione
function home(l,a,s,sid) {
	if( a == 'PRO' ) {
		document.forms[1].action =  "/webp/"+l+"/gen/professionisti/index_professionisti.html"	;
	}
	else if( a == 'PVT' ) {
		document.forms[1].action = "/webp/"+l+"/gen/privati/index_privati.html";	
	}	
	else if( a == 'RIC' ) {
		document.forms[1].action = "/seq_index.html";			
	}
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = 'GEN';
	document.forms[1].sid.value = sid;	
	document.forms[1].method = "get";
	document.forms[1].submit();
}

//cambia profilo
function cambiaprofilo(l,a,s,sid) {
        if(sid == -1) {
		document.forms[1].action = "/gute/perl/LoginForm.cgi";	
	}
	else {
		document.forms[1].action = "/gute/perl/DatiUtente.pl";
	}
	document.forms[1].lingua.value = l;
	document.forms[1].section.value = s;
	document.forms[1].area.value = a;
	document.forms[1].sid.value = sid;	
	document.forms[1].method = "get";
	document.forms[1].submit();
	
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'');
}

//manu area utente
function menuareautente(l,a,s,sid) {
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'');	
	if(sid == -1) {
		document.forms[1].action = "/gute/perl/LoginForm.cgi";	
	}
	else {	
		document.forms[1].action = "/gute/perl/MenuAreaUtenti.pl";	
	}	
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;
	document.forms[1].section.value = s;	
	document.forms[1].method = "get";
	document.forms[1].submit();
}

//Chiama una funzione di uno script esterno {
function call_ext ( mod,scr,l,a,s,sid ) {
	addJs( mod );
	return eval( scr+'('+l+','+a+','+s+','+sid+')' );
}

//scegli tipo di test
function sceglitest(l,a,s,sid) {
	if( s == 'informativo' || s == 'forense' ) {
		document.forms[1].action = "/paternita/perl/sceglitest.pl";
	}
	else if( s == 'genealogia' || s == 'ancestry' || s == 'cognomi' ) {
		document.forms[1].action = "/ancestry/perl/sceglitest.pl";		
	} 	
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;	
	document.forms[1].section.value=s;
	document.forms[1].method = "get";
	document.forms[1].submit();	
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'sid'+sid+'');
}

//scegli tipo di corso di formazione
function sceglicorso(l,a,s,sid) {
	document.forms[1].action = "/corsi/perl/ListaCorsi.pl";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;	
	document.forms[1].section.value=s;
	document.forms[1].method = "get";
	document.forms[1].submit();	
	//goToURL('/webp/perl/notready.cgi?lingua='+l+'&area='+a+'&section='+s+'sid'+sid+'');
}

//vedi informazioni sui corsi
function infocorsi(l,a,s,sid) {
	document.forms[1].action = "/corsi/perl/Info.cgi";
	document.forms[1].lingua.value = l;	
	document.forms[1].area.value = a;	
	document.forms[1].section.value=s;
	document.forms[1].method = "get";
	document.forms[1].submit();
}