<!-- +---------------------------------------------------------------------+ -->
<!-- | JavaScript Dynamically Generated - Inveloper eApplication Platform. | -->
<!-- | Copyright 2000-2007. Teknatic (Pty) Ltd. All Rights Reserved.       | -->
<!-- | Visit http://www.teknatic.com for more information. DO NOT MODIFY.  | -->
<!-- +---------------------------------------------------------------------+ -->


var gsSelectorList = ';'; 
var gbSubmitted = 0; 

function iElGet( psElName ){return( ( iIsNilStr( psElName ) ) ? ( this ) : ( document.getElementById( psElName ) ) ); }

function iElBld( plObj, psType, plProp ){return( 'ipI.O'+plObj+psType+plProp ); }

function iElGVal( pobjEl ){return( pobjEl.value ); }

function iElIsDirty( psElName )
{
 var lobjEl = iElGet( psElName ); ; 
 if ( iIsNilStr( iElGVal( lobjEl ) ) ) 
 { 
 return( false ); 
 } 
  return( true ); 
}

function iElGTop( pobjEl, pbAncestors )
{
 if ( pbAncestors ) 
  return( ( pobjEl.offsetParent == null ) ? ( pobjEl.offsetTop ) : ( pobjEl.offsetTop + iElGTop( pobjEl.offsetParent, pbAncestors ) ) ); 
 else 
  return( pobjEl.offsetTop ); 
}

function iElGLft( pobjEl, pbAncestors )
{
 if ( pbAncestors ) 
  return( ( pobjEl.offsetParent == null ) ? ( pobjEl.offsetLeft ) : ( pobjEl.offsetLeft + iElGLft( pobjEl.offsetParent, pbAncestors ) ) ); 
 else 
  return( pobjEl.offsetLeft ); 
}

function iElGHght( pobjEl, pbAncestors )
{
 if ( pbAncestors ) 
  return( ( pobjEl.offsetParent == null ) ? ( pobjEl.offsetHeight ) : ( pobjEl.offsetHeight + iElGHght( pobjEl.offsetParent, pbAncestors ) ) ); 
 else 
  return( pobjEl.offsetHeight ); 
}

function iElGWdth( pobjEl, pbAncestors )
{
 if ( pbAncestors ) 
  return( ( pobjEl.offsetParent == null ) ? ( pobjEl.offsetWidth ) : ( pobjEl.offsetWidth + iElGWdth( pobjEl.offsetParent, pbAncestors ) ) ); 
 else 
  return( pobjEl.offsetWidth ); 
}

function iElSVisible( pobjEl, pbVisible ){( pbVisible ) ? ( pobjEl.style.display = 'block' ) : ( pobjEl.style.display = 'none' ); }

function iElSDisable( pobjEl, pbDisable ){( pbDisable ) ? ( pobjEl.disabled = 'true' ) : ( pobjEl.disabled = '' ); }

function iElSBack( pobjEl, psImage )
{
 if ( psImage != '' ) 
  ( psImage == '0' ) ? ( pobjEl.style.backgroundImage = 'none' ) : ( pobjEl.style.backgroundImage = 'url( '+psImage+' )' ); 
}

function iElSImg( pobjEl, psImage )
{
 if ( psImage != '' ) 
 { 
  if ( iIsTagType( pobjEl, 'IMG' ) ) 
   ( psImage == '0' ) ? ( pobjEl.src = '' ) : ( pobjEl.src = psImage ); 
  else 
   iElSBack( pobjEl, psImage ); 
 } 
}

function iElSStyle( pobjEl, psStyle )
{
 if ( psStyle != '' ) 
  ( psStyle == '0' ) ? ( pobjEl.className = '' ) : ( pobjEl.className = 'iSD'+psStyle ); 
}

function iElSCurHand( pobjEl ){( navigator.appName == 'Netscape' ) ? ( pobjEl.style.cursor = 'pointer' ) : ( pobjEl.style.cursor = 'hand' ); }

function iElSCurStd( pobjEl ){pobjEl.style.cursor = 'default'; iSMsg( '' ); }

