function print(config,msg){
	config.document.getElementById(config.debugId).value+="\n"+msg;
}

function drawForm(par){
    
	populateSourceTable(par); //populateSourceTableData
	let tableId="entryTable"; 
	generateTable(par,"formDiv",tableId);
	generateRow(par,tableId,"User");//generateTableRow
	populateSelectTableEntry(par,"User");
	

}

function generateQConfig(listName){
    let qConfig=new Object();
    qConfig.containerPath="TECANT/Data";
    qConfig.schemaName="lists";
    qConfig.queryName=listName;
    return qConfig;
 }
 

function sourceVar(crfEntryName,elementId,sourceName){
	let f=new Object();
	f.masterSelectVarName=crfEntryName;
	f.selectId=elementId;
	f.inputType="innerHTML";
	f.sourceSelectVarName=sourceName;
	return f;
}

function getField(config, data, varName){
	let debug=false;
	if (debug) print(config, "getField");
	let fields=data.metaData.fields;
	for (f in fields){
		if (debug) print(config,"Checking "+f+": name "+fields[f].name+"/"+varName);
		if (fields[f].name!=varName) continue;
		return fields[f];
	}
	return null;
}


function generateHead(config, headDivName,divName,title){
	print(config,"generateHead");
	let tb=config.document.createElement('table');
	tb.className='t2';
	let row=tb.insertRow();
	let cell=config.document.createElement('th');
	row.appendChild(cell);	
	cell.setAttribute("colspan","4");
	cell.style.fontSize="20px";
	cell.style.textAlign="center";
	let cellData=config.document.createTextNode(title);
	cell.appendChild(cellData);
	cell=row.insertCell();
	cell.style.fontSize="20px";
	let input=config.document.createElement("input");	
	input.type="button";
	input.value="Show";
	input.id="toggle"+divName+"VisbilityButton";
	input.onclick=function(){toggleVisibility(config,divName,input.id)};
	cell.appendChild(input);
	config.document.getElementById(headDivName).appendChild(tb);
	print(config,"generateHead: Done");
}

function toggleVisibility(config,divName,buttonName){

	let x = config.document.getElementById(divName);
	if (x.style.display === "none") {
    		x.style.display = "block";
		config.document.getElementById(buttonName).value="Hide";

  	} else {
    		x.style.display = "none";
		config.document.getElementById(buttonName).value="Show";

  	}
}

function selectRowsSuccess(config,data){
	print(config,"Select rows on "+data.queryName+" got "+data.rows.length+" rows.");
}

function populateSourceTable(par){
	let debug=true;
	if (debug){
		print(par.config,"populateSourceTable: Starting");
	}
    let config=generateQConfig(par.source.queryName);
    config.schemaName=par.source.schemaName; 
	
	if (!("source" in par)) return;
	if (debug){
		print(par.config,"populateSourceTable ["+par.source.queryName+"]");
	}

	config.success=function(data){populateSourceTableData(data,par)};
	//config.success=function(data){selectRowsSuccess(par.config,data)};
	
	config.failure=function(errorTxt){print(par.config,"populateSourceData:fail"+errorTxt.exception)};
	LABKEY.Query.selectRows(config);
}

function populateSourceTableData(data,par){
	let debug=true;
	if (debug){
		print(par.config, "populateSourceTableData: nrow: "+data.rows.length);
	}
	let entry=data.rows[0];
	for (let i=0;i < par.source.vars.length;i++){
		let srcVarName=par.source.vars[i];
		if (debug){
			print(par.config, "populateSourceTable ["+srcVarName+"]");
		}
		let row=par.vars[srcVarName];
		let el=par.config.document.getElementById(row.selectId);
		if (debug){
			print(par.config, "Element: "+el);
		}
		el.innerHTML=entry[row.sourceSelectVarName];
	}
}

function generateTable(par,divName,elementId){
	let debug=true;
	if (debug)
		print(par.config,"generateTable");
	let tb=par.config.document.createElement('table');
	tb.className="t2";
	tb.id=elementId;
	par.config.document.getElementById(divName).appendChild(tb);
	if (debug)
		print(par.config,"generateTable: Done");
}


