Probleme d'incrementation

Bonjour a tous,

J'ai un probleme sur un script :
Je fais une requete sur une base Oracle, qui me retourne 2 enregistrements au depart.
Je veux pouvoir en ajouter donc j'ai mis un bouton (add_test) sur mon formulaire. Lorsque je cliq dessus, je veux pouvoir ajouter une ligne.

Mon probleme, c'est que j'arrive a passer a 3 lignes, mais pas au dela...
Voila mon code, un peu simplfié :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

my $defaut_test = Execution de la requete; -->retourne 2 enreg. my $nb_test_req = $#$defaut_test; --> $nb_test_req = 1 my $nb_test = $q->param('nb_test');   my $add_test = $q->param('add_test');   if ($nb_test eq '') { $nb_test = $nb_test_req; }   if ($add_test ne '') { $nb_test+= $nb_test; } print $q->hidden(-name=>'nb_test', -default=>[$nb_test]);   foreach my $x (0..$nb_test) { print "test : $x<br>"; }

---

Résultat au 1er passage, sans clic sur le bouton :

Citation:

---

test : 0
test : 1

---

Et au 2eme passage :

Citation:

---

test : 0
test : 1
test : 2

---

Au 3eme passage, je voudrais avoir :

Citation:

---

test : 0
test : 1
test : 2
test : 3

---

mais j'ai toujours :

Citation:

---

test : 0
test : 1
test : 2

---

Est ce que quelqu un voit d'ou peut venir le probleme?

Merci

salut

est ce que tu a essayer de mettre $#defaut_test au lieu de $#$defaut_test a la deuxieme ligne de ton code.

Non, si je ne mets que $#, je n'ai plus aucune ligne.

Et le nombre de lignes retourné n'intervient que lors du 1er passage, donc aucune incidence sur l'incrementation de $nb_test, si ce n'est sur le point de depart

Visiblement, il y a un probleme au niveau du hidden.
En effet, si on remplace hidden par textfield, on se rend bien compte que la valuer reste a 1.

Par contre, si on met

Code:

---

print "<INPUT TYPE=hidden NAME=nb_test VALUE=$nb_test>";

---

Il y a bien une incrementation correcte alors que si on met:

Code:

---

print $q->hidden(-name=>'nb_test', -value=>$nb_test);

---

ca ne marche pas 8O :evil: :twisted: ...

D'ou cela peut il venir? J'y ai deja passé bcp bcp de temps dessus, mais je ne vois pas l'ombre d'une reponse

Donc si quelqu'un voit :!: :?: :idea:

Tu fais

Code:

---

$nb_test+= $nb_test;

---

au lieu de

Code:

---

$nb_test+= $add_test;

---

Il n'aime pas quand $nb_test > 1 je suppose.

Citation:

---

Envoyé par pec

tu a essayer de mettre $#defaut_test au lieu de $#$defaut_test a la deuxieme ligne de ton code.

---

C'est pas plutôt

Code:

---

$#{$defaut_test}

---

non ?

N

Citation:

---

Envoyé par vic

Tu fais

Code:

---

$nb_test+= $nb_test;

---

au lieu de

Code:

---

$nb_test+= $add_test;

---

Il n'aime pas quand $nb_test > 1 je suppose.

---

Non, c'est pas ca, mais il y a bien une erreur, c'est :

Code:

---

$nb_test += 1;

---

Citation:

---

Envoyé par nematoad

pec a écrit:
tu a essayer de mettre $#defaut_test au lieu de $#$defaut_test a la deuxieme ligne de ton code.


C'est pas plutôt Code:
$#{$defaut_test}
non ?

---

Que je mette $#$defaut_test ou $#{$defaut_test}, apparement ca marche pareil.

Ce qui me fais dire que c'est le hidden qui pose un probleme, cest que si je fais :

Code:

---

1 2 3 4

print "$nb_test<br>"; print $q->hidden(-name=>'nb_test', -value=>$nb_test); print "$nb_test<br>";

---

Au 1er passage, $nb_test=1 et au niveau affichage, j'ai bien un "1".
et lorsque je regarde le code source, j'ai

Citation:

---

<INPUT TYPE="hidden" NAME="nb_test" VALUE="1">

---

.

Au 2eme passage, je recupere la valeur de $nb_test, et j'ajoute 1, donc je dois avoir $nb_test=2.
A l'affichage, avant et apres le champ en hidden, j'ai bien l'affichage de "2".
Par contre, au niveau du code source, j'ai toujours :

Citation:

---

<INPUT TYPE="hidden" NAME="nb_test" VALUE="1">

---

alors que je devrais avoir

Citation:

---

<INPUT TYPE="hidden" NAME="nb_test" VALUE="2">

---

Et en remplacant ma ligne

Citation:

---

print $q->hidden(-name=>"nb_test", -value=>$nb_test);

---

par

Citation:

---

print "<INPUT TYPE=hidden NAME=nb_test VALUE=$nb_test>";

---

Le probleme est resolu... Je ne vois vraiment pas ce que ca change, mais ca marche!...

Alors vous allez me demander pourquoi je ne met pas tout simplement un petit tag "Résolu" et je laisse tout le monde tranquille, et bien tout simplement parce que j'aimerais comprendre!... 8O