function iElFEvnt( pobjEl, psEventName )
{
 var lobjEvent; 
 lobjEvent = ''+eval( 'pobjEl.'+psEventName ); 
 lobjEvent = lobjEvent.substring( lobjEvent.indexOf( '{' ) + 1, lobjEvent.indexOf( '}' ) - 1 ); 
 lobjEvent = lobjEvent.replace( 'this', 'pobjEl' ); 
 eval( lobjEvent ); 
}

function iIsNilStr( psVal ){return( ( psVal == null || psVal.length == 0 ) ? ( true ) : ( false ) ); }

function iIsNilNum( plVal ){return( ( plVal == null || plVal == 0 ) ? ( true ) : ( false ) ); }

function iIsNilObj( pobjEl ){return( ( pobjEl == 'undefined' || pobjEl == null ) ? ( true ) : ( false ) ); }

function iIsTagType( pobjEl, psType ){return( ( pobjEl.tagName == psType ) ? ( true ) : ( false ) ); }

function iIsAncestor( pobjEl, psAncestor )
{
 var lobjParentEl; 

 lobjParentEl = pobjEl.parentElement; 

 while (  !iIsNilObj( lobjParentEl ) ) 
 { 
  if ( lobjParentEl.id == psAncestor ) return( true ); 

  lobjParentEl = lobjParentEl.parentElement; 
 } 

 return( false ); 
}

function iIsFilled( psElName, psLabel )
{
 var lobjEl = iElGet( psElName ); ; 
 if ( iIsNilStr( iElGVal( lobjEl ) ) ) 
 { 
  window.alert( psLabel+' is required - please complete all required fields' ); 
  lobjEl.focus(); 
 return( false ); 
 } 
  return( true ); 
}

function iIsNumeric( psElName, psLabel )
{
 var lsNums = '0123456789.'; 
 var lcChar; 
 var lbValid = true; 
 var lobjEl = iElGet( psElName ); ; 

 for (( i = 0 ); ( i < lobjEl.value.length  && lbValid ); ( i++ )) 
 { 
  lcChar = lobjEl.value.charAt(i); 
  if ( ( i == 0 ) && ( lcChar == '-' ) ) continue; 

  if ( lsNums.indexOf( lcChar ) == -1 ) lbValid = false; 
 }; 

 if (  !lbValid ) 
 { 
  window.alert( psLabel+' is  a number field - please enter a valid value' ); 
  lobjEl.focus(); 
 }; 

 return( lbValid ); 
}

function iIsDialCode( psElName, psLabel )
{
 var lsNums = '0123456789 '; 
 var lcChar; 
 var lbValid = true; 
 var lobjEl = iElGet( psElName ); ; 

 for (( i = 0 ); ( i < lobjEl.value.length  && lbValid ); ( i++ )) 
 { 
  lcChar = lobjEl.value.charAt(i); 
  if ( ( i == 0 ) && ( lcChar == '+' ) ) continue; 

  if ( lsNums.indexOf( lcChar ) == -1 ) lbValid = false; 
 }; 

 if (  !lbValid ) 
 { 
  window.alert( psLabel+' is a dial code field - please enter a valid value' ); 
  lobjEl.focus(); 
 }; 

 return( lbValid ); 
}

function iIsEmail( psElName, psLabel )
{
 var liNumAts = 0; 
 var liNumDots = 0; 
 var lobjEl = iElGet( psElName ); ; 

 for (( i = 0 ); ( i < lobjEl.value.length  ); ( i++ )) 
 { 
  lcChar = lobjEl.value.charAt(i); 
  if ( lcChar == '@' ) liNumAts++ ; 
  if ( lcChar == '.' && liNumAts > 0 ) liNumDots++ ; 
 }; 

 if ( liNumAts != 1 || liNumDots == 0 ) 
 { 
  window.alert( psLabel+' is an email address field - please enter a valid email address' ); 
  lobjEl.focus(); 
  return( false ); 
 }; 

 return( true ); 
}

function iIsMinLength( psElName, piMinLength, psLabel )
{
 var lobjEl = iElGet( psElName ); ; 

 if ( lobjEl.value.length == 0 ) return( true ); 

 if ( lobjEl.value.length < piMinLength ) 
 { 
  window.alert( psLabel+' must be at least '+piMinLength+'  characters' ); 
  lobjEl.focus(); 
  return( false ); 
 }; 

 return( true ); 
}