function generateRow(parameters, tableId, rowId){
	let debug=true;
	if (debug)
		print(parameters.config,"generateRow: Start");
	let config=generateQConfig(parameters.masterQuery);
	config.success=function(data){generateTableRow(data, parameters, tableId, rowId)};
	LABKEY.Query.selectRows(config);
	if (debug)
		print(parameters.config,"generateRow: End");
	return;

}

function generateTableRow(data, parameters, tableId, rowId){
	let debug=true;
	if (debug)
		print(parameters.config,"generateTableRow: start");
	let tb=parameters.config.document.getElementById(tableId);
	let row=parameters.vars[rowId];
	if (debug)
		print(parameters.config,"getField for "+row.masterSelectVarName);
	
	let field=getField(parameters.config,data,row.masterSelectVarName);
	let trow=tb.insertRow();
	let cell=parameters.config.document.createElement('th');
	trow.appendChild(cell);
	let text = parameters.config.document.createTextNode(field.shortCaption);
	cell.appendChild(text);
	cell=trow.insertCell();
	let input = parameters.config.document.createElement("select");
	input.id = row.selectId;
	input.onchange=function(){row.callback(parameters,rowId)};
	cell.appendChild(input); 
	if (debug)
		print(parameters.config,"generateTableRow: end");
	
}

function populateSelectTableEntry(parameters,rowId){

	let debug=true;	
	let row=parameters.vars[rowId];
	if (debug)
		print(parameters.config,"populateSelectTableEntry:"+parameters.masterQuery+"/"+row.masterSelectVarName);
		
	

	let config=generateQConfig(parameters.masterQuery);
    
    if ("filter" in row){
		//populateSelect on authorizationQuery with authSelectVarName
		let filter=row.filter;
		if (debug){
			print(parameters.config,"Filter:"+filter.queryName);
			print(parameters.config,"FilterVar "+filter.filterVarName);
		}
		config.queryName=filter.queryName;
		config.filterArray=[];
		for (f in filter.filters){
			if (debug) print(parameters.config,"Adding filter: "+f+" val "+filter.filters[f]);
			config.filterArray.push(LABKEY.Filter.create(f,filter.filters[f]));
		}
	}
	else{
		config.queryName=parameters.masterQuery;
	}
	
	config.success=function(data){populateTableRow(data,parameters,rowId)};
	LABKEY.Query.selectRows(config);
	if (debug)
		print(parameters.config,"generateSelect: End");
	return;
	
}

function populateTableRow(data,parameters,rowId){
	//data is output of selectRows on either 
	//	* masterQuery looking at masterSelectVarName or 
	//	* authQuery looking at authSelectVarName

	//in both cases, query[varName] is a lookup variable, so do populateSelect with lookupData,queryData and parameters
	let debug=true;
	let row=parameters.vars[rowId];
	let varName=row.masterSelectVarName;
	if ("filter" in row){
		if (row.filter.queryName==data.queryName){
			varName=row.filter.filterVarName;
		}
	}

	if (debug)
		print(parameters.config,"generateSelectVar: "+data.queryName+"/"+varName+" size "+data.rows.length);

	let field=getField(data,varName);
	
	if (!field) {
		print("Field "+varName+" not found");
		return;
	}

	if (!("lookup" in field)){
		let entry=data.rows[0];
		print("Field "+varName+" not a lookup");
		//populateSelectNotLookup(data,parameters,rowId, entry);	
		return;
	}
	
	let config=generateQConfig(field.lookup.queryName);
	config.schemaName=field.lookup.schemaName;
	//config.success=function(lookupData){populateSelect(lookupData,data,parameters,rowId)};
	config.success=function(data){selectRowsSuccess(par.config,data)};
	LABKEY.Query.selectRows(config);	
	
	if (debug)
		print(parameters.config,"generateSelectVar: End");
	
}	

//populateSelect, populateSelectNotLookup

function generateListAndPopulateDaughterSelect(parameters,rowId){;}
function generateList(parameters,rowId){;}