##--------------------------------radiobutton concordance---------------------------------------------------------	
 sub concor {
 
 print $group;
 if( ($group eq "Concordance-Version1")||($group eq "Concordance-Version2") ) {
		\& concordance();
		
}
 if(!($group eq "Concordance-Version1")&&!($group eq "Concordance-Version2"))
 
 {
		$mw->messageBox(-icon => info,
                -message => "Veuillez sélectionner un type de Concordance",
                -title => "Type de Concordance non spécifié",
                -type => "OK", 
                -default => 'OK'
				);
			
		}
 }