function dupTrim (inEl)  {
   var tmp=inEl.value;
   var tmp1="";
   var prev_char="";
   for (var i=0;i<tmp.length;i++){
     if (tmp.charAt(i)==" " ) {
       if(prev_char != " ") tmp1+=tmp.charAt(i);
     } else tmp1+=tmp.charAt(i);
     prev_char=tmp.charAt(i);
   }
   
   inEl.value=bothTrim(tmp1);
}


function bothTrim(InString) {
  OutString=rightTrim(InString);
  OutString=leftTrim(OutString);
  return (OutString);
}

function leftTrim (InString)  {
  OutString=InString;
  for (Count=0; Count < InString.length; Count++)  {
    TempChar=InString.substring (Count, Count+1);
    if (TempChar!=" ") {
      OutString=InString.substring (Count, InString.length);
      break;
    }
  }
  return (OutString);
}

function rightTrim (InString)  {
  OutString=InString;
  for (Count=InString.length; Count > 0; Count--)  {
    TempChar=InString.substring (Count-1, Count);
    if (TempChar!=" ") {
      OutString=InString.substring (0, Count)
  break;
    }
  }
  if (OutString==" ") OutString="";
  return (OutString);
}


function replaceAllChars() {
  for (i=0;i<document.forms[0].length;i++){
    if (document.forms[0][i].type=="text" ||
        document.forms[0][i].type=="textarea") {
     dupTrim(document.forms[0][i]);
     replaceChars(document.forms[0][i]);
    }
  }
}

function AlphaNum(inStr){
  AlphaNumStr="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
  tmpstr="";
  for (i=0;i<inStr.length;i++){
     if (AlphaNumStr.indexOf(inStr.charAt(i).toUpperCase()) != -1 )
       tmpstr+=inStr.charAt(i);
  }
  return tmpstr;
}

function replaceSlash(inEl) {
   var tmp=inEl.value;
   var tmp1="";
   for (var i=0;i<tmp.length;i++){
     if (tmp.charAt(i)=="/")
       tmp1+=" ";
     else tmp1+=tmp.charAt(i);
   }
   inEl.value=tmp1;
}

function replacePlus(inEl) {
   var tmp=inEl.value;
   var tmp1="";
   for (var i=0;i<tmp.length;i++){
     if (tmp.charAt(i)=="+")
       tmp1+=" ";
     else tmp1+=tmp.charAt(i);
   }
   inEl.value=tmp1;
}

function replaceNames(inEl) {
   var tmp=inEl.value;
   var tmp1="";
   for (var i=0;i<tmp.length;i++){
     if (tmp.charAt(i)=="'" || escape(tmp.charAt(i))=="%B4")
       tmp1+="&#180;";
     else if (tmp.charAt(i)=='"')
       tmp1+="&#148;";
     else if (tmp.charAt(i)=='-')
       tmp1+="&#150;";
     else if (tmp.charAt(i)==',')
       tmp1+="&#130;";
     else if (tmp.charAt(i)==".")
       tmp1+=" ";
     else if (tmp.charAt(i)=="\t")
       tmp1+=" ";
     else tmp1+=tmp.charAt(i);
   }
   inEl.value=tmp1;
}

function replaceChars(inEl) {
   var tmp=inEl.value;
   var tmp1="";
   for (var i=0;i<tmp.length;i++){
     if (tmp.charAt(i)=="'" || escape(tmp.charAt(i))=="%B4")
       tmp1+="&#180;";
     else if (tmp.charAt(i)=='"')
       tmp1+="&#34;";
     else if (tmp.charAt(i)=="(")
       tmp1+="&#40;";
     else if (tmp.charAt(i)==")")
       tmp1+="&#41;";
     else if (tmp.charAt(i)=="\t")
       tmp1+=" ";
     // else if (tmp.charAt(i)=="+")
       // tmp1+="&#43;";
     else if (tmp.charAt(i)=="%")
       tmp1+="&#37;";
     else if (tmp.charAt(i)=="\r") {
       tmp1+="&#13;";
       j=i+1;
       if (tmp.charAt(j)=="\n") i++;
     } else if (tmp.charAt(i)=="\n") {
       tmp1+="&#13;";
       j=i+1;
       if (tmp.charAt(j)=="\r") i++;
     } else tmp1+=tmp.charAt(i);
   }
   inEl.value=tmp1;
}

