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.
choices.AddItem("NT")
choices.AddItem("Unix")
push(@choices,"NT","Unix");
return @choices; #Rational ClearQuest Designer provides this line of code
SetFieldValue "client_os", ""
$entity->SetFieldValue("client_os", "");
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
$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