Hook for creating a dependent list

About this task

The following example assumes that the values you want for the client operating system depend on the values that the user selects for the server operating system.

Procedure

On the server_os field, create a Choice List hook with the enumerated list of values set to Windows NT and UNIX:

VBScript

choices.AddItem("NT")
choices.AddItem("Unix")

Perl

push(@choices,"NT","Unix");

return @choices; #Rational
                    ClearQuest
 Designer provides this line of code

To prevent your users from adding new members to the list, select the Limit to list check box.
To clear the old value in client_os when a new value is selected in server_os, add the following line to the server_os Value Changed hook:
- VBScript
```
SetFieldValue "client_os", ""
```
- Perl
```
$entity->SetFieldValue("client_os", "");
```

On the client_os field, create a Choice List hook:

VBScript

dim server_os_choice 

set server_os_choice = GetFieldValue("server_os") 

select case server_os_choice.GetValue() 

case "NT" 

   choices.AddItem ("Win95") 

   choices.AddItem ("NT") 

   choices.AddItem ("Web") 

case "Unix" 

   choices.AddItem ("Web") 

end select

Perl

$server_os_choice = $entity->GetFieldValue("server_os"); 

$svalue = $server_os_choice->GetValue();

if ($svalue eq "NT") { 

  push(@choices, "Win95","NT","Web");

} elsif ($svalue eq "Unix") {

  push(@choices,"CQWeb");

}

return @choices; 

#Rational
                    ClearQuest Designer provides this line of code

In the properties for the client_os hook, select Recalculate Choice list, so that whenever the server_os field changes, the values are recalculated.
Add the client_os and server_os fields to the form by using list box controls.