# Query database for all lookup, value pairs of one property 
# and returns an array for use with menu_choice
sub get_menuchoice_array($) {
		my ($dummy, $property) = @_;
		my @menu_choices;
	
		defined $config_hash
				or return undef; 
		defined $property
				or return undef; 		
		while( my ($k, $v) = each %$config_hash ) {
				my $lookup = $k;
				my $value = $v->{"$property"};
				defined $value
		 			and push @menu_choices, ($lookup => $value);
		}
		return @menu_choices;
}