spolupraca DBI a CGI::popup_menu

[Marian Cavojsky]

Nedari sa mi rozumnejsie zapisat nieco taketo:

<kod>
my $cln_id = $db->selectcol_arrayref( "select cln_id from clients order by cln_name");
my $cln_name = $db->selectcol_arrayref( "select cln_name from clients order by cln_name");
my %labels = ();
my $i;
for( $i = 0; $i <= $#$cln_id; $i++){
	$labels{ $$cln_id[$i]} = $$cln_name[$i];
}
print $r->popup_menu( 'client', $cln_id, $$cln_id[0], \%labels);
</kod>

Mozno by uz jednoduchsie bolo pouzit $db->selectall_arrayref a
popup_menu urobit vo vlastnej rezii.

Existuje nejaky rozumnejsi zapis hore prilozeneho kodu. Usporiadanie
bude zlozitejsie a potrebujem ho zachovat.

-- 
Marian Cavojsky <cavojsky @ soria-grey.sk>
Spravca siete, Soria & Grey s.r.o, reklamna agentura