function iIsMaxLength( psElName, piMaxLength, psLabel )
{
 var lobjEl = iElGet( psElName ); ; 

 if ( lobjEl.value.length == 0 ) return( true ); 

 if ( lobjEl.value.length > piMaxLength ) 
 { 
  window.alert( psLabel+' must not be more than '+piMaxLength+'  characters' ); 
  lobjEl.focus(); 
  return( false ); 
 }; 

 return( true ); 
}

function iIsMatch( psEl1, psEl2, psLabel1, psLabel2 )
{
 var lobjEl1 = iElGet( psEl1 ); ; 
 var lobjEl2 = iElGet( psEl2 ); ; 

 if ( lobjEl1.value != lobjEl2.value ) 
 { 
  window.alert( psLabel1+' must be the same as '+psLabel2 ); 
  lobjEl1.focus(); 
  return( false ); 
 }; 

 return( true ); 
}

function iSysBusy(){iElGet( 'iBody' ).style.cursor = 'wait'; iSMsg( 'Busy...' ); }

function iSMsg( psMsg ){ window.status = psMsg; }

function iMode( psMode )
{
 if ( iIsNilStr( psMode ) ) return; 

 if ( window.location.href.indexOf( psMode ) > 0 ) 
  window.location.href = window.location.href.replace( psMode, '' ); 
 else 
  window.location.href = window.location.href+psMode; 
}

function iSysKeys( pcKeyCode )
{
 switch( pcKeyCode )
 { 
  case 1:
   iMode( '&iDV=ON' ); 
   break; 
  case 22:
   iMode( '&iVE=ON' ); 
   break; 
  case 9:
   iMode( '&iIN=ON' ); 
   break; 
  case 21:
   iMode( '&iED=ON' ); 
   break; 
  case 6:
   iMode( '&iPF=ON' ); 
   break; 
  case 18:
   window.location.reload( true ); 
   break; 
  case 16:
   window.print(); 
   break; 
 } 
}

function iPrmGet( psParm )
{
 var liStart; 
 var liEnd; 
 var lsParms; 

 if (  !iPrmIsSet( psParm ) ) return( '' ); 

 lsParms = window.location.search; 
 if ( iIsNilStr( lsParms ) ) return( '' ); 

 liStart = lsParms.indexOf( psParm+'=' ); 
 if ( liStart == -1 ) return( '' ); 

 liStart = lsParms.indexOf( '=', liStart ); 
 if ( liStart == -1 ) return( '' ); 

 liStart = liStart + 1; 

 liEnd = lsParms.indexOf( '&', liStart ); 

 if ( liEnd == -1 ) 
  return( lsParms.substring( liStart ) ); 
 else 
  return( lsParms.substring( liStart, liEnd ) ); 
}

function iPrmIsSet( psParm )
{
 var liStart; 
 var lsParms; 

 lsParms = window.location.search; 
 if ( iIsNilStr( lsParms ) ) return( false ); 

 liStart = lsParms.indexOf( psParm+'=' ); 
 return( ( liStart == -1 ) ? ( false ) : ( true ) ); 
}

function iPrmJoin( psOld, psNew )
{
 var liStart; 
 var liEnd; 
 var liToken; 
 var lsJoin; 
 var lsParm; 

 if ( iIsNilStr( psOld ) ) return( psNew ); 
 if ( iIsNilStr( psNew ) ) return( psOld ); 

 lsJoin = psNew; 
 liStart = psOld.indexOf( '&' ); 

 while (  !( liStart == -1 ) ) 
 { 

  liEnd = psOld.indexOf( '=', liStart ); 

  if (  !( liEnd == -1 ) ) 
  { 
   lsParm = psOld.substring( liStart, liEnd + 1 ); 
   liToken = psNew.indexOf( lsParm ); 

   if ( liToken == -1 ) 
   { 
    liToken = psOld.indexOf( '&', liEnd ); 

    if ( liToken == -1 ) 
     lsJoin = lsJoin+psOld.substring( liStart ); 
    else 
     lsJoin = lsJoin+psOld.substring( liStart, liToken ); 
   } 
  } 

  liStart = psOld.indexOf( '&', liEnd + 1 ); 
 } 

 return( lsJoin ); 
}

function iFlagIsOn( plFlags, plMask ){return( ( plFlags & plMask ) ? ( true ) : ( false ) ); }

