function IsNumeric(InString)
{
   RefString     = "-1234567890.";
   DecimalPoints = 0;

   for (i=0; i<InString.length; i++)
   {
      TempChar = InString.substring ( i, i+1 );

      if (  TempChar == "." ) { DecimalPoints++; } /* Can only have zero or one decimal points in a number */
      if (( TempChar == "-" ) && ( i != 0 )) { return ( false ); } /* Minus Sign must be first character */

      /* Check if current character is valid */

      if ( RefString.indexOf (TempChar,0) == -1)
      {
         /* character not found in RefString */
         return (false);
      }
   }
   if ( DecimalPoints > 1 ) { return ( false ); }
   return(true);
}

function setWindowsStatusBar(msg){
	window.status = msg;
	return true;
}

function oWin(sURL, sName)
{
	msgWin = window.open(sURL,sName,"toolbar=no,scrollbars=yes,resizable=yes,height=400,width=550,screenX=10,screenY=10");
}	

function oWinBig(sURL,sName)
{
	msgWin =window.open(sURL,sName,'toolbar=no,scrollbars=yes,resizable=yes,height=550,width=750,screenX=-10,screenY=0');
}

function oWinSmall(sURL,sName)
{
	msgWin =window.open(sURL,sName,'toolbar=no,scrollbars=yes,resizable=yes,height=300,width=300,screenX=-10,screenY=0');
}

function ResizeFrameEdit() {
top.document.all("MenuFrame").all("ContentFrame").cols= "*,400";
top.document.all("MenuFrame").all("ContentFrame").all("EditContentFrame").rows="*,0";
}

function RefreshFrameList() {
top.document.all("MenuFrame").all("ContentFrame").cols="*,0";
}

function ClearAsterisk(objname,startnum,endnum,recordnum){
	if (parseInt(recordnum)==0) {
		return true;
	}
	if (endnum!='') {
		for (i=startnum;i<=endnum;i++) {
			eval(objname + i).innerText=' ';
		}
	}
}
function MarkRow(Totalrow,row) {
	ClearAsterisk('r',0,Totalrow);
	eval('r'+ row ).innerText = '';
}

function SetStatusMsg(msg){
	top.Exit.statusmsg.innerText=msg;
}
function SetUserMsg(msg){
	top.Exit.statusUser.innerText=msg;
}


/*
==================================================================
LTrim(string) : Returns a copy of a string without leading spaces.
==================================================================
*/
function LTrim(str)
/*
   PURPOSE: Remove leading blanks from our string.
   IN: str - the string we want to LTrim
*/
{
   var whitespace = new String(" \t\n\r");

   var s = new String(str);

   if (whitespace.indexOf(s.charAt(0)) != -1) {
      // We have a string with leading blank(s)...

      var j=0, i = s.length;

      // Iterate from the far left of string until we
      // don't have any more whitespace...
      while (j < i && whitespace.indexOf(s.charAt(j)) != -1)
         j++;

      // Get the substring from the first non-whitespace
      // character to the end of the string...
      s = s.substring(j, i);
   }
   return s;
}

/*
==================================================================
RTrim(string) : Returns a copy of a string without trailing spaces.
==================================================================
*/
function RTrim(str)
/*
   PURPOSE: Remove trailing blanks from our string.
   IN: str - the string we want to RTrim

*/
{
   // We don't want to trip JUST spaces, but also tabs,
   // line feeds, etc.  Add anything else you want to
   // "trim" here in Whitespace
   var whitespace = new String(" \t\n\r");

   var s = new String(str);

   if (whitespace.indexOf(s.charAt(s.length-1)) != -1) {
      // We have a string with trailing blank(s)...

      var i = s.length - 1;       // Get length of string

      // Iterate from the far right of string until we
      // don't have any more whitespace...
      while (i >= 0 && whitespace.indexOf(s.charAt(i)) != -1)
         i--;


      // Get the substring from the front of the string to
      // where the last non-whitespace character is...
      s = s.substring(0, i+1);
   }

   return s;
}

/*
=============================================================
Trim(string) : Returns a copy of a string without leading or trailing spaces
=============================================================
*/
function Trim(str)
/*
   PURPOSE: Remove trailing and leading blanks from our string.
   IN: str - the string we want to Trim

   RETVAL: A Trimmed string!
*/
{
   return RTrim(LTrim(str));
}