[jwh]

I want to display a popup/drop-down to my users and get the value associated with that option chosen.

I have a working popup menu, but don't understand how to get the info I want.

When the user selects something from the menu, can I save the value that is associated with it? IE the site name is diplayed in the menu but I want to save the site URL when they make their selection.

the site_info array is in this format (I get this from another file, so I have to work with this format):
"Website name~http://www.websiteurl.com"

I break that apart into the array of just the names (@site_list), and the hash (%labels) of the name and url.

Code:

...

my $i=0;			
foreach my $site_info(@site_info) 
{
  	my ($site_name, $site_url)=split(/~http:\/\//,$site_info);
  	@site_list[$i]=$site_name;
  	$labels{$site_url}=$site_name;
  	$i++;
}
	
print $query->popup_menu(-name=>'which_site', -values=>\@site_list,-labels=>\%labels);

I am new to perl and am looking at "perl in a nutshell" but it doesn't help with this question. Any advice would be helpful.

Thanks, J

[Chas]

This will give you the selected value:

Code:

my $url = $query->param('which_site');

after the user submits the form. Is that what you are looking for?

~Charlie

[jwh]

Code:

my $url = $query->param('which_site');

Thanks, but not quite what I need.

This give me the site name from the popup; I want the URL that is associated with that site name.

[Chas]

You'll have to keep a hash table of site names to URLs or use the url as the value in your drop down.

Code:

my %sites = (
  'my site name' => 'www.foo.com',
  'my other site name' => 'www.bar.com',
);

# The reference the url by site name:

my $site_name = $query->param('which_site');
my $url = $sites{$site_name};

You can probably split your @site_info into the hash and use that to generate your drop down:

Code:

my %sites = map {
  my ($name, $url) = split(/~http:/, $_);
  $name => "http:$url";
} @site_info;

print $query->popup_menu(-name=>'which_site', -values=> [ values %sites ], -labels=> \%sites);

~Charlie

[jwh]

So using the hash in the popup labels really doesn't help me out?

I have the hash already so I will use the name value chosen from the popup to get the url. I just thought there was another way...

Thanks.