Perl Popup_Menu Selection - perl

Question

I try to popup_menu select with if/else. But it isn't work with if/else.
The Select for Workflow or Tasktyp change with differ lists.
Workflow Group or Tasktyp for Type:
my %datatype = (
'workflow_group' => 'Workflow Group',
'tasktype_group' => 'TaskType',
);
Workflow Group or Tasktype for Value:
my %workflow_group = (
'one' => 'Contract',
'two' => 'Exchange',
'three' => 'Delivery',
'four' => 'Event',
);
my %tasktype_group = (
'one' => 'Contract',
'two' => 'Router',
'three' => 'DocSender',
'four' => 'Transformer',
);
Script with Variable (if/else):
print "<TR>";
print $lqcgi->td({-width=>'10%',},
$lqcgi->h3('Type'),
$lqcgi->popup_menu(-name=>'type',
-values=>[qw/workflow_group tasktype_group/],
-labels=>\%datatype,
-default=>'type_select'));
my $types = $lqcgi->param('Workflow Group');
print "<TD><h3>Value</h3>";
if ($types){
print $lqcgi->popup_menu(-name=>'value',
-values=>[qw/one two three four/],
-labels=>\%workflow_group,
-default=>'workflow'),
$lqcgi->submit(-type => 'tasktype_start_command', -value => 'Start', -onclick => 'javascript:()'),
$lqcgi->submit(-type => 'tasktype_stop_command', -value => 'Stop', -onclick => 'javascript:()');
}
else{
print $lqcgi->popup_menu(-name=>'value',
-values=>[qw/one two three four/],
-labels=>\%tasktype_group,
-default=>'tasktype'),
$lqcgi->submit(-type => 'tasktype_start_command', -value => 'Start', -onclick => 'javascript:()'),
$lqcgi->submit(-type => 'tasktype_stop_command', -value => 'Stop', -onclick => 'javascript:()');
}
print "</TD></TR>";
Notice: foreach my $type(#types), if (exists $types{$type}), if (defined $types{$type}isn't working! Thank for your help!
Here is find wrong:

Answer 1

Looks like your code is actually be working from a Perl/CGI perspective, but it may not be what you are expecting. I have tested your code with both $types = "Workflow Group" (any defined value would work) and $types = "".
If $types is equal to anything, the %workflow_group popup is shown. If $types is "" the %tasktype_group popup is shown. So the if/else conditions are working. And this leads me to conclude that your
my $types = $lqcgi->param('Workflow Group');
has no value. I am not sure whether you expect the $lqcgi->param('Workflow Group') value to be determined when the user chooses a value for the Type popup, and then automatically change the Value popup. If that is the case, you would likely need to do modify the Value popup after the Type choice is made using something like Javascript. Hope this helps.