/* This notice must be untouched at all times.

portal_generic.js    v. 4.17
The latest version is available at

Copyright (c) 2004-2006 RCL Softnet Ltd. All rights reserved.

Default Calopus Portal javascript features



*/


function wait (cReps) {

   var cCounter = 1;

   for (i=0;i<cReps;i++) {
      cCounter += 1;
   } 

}

function nNull (cVal) {
if ( cVal == "" ) {
return false;
} else {
return true;
}
}


function gF(name){
if (document.all) {
return document.all[name];
} else if (document.layers){
return document.layers[name];
} else if (document.getElementById){
return document.getElementById(name);
}
}


function closeAUFrame (cIframe) {
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none"; 
}




function autoUpdate (cIframe,cX,cY,cTs,cIs,cField,cLpdes) {

  auField=gF(cField);
 
  if ( auField.type == "select-one" ) {
     cValue = auField[auField.selectedIndex].value;
  } else {
     cValue = auField.value;
  }
  iFr=gF(cIframe);
  iFr.style.display="block";
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFrc=gF("AUFrame");
  iFrc.src="PORTAL_IFRAMEWHITE";
  nL="PORTAL_AUTOUPDATE?v_session_id=" + sesid + "&v_sid=" + sidid + "&cValue=" + escape(cValue) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&clpdes_id=" + cLpdes;
  nL+="&cFieldName=" + escape(cField);
  iFrc.src=nL;
}

function autoUpdateExtra1 (cIframe,cX,cY,cTs,cIs,cField,cLpdes) {

  auField=gF(cField);
 
  if ( auField.type == "select-one" ) {
     cValue = auField[auField.selectedIndex].value;
  } else {
     cValue = auField.value;
  }
  iFr=gF(cIframe);
  iFr.style.display="block";
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFrc=gF("AUFrameExtra1");
  iFrc.src="PORTAL_IFRAMEWHITE";
  nL="PORTAL_AUTOUPDATE?v_session_id=" + sesid + "&v_sid=" + sidid + "&cValue=" + escape(cValue) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&clpdes_id=" + cLpdes;
  nL+="&cFieldName=" + escape(cField);
  iFrc.src=nL;
}

function autoUpdateExtra2 (cIframe,cX,cY,cTs,cIs,cField,cLpdes) {

  auField=gF(cField);
 
  if ( auField.type == "select-one" ) {
     cValue = auField[auField.selectedIndex].value;
  } else {
     cValue = auField.value;
  }
  iFr=gF(cIframe);
  iFr.style.display="block";
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFrc=gF("AUFrameExtra2");
  iFrc.src="PORTAL_IFRAMEWHITE";
  nL="PORTAL_AUTOUPDATE?v_session_id=" + sesid + "&v_sid=" + sidid + "&cValue=" + escape(cValue) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&clpdes_id=" + cLpdes;
  nL+="&cFieldName=" + escape(cField);
  iFrc.src=nL;
}

function autoUpdateExtra3 (cIframe,cX,cY,cTs,cIs,cField,cLpdes) {

  auField=gF(cField);
 
  if ( auField.type == "select-one" ) {
     cValue = auField[auField.selectedIndex].value;
  } else {
     cValue = auField.value;
  }
  iFr=gF(cIframe);
  iFr.style.display="block";
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFrc=gF("AUFrameExtra3");
  iFrc.src="PORTAL_IFRAMEWHITE";
  nL="PORTAL_AUTOUPDATE?v_session_id=" + sesid + "&v_sid=" + sidid + "&cValue=" + escape(cValue) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&clpdes_id=" + cLpdes;
  nL+="&cFieldName=" + escape(cField);
  iFrc.src=nL;
}

function autoUpdateExtra4 (cIframe,cX,cY,cTs,cIs,cField,cLpdes) {

  auField=gF(cField);
 
  if ( auField.type == "select-one" ) {
     cValue = auField[auField.selectedIndex].value;
  } else {
     cValue = auField.value;
  }
  iFr=gF(cIframe);
  iFr.style.display="block";
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFrc=gF("AUFrameExtra4");
  iFrc.src="PORTAL_IFRAMEWHITE";
  nL="PORTAL_AUTOUPDATE?v_session_id=" + sesid + "&v_sid=" + sidid + "&cValue=" + escape(cValue) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&clpdes_id=" + cLpdes;
  nL+="&cFieldName=" + escape(cField);
  iFrc.src=nL;
}