function iFlagYesNo( plFlags, plMask ){return( ( iFlagIsOn( plFlags, plMask ) ) ? ( 'yes' ) : ( 'no' ) ); }

function iTogIsOn( plToggle ){return( ( eval( 'mbToggle'+plToggle ) ) ? ( 'yes' ) : ( 'no' ) ); }
function iTogOn( plToggle ){eval( 'mbToggle'+plToggle+' = 1' ); }

function iTogOff( plToggle ){eval( 'mbToggle'+plToggle+' = 0' ); }

function iTogSwap( plToggle ){ ( iTogIsOn( plToggle ) ) ? ( iTogOff( plToggle ) ) : ( iTogOn( plToggle ) ); }

function iSelRAdd( plSel )
{
 if ( gsSelectorList.indexOf( ';'+plSel+';' ) == -1 ) 
  gsSelectorList = gsSelectorList+plSel+';'; 
}

function iSelRArr()
{
 var liStart; 
 var liEnd; 
 var lsAllSel; 
 var lsCurrSel; 
 var lsSelList = ':'; 

 lsAllSel = iSelRLst(); 
 if ( iIsNilStr( lsAllSel ) ) return( 0 ); 

 liStart = 1; 
 liEnd = lsAllSel.indexOf( ';', liStart ); 

 while (  !( liEnd == -1 ) ) 
 { 

  lsCurrSel = lsAllSel.substring( liStart, liEnd ); 
  lsSelList = lsSelList+lsCurrSel+':'+iSelRGet( lsCurrSel )+':'; 

  liStart = liEnd + 1; 
  liEnd = lsAllSel.indexOf( ';', liStart ); 
 } 

 return( lsSelList ); 
}

function iSelRGet( plSel ){return( eval( 'msSelector'+plSel ) ); }

function iSelRLst(){return( gsSelectorList ); }

function iSelRLoad()
{
 var liStart; 
 var liEnd; 
 var lsAllSel; 
 var lsCurrSel; 

 lsAllSel = iPrmGet( 'iSL' ); 
 if ( iIsNilStr( lsAllSel ) ) return; 

 liStart = 1; 
 liEnd = lsAllSel.indexOf( ':', liStart ); 

 while (  !( liEnd == -1 ) ) 
 { 

  lsCurrSel = lsAllSel.substring( liStart, liEnd ); 
  if ( iIsNilStr( lsCurrSel ) ) return; 

  liStart = liEnd + 1; 
  liEnd = lsAllSel.indexOf( ':', liStart ); 
  iSelRSet( lsCurrSel, lsAllSel.substring( liStart, liEnd ) ); 

  liStart = liEnd + 1; 
  liEnd = lsAllSel.indexOf( ':', liStart ); 
 } 
}

function iSelRSet( plSel, psList ){eval( 'msSelector'+plSel+' = psList' ); }

function iSelIAdd( plSel, psItem )
{
 var lsItem; 

 lsItem = psItem+';'; 

 if (  !iSelIsSet( plSel, psItem ) ) 
  iSelRSet( plSel, iSelRGet( plSel )+lsItem ); 
}

function iSelIDel( plSel, psItem )
{
 var lsSelector; 

 lsSelector = iSelRGet( plSel ); 
 lsSelector = lsSelector.replace( ';'+psItem, '' ); 
 iSelRSet( plSel, lsSelector ); 
}

function iSelIsSet( plSel, psItem )
{
 if ( iSelRGet( plSel ).indexOf( ';'+psItem+';' ) == -1 ) 
  return( false ); 
 else 
  return( true ); 
}

function iMOStd( pobjEl, psStyle, psImage, psMsg )
{
 iElSCurHand( pobjEl ); 
 iSMsg( psMsg ); 
 iElSImg( pobjEl, psImage ); 
 iElSStyle( pobjEl, psStyle ); 
}

