<!--


 function app_onload()
  {
   var title="Unknown";
   if(zModule==1 || zModule==11)  {title="Degrees-Minutes-Seconds To Decimal Degrees";}
   if(zModule==2 || zModule==12)  {title="Decimal Degrees To Degrees-Minutes-Seconds";}
   if(zModule==3 || zModule==13) {title="Lat/Lon to UTM (meters)";}
   if(zModule==4 || zModule==14) {title="UTM (meters) to Lat/Lon";}
   
   if(zModule==4) {zFillCombo(document.frGeo.fUTMZone,1,1,61,"",11);}
   if(zModule==13) {zFillCombo(document.frGeo.fUTMZone,1,1,61,"UTM Zone ",11);}
   if(zModule==14) {zFillCombo(document.frGeo.fUTMZone_in,1,1,61,"UTM Zone ",11);}
   
   app_title(title);
  }

 function app_title(title)
  {
	 var cad='<font face="Arial" size="4"><br><center><b>'+title+'</b></center></font>';
	 if(es_MSI()) {cad='<fieldset style="width:550px;height:36px">'+cad+'</fieldset>';}
	 zset_innerHTML("mytitle", cad);
  }

 function app_comments()
  {
   zfr_comments('Curve Number Online');
  }

 function app_about()
  {
   var MSG = "<br><center><b>Curve Number</b>";
   MSG+="<br>SCS Curver Number<br><br>(c) 2006-2008 Zonum Solutions</center>";
   zwin_msgbox("About",300,110,"","",MSG);
  }
  
  function app_Hint()
  {
   var cad="By using the 'TAB' format; you could copy/paste from/to Excel";
   alert(cad);
  }
  
  function hide_dialogo()
 {
   var fr=document.getElementById('divframe');
   fr.style.visibility="hidden";
 }

 function app_loadfile()
 {
  var fr=document.getElementById('divframe');
  fr.style.visibility="visible";
  window.frames['fr2'].location ="../lib/LoadFile.php?TipoFile=CSV/TXT";
 }
 
  function Link_Parent_Close(DataList)
 {
   document.frGeo.datamemo.value = DataList;
   hide_dialogo(); 
 }
  
 
 function Link_Parent_data()
 {
    web_resultado();
  } 
  
  
  
   
   function getrandom()
   {
    return Math.floor(Math.random()*100)
   }
   
  function get_new_winname()
	 {
	  var win_name = "cn"+getrandom()+"_"+getrandom()+"_"+getrandom();
	  //alert("Window Name = "+win_name);
	  return win_name
	 } 
   
  function get_module_url(xmodule)
	{
	 var url = "curve_number.php";
	 if(xmodule!=0) {
	   url+= "?id="+xmodule;
	   if(zUnits!="in") { url+="&units="+zUnits;}
	  }
	  
	 return url 
	} 
   
  function open_newwindow(url,props)
	 {
	  // alert("url="+url);
	   var  myWin = window.open(url,get_new_winname(),props);
       if(myWin) {
         if (myWin.focus) {myWin.focus();} 
       }
	 } 
   
  function app_option(n,newpage)
   {
    var url=get_module_url(n);
    if(newpage==true) {
       open_newwindow(url,"width=750,height=640,scrollbars=no,resizable=yes");
    } else {window.location=url}
   }

  function app_openmini()
   {
    open_newwindow(get_module_url(zModule)+"&mini=true","width=470,height=255,scrollbars=no,resizable=yes");
   }


  function app_update_units()
   {
    var xunits = zweb_listIndex(document.frData.funits);
    if(xunits==0) {zUnits="in";
    } else {zUnits="mm";}
    
    app_process(false);
   }
   
  function app_getunits_label()
	{
	  var isEnglish = true;
	  if(zUnits=="mm") {isEnglish=false;}
	  
	  var ulabel = "in";
	  if(isEnglish==false) {ulabel="mm";}
	 
	  return ulabel;
	} 
 
  function app_update()
   {app_process(false);}
 
  function app_calculate()
   {app_process(true);}
   
   
  function get_CNTable(idobj)
	{
	  alert("Not Ready");
	} 
   
   
  function get_statusbar()
	 {
	  var stbar="&copy; 2006-2008 Zonums&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;";
	  var stlinks = '<a href="javascript:zfr_disclaimer();">Disclaimer</a>&nbsp;&nbsp;&nbsp;<a href="javascript:app_about();">About</a>';
	  if (isMini=="true") {
	   stbar +=stlinks;
	  } else {
	    stbar +='&nbsp;&nbsp;&nbsp;&nbsp;<a href="javascript:app_comments();">Comments</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;';
	    stbar +=stlinks;
	  }
	  
	  return stbar
	 } 
   
  function set_appbar(msg,isAlert)
	 {
	  var obj = document.getElementById("appstatusbar");
	  if (msg=="") {msg=get_statusbar();}
	  if(isAlert) {
		  obj.style.background = "red";
		  obj.style.color = "yellow";
			} else {
		   obj.style.background = "#ece9d8";
			 obj.style.color = "black";
			}
	  obj.innerHTML="<center>"+msg+"</center>";
	 } 
	 
	function app_resetstatusbar()
	 {set_appbar('',false);} 
   
  function app_mainonload()
  {
   app_resetstatusbar();
   app_onload();
  }
	 
	 
	function checkinput_status(xstate,valueWrong,MsgLabel)
  {
   if(xstate==true) {
     if(valueWrong==true) {
        set_appbar(MsgLabel,true);
        xstate = false;
      }
   }
   return xstate
  } 
	 
   
 //calculations
 
  function get_ia(s)
   {
     return s*0.2
   }
   
  function get_cn(s,isEnglish)
   {
    var cn=0;
    if(isEnglish==true) {
      cn=1000/(s+10);
    } else {
      cn=25400/(s+254);
    }
   
    return cn
   }
 
  function get_s(cn,isEnglish)
  {
   var s=0;
   if(isEnglish==true) {
     s = (1000/cn)-10;
   } else {
     s = (25400/cn)-254;
   }
   
   return s
  }
  
  function gets2(p,q)
   {
    var s=9;
		var inside = (4*Math.pow(q,2))+(5*p*q);
    s = 5*((p+2*q)-Math.sqrt(inside));
    
    return s
   }
  
  
  function get_q(p,s)
  {
   var q =0;
   if(p>(0.2*s)) {
    q=Math.pow(p-0.2*s,2)/(p+0.8*s);
   } 
   return q
  }

  function get_p(q,s)
  {
   var p=1; //solve quadratic equation ...
  
    return p
  }


 //Http request
 function WebGet(Url,Id)
 { var xmlHttp;
    try
       {  // Firefox, Opera 8.0+, Safari 
			  xmlHttp=new XMLHttpRequest(); 
			 }
        catch (e)
       {  // Internet Explorer
			   try
           {    xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");    }
            catch (e)
            {    try
              {  xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");      }
                catch (e)
               { WebGet_Error(Id);
							   //alert("Your browser does not support AJAX!");  
							   return false; 
							  }
						 }
				}
      xmlHttp.onreadystatechange=function()
      {if(xmlHttp.readyState==4)
        {
         WebGet_Data(Id,xmlHttp.responseText);
        }
      }
   xmlHttp.open("GET",Url,true);
   xmlHttp.send(null);  
}




  //library calculations
  
  
  
  
  function do_test()
  {
   var cad="000123.456000";
   var cad1=trimLeft(cad,'0');
   var cad2=trimRight(cad,'0');
   var cad3=strRight(cad,'.');
   var cad4=strLeft(cad,'.');
   var cad5=trimzeros(cad);
   var msgx="cad="+cad+"\nNo Left="+cad1+"\nNo Right="+cad2+'\nRight='+cad3+'\nLeft='+cad4+'\nNoCeros='+cad5;
   
   alert(msgx);
  }
  
  
  function edit_getval(editcontrol)
  {
   var value =0;

   if(editcontrol.value=="") {value =0;}
   else {value = parseFloat(editcontrol.value);}
   
   return value
 }

 function dms2dd(deg,min,sec)
  {
   var sign=(deg<0);
   deg = (Math.abs(deg) + min/60 + sec/3600)*sign;
   
   return sign
  }


 function value2dd(value)
 {
  //input in dd or dms separated by space
  var deg=parseFloat(value);
  var tmp=value.split(" ");
  
  if(tmp.length>1) {
   deg = parseFloat(tmp[0]);
   var signo=Math.abs(deg)/deg;
	 var min=parseFloat(tmp[1]);
   var sec=0;
   if(tmp.length>2) {sec=parseFloat(tmp[2]);}
   
   deg=(deg+min/60+sec/3600)*signo;
  }
 
  return deg;
 }



 
-->
