Sziasztok!
Egy táblázatból származó adatokat szeretnék oldalakra tördelve
listázni, de a dologgal már az elején elakadtam... annyira az elején,
hogy még sehol sem vagyok a táblázattól... és gyanítom, hogy nem a
feladat bonyolultságával van a probléma, hanem velem...
Szóval lenne olyan jó valaki hogy megmondaná, hogy az alábbi kis
kódban miért nem állítódik át a 'lepeskoz_tol' textbox értéke, ha
megnyomom az 'elore' gombot...?
#!/usr/bin/perl -T -t
use strict;
use CGI qw/:standard/;
my $q=CGI->new;
print $q->header();
print $q->start_html();
my ($lepeskoz,$lepeskoz_tol)=(param('lepeskoz'),param('lepeskoz_tol'));
if (param('elore')) { $lepeskoz_tol=$lepeskoz_tol+$lepeskoz }
print $q->start_form,
$q->submit('semmi'),"\n",
$q->submit('elore'),br,"\n",
$q->textfield(-name=>'lepeskoz_tol',
-value=>$lepeskoz_tol),"-tól",br,"\n",
$q->textfield(-name=>'lepeskoz', -value=>$lepeskoz),
"(lepeskoz)",br,"\n",
$q->end_form,hr,"\n";
my $i; foreach ($q->Vars) { $i++; if ($i%2) { print "$_: "; } else {
print "$_<br>\n" } }
print $q->hr;
print $q->end_html;
Köszönettel:
kjt
_________________________________________________
linux lista - linux@mlf.linux.rulez.org
http://mlf2.linux.rulez.org/mailman/listinfo/linux