function goSrvPage (cPage) {
nL="portalgo";
nL+="?v_session_id=" + sesid;   
nL+="&v_sid=" + sidid;   
nL+="&v_page=" + escape(cPage);   
window.location=nL;
}

function goBasicRegister (cIframe,cX,cY,cTs,cIs) {

     cCompField=gF("cComp");
     cTitleField=gF("cTitle");
     cFNField=gF("cFirstName");
     cLNField=gF("cLastName");
     cRoleField=gF("cJobRole");
     cNationField=gF("cNation");
     cAddr1Field=gF("cAddr1");
     cAddr2Field=gF("cAddr2");
     cAddr3Field=gF("cAddr3");
     cAddr4Field=gF("cAddr4");
     cEmailField=gF("cEmail");
     cPhoneField=gF("cPhone");
     cMobileField=gF("cMobile");
     cFaxField=gF("cFax");
     cNewUseridField=gF("cNewUserid");
     cPass1Field=gF("cPass1");
     cPass2Field=gF("cPass2");

     iFrc=gF("regBasicScan");
     iFrc.src="PORTAL_IFRAMEWHITE";
     iFr=gF(cIframe);
     iFr.style.display="block";
     eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
     eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
     eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
     nL="PORTAL_REGBASICSCAN?v_session_id=" + sesid + "&v_sid=" + sidid;
     nL+="&cComp=" + escape( cCompField.value ) ;
     nL+="&cTitle=" + escape( cTitleField[cTitleField.selectedIndex].value ) ;
     nL+="&cFN=" + escape( cFNField.value ) ;
     nL+="&cLN=" + escape( cLNField.value ) ;
     nL+="&cJobRole=" + escape( cRoleField.value ) ;
     nL+="&cnation=" + escape( cNationField[cNationField.selectedIndex].value ) ;
     nL+="&caddr1=" + escape( cAddr1Field.value ) ;
     nL+="&caddr2=" + escape( cAddr2Field.value ) ;
     nL+="&caddr3=" + escape( cAddr3Field.value ) ;
     nL+="&caddr4=" + escape( cAddr4Field.value ) ;
     nL+="&cemail=" + escape( cEmailField.value ) ;
     nL+="&cphone=" + escape( cPhoneField.value ) ;
     nL+="&cmobile=" + escape( cMobileField.value ) ;
     nL+="&cfax=" + escape( cFaxField.value ) ;
     nL+="&cnewuserid=" + escape( cNewUseridField.value ) ;
     nL+="&cpass1=" + escape( cPass1Field.value ) ;
     nL+="&cpass2=" + escape( cPass2Field.value ) ;

     nL+="&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
     iFrc.src=nL;
}




function checkTime(timeStr, cFlag) {
var timePat = /^(\d{2}):(\d{2})/;
if ( (timeStr == "") && (cFlag == "1") ) {
   return true;
} else {
   var matchArray = timeStr.match(timePat);
   if (matchArray == null) {
      alert("Time format is H24:MI (e.g. 09:23))");
      return false;
   }
   hour = matchArray[1];
   minute = matchArray[2];
   if ( hour < 0  || hour > 23 ) {
      alert("Hour must be between 00 and 23 (e.g. 09:23))");
      return false;
   }
   if ( minute < 0 || minute > 59) {
      alert ("Minute must be between 00 and 59 (e.g. 09:23).");
      return false;
   }
}
return true;
}


function postit(str) {
 test = str;
 size = test.length;
 test = test.toUpperCase();
 while (test.slice(0,1) == " ")
  {
    test = test.substr(1,size-1);
    size = test.length;
  }
 while( test.slice(size-1,size) == " ")
  {
    test = test.substr(0,size-1);
    size = test.length;
  }
 if (size < 6 || size > 8){
  alert(test + " is the wrong length");
  return false;
  }
 if (!isNaN(test.charAt(0))){
   alert(test + " should not start with a number");
   return false;
  }
 if (isNaN(test.charAt(size-3))){
   alert(test + " the third to last character should be a number");
   return false;
  }
 if (!isNaN(test.charAt(size-2))){
   alert(test + " the second to last character can not be a number");
   return false;
  }
 if (!isNaN(test.charAt(size-1))){
   alert(test + " the last character can not be a number");
   return false;
  }
 if ( test.charAt(size-4) != " " ){
   alert(test + " there should be a space before the last three characters");
   return false;
   }
 count1 = test.indexOf(" ");
 count2 = test.lastIndexOf(" ");
 if (count1 != count2){
   alert(test + " there should only be one space");
   return false;
  }
  return true;
}



