function getProgram(sCampusCode,sProgramCode){
	objCampus = findObj("mi_campus_code");
	if (objCampus){
		if (objCampus.value != sCampusCode){
			for(index = 0; index < objCampus.length; index++) {
				if (objCampus[index].value == sCampusCode){
					objCampus.selectedIndex = index;
					break;
				}
			}
		}
	}
	objProgram = findObj("mi_program_code");
	if (objProgram){
		rstSelect('mi_program_code');
		if (sCampusCode){
			var axPrg = new ajaxObject('/global/axprogram.php','');
			var vData = "campus_code=" + sCampusCode +
						"&program_code=" + sProgramCode;
			axPrg.update('POST','TXT',vData);
		}
	}else{
		alert("missing objProgram");
	}
}
function errPrgLst(sErr){
	alert(sErr);
}
function sccPrgLst(sLst){	
	objProgram = findObj("mi_program_code");
	if (sLst && objProgram){
		arrPrgs = sLst.split(",");
		for(i = 0; i < arrPrgs.length; i++){
			varPrgs = arrPrgs[i].split("|");
			// Add elements via DOM
			if (varPrgs[0] == "optgroup"){
				var optGroup = document.createElement('optgroup');
				optGroup.label = varPrgs[3];
				objProgram.appendChild(optGroup);
			}
			if (varPrgs[0] == "option"){
				var objOption=document.createElement("option");
				objOption.innerHTML = varPrgs[3];
				objOption.value = varPrgs[2];
				if (varPrgs[1] == "true"){
					objOption.selected = "true";
				}
				if (optGroup){
					optGroup.appendChild(objOption);
				}else{
					objProgram.appendChild(objOption);
				}
			}
		}
	}
}
function rstSelect(varSel){
	if (typeof varSel == "string"){
		objSel = findObj(varSel);
		if (objSel.type == "select-one"){
			// Select can't remember border color for some reason
			// When options are added - removed from select via DOM
			// Store current border color and reset on completion
			var bColor = objSel.style.borderColor;
			if ( objSel.hasChildNodes() ){
				while ( objSel.childNodes.length >= 1 ){
					objSel.removeChild( objSel.firstChild );
				}
			}
			var objOption=document.createElement("option");
			objOption.innerHTML = "Select a Program";
			objOption.value = "";
			objSel.appendChild(objOption);
			objSel.style.borderColor = bColor;
		}
	}
}