function buildlist(sitelist) {
//..................... Place sites in array
 delimiter = "*"
 ierr=1;
  var optlist='';
  var sitearray = new Array();
  var docarray = new Array();
  sitearray = sitelist.split(delimiter);
 for (i = 0; i < sitearray.length-1; i++){
      docrec= sitearray[i];
      docarray = docrec.split('(');
       selval= trim(docarray[2]);
       parm1 = trim(docarray[1]) ;
       addr="";
       // next line gets optional address (address
       if(docarray[3]!=null) addr= trim(docarray[3]);
             
       l=   parm1.charAt(5) ;
       if( parm1.charAt(6)!=")") l= l+parm1.charAt(6);
       l= eval(l) ;   
       //l=l-1;
       //selopt= trim(docarray[0]);
       selopt2= trimName(docarray[0]);
       selopt= docarray[0];
       ndx= selval.indexOf(",");
       qstring= "lat="+selval.substring(0,ndx);
       qstring= qstring+"&lon="+selval.substring(ndx+1);
       qstring= qstring.substring(0,qstring.length-1);
       qstring+= "&lev="+l+"&name="+selopt2;
       // next line is new
       if(addr.length>1) qstring=qstring+"&"+addr;        
       optlist += "<option value='"+qstring+"'>"+selopt+" ";       
 }
 optlist = optlist + '</select>'
 return optlist;
}

function trimName(trimvar)
{
	ln = trimvar.length;
	var tval='';
	for (j=0; j < ln; j++) 
	{
	  token = trimvar.charAt(j);
	  if (token != ' ') 
	  {
		//if(token == '-') {token=' '}
		tval = tval + token;
	  }
	   else 
	  {
		if(j<ln-1) tval= tval+"_";

	  }   
	}
    return tval;
}

function trim(trimvar) {
ln = trimvar.length;
var tval='';
for (j=0; j < ln; j++) {
 token = trimvar.charAt(j);
 if (token != ' ') {
  //if(token == '-') {token=' '}
  tval = tval + token;
  }
}
return tval;

}