function checkIsEmail(str,prompt,fieldName) {
var supported = 0;
if (window.RegExp) {
  var tempStr = "a";
  var tempReg = new RegExp(tempStr);
  if (tempReg.test(tempStr)) supported = 1;
}
if (!supported)
  return (str.indexOf(".") > 2) && (str.indexOf("@") > 0);
 var timePat = /\s/;
 var matchArray = str.match(timePat);
    if (matchArray != null) {
       alert ("(" + str + ")" + prompt + fieldName);
       return false;
    }
var r1 = new RegExp("(@.*@)|(\\.\\.)|(@\\.)|(^\\.)");
var r2 = new RegExp("^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$");
if (!r1.test(str) && r2.test(str)) {
   return true;
} else {
   alert ("(" + str + ")" + prompt + fieldName);
   return false;
}
}


function checkPhoneMand(Str,prompt,fieldName) {
var timePat = /[^\s0-9]/;
var matchArray = Str.match(timePat);
if (matchArray == null) {
   if ( Str == "" ) {
     alert ("(" + Str + ")" + prompt + fieldName + "\n\nValue is too short");
     return false;
   } else if ( Str.length < 11 ) {
     alert ("(" + Str + ")" + fieldName + "\n\nYou must provide a value");
     return false;
   } else {
     return true;
   }
}
else {
   alert ("(" + Str + ")" + prompt + fieldName);
   return false;
}
}



function checkPhone(Str,prompt,fieldName) {
var timePat = /[^\s0-9]/;
var matchArray = Str.match(timePat);
if (matchArray == null) {

   if ( Str == "" ) {
      return true; 
   } else if ( Str.length < 11 ) {
     alert ("(" + Str + ")" + fieldName + "\n\nValue is too short");
     return false;
   } else {
     return true;
   }
}
else {
   alert ("(" + Str + ")" + prompt + fieldName);
   return false;
}
}



function validPassword(Str1,Str2,prompt) {
if ( (Str1 != "") && (Str1.length < 8) ) {
   alert (prompt);
   return false;
}
if ( (Str2 != "") && (Str2.length < 8) ) {
   alert (prompt);
   return false;
}
if ( (Str1 != "") && (Str2 != "" ) && (Str1 != Str2)) {
   alert (prompt);
   return false;
}
}



function validUserName (Str1,prompt) {
if ( (Str1 != "") && (Str1.length < 8) ) {
   alert (prompt);
   return false;
}
}



function checkMoney(Str) {
var timePat = /^[0-9]{1,}(\.\d{1,2}|)$/;
var matchArray = Str.match(timePat);
if (matchArray == null) {
   alert ("The value entered (" + Str + ") should be in currency format (e.g. 232.00)");
   return false;
}
else{
  return true;
}
}



function checkPercent(Str) {
var timePat = /^\d{0,2}(\.\d{0,2}|)$/;
var matchArray = Str.match(timePat);
if (matchArray == null) {
   alert ("The value entered (" + Str + ") should be in percentage format (e.g. 99.00).");
   return false;
}
else{
   return true;
}
}



function checkPosIntNotNull (Str,Prompt) {
var timePat = /[^0-9]/;
var matchArray = Str.match(timePat);
if (matchArray == null) {
   if (  Str >= 0  ) {
      return true;
   } else {
      alert ("(" + Str  +  ") " + Prompt);
      return false;
   }
} else {
   alert ("(" + Str  +  ") " + Prompt);
   return false;
}
}


function checkPosIntMoreThanZero (Str,Prompt) {
var timePat = /[^0-9]/;
var matchArray = Str.match(timePat);
if (matchArray == null) {
   if ( Str > 0 ) {
      return true;
   } else {
     alert ("(" + Str  +  ") " + Prompt);
     return false;
   }
}
else{
   alert ("(" + Str  +  ") " + Prompt);
   return false;
}
}


