Bonjour,

J'ai un souci avec 2 boutons qui se trouvent sur une meme page.
En fait, j'ai un premier formulaire avec une zone de texte dans laquelle on saisit un nombre correspondant au nombre de lignes d'un tableau. On clique sur un bouton OK, et un tableau doit s'afficher, avec le nombre indiqué.

Ensuite, dans la meme page, j'ai une meme chose identique : une autre zone de texte, avec un autre bouton OK qui fait un second tableau avec le nombre de ligne dépendant du nombre indiqué dans la zone de texte.

L'affichage de mon premier tableau fonctionne.
Cpendant, lorsque je clique sur le 1er bouton, cela initialise le nombre de ligne de mon 2eme tableau, qui reste du coup à 1 ligne.
Je sais que le probleme vient du passage de parametre, mais je ne sais pas comment le gerer...

Voici mon code (que j'ai essayé de reduire au max) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
#!/usr/local/bin/perl -w 
 
use strict; 
use CGI; 
use DBI; 
no warnings 'uninitialized'; 
 
my $q = new CGI; 
my $login = $q->param( "login" ); 
my $pass = $q->param( "pass" );  
my $text_fecond = $q->param("text_fecond"); 
my $text_test = $q->param("text_test"); 
 
print $q->header(); 
print FORM->getHeader("Worksheet"); 
 
if ( $login , $pass)
{ 
    print "\n<body><center>\n"; 
 
    print "<form name='fiche_trav'  method='post' enctype='multipart/form-data'>\n";
    print $q->hidden(-name=>'login', -value=>$login); 
    print $q->hidden(-name=>'pass', -value=>$pass); 
 
 
   #Fécond
 
  print "<table><tr><td><table border=1><tr><td>Fécondation souhaitées</td></tr><tr><td align =center>Nombre de fécondations à faire : ";
    if ($text_fecond == '') {$text_fecond=1;}
    print $q->textfield(-name=>'text_fecond', default=>$text_fecond, size=>1);
 
    print "<form name='nb_fecond' action='' method='post' enctype='multipart/form-data'>";
    print $q->hidden(-name=>'text_fecond', -value=>$text_fecond); 
    print $q->hidden(-name=>'text_test', -value=>$text_test); 
    print $q->hidden(-name=>'login', -value=>$login); 
    print $q->hidden(-name=>'pass', -value=>$pass); 
    print $q->submit(-name=>"submit_fecond", -value=>'OK'); 
    print "</form>"; 
 
    print "</td></tr></table></td></tr><tr><td align=center>";
    print "<table border=1><tr><td align=center>&nbsp;Priorité&nbsp;</td><td align=center>&nbsp;Croisement&nbsp;</td</tr>";
 
    my $type_fecond = req1
    my $genotype = req2
 
 
    for (my $i=1; $i<=$text_fecond;$i++)
      {
	print "<tr><td align=center>$i</td><td>";
	print res req 1;
	print "</td><td>";
	print res req2;
	print "</td></tr>";
      }
    print "</table>";
    print "</td></tr>";
 
 
    #Tests
 
  print "<tr><td><table border=1><tr><td>Tests souhaités</td></tr><tr><td align =center>Nombre de tests à faire : ";
    if ($text_test == '') {$text_test=1;}
    print $q->textfield(-name=>'text_test', default=>$text_test, size=>1);
 
    print "<form name='nb_test' action='' method='post' enctype='multipart/form-data'>";
    print $q->hidden(-name=>'text_fecond', -value=>$text_fecond); 
    print $q->hidden(-name=>'text_test', -value=>$text_test); 
    print $q->hidden(-name=>'login', -value=>$login); 
    print $q->hidden(-name=>'pass', -value=>$pass); 
    print $q->submit(-name=>"submit_test", -value=>'OK'); 
    print "</form>"; 
 
    print "</td></tr></table></td></tr><tr><td align=center>";
    print "<table border=1><tr><td align=center>&nbsp;Priorité&nbsp;</td><td align=center>&nbsp;Croisement&nbsp;</td><td align=center>&nbsp;Genotype&nbsp;</td></tr>";
 
    my $type_test = req3;
    my $genotype = req4;
 
 
    for (my $i=1; $i<=$text_test;$i++)
      {
	print "<tr><td align=center>$i</td><td>";
	print res req3
	print "</td><td>";
	print res req4
	print "</td></tr>";
      }
    print "</table>";
}  
else  
  {
    print "Content-type: text/html\n\n";  
    print $q->start_html("Error in the cookie");  
    print $q->h1("Wrong login/password"); 
    print $q->end_html();  
  }
Je precise que si j'arrive a faire fonctionner cela avec 2 tableaux, il faudra que j'en rajoute un 3eme fonctionnant de la meme maniere.