/********************************************************
 *
 *    Library file 1.0
 *
 ********************************************************/

function isEditControl( pElem )
{
  if ( pElem.tagName == "TEXTAREA" ) {
    return true
  } 
  else if ( pElem.tagName == "INPUT" ) {
    if ( pElem.type == "text" ) {
      return true
    }
  }
}

function formChanged( pForm )
{
  for ( var i=0 ; i < pForm.elements.length ; i++ ) {
    if ( pForm.elements[i].tagName == "TEXTAREA" || pForm.elements[i].tagName == "INPUT" ) {
      if ( pForm.elements[i].type == "checkbox" ) {
        if ( pForm.elements[i].checked != pForm.elements[i].defaultChecked ) {
          return true
        }
      }
      else {
        if ( pForm.elements[i].value != pForm.elements[i].defaultValue ) {
          return true
        }
      }
    }
    else if ( pForm.elements[i].tagName == "SELECT" ) {
      for ( var j=0 ; j < pForm.elements[i].options.length ; j++ ) {
        if ( pForm.elements[i].options[j].selected != pForm.elements[i].options[j].defaultSelected ) {
 /*          return true */
        }
      }
    }
  }
  return false
}

function FormEnableElements( pForm )
{
  for ( var i = 0 ; i < pForm.elements.length ; i++ )
    pForm.elements[i].disabled = false
}

function FormDisableElements( pForm )
{
  for ( var i = 0 ; i < pForm.elements.length ; i++ )
    pForm.elements[i].disabled = true
}

function FormReadOnlyElements( pForm )
{
  for ( var i = 0 ; i < pForm.elements.length ; i++ ) {
    if ( pForm.elements[i].type != "hidden" ) {
      if ( isEditControl( pForm.elements[i] ) )
        pForm.elements[i].readOnly = true
      else
        pForm.elements[i].disabled = true
    }
  }
}

function FormReadWriteElements( pForm )
{
  for ( var i = 0 ; i < pForm.elements.length ; i++ ) {
    if ( pForm.elements[i].type != "hidden" ) {
      if ( isEditControl( pForm.elements[i] ) )
        pForm.elements[i].readOnly = false
      else
        pForm.elements[i].disabled = false
    }
  }
}

function FormReadWriteElement( pForm, pElement )
{
  for ( var i = 0 ; i < pForm.elements.length ; i++ ) {
    if ( pForm.elements[i].type != "hidden" ) {
      if ( pForm.elements[i].name == pElement ) {
        if ( isEditControl( pForm.elements[i] ) )
          pForm.elements[i].readOnly = false
        else
          pForm.elements[i].disabled = false
      }
    }
  }
}

function RadioGetSelected(pRadio)
{
  for (var i = 0; i < pRadio.length; i++)
    if(pRadio[i].checked)
      return i
  return 0
}

function SelectClear(pSelect)
{
  SelectLength=pSelect.length
  for (var i = 0; i < SelectLength; i++)
    pSelect.options[0] = null
}

function SelectFill(pSelect,pHidden)
{
  vloops = 0
  HiddenValue = pHidden.value
  while (HiddenValue > "" && vloops < 200) {
    SelectValue  = HiddenValue.substring( 0, HiddenValue.indexOf(",") )
    HiddenValue  = HiddenValue.substring(HiddenValue.indexOf(",") + 1,HiddenValue.length)
    SelectText   = HiddenValue.substring( 0, HiddenValue.indexOf("^"))
    NewSelect  = new Option(SelectText, SelectValue, false, false)
    pSelect.options[pSelect.length] = NewSelect
    HiddenValue  = HiddenValue.substring(HiddenValue.indexOf("^") + 1 ,HiddenValue.length)
    vloops = vloops + 1
  }	
}

function SelectSet( pSelect, pValue )
{
  SelectLength = pSelect.length
  for ( var i = 0 ; i < SelectLength ; i++ )
    if ( pSelect.options[ i ].value == pValue ) {
      pSelect.selectedIndex = i
      break
    }
}

function SelectAdd(pSelect,pValue,pText,pFocus)
{
  NewSelect  = new Option(pText, pValue, false, false)
  pSelect.options[pSelect.length] = NewSelect
	if(pFocus)
	  pSelect.value = pValue
}

function TextIsNumber( pNumber )
{
  var iLength = pNumber.length

  for ( var i = 0; i < iLength; i++ )
    if ( isNaN( parseInt( pNumber.substr( i , 1 ) ) ) )
      return false
  return true
}

function WindowClose_onclick()
{
  parent.window.close()
}

function mnu_onmouseover(pImg,pSeq)
{
  if ( pSeq == null )
    pSeq = ""
  if ( document.images["img" + pImg + pSeq] )
    document.images["img" + pImg + pSeq].src = "/images/Hi" + pImg + ".gif"
  else
    document.all("img" + pImg + pSeq).src = "/images/Hi" + pImg + ".gif"
/*  window.status = "Close this window" */
}

function mnu_onmouseout(pImg,pSeq)
{
  if ( pSeq == null )
    pSeq = ""
  if ( document.images["img" + pImg + pSeq] )
    document.images["img" + pImg + pSeq].src = "/images/" + pImg + ".gif"
  else
    document.all("img" + pImg + pSeq).src = "/images/" + pImg + ".gif"
/*  window.status = "" */
}