Re: [testeurs] Bienvenue nouveaux !

[samval <samval@xxxxxxxxxx>]

salut Pierre,
je t'ai fait un PDF de debug qui va du lancement de l'appli à une première recherche.
et si tu as le temps dis moi ce que renvoie %$requete parceque je vois pas trop...

my $sql = 'SELECT id,simpl,tradi,pinyin,fr,categorie,uid,nom,affiliation FROM Mots_ref WHERE ';
    my $first =1;
    while (my ($k,$v) = each(%$requete) ) {
        if ($v) {
            $v =~ s/(['])/'$1/g;    
            $sql .= " AND " if($first == 0); #TODO: Choix AND/OR
            $first=0;
            $sql .= "$k LIKE '$v'" if( grep {$_ eq $k} qw(simpl tradi pinyin fr categorie));
            $sql .= "$k=$v" if( grep {$_ eq $k} qw(id uid));
        }
    }

@+
sam