[web] gérer 2 formulaires sur la meme page...

**linou** · 22/03/2005, 10h55

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.

**djibril** · 22/03/2005, 13h57

pourquoi la nécessité d'avoir deux boutons???

**linou** · 22/03/2005, 14h19

Javais fait une erreur au niveau du code, il y a un tableau pour les fecondations et un autre pour les tests. J'ai fait les modifications.

Il me faut 2 tableaux car se sont 2 choses différentes qui sont gérées. Je n'aurais pas obligatoirement le meme nombre de lignes dans chaque tableau.

**djibril** · 22/03/2005, 14h25

oui mais un seul bouton suffit, l'essentiel est de recuperer les infos saisis par les utilisateurs. et un click execute ton script perl

**Mr6** · 22/03/2005, 14h28

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 print $q->textfield(-name=>'text_test', default=>$text_test, size=>1); 
 
    print "<form name='nb_test' action='' method='post' enctype='multipart/form-data'>";

Et si tu mettais ton champ textfield dans ton formulaire, au lieu de le mettre avant, ca permettrait de le valider...

@+
Mr6

**linou** · 22/03/2005, 14h51

Envoyé par Mr6

Et si tu mettais ton champ textfield dans ton formulaire, au lieu de le mettre avant, ca permettrait de le valider...

Effectivement, ca marche!

Mes 2 tableaux sont bien indépendants l'un de l'autre. Je vais essayer de rajouter le 3ème.

Tant que j'y suis, est ce que quelqu'un voit comment je peux faire pour que sur le clic d'un bouton, seul le tableau concerné se recharge au lieu que toute la page s'actualise. Ca permettrait de gagner du temps, d'autant plus que le serveur n'est pas tout proche, et déjà, c assez long...

Merci

**linou** · 22/03/2005, 14h51

Envoyé par Mr6

Et si tu mettais ton champ textfield dans ton formulaire, au lieu de le mettre avant, ca permettrait de le valider...

Effectivement, ca marche!

Merci

Mes 2 tableaux sont bien indépendants l'un de l'autre. Je vais essayer de rajouter le 3ème.

Tant que j'y suis, est ce que quelqu'un voit comment je peux faire pour que sur le clic d'un bouton, seul le tableau concerné se recharge au lieu que toute la page s'actualise. Ca permettrait de gagner du temps, d'autant plus que le serveur n'est pas tout proche, et déjà, c assez long...

**Mr6** · 22/03/2005, 14h57

J'veux pas dire de connerie, mais tu ne peux pas directement le faire en perl à ma connaissance... ton salut est dans les frames ou les javascripts et autres...

@+
Mr6

**linou** · 22/03/2005, 15h06

Oui, j'ai pensé au javascript, j'ai d'ailleurs posté un message, mais je me suis dit que peut etre la solution, si solution il y a, serait aussi ici

[web] gérer 2 formulaires sur la meme page...

Web Perl

Discussions similaires

Partager

Partager