

<!-- +---------------------------------------------------------------------+ -->

<!-- | JavaScript Dynamically Generated - Inveloper eApplication Platform. | -->

<!-- | Copyright 2000-2005. Technatic (Pty) Ltd. All Rights Reserved.      | -->

<!-- | Visit http://www.technatic.com for more information. DO NOT MODIFY. | -->

<!-- +---------------------------------------------------------------------+ -->

 

 

var gsSelectorList = ';'; 

 

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 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 < piMinLength ) 

 { 

  window.alert( psLabel+' must be at least '+piMinLength+'  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 iIsDtBefore( psEl1, psEl2, psLabel1, psLabel2 )

{

 var lobjEl1 = iElGet( psEl1 ); ; 

 var lobjEl2 = iElGet( psEl2 ); ; 

 

 if ( lobjEl1.value > lobjEl2.value ) 

 { 

  window.alert( psLabel1+' must be before '+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 4:

   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 ( pbValidate ) 

 { 

  if (  !iValidForm( plObjectID ) ) return; 

 }; 

 

 if (  !iSubmitPrompt( psAction, plObjectID ) ) return; 

 

 iElGet( 'ipA' ).value = psAction; 

 iElGet( 'ipO' ).value = plObjectID; 

 iElGet( 'ip1' ).value = psParm1; 

 iElGet( 'ip2' ).value = psParm2; 

 iElGet( 'ip3' ).value = psParm3; 

 iElGet( 'iForm' ).submit(); 

 iSysBusy(); 

 iSubmitDisable(); 

}

 

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(); 

}