Forum Webscript.Ru
Программирование => Perl => Тема начата: Skif от 15 Июля 2004, 16:59:28
-
имеется форма. на ней кнопка. по ее нажатию необходимо передать параметр далее:
sub login {
print table({-align=>CENTER,valign=>CENTER},
caption(\'\'),
Tr({-align=>CENTER,-valign=>TOP},
[
th([start_form(-metod=>"get",-action=>"index.pl")]),
td(["\\x{0418}\\x{043C}\\x{044F}: ",textfield(-name=>\'name\',-size=>15)
]),
td(["\\x{041F}\\x{0430}\\x{0440}\\x{043E}\\x{043B}\\x{044C}: ",password_field(-name=>\'pass\',-size=>15)]),
td([\'\',submit{-name=>\'choice\',-value=>\'Ok\'}]),
td([end_form])
]
)
);
}
&login;
По идее должно передаваться то, что находиться в action + values елементов формы. Но сего не происходит. Хотя в принципе мне нужно не это, а передать всего один параметр - номер сессии.
sub login {
print table({-align=>CENTER,valign=>CENTER},
caption(\'\'),
Tr({-align=>CENTER,-valign=>TOP},
[
th([start_form(-metod=>"get",-action=>"index.pl?sess=$sss")]),
td(["\\x{0418}\\x{043C}\\x{044F}: ",textfield(-name=>\'name\',-size=>15)
]),
td(["\\x{041F}\\x{0430}\\x{0440}\\x{043E}\\x{043B}\\x{044C}: ",password_field(-name=>\'pass\',-size=>15)]),
td([\'\',submit{-name=>\'choice\',-value=>\'Ok\'}]),
td([end_form])
]
)
);
$sss="asdasdasd";
}
&login;
Подскажите как это реализовать, что бы по нажатию на кнопку выполнялся нужный мне акшин и передавался с нужным параметром. тобишь дополнялся акшин до необходимого?
-
Skif:
th([start_form(-metod=>"get"
учим английский: method => \'GET\'
-
Спасибо... ;)))