function clearScreen(){
  if (confirm("Do you want to clear this screen?")){
     for (i=0;i<document.forms[0].length;i++){
       if (document.forms[0][i].type=="text")
         document.forms[0][i].value="";
       if (document.forms[0][i].type=="textarea")
         document.forms[0][i].value="";
       if (document.forms[0][i].type=="checkbox")
         document.forms[0][i].checked=false;
       if (document.forms[0][i].type=="radio")
         document.forms[0][i].checked=false;
       if (document.forms[0][i].type=="select-one")
         document.forms[0][i].selectedIndex=0;
       if (document.forms[0][i].type=="select-multiple")
         document.forms[0][i].selectedIndex=-1;
     }
  }
}

function parser(inString, sep, item){
    numSeps=1;
    tmp = inString;
    k = item+0;

    for (i=0;i<inString.length;i++){
      if ((tmp.charAt(i)==sep)&&(tmp.charAt(i+1)!=sep))
        numSeps++;
    }

    lastSep = 0;
    outArray = "";
    for (i=0; i<numSeps;i++){
      for (j=lastSep;j<tmp.length;j++){
        if ((tmp.charAt(j) == sep)&&(tmp.charAt(j+1)!=sep))
        break;
      }
       if(i == k)  {
         outArray = tmp.substring(lastSep,j);
         break;
       }
       lastSep=j+1;
       }
      return outArray;
}

function findString(inString,findVal){
  tmp=inString;
  tmp1=findVal;
  for(i=0;i<(tmp.length-tmp1.length);i++){
    if (tmp.substring(i,i+tmp1.length)==tmp1){
      return 1;
    }
  }
  return 0;
}

function presetCheckBox(name_checkbox, data_name) {
   var checkel=document.forms[0].elements[name_checkbox];

   i=parseInt(document.forms[0].elements[data_name].value);
   for(j=0; j<checkel.length; ++j) {
      k=(1 << j);
      if(i & k)  checkel[j].checked=1;
   }
}

function getCheckBox(name_checkbox, data_name) {
   var checkel=document.forms[0].elements[name_checkbox];

   i=checkel.length;
   k=0;
   for(j=0; j<i; ++j) {
     if(checkel[j].checked == 1) {
        k |= (1 << j);
     }
   }
   if(k) document.forms[0].elements[data_name].value=k+" ";
}

function presetSingleCheckBox(name_checkbox, data_name) {
   i=parseInt(document.forms[0].elements[data_name].value);
   if(i)  document.forms[0].elements[name_checkbox].checked=true;
   else document.forms[0].elements[name_checkbox].checked=false;
}

function getSingleCheckBox(name_checkbox, data_name) {
   i=document.forms[0].elements[name_checkbox].checked;
   if(i) document.forms[0].elements[data_name].value="1";
   else document.forms[0].elements[data_name].value="0";
}

function presetMenu(name_menu, data_name) {
   var checkel=document.forms[0].elements[name_menu];
   str=document.forms[0].elements[data_name].value;

   for(i=0; i<checkel.length; ++i) {
     str1=checkel.options[i].text;
     if(str1 == str) {
       checkel.selectedIndex=i;
       break;
     }
   }
}

function getMenuValue(name_menu, data_name) {
   var checkel=document.forms[0].elements[name_menu];

   str=checkel.options[checkel.selectedIndex].text;
   document.forms[0].elements[data_name].value=str;
}

