/* ----- Notes ----- 

	Last Modified:	2006-02-16
	HTML files:		*
	Framework:		StudioWorks for Omnis Studio
	Written by: 	Doug Kuyvenhoven, doug@vencor.ca
	Copyright: 		Vencor Software 2006, www.vencor.ca 
*/

// ----- Action Methods -----

function prepareForm(prForm,pMethodName) {

	var CGI = OmnisCGI();
	var Port = OmnisPort();
	var Lib = OmnisLib();
	var Class = OmnisClass();

	prForm.action = CGI;
	prForm.method = "post";
		
	addHiddenInput(prForm,"OmnisServer",Port);
	addHiddenInput(prForm,"OmnisLibrary",Lib);
	addHiddenInput(prForm,"OmnisClass",Class);
	addHiddenInput(prForm,"MethodName",pMethodName);

	// Add the SessionID input
	Property = "SessionID";
	Value = document.getElementById(Property).value;
	addHiddenInput(prForm,Property,Value);

	// Add the WinInstID input
	Property = "WinInstID";
	Value = document.getElementById(Property).value;
	addHiddenInput(prForm,Property,Value);
	
	// Add the SQLClassName input
	Property = "SQLClassName";
	Value = document.getElementById(Property).value;
	addHiddenInput(prForm,Property,Value);
	
	// Add the Mode input
	Property = "Mode";
	Value = document.getElementById(Property).value;
	addHiddenInput(prForm,Property,Value);
}

function addHiddenInput(prForm,pName,pValue) {

	newElem = document.createElement("input");
	newElem.type = "hidden" ;
	newElem.name = pName ;
	newElem.value = pValue;
	prForm.appendChild(newElem);
}

// ----- Property Methods -----

function OmnisCGI() { return document.getElementById("WebAppServerCGI").value ; }

function OmnisClass() { return document.getElementById("OmnisClass").value ; }

function OmnisLib() { return document.getElementById("WebAppLibName").value ; }

function OmnisPort() { return document.getElementById("WebAppServerPort").value ; }


// ----- Programmer Test Methods -----

function ping_omnisserverform() { alert("ping"); }

function test_omnisserverform() {

	alert("test");
	// Add test code here , or a call to specific function
	
}

/* ----- MODIFICATIONS -----

@MOD:1 Created file for submit forms to Omnis web app server functions use by the SW framework ;; 2006-02-16 Doug K

*/