function valDrop(val) {
if (val == '') return false;
else return true;
}

function valButton(btn) {
    var cnt = -1;
    for (var i=btn.length-1; i > -1; i--) {
        if (btn[i].checked) {cnt = i; i = -1;}
    }
    if (cnt > -1) return btn[cnt].value;
    else return null;
}
// by Stephen Chapman, Felgall Pty Ltd
function validateEmail(addr,man,db) 
{
   if (addr == '' && man) 
   {
     if (db) alert('email address is mandatory');
     return false;
   }
   if (addr == '') return true;
   var invalidChars = '\/\'\\ ";:?!()[]\{\}^|';
   for (i=0; i<invalidChars.length; i++) 
     {
        if (addr.indexOf(invalidChars.charAt(i),0) > -1)
         {
          if (db) alert('email address contains invalid characters');
          return false;
         }
     }
   for (i=0; i<addr.length; i++) 
     {
      if (addr.charCodeAt(i)>127) 
	    {
          if (db) alert("email address contains non ascii characters.");
          return false;
        }
      }
   var atPos = addr.indexOf('@',0);
   if (atPos == -1)
    {
      if (db) alert('email address must contain an @');
      return false;
    }
   if (atPos == 0) 
     {
       if (db) alert('email address must not start with @');
       return false;
     }
   if (addr.indexOf('@', atPos + 1) > - 1) 
     {
       if (db) alert('email address must contain only one @');
        return false;
     }
   if (addr.indexOf('.', atPos) == -1) 
     {
       if (db) alert('email address must contain a period in the domain name');
       return false;
     }
   if (addr.indexOf('@.',0) != -1) 
     {
       if (db) alert('period must not immediately follow @ in email address');
       return false;
     }
   if (addr.indexOf('.@',0) != -1)
     {
       if (db) alert('period must not immediately precede @ in email address');
       return false;
     }
   if (addr.indexOf('..',0) != -1) 
     {
       if (db) alert('two periods must not be adjacent in email address');
       return false;
     }
   var suffix = addr.substring(addr.lastIndexOf('.')+1);
   if (suffix.length != 2 && suffix != 'com' && suffix != 'net' && suffix != 'org' && suffix != 'edu' && suffix != 'int' && suffix != 'mil' && suffix != 'gov' & suffix != 'arpa' && suffix != 'biz' && suffix != 'aero' && suffix != 'name' && suffix != 'coop' && suffix != 'info' && suffix != 'pro' && suffix != 'museum')
      {
       if (db) alert('invalid primary domain in email address');
       return false;
      }
   return true;    
}

function stripBlanks(fld) {
var result = "";
var c = 0;
for (i=0; i<fld.length; i++) {
if (fld.charAt(i) != " " || c > 0) {
result += fld.charAt(i);
if (fld.charAt(i) != " ") c = result.length;
}
}
return result.substr(0,c);
} 

function validField(fld) {
fld = stripBlanks(fld);
if (fld == '') return false;
return true;
} 
function isValid(parm,val) {
if (parm == "") return true;
for (i=0; i<parm.length; i++) {
if (val.indexOf(parm.charAt(i),0) == -1) return false;
}
return true;
}

var numb = '0123456789';
function isNum(parm) {return isValid(parm,numb);}

function validField_numeric(fld) {
fld = stripBlanks(fld);
if (fld == '') return false; 
if (!isNum(fld)) return false; 
return true;
}