function checkNullQuantity (Str,Prompt) {
if ( Str == "" ) {
   alert ("(" + Str  +  ")" + Prompt);
   return false;
} else {
   return true;
}
}


function checkPosInt(Str) {
var timePat = /[^0-9]/;
var matchArray = Str.match(timePat);
if (matchArray == null) {
   return true;
}
else{
   alert ("The value entered (" + Str  +  ") should be a whole number.");
   return false;
}
}


function makeArray(n) {
for (var i = 1; i <= n; i++) {
   this[i] = 0
}
return this;
}



function daysInFebruary (year)
{ 
return (  ((year % 4 == 0) && ( (!(year % 100 == 0)) || (year % 400 == 0) ) ) ? 29 : 28 );
}



function checkDate(timeStr) {
var daysInMonth = makeArray(12);
daysInMonth[1] = 31;
daysInMonth[2] = 29;
daysInMonth[3] = 31;
daysInMonth[4] = 30;
daysInMonth[5] = 31;
daysInMonth[6] = 30;
daysInMonth[7] = 31;
daysInMonth[8] = 31;
daysInMonth[9] = 30;
daysInMonth[10] = 31;
daysInMonth[11] = 30;
daysInMonth[12] = 31;
var ts2=timeStr;
var timePat = /^\d{2}-\w{3}-\d{4}$/;
var matchArray = timeStr.match(timePat);
if (matchArray == null) {
   alert ("This field should be in date format (e.g. 01-DEC-2001)");
   return false;
}
var intYear = parseInt(timeStr.substr(7,4));
var intMonth=1;
var Month = timeStr.substr(3,3);
Month = Month.toUpperCase();
if(Month=="JAN"){
   intMonth=1;
}
else if(Month=="FEB"){
   intMonth=2;
}
else if(Month=="MAR"){
   intMonth=3;
}
else if(Month=="APR"){
   intMonth=4;
}
else if(Month=="MAY"){
   intMonth=5;
}
else if(Month=="JUN"){
   intMonth=6;
}
else if(Month=="JUL"){
   intMonth=7;
}
else if(Month=="AUG"){
   intMonth=8;
}
else if(Month=="SEP"){
   intMonth=9;
}
else if(Month=="OCT"){
   intMonth=10;
}
else if(Month=="NOV"){
   intMonth=11;
}
else if(Month=="DEC"){
   intMonth=12;
}
else{
  alert ("This field should be in date format (e.g. 01-DEC-2001)");
  return false;
}
if(timeStr.substr(0,1)=="0"){
   var intDay = parseInt(timeStr.substr(1,2));
}
else{
   var intDay = parseInt(timeStr.substr(0,2));
}
if (intDay < 1) {
   alert ("This field should be in date format (e.g. 01-DEC-2001)");
   return false;
}
if (intYear < 2000) {
   alert ("This field should be in date format (e.g. 01-DEC-2001)");
   return false;
}
if (intDay > daysInMonth[intMonth]) {
   alert ("This field should be in date format (e.g. 01-DEC-2001)");
   return false;
}
if ((intMonth == 2) && (intDay > daysInFebruary(intYear))) {
   alert ("This field should be in date format (e.g. 01-DEC-2001)");
   return false;
}
return true;
}


function stripDate (timeStr) {
var intYear = parseInt(timeStr.substr(7,4));
var intMonth=1;
var Month = timeStr.substr(3,3);
Month=Month.toUpperCase();
if(Month=="JAN"){
   intMonth=1;
}
else if(Month=="FEB"){
   intMonth=2;
}
else if(Month=="MAR"){
   intMonth=3;
}
else if(Month=="APR"){
   intMonth=4;
}
else if(Month=="MAY"){
   intMonth=5;
}
else if(Month=="JUN"){
   intMonth=6;
}
else if(Month=="JUL"){
   intMonth=7;
}
else if(Month=="AUG"){
   intMonth=8;
}
else if(Month=="SEP"){
   intMonth=9;
}
else if(Month=="OCT"){
   intMonth=10;
}
else if(Month=="NOV"){
   intMonth=11;
}
else if(Month=="DEC"){
   intMonth=12;
}
if(timeStr.substr(0,1)=="0"){
   var intDay = parseInt(timeStr.substr(1,2));
}
else{
   var intDay = parseInt(timeStr.substr(0,2));
}
return new Date(intYear,intMonth-1,intDay);
}


