|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexey Gradovtsev 2:5020/400 17 Aug 2004 19:20:57
To : Melekhov Alexandre A.
Subject : Динамическое построение таблиц
--------------------------------------------------------------------------------
Tue Aug 17 2004 18:33, Melekhov Alexandre A. wrote to All:
MAA> ситуация немного меняется - нужно на веб выводить не все поля, а только
MAA> отмеченные в (какой-нибудь) форме, например при помощи check_box'ов.
use CGI;
$query = new CGI;
my @turned_on;
if ($query->param())
@turned_on = $query->param('columns');
$dbh->selectall_arrayref('SELECT' . join (',', @turned_on) . 'FROM table')
or die $dbh->errstr;
print <<END;
<table><tr>
<th>col1</th>
<th>col2</th>
...
</tr><tr>
<td><input type="checkbox" name="columns" value="col1"></td>
<td><input type="checkbox" name="columns" value="col2"></td>
...
</tr></table>
<input type="submit" value="Показать">
END
Остальное подгонишь под свои нужды.
Digitally yours, Alexey.
--- ifmail v.2.15dev5.3
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по:
|
Динамическое построение таблиц 
