//  Programmed by Intellicom aps. Denmark. Bo Bjerknes. bb@intellicom.dk
function test_pos_integer( r )
{
  t = new String( r );
  return( t.search( '^ *[0-9]+ *$' ) != -1 && parseInt( r ) > 0 );
}

function test_nonneg_integer( r )
{
  t = new String( r );
  return( t.search( '^ *[0-9]+ *$' ) != -1 && parseInt( r ) >= 0 );
}

function test_integer( r )
{
  t = new String( r );
  return( t.search( '^ *[-|+]?[0-9]+ *$' ) != -1 );
}

function test_email( e )
{
  t = new String( e );
  return( t.search( '^ *[^ ]+@[^ ]+ *$' ) != -1 );
}

function clear_blank( field )
{
   if( field.value == " " || field.value == "  " || field.value == "   "  || field.value == "    " || field.value == "     " )
      field.value = ""
}

function clear_blank_aar_fra_til( frm, prf )
{
   eval( 'clear_blank( frm.'+prf+'fra_aar )' );
   eval( 'clear_blank( frm.'+prf+'til_aar )' );
}

function test_aar( field )
{
   if( field.value != "" && ( !test_integer(field.value) || parseInt( field.value ) > maxyear ) )
   {
      field.style.borderColor= "red";
      alert('Ugyldigt årstal eller årstal senere end '+ maxyear );
      field.focus();
      return false;
   }
   return true;
}

function test_aar_fra_til( frm, prf, lowerlimit )
{
   eval( 'var fra = frm.'+prf+'fra_aar' );
   eval( 'var til = frm.'+prf+'til_aar' );
   if( ! test_aar( fra ) )  return false;
   if( ! test_aar( til ) )  return false;
   
   if( parseInt( fra.value ) > parseInt( til.value ) )    
   {
      fra.style.borderColor= "red";
      til.style.borderColor= "red";
      alert('"Fra" årstal må ikke være senere end "Til" årstal' );
      fra.focus();
      return false;
   }
   if( parseInt( fra.value ) < lowerlimit )    
   {
      fra.style.borderColor= "red";
      alert('"Fra" årstal må ikke være før '+lowerlimit );
      fra.focus();
      return false;
   }
   return true;
}

function clear_and_test_max_svar( fld )
{
   clear_blank( fld );
   if( fld.value != "" && !test_pos_integer( fld.value ) )
   {
      fld.style.borderColor= "red";
      alert('Ugyldigt maksimalt antal svar' );
      fld.focus();
      return false;
   }
   return true;
}