function dateBeforeDate(startDate, endDate){
newStartDate=stripDate (startDate);
newEndDate=stripDate (endDate);
if(newStartDate.valueOf()>newEndDate.valueOf()){
   return false;
}
return true;
}


function dateBeforeToday(testDate){
todaydate=new Date();
otherdate=stripDate (testDate);
if(otherdate.valueOf()>todaydate.valueOf()){
   return false;
}
return true;
}


function dateTodayOrLater(testDate){
todaydate=new Date();
otherdate=stripDate (testDate);
if(otherdate.valueOf()<=todaydate.valueOf()){
   return false;
}
return true;
}


function checkAddr(cIframe,cX,cY,cTs,cIs,cAU,clpdes,crpa,cMode) {
  cA1=gF("cAddr1");
  cA4=gF("cAddr4");
  nationField=gF("cNation");
  cA1V=cA1.value;
  cA4V=cA4.value;
  CNAV=nationField[nationField.selectedIndex].value;

  if ( nNull(cA1V) && nNull (cA4V) ) {
     if ( postit (cA4V) ) {
        iFrc=gF("addrScan");
        iFrc.src="PORTAL_IFRAMEWHITE";
        iFr=gF(cIframe);
        iFr.style.display="block";
        eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
        eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
        eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
        nL="PORTAL_ADDRSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cA1=" + escape(cA1V) + "&cA4=" + escape(cA4V) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
        nL+="&cautoupdate=" + cAU + "&clpdes_id=" + clpdes + "&crpa=" + crpa + "&cmode=" + cMode;
        iFrc.src=nL;
        return true;
     } else {
       cA4.focus();
       return false;
     }
  } else if ( !nNull(cA1V) && nNull (cA4V) ) {
     alert ("You must provide a house number or building name");
     cA1.focus();
     return false;
  } else if ( nNull(cA1V) && !nNull (cA4V) ) {
      if ( CNAV == "2826" ) {
         alert ("You must provide a postcode for UK addresses");
         cA4.focus();
         return false;
      }
  } else {
      if ( CNAV == "2826" ) {
         alert ("You must provide a house number or name and a postcode for UK addresses");
         cA4.focus();
         return false;
      } else {
         alert ("You must at least provide a house number or name for Non UK addresses");
         cA1.focus();
         return false;
      }
  }
  return true;
}

