@values = sort numerically keys %ProgramAreas;
        $default = $ProgramAreas{$ComponentAreas{$ComponentID}};
        print   '<TD ALIGN="right"><B>Program Area:</B></TD><TD ALIGN="left">',
                popup_menu(     -name=> 'ComponentProgramArea',
                                -values=> \@values,
                                -defaults=> \$default,
                                -labels=> \%ProgramAreas),
                                         "</TD><BR><BR><BR>\n";