sub set_object_module_hint
{
    my ($project)	= $_[0];
    my ($objectname)	= $_[1];
    my ($modulename)	= lc ($_[2]);
    $modulename 	=~s/\s//g; 	
    my ($result);

    $result = 0;
    if ($modulename eq "misc") {

    	if (exists $object_module_hints {$objectname}) {
			log_message "Overriding module hint '$modulename' for database object name '$objectname'";
    	}
    	$object_module_hints {$objectname} = $modulename;
    	$result = 1;

    } else {
      log_error "Invalid module hint '$modulename' for database object name '$objectname'";
    }
    return $result;
}