var cadmoActionButton = 'none';

function cadmoCheckForm( f, nomi, tipi, descrizioni, dimensioni ){
   if( (cadmoActionButton!='insert_confirm') && (cadmoActionButton!='insert_confirm_list') && (cadmoActionButton!='modify_confirm') && (cadmoActionButton!='do') && (cadmoActionButton!='insert_confirm_list') && (cadmoActionButton!='fop_text') && (cadmoActionButton!='spedisci_inserisci_email') ) { 
         return true;
   }
	var i = 0;
	var msg = "";
	for( i=0; i<tipi.length; i++ ){
       var required
;       if( dimensioni[i].substring(0,1) == "R" ){
              required = 1;
       } else {
              required = 0;
       }
       if( (required == 1 ) && (tipi[i] != "FCK" ) && ((f[nomi[i]] == null) || (f[nomi[i]].value == "")) ){
              msg += "\""+ descrizioni[i] + "\" :\nE' richiesto un valore\n";
		} else if( (tipi[i] == "Date") || (tipi[i] == "TimeStamp") ){
			msg += cadmoCheckSimpleDate( f, nomi[i], descrizioni[i] );
		} else if( (tipi[i] == "Integer") || (tipi[i] == "Long") ) {
			msg += cadmoCheckInteger( f, nomi[i], descrizioni[i] );
		} else if( (tipi[i] == "Float") || (tipi[i] == "Double") ) {
			msg += cadmoCheckFloat( f, nomi[i], descrizioni[i] );
		} else if( (tipi[i] == "Interval.Date") || (tipi[i] == "Interval.TimeStamp") ) {
			msg += cadmoCheckIntervalDate( f, nomi[i], descrizioni[i] );
       } else if( (tipi[i] == "Interval.Integer" ) ){
           ;
       } else if( (tipi[i] == "Text" ) ){
           msg += cadmoCheckText( f, nomi[i], descrizioni[i], dimensioni[i] );
       } else if( (tipi[i] == "FCK" ) ){
           FCKText=FCKeditorAPI.GetInstance(nomi[i]).GetXHTML();
           msg += cadmoCheckFCKText( f, nomi[i], descrizioni[i], dimensioni[i], FCKText );
       } else if( (tipi[i] == "Memo" ) ){
           msg += cadmoCheckMemo( f, nomi[i], descrizioni[i], dimensioni[i] );
		} else {
           msg += eval( tipi[i] + '(f, nomi[i], descrizioni[i], dimensioni[i] )' );
		}
	}
	if( msg != "" ){
		alert( "Alcuni campi contengono errori.\n\n" + msg );
		return false;
	} else {
		return true;
	}
}

var giorni = new Array( 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 );
var nomimesi = new Array( "Gennaio", "Febbraio", "Marzo", "Aprile", "Maggio", "Giugno",
	"Luglio", "Agosto", "Settembre", "Ottobre", "Novembre", "Dicembre" );

function checkbisestile( anno, mese, giorno ) {
	/* calendario gregoriano */
	if( (giorno != 29) || (mese != 2) ) {
		return false;
	}

	if( (((anno % 4) == 0) && ((anno % 100) != 0)) || ((anno % 400) == 0) ){
		return true;
	} else {
		return false;
	}
}

function cadmoCheckIntervalDate( f, fname, flabel ) {
	var startvalue = f["_startvalue_" + fname].value;
	var stopvalue = f["_stopvalue_" + fname].value;

	var msg = "";

	if( startvalue != "" ){
		startvalue = cadmoCompleteISODate( startvalue );
		f["_startvalue_" + fname].value = startvalue;
		msg += cadmoCheckISODate( startvalue, "valore iniziale di " + flabel );
	}

	if( stopvalue != "" ){
		stopvalue = cadmoCompleteISODate( stopvalue );
		f["_stopvalue_" + fname].value = stopvalue;
		msg += cadmoCheckISODate( stopvalue, "valore finale di " + flabel );
	}

	return msg;
}
function cadmoCompleteISODate( dvalue ){
  if( dvalue.length < 10 ) {
		return dvalue + "2000-01-01".slice( dvalue.length );
	} else if( dvalue.length > 10 ){
		return dvalue.slice(0,10);
	} else {
		return dvalue;
	}
}

function cadmoCheckISODate( fdate, flabel ){
	if( fdate.charAt( 4 ) != "-" || fdate.charAt( 7 ) != "-" ){
		return "\tIl valore non e' in formato AAAA-MM-GG ne' GG/MM/AAAA\n";
	}

	return cadmoHelpCheckDate( fdate.slice(0,4), fdate.slice(5,7), fdate.slice(8,10), "", flabel );
}

function cadmoCheckDate( f, fname, flabel ) {

	var anno = parseInt( f["_yy_" + fname].value );
	var mese = parseInt( f["_mm_" + fname].value );
	var giorno = parseInt( f["_dd_" + fname].value );
	return cadmoHelpCheckDate( anno, mese, giorno, fname, flabel );
}

