bonjour a tous,
j'ai un petit probleme avec une fonction
voila le code
sub requete_commande{
my $bd = "xxxxx";
my $host = "xxxxx";
my $port = "xxxxxx";
my $dsn = "DBI:mysql:$bd:$host:$port";
my $db_user_name = 'xxxxxx';
my $db_password = 'xxxxx';
my $variable = 0;
my $typecomm = 0;
$variable = $q->param('listevar');
$typecomm = $q->param('listetypcom');
my $dbh2 = DBI->connect($dsn, $db_user_name, $db_password) or die "Echec de connexion\n";
my $sth3 = $dbh2->prepare(qq{SELECT c.Commande FROM commande c, variable v WHERE c.Type_commande=$typecomm AND c.c_nom_variable=v.Nom_variable AND v.Nom_variable=$variable});
$sth3->execute();
while (my ($comm) = $sth3->fetchrow_array()){
push(@commande,$comm);
}
}
if (param('listevar'))
{
&requete_connexion();
print $q->start_form;
print $q->p("Voici vos critères: $variable, $typecomm");
#print $q->br;
print $q->scrolling_list(-name=>'listecom',
-values=>\@commande,
-labels=>\%labels), p;
print $q->end_form;
}
voila l'erreur
Undefined subroutine &main::requete_connexion called at /home/vgn/appli/grpapadev/cgi-bin/sara/dev/cnxbd2.cgi line 95.
qq'un peut m'aider
merci
Partager