function setDynaList(arrDL){
 var theForm = findObj(arrDL[2]);var theForm2 = findObj(arrDL[4]);var oList1 = theForm.elements[arrDL[1]];
 var oList2 = theForm2.elements[arrDL[3]];var arrList = arrDL[5];clearDynaList(oList2);
 if (oList1.selectedIndex == -1){oList1.selectedIndex = 0;}
 populateDynaList(oList2, oList1[oList1.selectedIndex].value, arrList);return true;
}
 
function clearDynaList(oList){
 for (var i = oList.options.length; i >= 0; i--){oList.options[i] = null;}oList.selectedIndex = -1;
}
 
function populateDynaList(oList, nIndex, aArray ){
 for (var i = 0; i < aArray.length; i= i + 3)
 {
  if (aArray[i] == nIndex && aArray[i + 1] != "")
  {
    oList.options[oList.options.length] = new Option(aArray[i + 1], aArray[i + 2]);
  }
 }
 
// alert(oList.name+"_Span1");
 var span1 = document.getElementById(oList.name+"_Span1");
 var span2 = document.getElementById(oList.name+"_Span2");
 
 if (oList.options.length == 0)
 {
   oList.options[oList.options.length] = new Option("[none available]","-1");
   span1.style.display = "none";
   span2.style.display = "block";
 }
 else
 {
   span1.style.display = "block";
   span2.style.display = "none";   
 }
 oList.selectedIndex = 0;
}

function findObj(theObj, theDoc){
  var p, i, foundObj;if(!theDoc) theDoc = document;if( (p = theObj.indexOf("?")) > 0 && parent.frames.length)
  {theDoc = parent.frames[theObj.substring(p+1)].document;theObj = theObj.substring(0,p);}
  if(!(foundObj = theDoc[theObj]) && theDoc.all) foundObj = theDoc.all[theObj];
  for (i=0; !foundObj && i < theDoc.forms.length; i++)foundObj = theDoc.forms[i][theObj];
  for(i=0; !foundObj && theDoc.layers && i < theDoc.layers.length; i++)foundObj = findObj(theObj,theDoc.layers[i].document);
  if(!foundObj && document.getElementById) foundObj = document.getElementById(theObj);return foundObj;
}