function closeAddr (cIframe) {
  iFrc=gF("addrScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  return true;
}

function setAddr (cIframe, cIA1,cIA2,cIA3,cIA4) {
  cA1=gF("cAddr1");
  cA2=gF("cAddr2");
  cA3=gF("cAddr3");
  cA4=gF("cAddr4");
  cA1.value=cIA1;
  cA2.value=cIA2;
  cA3.value=cIA3;
  cA4.value=cIA4;
  closeAddr (cIframe);
}

function storeAddr (cIframe,cIA1,cIA2,cIA3,cIA4,cmode,cLpdes,cTs,cIs) {

  cA1=gF("cAddr1");
  cA2=gF("cAddr2");
  cA3=gF("cAddr3");
  cA4=gF("cAddr4");
  cA1.value=cIA1;
  cA2.value=cIA2;
  cA3.value=cIA3;
  cA4.value=cIA4;

  parent.autoUpdate ("AUDiv",parent.dd.elements.addrFrame.x,parent.dd.elements.addrFrame.y,cTs,cIs,"cAddr1",cLpdes);  

  parent.autoUpdateExtra1 ("AUDivExtra1",parent.dd.elements.addrFrame.x,parent.dd.elements.addrFrame.y,cTs,cIs,"cAddr4",cLpdes);  

  if ( nNull (cA2.value) ) {
     parent.autoUpdateExtra2 ("AUDivExtra2",parent.dd.elements.addrFrame.x,parent.dd.elements.addrFrame.y,cTs,cIs,"cAddr2",cLpdes);  
  }
     
  if ( nNull (cA3.value) ) {
     parent.autoUpdateExtra3 ("AUDivExtra3",parent.dd.elements.addrFrame.x,parent.dd.elements.addrFrame.y,cTs,cIs,"cAddr3",cLpdes);  
  }

  closeAUFrame (cIframe);

}


function checkPassFormat() {
  iP1=gF("cPass1");
  iP2=gF("cPass2");
  if ( iP2 ) {
    validPassword(iP1.value,iP2.value,"Please enter and confirm a password of at least 8 characters.");
  }
}


function scanExistName(cIframe,cX,cY,cTs,cIs,cAU,clpdes,crpa,cMode) {
  cF=gF("cFirstName");
  cL=gF("cLastName");
  cFV=cF.value;
  cLV=cL.value;
  if ( nNull(cFV) && nNull (cLV) ) {
     existWindow=gF("existNameScan");
     existWindow.src="PORTAL_IFRAMEWHITE";
     iFr=gF(cIframe);
     iFr.style.display="block";
     eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
     eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
     eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
     nL="PORTAL_ENSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cFN=" + escape(cFV) + "&cLN=" + escape(cLV) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
     nL+="&cautoupdate=" + cAU + "&clpdes_id=" + clpdes + "&crpa=" + crpa + "&cmode=" + cMode;
     existWindow.src=nL;
     return true;
  } else if ( !nNull(cFV) && nNull (cLV) ) {
     alert ("You must provide a first name");
     return false;
  } else if ( nNull(cFV) && !nNull (cLV) ) {
     alert ("You must provide a surname");
     return false;
  } else {
     alert ("You must provide values for first name and surname");
     return false;
  }
}

function scanNewPers(cIframe,cX,cY,cTs,cIs) {
  cF=gF("cFirstName");
  cL=gF("cLastName");
  cFV=cF.value;
  cLV=cL.value;
  if ( nNull(cFV) && nNull (cLV) ) {
     iFrc=gF("newPersScan");
     iFrc.src="PORTAL_IFRAMEWHITE";
     iFr=gF(cIframe);
     iFr.style.display="block";
     eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
     eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
     eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
     nL="PORTAL_NPSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cFN=" + escape(cFV) + "&cLN=" + escape(cLV) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
     iFrc.src=nL;
     return true;
  } else {
     closeNewPers (cIframe);
  }
}


function closeNewPers (cIframe) {
  iFrc=gF("newPersScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  return true;
}
function setNewPers (cOper) {
  nL="PORTAL_SETLOGOPER?v_session_id=" + sesid + "&v_sid=" + sidid + "&cOper=" + escape(cOper);
  location.replace(nL);
}

function scanComp(cIframe,cX,cY,cTs,cIs,cAU,cItem) {
  cF=gF("cComp");
  cV=cF.value;
  if ( nNull(cV) ) {
     iFrc=gF("compScan");
     iFrc.src="PORTAL_IFRAMEWHITE";
     iFr=gF(cIframe);
     iFr.style.display="block";
     eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
     eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
     eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
     nL="PORTAL_CSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cComp=" + escape(cV) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&cAutoUpdate=" + cAU + "&clpdes_id=" + cItem;
     iFrc.src=nL;
     return true;
  } else {
     alert ("You must provide a company name");
     return false;
  }
}

function closeComp (cIframe) {
  iFrc=gF("compScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  return true;
}

function setComp (cIframe,cComp) {
  iCf=gF("cComp");
  iCf.value=cComp;
  closeComp (cIframe);
}

function storeComp (cIframe,cComp,cTs,cIs,cLpdes) {
  iCf=gF("cComp");
  iCf.value=cComp;
  iFrc=gF("compScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  nL="PORTAL_AUTOUPDATE?v_session_id=" + sesid + "&v_sid=" + sidid + "&cValue=" + escape(cComp) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) + "&clpdes_id=" + cLpdes;
  iFrc.src=nL;
}


function checkRpaEmail(cIframe,cX,cY,cTs,cIs,cLpdes) {
  cE=gF("cEmail");
  cE.value = cE.value.toUpperCase();
  cEV=cE.value;
  if ( nNull(cEV) ) {
     if ( checkIsEmail(cEV," Not a valid format for ","Email Address") ) {
        autoUpdate ("AUDiv",cX,cY,cTs,cIs,"cEmail",cLpdes);
        return true;
     } else {  
        return false;
     }
  } else {  
    alert ("You must provide an Email Address");
    return false;
  }
}

function scanEmail(cIframe,cX,cY,cTs,cIs) {
  cE=gF("cEmail");
  cE.value = cE.value.toUpperCase();
  cEV=cE.value;
  if ( nNull(cEV) ) {
     if ( checkIsEmail(cEV," Not a valid format for ","Email Address") ) {
        iFrc=gF("emailScan");
        iFrc.src="PORTAL_IFRAMEWHITE";
        iFr=gF(cIframe);
        iFr.style.display="block";
        eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
        eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
        eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
        nL="PORTAL_EMAILSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cemail=" + escape(cEV) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
        iFrc.src=nL;
        return true;
     }
  } else {  
    closeEmail (cIframe);  
  }
}

function closeEmail (cIframe) {
  iFrc=gF("emailScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  iFr.style.display="none";
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  cU=gF("cNewUserid");  
  cE=gF("cEmail");
  cE.value = cE.value.toUpperCase();
  if ( cU ) {
     if ( cU.value == "" ) {
        cU.value = cE.value;
     }
  }
  return true;
}


function blankEmail (cIframe) {
  iFrc=gF("emailScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  cE=gF("cEmail");
  cE.value = "";
  cE.focus();
  return true;
}


function checkNewUserid (cIframe,cX,cY,cTs,cIs) {
  cU=gF("cNewUserid");
  cUV=cU.value;
  if ( nNull(cUV) ) {
        iFrc=gF("newUseridScan");
        iFrc.src="PORTAL_IFRAMEWHITE";
        iFr=gF(cIframe);
        eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
        eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
        eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
        iFr.style.display="block";
        nL="PORTAL_NEWUSERIDSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cnewuserid=" + escape(cUV) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
        iFrc.src=nL;
        return true;
  } else {
     closeNewUserid (cIframe);
  }
}

function closeNewUserid (cIframe) {
  iFrc=gF("newUseridScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  cE=gF("cNewUserid");
  cE.value = cE.value.toUpperCase();
  return true;
}

function blankNewUserid (cIframe) {
  iFrc=gF("newUseridScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  cE=gF("cNewUserid");
  cE.value = "";
  cE.focus();
  return true;
}

function existUseridCheck (cIframe,cX,cY,cTs,cIs) {
  uF=gF("cUserid");
  uF.value=uF.value.toUpperCase();
  uFV=uF.value;
  if ( nNull(uFV) ) {
     iFrc=gF("existUseridScan");
     iFrc.src="PORTAL_IFRAMEWHITE";
     iFr=gF(cIframe);
     iFr.style.display="block";
     eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
     eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
     eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
     nL="PORTAL_EXUSERIDSCAN?v_session_id=" + sesid + "&v_sid=" + sidid + "&cUserid=" + escape(uFV) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
     iFrc.src=nL;
  } else {
     closeExistUserid (cIframe);
  }
}

function closeExistUserid (cIframe) {
  iFrc=gF("existUseridScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  return true;
}

function setExistUserid (cIframe, cOName) {
  cA1=gF("cUserid");
  cA1.value=cOName;
  closeExistUserid (cIframe);
}

function goLogon (cIframe,cX,cY,cTs,cIs) {
un=gF("cUserid");
unv=un.value;
pw=gF("cPass1");
pwv=pw.value;
if ( (nNull(unv))  && (nNull(pwv)) ) {
        iFrc=gF("logScan");
        iFrc.src="PORTAL_IFRAMEWHITE";
        iFr=gF(cIframe);
        iFr.style.display="block";
     eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
     eval ( "dd.elements." + cIframe + ".moveTo (dd.elements.paintLayer.x + " + cX + ",dd.elements.paintLayer.y + " + cY + ");" );
     eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
nL="PORTAL_CHLOG?v_session_id=" + sesid + "&v_sid=" + sidid + "&cuserid=" + escape(unv) + "&cpass1=" + escape(pwv) + "&ctstyle=" + escape(cTs) + "&cistyle=" + escape(cIs) + "&cdiv=" + escape(cIframe) ;
        iFrc.src=nL;
} else { alert ("You must supply a username and password") }
}

function closeLogScan (cIframe) {
  iFrc=gF("logScan");
  iFrc.src="PORTAL_IFRAMEWHITE";
  iFr=gF(cIframe);
  eval ( "dd.elements." + cIframe + ".setDraggable(true);" );
  eval ( "dd.elements." + cIframe + ".moveTo (0,0);" );
  eval ( "dd.elements." + cIframe + ".setDraggable(false);" );
  iFr.style.display="none";
  return true;
}