Create dynamic HTML 1

[maximo1970]

How do I get the real value and not the arrayref into my menu list from this source data?

my $cur = $dbh->prepare("SELECT Device_Name FROM tbl_admin_systems"
$cur->execute();

my $menu = $cur->fetchall_arrayref();

my $q = CGI->new;

print $q->header;
print $q->start_html(-title=>'Menu');
print $q->popup_menu(-name=>'This is a menu', -values=>$menu);
print $q->end_html;
$cur->finish();

The column contains "SVR1, SVR2, SVR3, SVR4".

Thanks for your help.

Cheers

 

[rosenk]

print $q->popup_menu(-name=>'This is a menu', -values=>@{$menu});

[tt]@{$menu}[/tt] is the array dereferenced from the [tt]$menu[/tt] array ref.

 

[maximo1970]

Thanks for that, rosenk. However I'm only getting one menu item in my list where as I was getting the entire column of data (array's anyway).

 

[tviman]

I believe you have to to something like this:

$values[0]
$values[1]
$values[2]

etc.

you'll need a "for" or "while" loop to terminate the process when it gets to the end of the array.

There's always a better way. The fun is trying to find it!

 

[rosenk]

Ah, right. [tt]fetchall_arrayref[/tt] returns a reference to an array of array references. Also, you're supposed to pass an arrayref for -values. Try this:

print $q->popup_menu(-name=>'This is a menu', -values=> [map { $_->[0] } @{$menu}]);

That's assuming that you want the first element of each row, of course.

 

[maximo1970]

Thnaks rosenk, does the I need. I must spent some time going over array's again, one day I'll work it out.

Cheers for your help.