Just a little throw-away example for you, in addition to Chris' email...
---------------------------------------------------------------
#!/usr/bin/perl -w
use strict;
use Omni::DB; # You probably 'use DBI;'
use CGI;
my $q = new CGI;
my $dbh = Omni::DB::connect_prod(); # You probably 'DBI->connect...'
my $sth = $dbh->prepare("select prop, prop_name from hotels");
$sth->execute;
my (%somelabels, @row);
while (@row = $sth->fetchrow_array) {
$somelabels{$row[0]} = $row[1];
}
$sth->finish;
$dbh->disconnect;
print $q->popup_menu (
-name => "Blah",
-values => [ keys %somelabels ],
-default => 4,
-labels => \%somelabels
);
---------------------------------------------------------------
HTH,
Jay Hannah
Application Development Manager
Omni Hotels Reservation Center
Tel: (402) 952-6573
Mobile: (402) 578-3976
Email: [EMAIL PROTECTED]
In an ideal world, one of the luxuries of a luxury hotel would be an easier way to
earn airline miles.
> >> -----Original Message-----
> >> From: Alfred de Jager [mailto:[EMAIL PROTECTED]]
> >> Sent: Tuesday, November 19, 2002 4:26 AM
> >> To: Hardy Merrill; [EMAIL PROTECTED]
> >> Subject: Binding a hash to a popup button
> >>
> >>
> >> Dear List,
> >>
> >> I try to bind a hash containing the result of a query to a popup button.
> >> If I make the hash 'manually' it is not using the result of my
> >> selection than everything works fine.
-snip!-
