Hi I could not fond what the error mind with the $isecnchere variable

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,  {Dir
+ectory=>"$session_dir"} );
    my $username = $session->param("username");
    if ($username) {
        my  ($userID)=sqlSelect("id_personne", "personne", "nom_utilis
+ateur = '$username'");        
        my  ($isenchere)=sqlSelect("enchere", "article", "id_article =
+ '$isenchere'");
        if ($isenchere eq '1') {
                ($ARTICLE{'max_enchere'})=sqlSelect("MAX(prix)", "ench
+ere", "ref_article = '$article'");                        
                ($ARTICLE{'ref_enchereur'},$ARTICLE{'id_enchere'})=sql
+Select("ref_enchereur,id_enchere", "enchere", "ref_article = '$articl
+e' AND prix = '$ARTICLE{'max_enchere'}'");                           
+     
        }else {
            $ARTICLE{'ref_enchereur'} = sqlSelect("id_personne", "pers
+onne", "nom_utilisateur = '$buyer'");        
        }
        my  ($articleUserID)=sqlSelect("id_personne", "personne,articl
+e,met_en_vente", "met_en_vente.ref_article  = id_article AND id_artic
+le = $article AND ref_vendeur = id_personne");

        if ($userID eq $articleUserID) {
                my  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isd
+st)=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_statu
+t => "14"));
                my $condition;
                ($condition) = sqlSelect("ref_condition_livraison", "a
+rticle", "id_article = $article");
                sqlUpdate("a_livre", "id_a_livre=$id_a_livre",(ref_sta
+tut => "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@djmarketpl
+ace.biz',
                    To =>$ARTICLE{'email'}, Subject =>$SERVER{'article
+_deliver'} ,
                    Type =>'TEXT',
                    Data =>"$SERVER{'article_deliver'}";       
                    $Message->attr("content-type" => "text/html; chars
+et=iso-8859-1");
                    $Message->send_by_smtp('localhost:25');


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

thx

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.