function presetText(name_menu, data_name) {
   str=document.forms[0].elements[data_name].value;
   document.forms[0].elements[name_menu].value=str;
}

function presetRadioButton(name_radiobutton, data_name) {
   var checkel=document.forms[0].elements[name_radiobutton];
   i=checkel.length;
   str=document.forms[0].elements[data_name].value;

   if(str != "") for(j=0; j<i; ++j) {
     if(checkel[j].value == str) {
        checkel[j].checked=1;
        break;
     }
   }
}


function checkName(ckName){ 
  AcceptString="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_ &;#"; 
  ckName=ckName.toUpperCase(); 
  for (check=0;check<ckName.length;check++){ 
    if (AcceptString.indexOf(ckName.charAt(check))==-1) return -1; 
  } 
  return 1; 
} 

function bothTrim(InString) {
  OutString=rightTrim(InString);
  OutString=leftTrim(OutString);
  return (OutString);
}

function leftTrim (InString)  {
  OutString=InString;
  for (Count=0; Count < InString.length; Count++)  {
    TempChar=InString.substring (Count, Count+1);
    if (TempChar!=" ") {
      OutString=InString.substring (Count, InString.length);
      break;
    }
  }
  return (OutString);
}

function rightTrim (InString)  {
  OutString=InString;
  for (Count=InString.length; Count > 0; Count--)  {
    TempChar=InString.substring (Count-1, Count);
    if (TempChar!=" ") {
      OutString=InString.substring (0, Count)
  break;
    }
  }
  if (OutString==" ") OutString="";
  return (OutString);
}


function Num(inStr){
  AlphaNumStr="0123456789"
  tmpstr="";
  for (i=0;i<inStr.length;i++){
     if (AlphaNumStr.indexOf(inStr.charAt(i).toUpperCase()) != -1 )
       tmpstr+=inStr.charAt(i);
  }
  return tmpstr;
}


function clearScreen(){
  if (confirm("Do you want to clear this screen?")){
     for (i=0;i<document.forms[0].length;i++){
       if (document.forms[0][i].type=="text")
         document.forms[0][i].value="";
       if (document.forms[0][i].type=="textarea")
         document.forms[0][i].value="";
       if (document.forms[0][i].type=="checkbox")
         document.forms[0][i].checked=false;
       if (document.forms[0][i].type=="radio")
         document.forms[0][i].checked=false;
       if (document.forms[0][i].type=="select-one")
         document.forms[0][i].selectedIndex=0;
       if (document.forms[0][i].type=="select-multiple")
         document.forms[0][i].selectedIndex=-1;
     }
  }
}

function parser(inString, sep, item){
    numSeps=1;
    tmp = inString;
    k = item+0;

    for (i=0;i<inString.length;i++){
      if ((tmp.charAt(i)==sep)&&(tmp.charAt(i+1)!=sep))
        numSeps++;
    }

    lastSep = 0;
    outArray = "";
    for (i=0; i<numSeps;i++){
      for (j=lastSep;j<tmp.length;j++){
        if ((tmp.charAt(j) == sep)&&(tmp.charAt(j+1)!=sep))
        break;
      }
       if(i == k)  {
         outArray = tmp.substring(lastSep,j);
         break;
       }
       lastSep=j+1;
       }
      return outArray;
}

function findString(inString,findVal){
  tmp=inString;
  tmp1=findVal;
  for(i=0;i<(tmp.length-tmp1.length);i++){
    if (tmp.substring(i,i+tmp1.length)==tmp1){
      return 1;
    }
  }
  return 0;
}

function presetCheckBox(name_checkbox, data_name) {
   var checkel=document.forms[0].elements[name_checkbox];

   i=parseInt(document.forms[0].elements[data_name].value);
   for(j=0; j<checkel.length; ++j) {
      k=(1 << j);
      if(i & k)  checkel[j].checked=1;
   }
}

