sub payedSuccess {
	my $article = $query->param("article");
	my $id_a_livre = $query->param("id_a_livre");
	my $buyer = $query->param("buyer");
	
	my $note = $query->param("note");
	my  $session = new CGI::Session( "driver:File", $session_id,  {Directory=>"$session_dir"} );
	my $username = $session->param("username");
	if ($username) {
		my  ($userID)=sqlSelect("id_personne", "personne", "nom_utilisateur = '$username'");		
		my  ($isenchere)=sqlSelect("enchere", "article", "id_article = '$isenchere'");
		if ($isenchere eq '1') {
				($ARTICLE{'max_enchere'})=sqlSelect("MAX(prix)", "enchere", "ref_article = '$article'");						
				($ARTICLE{'ref_enchereur'},$ARTICLE{'id_enchere'})=sqlSelect("ref_enchereur,id_enchere", "enchere", "ref_article = '$article' AND prix = '$ARTICLE{'max_enchere'}'");    							
		}else {
			$ARTICLE{'ref_enchereur'} = sqlSelect("id_personne", "personne", "nom_utilisateur = '$buyer'");		
		}
		my  ($articleUserID)=sqlSelect("id_personne", "personne,article,met_en_vente", "met_en_vente.ref_article  = id_article AND id_article = $article AND ref_vendeur = id_personne");

		if ($userID eq $articleUserID) {
				my  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
				my  $date = sprintf "%4d-%02d-%02d \n",$year+1900,$mon+1,$mday;
				my  $time = sprintf("%4d:%02d:%02d",$hour,$min,$sec);
			#	sqlUpdate("article", "id_article=$article",(ref_statut => "14"));
				my $condition;
				($condition) = sqlSelect("ref_condition_livraison", "article", "id_article = $article");
				sqlUpdate("a_livre", "id_a_livre=$id_a_livre",(ref_statut => "14", ref_mode_livraison => $condition));
				($ARTICLE{'email'})=sqlSelect("email", "personne", "id_personne = $ARTICLE{'ref_enchereur'}");									        
				# article livré

				#article livré mail
			    my  $Message = new MIME::Lite From =>'robot@djmarketplace.biz',
					To =>$ARTICLE{'email'}, Subject =>$SERVER{'article_deliver'} ,
					Type =>'TEXT',
					Data =>"$SERVER{'article_deliver'}";       
					$Message->attr("content-type" => "text/html; charset=iso-8859-1");
					$Message->send_by_smtp('localhost:25');


			loadMyEnchereDeal();	
		}
		else {
			#modification d'un article d'un autre user
		}
	}
        
}