The dropdown event-enabled content type input control with Taxonomy Access Module

I've modified the _event_get_type_control() function to consider the Taxonomy Access module so only are visibles the types of content accessibles by the user.

function _event_get_type_control($curtype = NULL, $autosubmit = TRUE) {
  if (module_exist('taxonomy')) {
<strong>
    $taxonomy_access_exist = module_exist('taxonomy_access');
</strong>
    $results = event_get_types('all');

    $items['all'] = t('(all)');
    foreach ($results as $type) {
      if($name = node_get_name($type)) {
<strong>
        if ($taxonomy_access_exist) {
          $vocabs = taxonomy_get_vocabularies($type);
          foreach ($vocabs as $vocab) {
            if (taxonomy_get_tree($vocab->vid) != NULL) {
              $items[$type] = $name;
              break;
            }
          }
        } else {
         $items[$type] = $name;
	}
</strong>
      }
    }

    $form['event_type_select'] = array(
      '#type' => 'select',
      '#default_value' => $curtype,
      '#options' => $items,
      '#description' => t('Select event type to filter by'));
    if ($autosubmit) {
      $form['event_type_select']['#attributes'] = array('onChange'=>'this.form.submit()');
    }

    $form = drupal_get_form('event_type_filter', $form);

    return theme('event_filter_control', $form);
  }
}

This modification prevents to show nonaccessible types of content by the users and it's ok in my drupal installations.