function getCheckBox(name_checkbox, data_name) {
   var checkel=document.forms[0].elements[name_checkbox];

   i=checkel.length;
   k=0;
   for(j=0; j<i; ++j) {
     if(checkel[j].checked == 1) {
        k |= (1 << j);
     }
   }
   if(k) document.forms[0].elements[data_name].value=k+" ";
}

function presetSingleCheckBox(name_checkbox, data_name) {
   i=parseInt(document.forms[0].elements[data_name].value);
   if(i)  document.forms[0].elements[name_checkbox].checked=true;
   else document.forms[0].elements[name_checkbox].checked=false;
}

function getSingleCheckBox(name_checkbox, data_name) {
   i=document.forms[0].elements[name_checkbox].checked;
   if(i) document.forms[0].elements[data_name].value="1";
   else document.forms[0].elements[data_name].value="0";
}

function presetMenu(name_menu, data_name) {
   var checkel=document.forms[0].elements[name_menu];
   str=document.forms[0].elements[data_name].value;

   for(i=0; i<checkel.length; ++i) {
     str1=checkel.options[i].text;
     if(str1 == str) {
       checkel.selectedIndex=i;
       break;
     }
   }
}

function getMenuValue(name_menu, data_name) {
   var checkel=document.forms[0].elements[name_menu];

   str=checkel.options[checkel.selectedIndex].text;
   document.forms[0].elements[data_name].value=str;
}

function presetText(name_menu, data_name) {
   str=document.forms[0].elements[data_name].value;
   document.forms[0].elements[name_menu].value=str;
}

function presetRadioButton(name_radiobutton, data_name) {
   var checkel=document.forms[0].elements[name_radiobutton];
   i=checkel.length;
   str=document.forms[0].elements[data_name].value;

   if(str != "") for(j=0; j<i; ++j) {
     if(checkel[j].value == str) {
        checkel[j].checked=1;
        break;
     }
   }
}

function getRadioButton(name_radiobutton, data_name) {
   var checkel=document.forms[0].elements[name_radiobutton];
   i=checkel.length;
   for(j=0; j<i; ++j) {
     if(checkel[j].checked == 1) {
        document.forms[0].elements[data_name].value=
          checkel[j].value;
        break;
     }
   }
}

function selectall()
{
  l=parent.body.document.forms[0].length;

  for (t=0; t<l; t++)
  {
    if (parent.body.document.forms[0].elements[t].type=="checkbox")
    { parent.body.document.forms[0].elements[t].checked=true; }
  }
}

function selectnone()
{
  l=parent.body.document.forms[0].length;

  for (t=0; t<l; t++)
  {
    if (parent.body.document.forms[0].elements[t].type=="checkbox")
    { parent.body.document.forms[0].elements[t].checked=false; }
  }

}

function getRadioButton(name_radiobutton, data_name) {
   var checkel=document.forms[0].elements[name_radiobutton];
   i=checkel.length;
   for(j=0; j<i; ++j) {
     if(checkel[j].checked == 1) {
        document.forms[0].elements[data_name].value=
          checkel[j].value;
        break;
     }
   }
}

function selectall()
{
  l=parent.body.document.forms[0].length;

  for (t=0; t<l; t++)
  {
    if (parent.body.document.forms[0].elements[t].type=="checkbox")
    { parent.body.document.forms[0].elements[t].checked=true; }
  }
}

function selectnone()
{
  l=parent.body.document.forms[0].length;

  for (t=0; t<l; t++)
  {
    if (parent.body.document.forms[0].elements[t].type=="checkbox")
    { parent.body.document.forms[0].elements[t].checked=false; }
  }

}

function alphanum(inStr){
   AcceptStr="abcdefghijklmnopqrstuvwxyz0123456789";
   outstr="";
   for (i=0;i<inStr.length;i++){
     if (AcceptStr.indexOf(inStr.charAt(i).toLowerCase()) != -1)
       outstr+=inStr.charAt(i);
   }
   return outstr;
}