function cadmoHelpCheckDate( anno, mese, giorno, fname, flabel ){

  var msg = "";

  if( isNaN(anno) ) {
	msg += "\tL'anno deve avere un valore numerico\n";
  }
  if( isNaN(mese) ) {
	msg += "\tIl mese deve avere un valore numerico\n";
  }
  if( isNaN(giorno) ) {
	msg += "\tIl giorno deve avere un valore numerico\n";
  }

/* significa 'qualsiasi data' */
  if( mese == 0 ){
	return "";
  }

  if( (anno < 1) ){
	msg += "\tL'anno dev'essere maggiore di zero\n";
  }

  if( (mese < 1) || (mese > 12 ) ) {
	msg += "\tIl mese deve essere compreso tra 1 e 12\n";
  }

  if( (giorno < 1) || (giorno > 31) ){
	msg += "\tIl giorno deve essere compreso tra 1 e 31\n";
  }

  if( giorno > giorni[ mese-1 ]  ){
	if( ! checkbisestile( anno, mese, giorno ) ) { 
		msg += "\tIl giorno " + giorno + " non appartiene al mese di " + nomimesi[mese-1] + "\n";
	}
  }

  if( msg == "" ) {
	return "";
  } else {
	return "\"" + flabel + "\" : \n " + msg;
  }
	

}

function cadmoCheckInteger( f, fname, flabel ){
	var msg = "";
	if( (f[fname] == null) || (f[fname].value == "") ){
		return "";
	}

	var numero = parseInt( f[fname].value );
	if( isNaN( numero ) ){
		msg += "\"" + flabel + "\" : \n"
		+ "\tIl valore \"" + f[fname].value + "\" non e ' un numero intero \n";
	}
	return msg;
}

function cadmoCheckFloat( f, fname, flabel ){
	var msg = "";
	if( (f[fname] == null) || (f[fname].value == "") ){
		return "";
	}

	var numero = parseFloat( f[fname].value );

	if( isNaN( numero ) ){
		msg += "\""+ flabel + "\" :\n"
		+ "\tIl valore \"" + f[fname].value + "\" non e ' un numero\n";
	}
	return msg;
}

function cadmoCheckSimpleDate( f, fname, flabel ) {
	if( f[fname] == null ) { return ""; }
	var fvalue = f[fname].value ;
	if( fvalue != "" ) {
   if( fvalue.length == 10 && fvalue.charAt( 2 ) == "/" && fvalue.charAt(5) == "/" ) {
     fvalue = fvalue.slice( 6, 10 ) + "-" + fvalue.slice( 3, 5 ) + "-" + fvalue.slice( 0, 2 );
   }
   fvalue = cadmoCompleteISODate( fvalue );
   f[fname].value = fvalue;
   return cadmoCheckISODate( fvalue, flabel );
	} else {
   return "";
	}
}

function cadmoCheckText( f, fname, flabel, fsize ){
	var msg = "";
	var required
;	var rsize;
	if( fsize.substring(0,1) == "R" ){
		required = 1;
		rsize = parseInt(fsize.substring(1));
	} else {
		required = 0;
		rsize = parseInt(fsize);
	}
	if( (required == 0 ) && ((f[fname] == null) || (f[fname].value == "")) ){
		return "";
	}
	if( (required == 1 ) && ((f[fname] == null) || (f[fname].value == "")) ){
		return "\""+ flabel + "\" :\nE' richiesto un valore\n";
	}

	if( f[fname].value && (f[fname].value.length > rsize) ){
		return  "\""+ flabel + "\" :\nLa dimensione massima e' " + rsize + " caratteri\n";
	}

	return"";
}
function cadmoCheckFCKText( f, fname, flabel, fsize, FCKText ){
	var msg = "";
	var required
;	var rsize;
	if( fsize.substring(0,1) == "R" ){
		required = 1;
		rsize = parseInt(fsize.substring(1));
	} else {
		required = 0;
		rsize = parseInt(fsize);
	}
	if( (required == 0 ) && ((FCKText == null) || (FCKText == "")) ){
		return "";
	}
	if( (required == 1 ) && ((FCKText == null) || (FCKText == "")) ){
		return "\""+ flabel + "\" :\nE' richiesto un valore\n";
	}

	if( FCKText.length > rsize ){
		return  "\""+ flabel + "\" :\nLa dimensione massima e' " + rsize + " caratteri\n";
	}

	return"";
}
function cadmoCheckMemo( f, fname, flabel, fsize ){
	var msg = "";
	var required
;	var rsize;
	if( fsize.substring(0,1) == "R" ){
		required = 1;
		rsize = parseInt(fsize.substring(1));
	} else {
		required = 0;
		rsize = parseInt(fsize);
	}
	if( (required == 0 ) && ((f[fname] == null) || (f[fname].value == "")) ){
		return "";
	}
	if( (required == 1 ) && ((f[fname] == null) || (f[fname].value == "")) ){
		return "\""+ flabel + "\" :\nE' richiesto un valore\n";
	}

	return"";
}