function iSelMO( pobjEl, psSelector, psStyleStd, psStyleSel, psImageStd, psImageSel, psMsg )
{
 var lsStyle; 
 var lsImage; 
 var liStart; 
 var lsElID; 

 iElSCurHand( pobjEl ); 
 iSMsg( psMsg ); 

 lsElID = pobjEl.id; 
 liStart = lsElID.lastIndexOf( '.' ); 
 lsElID = lsElID.substring( liStart + 2 ); 

 if ( iSelIsSet( psSelector, lsElID ) ) 
 { 
  lsStyle = psStyleSel; 
  lsImage = psImageSel; 
 } 
 else 
 { 
  lsStyle = psStyleStd; 
  lsImage = psImageStd; 
 } 

 iElSImg( pobjEl, lsImage ); 
 iElSStyle( pobjEl, lsStyle ); 

}

function iSelDrw( plSel )
{
 var lsCurrHist; 
 var lobjParentEl; 
 var lobjChildrenEl; 
 var liStart; 
 var liEnd; 

 lsCurrHist = iSelRGet( plSel ); 
 if ( iIsNilStr( lsCurrHist ) ) return; 
 liStart = 1; 
 liEnd = lsCurrHist.indexOf( ';', liStart ); 

 while (  !( liEnd == -1 ) ) 
 { 
  lobjParentEl = iElGet( iElBld( plSel, '.P', lsCurrHist.substring( liStart, liEnd ) ) ); 

  if (  !iIsNilObj( lobjParentEl ) ) 
   iElFEvnt( lobjParentEl, 'onmouseout' ); 

  lobjChildrenEl = iElGet( iElBld( plSel, '.C', lsCurrHist.substring( liStart, liEnd ) ) ); 

  if (  !iIsNilObj( lobjChildrenEl ) ) 
   iElSVisible( lobjChildrenEl, 1 ); 

  liStart = liEnd + 1; 
  liEnd = lsCurrHist.indexOf( ';', liStart ); 
 } 

}

function iSelC( plSel, plProp )
{
 var lobjChildrenEl; 
 var lobjParentEl; 
 var lobjOffEl; 
 var lsOffElParent; 
 var lsOffElChildren; 
 var lsOffElID; 
 var lsCurrHist; 
 var liStart; 
 var liEnd; 

 lobjChildrenEl = iElGet( iElBld( plSel, '.C', plProp ) ); 
 if ( iIsNilObj( lobjChildrenEl ) ) return; 

 lobjParentEl = iElGet( iElBld( plSel, '.P', plProp ) ); 
 if ( iIsNilObj( lobjParentEl ) ) return; 

 if ( iTogIsOn( plSel ) ) 
 { 

  if ( iSelIsSet( plSel, plProp ) ) 
  { 
   iSelIDel( plSel, plProp ); 
   iElSVisible( lobjChildrenEl, 0 ); 
  } 
  else 
  { 
   iSelIAdd( plSel, plProp ); 
   iElSVisible( lobjChildrenEl, 1 ); 
  }; 

 } 
 else 
 { 
  lsCurrHist = iSelRGet( plSel ); 

  if (  !iIsNilStr( lsCurrHist ) ) 
  { 
   liStart = 1; 
   liEnd = lsCurrHist.indexOf( ';', liStart ); 

   while (  !( liEnd == -1 ) ) 
   { 

    lsOffElID = lsCurrHist.substring( liStart, liEnd ); 
    lsOffElParent = iElBld( plSel, '.P', lsOffElID ); 
    lsOffElChildren = iElBld( plSel, '.C', lsOffElID ); 

    if (  !iIsAncestor( lobjChildrenEl, lsOffElChildren ) && lobjChildrenEl.id != lsOffElChildren ) 
    { 
     lobjOffEl = iElGet( lsOffElChildren ); 
     if (  !iIsNilObj( lobjOffEl ) ) 
     { 
      iSelIDel( plSel, lsOffElID ); 
      iElSVisible( lobjOffEl, 0 ); 
     }; 

     lobjOffEl = iElGet( lsOffElParent ); 
     if (  !iIsNilObj( lobjOffEl ) ) 
     { 
      iElFEvnt( lobjOffEl, 'onmouseout' ); 
     }; 
    }; 

    liStart = liEnd + 1; 
    liEnd = lsCurrHist.indexOf( ';', liStart ); 
   } 
  }; 

  iSelIAdd( plSel, plProp ); 
  iElSVisible( lobjChildrenEl, 1 ); 
 }; 

 iElFEvnt( lobjParentEl, 'onmouseout' ); 
}

