// ========================================
//  If there is a field on the first form,
//  put the focus of the cursor there.
// ========================================
for (i = 0; i < document.forms.length; i++)  {
   for (j = 0; j < document.forms[i].length; j++) {
      if (document.forms[i].elements[j].type.toLowerCase() != 'hidden') {
         if (document.forms[i].elements[j].type.toLowerCase() != 'submit') {
      	    if (document.forms[i].elements[j].disabled == false) {
                document.forms[i].elements[j].focus();
                break;
            }
         }
      }
   }
}


function enablePage(bolEnable) {
   // ===================================
   // Display the "Processing" message up in the right corner.
   // ===================================
   if (typeof document.all['Processing'] != "undefined") {
      if (!bolEnable) {
         document.all['Processing'].style.display='block';
      } else {
         document.all['Processing'].style.display='none';
      }
   }

   for (j = 0; j < document.forms.length; j++) {
      var theForm = document.forms[j];

      // ===================================
      // Disable all the fields on the form.
      // ===================================
      for (i = 0; i < theForm.length; i++) {
	 if (theForm.elements[i].type.toLowerCase() != 'hidden') {
	    // Todo: Until I can get the value back, leave the fields enabled.
            //theForm.elements[i].disabled = !bolEnable;
         }
	 if (theForm.elements[i].type.toLowerCase() == 'submit') {
            theForm.elements[i].disabled = !bolEnable;
         }
      } // for each field
   } // for each form
} // function


// Add another option to an existing <SELECT> list
//  1) Reference to the <SELECT> control
//  2) The value of the option to add
//  3) The display value of the option to add
function Add_Option(objGroup, strValue, strText) {
   // Create the new option
   var objOption = new Option(strText, strValue, 0, 0);
   // Put it at the end of the list
   var intPosition = objGroup.length;
   // Slide the new option into position
   objGroup.options[intPosition] = objOption;
   // Re-sort the group
   Sort_Select_Group(objGroup);
}

// Move the selected options from a source <SELECT> control
//  to another existing <SELECT> control.
function Move_Selected_Options(objSource, objDest) {
   for (i = objSource.options.length; i--; i > -1) {
      // Loop through every item in the source select box.
      if (objSource.options[i].selected) {
         // If it is selected, copy the current option to the
         //  destination selection box.
         var objOption = new Option(objSource.options[i].text, objSource.options[i].value, 0, 0);
         var intPosition = objDest.length;
         objDest.options[intPosition] = objOption;

         // Then, delete the option from the source selection box,
         //  thus making the option appear "moved."
         objSource.options[i] = null;
      }      
   }
   // Deselect the options in the destination <SELECT>
   Deselect_All_Options(objDest);
   // Re-sort the new group, based on the display value
   Sort_Select_Group(objDest);
}

// Select every value in the <SELECT> control.
// Commonly used before submitting the form so the server-side
//  processing can determine which entries existed.
function Select_All_Options(objGroup) {
   for (var i=objGroup.options.length-1; i >= 0; i--) {
      objGroup.options[i].selected = true;
   }
}

// Deselect every value in the <SELECT> control.
// Commonly used after transferring options within the 
//  SELECT To another SELECT.
function Deselect_All_Options(objGroup) {
   for (var i=objGroup.options.length-1; i >= 0; i--) {
      objGroup.options[i].selected = false;
   }
}

function Sort_Select_Group(objGroup) {   
   if (objGroup.options.length < 2) {
      // If there are not enough items in the group to be sorted, don't bother.
      bolChanges = false;
   } else {
      // Otherwise, force the flag to indicate that a change may be necessary,
      //  thus forcing at least one pass through the options in the list.
      bolChanges = true;
   }
   
   while (bolChanges == true) {
     // As long as we had to make at least on change during the previous pass...
      bolChanges = false;
      
      for (i = objGroup.options.length-1; i--; i > -1) {
         // Loop through all the items in the list, checking to see if they are
         //  out of alphabetical order.

         if (objGroup.options[i].text > objGroup.options[i+1].text) {
            // If they are out of order, call the swap routine.
            Swap_Group_Options(objGroup, i, (i+1));
            
            // Record the fact that we made a change, so we keep looping through
            //  the list until it's perfectly sorted.
            bolChanges = true;
         } // if
      } // for
   } // while
} // function

function Swap_Group_Options(objGroup, intIndexA, intIndexB) {
   // Store index A'a values for later use.
   var strValueA = objGroup.options[intIndexA].value;
   var strTextA = objGroup.options[intIndexA].text;
   
   // Copy the values from option B into Option A.
   // (temporarily, we will have two option B's)
   objGroup.options[intIndexA].value = objGroup.options[intIndexB].value;
   objGroup.options[intIndexA].text = objGroup.options[intIndexB].text;
   
   // Restore the previously held values from A into the
   //  location where index B formerly was.
   objGroup.options[intIndexB].value = strValueA;
   objGroup.options[intIndexB].text = strTextA;
} // function


// For visually impaired users, this function accepts a string and redirects the
//  browser to a WAV file containing the text of said string.
function playText(strText) {
   // Start at the URL of the translator
   var strURL = 'http://speak.4i4.net/phrase.wav?gender=Female&phrase=';
   // Append the URL encoded text to be spoken
   strURL += escape(strText);
   // Redirect to the WAV file
   top.location.href = strURL;
}