function iLoad( psURL, plPageID, psParms, pbKeepVars, pbNew, piAttr, piTop, piLeft, piWidth, piHeight )
{
 var lsAttr = ''; 

 if ( pbNew ) 
 { 
  lsAttr = lsAttr+'toolbar='+iFlagYesNo( piAttr, 1 )+', '; 
  lsAttr = lsAttr+'location='+iFlagYesNo( piAttr, 2 )+', '; 
  lsAttr = lsAttr+'menubar='+iFlagYesNo( piAttr, 4 )+', '; 
  lsAttr = lsAttr+'status='+iFlagYesNo( piAttr, 8 )+', '; 
  lsAttr = lsAttr+'scrollbars='+iFlagYesNo( piAttr, 16 )+', '; 
  lsAttr = lsAttr+'resizable='+iFlagYesNo( piAttr, 32 )+', '; 
  lsAttr = lsAttr+'fullscreen='+iFlagYesNo( piAttr, 64 ); 
  if ( piTop != -1 ) lsAttr = lsAttr+', '+'top='+piTop; 
  if ( piLeft != -1 ) lsAttr = lsAttr+', '+'left='+piLeft; 
  if ( piWidth != -1 ) lsAttr = lsAttr+', '+'width='+piWidth; 
  if ( piHeight != -1 ) lsAttr = lsAttr+', '+'height='+piHeight; 
 } 

 if ( pbKeepVars ) 
  psParms = psParms+iElGVal( iElGet( 'ipV' ) ); 

 if ( iIsNilNum( plPageID ) ) 
 { 
  if ( pbNew ) 
   window.open( psURL+psParms, '', lsAttr ); 
  else 
   window.location.assign( psURL+psParms ); 
 } 
 else 
 { 
  if ( pbNew ) 
   window.open( 'Inveloper.asp?iP='+plPageID+iPrmJoin( iElGVal( iElGet( 'ipH' ) ), psParms )+'&iSL='+iSelRArr(), '', lsAttr ); 
  else 
   window.location.assign( 'Inveloper.asp?iP='+plPageID+iPrmJoin( iElGVal( iElGet( 'ipH' ) ), psParms )+'&iSL='+iSelRArr() ); 
 }; 
}

function iSubmit( psAction, plObjectID, pbValidate, psParm1, psParm2, psParm3 )
{
 if ( gbSubmitted ) 
 { 
  window.alert( 'This page has already been submitted - Please be patient' ); 
  return( false ); 
 }; 

 if ( pbValidate ) 
 { 
  if (  !iValidForm( plObjectID ) ) return( false ); 
 }; 

 if (  !iSubmitPrompt( psAction, plObjectID ) ) return( false ); 

 iElGet( 'ipA' ).value = psAction; 
 iElGet( 'ipO' ).value = plObjectID; 
 iElGet( 'ip1' ).value = psParm1; 
 iElGet( 'ip2' ).value = psParm2; 
 iElGet( 'ip3' ).value = psParm3; 
 iElGet( 'iForm' ).submit(); 
 iSysBusy(); 
 gbSubmitted = 1; 
 iSubmitDisable(); 
 return( true ); 
}

function iUpload( plObjectID )
{
 iElGet( 'ipO' ).value = plObjectID; 
 iElGet( 'iForm' ).encoding = 'multipart/form-data'; 
 iElGet( 'iForm' ).action = iElGet( 'iForm' ).action+'&iSA=iUpload&iVobj='+plObjectID; 
 iElGet( 'iForm' ).submit(); 
 iSysBusy(); 
 iSubmitDisable(); 
}

function iPopupShow()
{
 var lobjEl = iElGet( 'iPopup' ); ; 
 iDisableDropdowns();
 iElSVisible( lobjEl, 1 ); 
}

function iPopupHide()
{
 var lobjEl = iElGet( 'iPopup' ); ; 
 iEnableDropdowns();
 iElSVisible( lobjEl, 0 ); 
}

function iEnableDropdowns()
{
 var larrEls = document.getElementsByTagName( 'select' );
 for (i=0;i<larrEls.length;i++)
 {
  larrEls[i].style.display = 'block';
 };
}

function iDisableDropdowns()
{
 var larrEls = document.getElementsByTagName( 'select' );
 for (i=0;i<larrEls.length;i++)
 {
  larrEls[i].style.display = 'none';
 };
}